5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel VBA 質問スレ Part18

1 :デフォルトの名無しさん:2011/02/21(月) 07:24:26.35
過去スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/

関連スレ
Excel総合相談所 95
http://hibari.2ch.net/test/read.cgi/bsoft/1293162589/
Word総合相談所
http://pc11.2ch.net/test/read.cgi/bsoft/1263719084/
【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://pc11.2ch.net/test/read.cgi/bsoft/1151651536/

563 :1/2:2011/04/21(木) 12:38:55.57
ユーザーフォームを変数(定数)に格納してからロードすると、二重にロードされているようです。
そのせいか、フォームをコードから整形する時に反映されません。
ユーザーフォームを変数に格納して制御する場合の、適切なコードがありますでしょうか。

Sub Form_Load_Test()

' ユーザーフォームUserFormTestをロードします。
Dim I_COUNT_ As Long
Load UserFormTest
For I_COUNT_ = 0 To UserForms.Count - 1
Debug.Print I_COUNT_ & "/" & UserForms(I_COUNT_).Name
Next

End Sub

**実行結果**

0/UserFormTest

564 :2/2:2011/04/21(木) 12:39:20.58
----

Const Const_User_Form_Str_ as String = "UserFormTest"

----

Sub Form_Load_Test2()
' ユーザーフォームUserFormTestを定数C_U_F_Str_に格納し、ロードします。
Dim Ufm_str_ As Object
Dim I_COUNT_ As Long

Set Ufm_str_ = VBA.UserForms.Add(Const_User_Form_Str_)
I_COUNT_ = 0

For I_COUNT_ = 0 To UserForms.Count - 1
Debug.Print I_COUNT_ & "/" & UserForms(I_COUNT_).Name
Next

Set Ufm_Str_ = Nothing

End Sub

**実行結果**

0/UserFormTest
1/UserFormTest

294 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)