Excel中VBA函數(shù)引用單元格字符串代碼的操作方法
Excel中VBA函數(shù)引用單元格字符串代碼的操作方法
ExcelVBA是如何引用單元格內(nèi)字符串型代碼并執(zhí)行的操作?具體是怎么去執(zhí)行操作的呢?今天,學(xué)習(xí)啦小編就教大家在Excel中VBA函數(shù)引用單元格字符串代碼的操作方法。
Excel中VBA函數(shù)引用單元格字符串代碼的操作步驟如下:
單擊Visual Basic工具欄上的安全按鈕,在彈出的安全性對(duì)話(huà)框中可靠發(fā)行商標(biāo)簽項(xiàng)底下的‘信任對(duì)于“Visual Basic 項(xiàng)目”的訪(fǎng)問(wèn)’前打√。
ALT+F11打開(kāi)VBE編輯器,單擊菜單工具-引用,在彈出的引用-VBAProject對(duì)話(huà)框中,選擇引用Microsoft Visual Basic 6.0 Extensibility這一項(xiàng)。
新建一個(gè)模塊,命名為:yyzx
在Sheet1(Sheet1)代碼窗口,粘貼如下代碼:
Sub 引用單元格字符串型代碼并執(zhí)行()
Dim sr, ksh, zh
On Error Resume Next
ksh = ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule.ProcBodyLine("yyrgzx", vbext_pk_Proc)
If Err.Number = 35 Then '判斷yyrgzx過(guò)程是否存在
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
Else
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
ksh = .ProcBodyLine("yyrgzx", vbext_pk_Proc)
zh = .ProcCountLines("yyrgzx", vbext_pk_Proc)
.DeleteLines ksh, zh - 1
End With
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
End If
End Sub
Sub 引用()
Call yyrgzx
End Sub
利用窗體工具欄上的按鈕,拖拉出一個(gè)按鈕,命名為:引用單元格內(nèi)容執(zhí)行,指定:“Sheet1.引用單元格字符串型代碼并執(zhí)行”的宏。
查看效果,當(dāng)A1單元格內(nèi)容變化時(shí),單擊引用單元格內(nèi)容執(zhí)行,將根據(jù)A1單元格中字符串代碼執(zhí)行,從而產(chǎn)生不同效果。
Excel中VBA函數(shù)引用單元格字符串代碼的操作相關(guān)文章:
3.excel中VBA程序調(diào)用函數(shù)的方法
4.Excel中使用vba循環(huán)語(yǔ)句輸入單元格的操作方法
5.怎么在VBA指令中調(diào)用Excel函數(shù)
6.Excel中統(tǒng)計(jì)包含某字符串個(gè)數(shù)函數(shù)用法的操作方法