|
▼Jaka さん:
すいません、返信が遅くなりまして、
シート1の中のマクロはこのようになります。
Private Sub CommandButton4_Click()
Call Modoru
End Sub
Private Sub CommandButton3_Click()
Call CsvHozon
End Sub
Private Sub CommandButton2_Click()
Call ErrKensaku
End Sub
Private Sub CommandButton1_Click()
Call ErrChk
End Sub
Option Explicit
上のOption Explicitで落ちます。モジュールではないので
▼Jaka さんの書かれたソースの"作成Module"
の所はどのようにいれればよろしいか分かりますか
すいませんが分かるようでしたら教えて下さい。
▼Jaka さん:
>Sub monmon()
> Dim obj作成Moju As Object
> Set obj作成Moju = ActiveWorkbook.VBProject.VBComponents.Add(ComponentType:=1)
> obj作成Moju.Properties("Name").Value = "作成Module"
> DoEvents
>
> With ActiveWorkbook.VBProject.VBComponents("作成Module").CodeModule
> .InsertLines 1, "Public mon AS String"
> .Deletelines 1, .Countoflines
> .InsertLines 1, "sub bubu()" & vbCrLf & _
> "msgbox 555" & vbCrLf & _
> "end sub "
> End With
>End Sub
|
|