セルの選択について

質問

<Sheet2のコード>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not UserForm3.Visible Then UserForm3.Show 0
UserForm3.TextBox1.Text = Selection.Count
End Sub
***********************************************
<UserForm3のコード>
Private Sub CommandButton1_Click()
With Selection
.MergeCells = True
.WrapText = True
.Value = TextBox2.Text　& ComboBox1.Text
End With
UserForm3.Hide
End Sub
----------------------------------------------
Private Sub UserForm_Initialize()
Dim lastrw As Integer, lastrw2 As Integer, i As Integer
lastrw = Sheet3.Range("A1").End(xlDown).Row
lastrw2 = Sheet3.Range("B1").End(xlDown).Row
If Sheet2.Range(Cells(5, 4), Cells(5, 100)).Select Then　・・・(1)
For i = 1 To lastrw - 1
ComboBox1.AddItem Sheet3.Cells(i + 1, 1).Value
Next i
End If
If Sheet2.Range(Cells(6, 4), Cells(6, 100)).Select Then　・・・(2)
For i = 1 To lastrw2 - 1
ComboBox1.AddItem Sheet3.Cells(i + 1, 2).Value
Next i
End If
End Sub
*************************************************
ワークシート上でマウスで選択されたセルの行ごとにUserForm3のComboBox1で表示させる文字を変えたいのですが、どのようにすればよいのでしょうか。
上の(1)(2)だととマウスで選択されたセルではなく(1)(2)の範囲のセルが結合されてしまいます。。。
また、今はワークシート上でマウスを左クリックする度にUserForm3が表示されてしまいます。
これをワークシート上でマウスでセルを選択して右クリックするとUserForm3が表示される
ようにしたりすることは可能なのでしょうか。

回答No.2

takkunnet · ベストアンサー

＃１です。

参考までに今回の処理の問題点を。。。

ちなみに「結合」ではなく「範囲選択」になりませんでしたか？

Sheet2.Range(Cells(5, 4), Cells(5, 100)).Select
この命令を実行すると
Sheet2の4列5行～100列5行までが「選択」されてしまいます。
ちなみに結合させるためには
Sheet2.Range(Cells(5, 4), Cells(5, 100)).Merge
と書いてやれば結合されます。。。

お礼

お返事が大変遅くなり、すみませんでした。

わかりにくいソースにもかかわらず、私のしたいことを解釈していただきありがとうございます。

takkunnetさんのおかげで見事解決することができました！
本当にありがとうございました。感謝、感謝です！！

回答No.1

takkunnet

ソースがちょっとわかりにくいのですが。。。
私なりに解釈すると。。。（違っていたらすいません）
（１）は、Sheet2の選択セルが５行目の４～１００列の間なら、Sheet3の１列目で２行目以降の値をCombobox1に出力。
（２）は、Sheet2の選択セルが６行目の４～１００列の間なら、Sheet3の２列目で２行目以降の値をCombobox1に出力。
としたいのでしょうか？？？

また、判定したいのは選択されているセルの位置（アクティブセル）で、表示されているシートはSheet2でよいでしょうか？

その前提で記入します。
（１）の部分を
If ActiveCell.Row = 5 And ActiveCell.Column >= 4 And ActiveCell.Column <= 100 Then
とし
（２）の部分を
If ActiveCell.Row = 6 And ActiveCell.Column >= 4 And ActiveCell.Column <= 100 Then
とすることで解決できると思います。