|
おじさん46 さん こんにちは
ちょっと時間が空きましたので
勉強のねたになればさいわいわいです。
’UserForm1のモジュール−−−−−−−−−
Private Sub CommandButton1_Click()
データ収集
End Sub
’Sheet1のモジュール−−−−−−−−−−−
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
’−−−−−−−−−−−−−−−−−−−−
”’説明用のコード”はFor Each が理解できているようでしたら消してください。
Sub データ収集の説明
iという変数ををTextBoxの指定用に用意(初期値1)
rという変数(Range)が Selectionをひとつづづ進みます。
注1.rの潜伏先の確認用で セルの塗りつぶしを、ColorIndex 6 で塗りつぶします。
UserForm1会のControls組に属する 組員TextBox &その1
のTextを 現在rが潜伏中の値にします。
次に 組員TextBox &その2 としたいので i = i + 1
rの潜伏先を確認したいので、今から一秒間 次の作業をとめる
潜伏先が変わる前にセルの塗りつぶしを、無し に消息を絶つ
r は次の潜伏先に移る。
上記で一応動くはずですが、Selection で指定になると、色んなトラップを仕掛ける必要があると思います。
つづく かな
|
|