| |
今日はサボりっぱなしだなぁ
という事で つづき
＞Ｓｅｌｅｃｔｉｏｎ で指定になると、色んなトラップを仕掛ける必要があると思います。
の説明をば
例えば、（B10:H10のセルを選択して） なのですが、
Sub データ収集 ではTextBoxが６ヶ有るとしか想定していません。
でも、B10:H10のセルを選択してしまうと ｉ が７まで増えちゃいます。
UserForm1会のControls組に属する 組員TextBox ＆その７ は UserForm1会から盃をもらっていないので 潜伏中の犯人ｒ が困ってしまいます。
If Selection.Count <> 6 Then Exit Sub
上記の もしセレクトされたセルのカウントが ６ でなかったら ミッション終了
で多少の危険は回避できますが・・・。
私なら、
’Ｓｈｅｅｔ１ のモジュール−−−−−−−−−−−−−−−−−−−−−−−
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim i As Single
If Target.Column <> 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Cancel = True
UserForm1.Show 0
i = 1
'For Each r In Target.Offset(0, 1).Range("A1:F1")
For Each r In Target.Offset(, 1).Resize(, 6) '＊ちょっと修正しました。
UserForm1.Controls("TextBox" & i).Text = r.Value
i = i + 1
Next r
End Sub
’Ｓｈｅｅｔ１ のモジュールに上記 BeforeRightClick（右クリックイベント）にしちゃって
CommandButton1を押す代わりに、データを収集したいセルのＡ列を右クリックするようにしちゃうかな。
Ｐｓ． えらそうな事書いちゃっていますけど私も初級者 自分自身の向上の為に突っ込みもお待ちしています。
|
|
わいわい
- 08/5/23(金) 17:43 -
