Function GetTextPair(Optional docStyle As String = "TTK", Optional bTag As String = "{[", Optional eTag As String = "]}") As String
Dim bPosition As Long
Dim ePosition As Long
Dim textPair As String
Dim temp As String
temp = ""
With Selection
.Start = 0
.End = 0
End With
With Selection.Find
.ClearFormatting
.Style = docStyle
.Format = True
.Forward = True
.Text = ""
.Wrap = wdFindStop
Do While .Execute = True
textPair = Selection.Text
bPosition = InStr(textPair, bTag) + 2
ePosition = InStr(textPair, eTag)
If bPosition > 0 And ePosition > 0 Then
temp = temp & "||||" & Mid$(textPair, bPosition, ePosition - bPosition)
End If
Loop
End With
GetTextPair = temp
End Function
Sub Example()
MsgBox GetTextPair
End Sub
x = abs(-5)
Excel 在 VBA 中,如何获取 Function 的返回值
请测试一下,可据实修改:Function GetTextPair(Optional docStyle As String = "TTK", Optional bTag As String = "{[", Optional eTag As String = "]}") As String Dim bPosition As Long Dim ePosition As Long Dim textPair As String Dim temp As String temp = ""With Selection .St...
vba中如何在一个function中 输入一个参数返回另一个参数
1、首先打开excel在工具栏中找到开发工具，然后打开编辑页面，在页面上输入程序，如图所示，创建一个函数，也是比较方便的。直接使用function。2、然后给函数命名，函数名后面的括号内部需要写上函数的参数，这里有参数可以写，没有参数也可以不写。以求和函数为例，写上两个参数。3、下方定义函数的计算公式...
Excel 求教一下关于VBA function的用法
1.function可以返回值，sub则不可以返回值2.sub可以直接执行，但function需要调用才可以执行明白了这两点也就可以解决上面提到的矛盾了1.如果需要过程名（function或sub的名字）能返回值，则必用function2.如果需要直接执行（F5或链接到按钮控件），那么就要用sub了3.其他情况可以根据个人爱好解决了 然后给...
ExcelVBA中怎么设置Function
通常，在VBE编辑器中，写下sub和过程名称，按下回车键后，会自动添加End Sub语句。Sub过程用来执行操作，而Function过程可以返回值，创建自定义函数。Function过程的基本语法形式为：Function 过程名称()[此处放置代码语句][过程名称= 表达式或值][Exit Function][此处放置代码语句][过程名称= 表达式或值]...
excel vba中如何返回列号
用instr字符串截取，获得返回的列号：Function getRangeABC(r As Range) getRangeABC = Mid(r.Address, 2, InStr(2, r.Address, "$") - 2)End Function
excel VBA function, find返回值是#VALUE! ,然后不管怎么做结果都成了#...
加上一个IFERROR函数试试呢！With WorksheetFunctiona=.IFERROR(.FIND(Chr(10),I),0)If a =0 then zuihou=“s”Elsezuihou=“b”End IfEnd With 把判断值指向0来判断可能就可以了。没有电脑没有法测试。
excel vba, 函数返回值
Private Function ccc(a As Integer) As Integerccc=a*a+2End Function
excel中如何用VBA查找值并返回另一列对应的值
代码如下：Sub Macro1()Dim i For i = 1 To 2000 If Sheets(1).Cells(i, "I") = 4 Then Sheets(2).Cells(3, "B") = Sheets(1).Cells(i, "J"): Exit For Next i Sheets(2).Select End Sub
如何用excel中的VBA的正则表达式提取出字符串?
1、首先打开需要编辑的Excel表格，进入到编辑页面中。2、然后点击打开主菜单栏开发工具中的“Visual Basic”选项。3、还可以鼠标右键单击工作标签，选择打开“查看代码”。4、然后在弹出来的窗口中点击输入：Function REFIND(str, re)Dim Reg As New RegExp With Reg .Global = True .Pattern = re S...
怎么用VBA把函数表达出来?
1.打开Excel表格；2.按下Alt+F11；3.输入代码，主要代码为：Range("C2") = Application.Max(Range("B2:B7"))4.点击“运行子程序”；5.就在VBA中使用了Excel中Max函数。
