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/

764 :デフォルトの名無しさん:2011/05/07(土) 18:39:39.63
標準モジュールを使う方法だと、たとえばUserForm1とUserForm2と言う二つのフォームを作ったとして、
UserForm1にはCommandButton1と言うボタン、UserForm2にはTextBox1と言うテキストボックスと、
CommandButton1と言うボタンを設置しましたと。ついでにModule1という標準モジュールを作っておいて
ここで、UserForm1には

Option Explicit
Private Sub CommandButton1_Click()
Call UserForm2.Show
End Sub

UserForm2には

Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1 = Module1.GetTextVal
End Sub

Private Sub CommandButton1_Click()
Call Module1.SetTextVal(Me.TextBox1)
Call Unload(Me)
End Sub

と記述してやると。

続く

765 :デフォルトの名無しさん:2011/05/07(土) 18:41:15.85
>>764の続き

Module1には

Option Explicit
Dim M_sTextVal As String

Public Function GetTextVal() As String
GetTextVal = M_sTextVal
End Function

Public Sub SetTextVal(IN_sTextVal)
M_sTextVal = IN_sTextVal
End Sub

と記述しといてUserForm1から実行してCommandButton1を押下してUserForm2に遷移したあと、
TextBox1になんか書いて、UserForm2のCommandButton1を押下して閉じても、
UserForm1のCommandButton1を押下して再度開くと、UserForm2のTextBox1に
閉じる前の内容が設定されているでしょ?これが標準モジュールを使ったやり方ね。


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

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