- 178 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:56:21 ]
- 上のソースコードです。
Private Sub Workbook_Open()
Dim SH As Worksheet
Set SH = ThisWorkbook.Worksheets("Sheet2")
CommandButton1.Caption = SH.Range(SH.Cells(3, 2), SH.Cells(3, 2)).Value
End Sub
ThisWorkbook(コード)内に記述しています。
色々調べてはみたんですが、どうしても「CommandButton1.Caption〜」の
ところでエラーが出てしまいます。
どうかご教授願います。
