| |
かみちゃん様へ
度々の質問への対処、ありがとうございました。
↓
>同じワークシートへ、別にコントロールのボタンを配置し、そのボタンからも
>う１つのマクロを動作させたいのですが、うまく動作しません。
↓
>どのようなコードになっていて、どのように「うまくいかない」のかわからな
>いので、何も申し上げられません。
↓
すみません....おっしゃる通りで....
結局、ご教示頂いた記述を利用して下記のように記述し解決しました。
Private Sub CommandButton1_Click()
Sheets("○○○").Activate
'GoSub DrawData
ActiveSheet.Range("O9：O12").Select
Selection.ClearContents
ActiveSheet.Range("O15：P15").Select
Selection.ClearContents
R = MsgBox("○○○", 48, "○○○")
End Sub
-----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
End With
With Application
If .Intersect(Range("A1:A10"), Target) Is Nothing Then Exit Sub
MsgBox .Address & " ○○○"
End With
End Sub
...何しろＶＢＡを扱うのは１０年ぶり（Excel5.0時代）で....
重ねてありがとうございました。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
