|
▼だるま さん:
こんにちは。
返信ありがとうございます。
>つまり、Sheet1モジュールには
>Sub Set1(V as Variant)
>のようなプロシージャが書かれているものと思われます。^d^
確かに以下の記述がありました。
Sub set1(n As Byte)
Const CB As String = "CommandButton"
Dim S As Worksheet
Dim i As Byte
Set S = Worksheets("設定")
For i = 1 To n
Sheet1.OLEObjects(CB & Format(i)).Object.Caption = S.Cells(i + 1, 1).Value
book1(i - 1) = S.Cells(i + 1, 2).Value
Next i
End Sub
======================================================
Sub set1(n As Byte)
Const CB As String = "CommandButton"
Dim S As Worksheet
Dim i As Byte
'Set S = Worksheets("設定")
For i = 1 To n
Sheet1.OLEObjects(CB & Format(i)).Object.Caption = Worksheets("設定").Cells(i + 1, 1).Value
book1(i - 1) = Worksheets("設定").Cells(i + 1, 2).Value
Next i
End Sub
変数Sを使用しないように修正したのですが
やはり
Sheet1.set1 Worksheets("設定").Range("A1").Value
のステートメントで1004でエラーとなります。
windows updateを実施する前は問題なかったのですが・・・
困りました・・・
|
|