Excel VBA質問箱 IV

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

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


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

59951 / 76738

←次へ　｜　前へ→


	【21443】Re:アクティブセルののクリア方法

okb - 05/1/21(金) 10:45 -


	引用なし

	パスワード

早々のレスありがとうございました。
Sub 消し込み()の動作は確認できました。
"エラー"の位置を行の右13列先に表示い変更したいのですが、下記をどう変更すればいいでしょうか？
なにから、なにまですみません。
>　　　　Range("C3").Value = "エラー"

Sub 月次消し込み()は、まだ判っていません。次のようにしたのですが…。
Dim i As Long
　　If Range("M2").Value <> "" Then
　　　　　　　　Range("F3").Value = "エラー"
　　　　　　　　Exit End Sub　この記述大丈夫か？
　　End If
'7行目から506行目まで
　　For i = 7 To 506
　　　　If Range("M2").Value = Cells(i, 3).Value Then
　　　　　ここへ当該行の3列目から12列目までの値を消す記述をしたい。　
　　　　End If
　　Next i
End Sub

手取り足取りで、申し訳けありません。

0 hits

▼

【21438】アクティブセルののクリア方法 okb 05/1/21(金) 8:54