Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70779 / 76807

←次へ　｜　前へ→


	【10530】Re:セルの指定方法

Asaki - 04/1/30(金) 15:55 -


	引用なし

	パスワード

こんにちは。

動くか動かないか、という話なら
>Range(Cells(cellcnt1, "E"), Cells(cellcnt2, "I"))
↓
Range(Cells(cellcnt1, "E"), Cells(cellcnt2, "I")).Select
で動くかと思います。

他には、
ループ内で何度も
>Range("C8:C11")
の値を消しているのが無駄です。
MsgBoxの戻り値による分岐も、ループの外で良いでしょう。
また、常に
>cellcnt2 = cellcnt1
なら、cellcnt2は不要でしょう。

もうちょっと整理すると、ループも必要なさそうです。
Private Sub CommandButton4_Click()

　　'セル番地のカウント'
　　Dim a As Integer
　　a = Range("C9").Value

　　If MsgBox("計算１の結果をクリアしますか？", 1, "ＭＳＧタイトル") = vbOK Then
　　　　Range("C8:C11").ClearContents
　　　　With Range("E9:I9").Resize(a)
　　　　　　.ClearContents
　　　　　　.Borders.LineStyle = xlNone
　　　　End With
　　End If

End Sub

1 hits

▼

【10468】セルの指定方法 peppu 04/1/28(水) 11:38