|
申し訳ありません、先日教えて頂いたコードの続きです。
やっぱり基点から右端のセル範囲を全てクリアせず、残るようにし
ダブルクリックした回数だけ上書きで記録したくて、日がな一日
チャレンジしておりましたが、どうも上手くいきません。
Private Sub CommandButton1_Click()
With ActiveCell
If .Column > 200 Then Exit Sub
If MyR Is Nothing Then
If MsgBox(.Address(0, 0) & " を基点にしますか", 36) = 6 Then
Set MyR = Range(.Cells(1), Cells(.Row, 256))
> MyR.ClearContents
CommandButton1.Caption = "記録中"
Application.StatusBar = "☆☆☆ 記録中 ☆☆☆"
End If
Else
If MsgBox("記録を終了しますか", 36) = 6 Then
Set MyR = Nothing
CommandButton1.Caption = "停止中"
Application.StatusBar = "★★★ 停止中 ★★★"
End If
End If
End With
End Sub
>MyR.ClearContents
で全部消さないようにすればいいと思うのですが?・・・お助けを・・・
|
|