| |
おじさん４６ さん こんにちは
ちょっと時間が空きましたので
勉強のねたになればさいわいわいです。
’ＵｓｅｒＦｏｒｍ１のモジュール−−−−−−−−−
Private Sub CommandButton1_Click()
データ収集
End Sub
’Ｓｈｅｅｔ１のモジュール−−−−−−−−−−−
Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−
’標準モジュール−−−−−−−−−−−−−
Sub データ収集()
Dim r As Range
Dim i As Single
i = 1
For Each r In Selection
r.Interior.ColorIndex = 6 '説明用
UserForm1.Controls("TextBox" & i).Text = r.Value
i = i + 1
Application.Wait (Now + TimeValue("0:00:01")) '説明用
r.Interior.ColorIndex = xlColorIndexNone '説明用
Next r
End Sub
’−−−−−−−−−−−−−−−−−−−−
”’説明用のコード”はＦｏｒ Ｅａｃｈ が理解できているようでしたら消してください。
Sub データ収集の説明
ｉという変数ををTextBoxの指定用に用意（初期値１）
ｒという変数（Ｒａｎｇｅ）が Ｓｅｌｅｃｔｉｏｎをひとつづづ進みます。
注１．ｒの潜伏先の確認用で セルの塗りつぶしを、ColorIndex ６ で塗りつぶします。
UserForm1会のControls組に属する 組員TextBox ＆その１
のＴｅｘｔを 現在ｒが潜伏中の値にします。
次に 組員TextBox ＆その２ としたいので i = i + 1
ｒの潜伏先を確認したいので、今から一秒間 次の作業をとめる
潜伏先が変わる前にセルの塗りつぶしを、無し に消息を絶つ
ｒ は次の潜伏先に移る。
上記で一応動くはずですが、Ｓｅｌｅｃｔｉｏｎ で指定になると、色んなトラップを仕掛ける必要があると思います。
つづく かな
|
|
わいわい
- 08/5/23(金) 15:04 -
