vaSpreadのチェックボックスとコマンドボタンについて

質問

VBの初心者です。よろしくお願いします。
VB6.0&vaSpread3.0を使用しています。
Spreadの同一行にコマンドボタンとチェックボックスを配置しています。
コマンドボタンをクリックすると1行削除するようにしたいと思っています。
ButtonClickedにて1行削除できるよう、記載したのですが、
チェックボックスをクリックしてもButtonClickedが反応し、1行削除されてしまいます。
コマンドボタンとチェックボックスを使い分けたい場合、どのように記載したらよろしいでしょうか？

下記にコードを記載します。
Private Sub vaSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
With vaSpread1
.Row = Row
.Row2 = Row
.BlockMode = True
.Action = ActionDeleteRow
.BlockMode = False
.MaxRows = .MaxRows - 2
End With
End Sub

よろしくお願いいたします。

回答No.1

otto0001otto · ベストアンサー

チェックボックスの列が２だとしたら、
If Col = 2 Then Exit Sub
を入れたらどうですか？

お礼

解決しました!!
こんな簡単なロジックが思いつかなかったなんて…。
助かりました。どうもありがとうございました。