Excel中VBA函數(shù)引用單元格字符串代碼的操作方法

Excel中VBA函數(shù)引用單元格字符串代碼的操作方法

　　ExcelVBA是如何引用單元格內(nèi)字符串型代碼并執(zhí)行的操作?具體是怎么去執(zhí)行操作的呢?今天，學(xué)習(xí)啦小編就教大家在Excel中VBA函數(shù)引用單元格字符串代碼的操作方法。

　　Excel中VBA函數(shù)引用單元格字符串代碼的操作步驟如下：

　　單擊Visual Basic工具欄上的安全按鈕，在彈出的安全性對話框中可靠發(fā)行商標(biāo)簽項底下的‘信任對于“Visual Basic 項目”的訪問’前打√。

　　ALT+F11打開VBE編輯器，單擊菜單工具-引用，在彈出的引用-VBAProject對話框中，選擇引用Microsoft Visual Basic 6.0 Extensibility這一項。

　　新建一個模塊，命名為: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過程是否存在

　　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

　　利用窗體工具欄上的按鈕，拖拉出一個按鈕，命名為：引用單元格內(nèi)容執(zhí)行，指定：“Sheet1.引用單元格字符串型代碼并執(zhí)行”的宏。

　　查看效果，當(dāng)A1單元格內(nèi)容變化時，單擊引用單元格內(nèi)容執(zhí)行，將根據(jù)A1單元格中字符串代碼執(zhí)行，從而產(chǎn)生不同效果。