Just copy and paste in VBA Editor:
Function RegExpFind(text_string As String, pattern As String) As String
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Pattern = pattern
.IgnoreCase = True
.Global = False
End With
If regEx.Test(text_string) Then
RegExpFind = regEx.Execute(text_string)(0)
Else
RegExpFind = ""
End If
End FunctionSample usage:
=RegExpFind(A1;"[\d.]+x[\d.]+")If you’re just starting out with mental arithmetic, you’ve probably realized how important it is to have clear and organized number examples. That’s exactly why I created the Abacus Generator – a simple yet powerful tool in Excel that helps you prepare number tasks in a neat and easy-to-read format.
📌 What is it?
The Abacus Generator is a VBA script (built into Excel) that automatically creates a table with groups of three numbers arranged vertically, just like the tasks you’d find when working with an abacus. The focus of this tool is to generate printable worksheets for abacus exercises with just one click.
👶 Why is it perfect for beginners?
🛠️ What it does:
If you’re looking for an easy way to create abacus exercises for beginners, especially when you want to quickly print them for practice, this tool is exactly what you need.
💬 Abacus example: 6 – 2
This version emphasizes how the tool focuses on generating printable worksheets for abacus exercises with ease, just by pressing a button. Let me know if you need any further changes!
📥 Download the Abacus Generator
Ready to get started? You can download the Abacus Generator file below and start creating your own abacus exercises in minutes.
Once you download the file, simply enable macros, press the button, and you’ll have a sheet full of abacus exercises ready to print and use for practice.
Simple VBA function to split strings into words (or strings):
Function TxtSplit(rngCell As Range, delim As String, nr As Long) As String
Dim str As String
Dim arr As Variant
str = Trim(rngCell.Value)
arr = Split(str, delim)
TxtSplit = Trim(arr(nr - 1))
End FunctionSample usage:
=TxtSplit(B2;", ";1)Проста програмка на Excel за изчисляване на съпротивлението на coil-а за изпарител на електронна цигара.
Най-интересното във файла е, че съм използвал именувани полета, за да създам нещо като база данни от която се извличат данните.
Файла може да се изтегли от тук: Ohm Calculator – e-cigarette
Днес ми се наложи да добавям доста редове в Excel таблица, която беше предварително форматирана. Добавянето и форматирането на редовете един по един е хамалска работа, затова реших да напиша простичък макрос на VBA, който да свърши работата. Кода на макроса е:
Private Sub CommandButton1_Click() ActiveCell.Offset(1).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow.PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub |
Кода го вкарвам в Shee-та:
За да го стартирам се вижда, че съм използвал бутон, вкаран в Shee-та:
Екселския файл може да се изтегли от тук: Excel VBA add row
Ето и едно видео, което показва цялата операция:
Excel VBA add row
[flv:https://blog.nediko.info/examples/excel_VBA_add_row/Add_row.flv https://blog.nediko.info/wp-content/uploads/2012/06/excel_addrow_03.jpg 472 388]