Dim CodePan As VBIDE.CodeModule
Dim S As String
Dim x As String
x = showSheet
Set CodePan = ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
S = _
"Sub ABCx()" & vbNewLine & _
" MsgBox ""Hello World"",vbOkOnly" & vbNewLine & _
"End Sub" & vbNewLine
With CodePan
.InsertLines .CountOfLines + 1, S
End With
あるモジュールから別のモジュールにいくつかのコードを挿入しています。 ここで私はABCxとして追加された私のサブ名をABCshowSheetのようにしたいと思いますが、二重引用符の中のS変数のためABCxとして来ています。ABCshowSheetの代わりに私は変数の値それは二重引用符二重引用符で置換する変数値を代入する
コードをインデントしていません! – Jeeped