|
コンボボックスの数値選択によるマクロ起動を考えています。
先ずは、下記の要領にてA1とA2の数値が変わったらB1の数値を変えるというマクロを作成しました。
次にシート上に配置したコンボボックス(フォームツールバー)のリンクセルをA1に指定しました。
コンボボックスの選択をすると、A1セル数値は変化しますが、B1セルには、反映されません。どうすれば良いのでしょうか?今回は簡単にするためセルの書換にしていますが、実際には、標準モジュー上のマクロを呼び出す予定です。
宜しくお願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long, y As Long
Dim St As String
If Intersect(Target, Range("A1:A2")) Is _
Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
x = Range("a1").Value
St = "aaa" + Range("A1").Text + Range("A2").Text
Select Case St
Case "kiki11": [b1].Value = "aaa11"
Case "kiki22": [b1].Value = "aaa22"
Case Else: [b1] = ""
End Select
End Sub
|
|