セルの選択について
<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が表示される
ようにしたりすることは可能なのでしょうか。
