|
▼ぴょん さん:
報告だけです。
ichinoseさんのご指摘通り、私もモジュールレベル変数については、いつも、おっかなびっくりで
どきどきしながら使っています。
プロジェクトリセット時の値の消滅というより、プログラム構成としての堅牢性も気になりますので。
でも、使った方が楽ということもありますので、ケースバイケース。
こちらの xl2010,xl2013 で、ボタンクリックを、5回ずつ実行。
1回あたり100個のチェックボックスを生成していて、だんだん遅くはなるんですが
エラーにはならず、それぞれ、500個のチェックボックスが作られました。
Private Sub Workbook_Open()
Set Wb = Workbooks("Book.xlsm")
Set Ws1 = Wb.Worksheets("Sheet1")
Set Ws2 = Wb.Worksheets("Sheet2")
End Sub
Private Sub CommandButton1_Click()
Dim x As Long
Dim xx As Long
xx = 100
For x = 1 To xx
'チェックボックスを作成する
With Ws2.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False)
End With
Next x
End Sub
■標準モジュール
Public Wb As Workbook 'ワークブック
Public Ws1 As Worksheet 'ワークシート
Public Ws2 As Worksheet 'ワークシート
|
|