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

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

ExcelVBA是如何引用單元格內字符串型代碼并執行的操作?具體是怎么去執行操作的呢?今天，小編就教大家在Excel中VBA函數引用單元格字符串代碼的操作方法。

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

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

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

新建一個模塊，命名為:yyzx

在Sheet1(Sheet1)代碼窗口，粘貼如下代碼：

Sub 引用單元格字符串型代碼并執行()

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

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

查看效果，當A1單元格內容變化時，單擊引用單元格內容執行，將根據A1單元格中字符串代碼執行，從而產生不同效果。

Excel中VBA函數引用單元格字符串代碼的操作

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。