|
Jakaさん、ありがとうございます。すべて試してみたのですが、できませんでした。
ちなみに、現在取り掛かっている作業は、指定した範囲のセルの数値を消すという作業で、
Private Sub CommandButton4_Click()
'計算1で得た表内の数値をクリア'
Dim cellcnt1 As Long
'セル番地のカウント'
Dim cellcnt2 As Long
'セル番地のカウント'
Dim a As Integer
a = Range("C9")
MODORITI = MsgBox("計算1の結果をクリアしますか?", 1, "MSGタイトル")
For cellcnt1 = 9 To a + 9
cellcnt2 = cellcnt1
If MODORITI = vbOK Then
Range("C8:C11").Select
Selection.ClearContents
Range(Cells(cellcnt1, "E"), Cells(cellcnt2, "I"))
Selection.ClearContents
End If
Next cellcnt1
というコードを書いてみました。どこが悪いのか教えていただけますか?あと、同範囲内に引かれた罫線も消したいのですが、それも可能でしょうか?
|
|