シートの最終行を取得し、5行目から最終行まで『C列の表示文字が「0」の時「M列のセル内容をクリア」する』というマクロを作成しているのですが、そう複雑ではないマクロのはずなのに動きません。
C列には別シートの特定セルの計算内容を=で持ってきており、表示としては「0」になるセルがあります。
例)
=シート2!A3 ←このような式が入っており、別シートの計算結果を引っ張ってきている
原因がお解りになる方いらっしゃいましたら、ぜひご教授頂ければありがたいです。
Sub テスト()
Dim i As Long
With ActiveSheet
For i = 5 To Cells(.Rows.Count, "O").End(xlUp).Row
If .Cells(i, 3).Value = 0 Then
.Cells(i, 13).Clear
End If
Next i
End With
End Sub
No.2
- 回答日時:
既に回答は出てますが。
別方法として、参照元の結果で判断するというのもありかなと。
Sub テスト()
Dim i As Long
With ActiveSheet
For i = 5 To Cells(.Rows.Count, "O").End(xlUp).Row
If Evaluate(.Cells(i, 3).Formula) = 0 Then
.Cells(i, 13).Clear
End If
Next i
End With
End Sub
長らくログインできずお礼ができておりませんでした、
計算結果がゼロ、という指定方法もあるのですね。
別解をありがとうございました!勉強になりました!
No.1
- 回答日時:
こんな感じでしょうか?
-----------------------------------------------------------------------------------------
Sub テスト()
Dim i As Long
With ActiveSheet
For i = 5 To Cells(.Rows.Count, "C").End(xlUp).Row
If .Cells(i, 3).Text = "0" Then
.Cells(i, 13).Clear
End If
Next i
End With
End Sub
-----------------------------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
特定のセルが空白だったら、そ...
-
VBAでセルをクリックする回...
-
【Excel VBA】指定行以降をクリ...
-
VBからEXCELのセルの値を取得す...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
【Excel】指定したセルの名前で...
-
Excel VBA、 別ブックの最終行...
-
VBAの計算で@が出てしまう件
-
DataGridViewのセル編集完了後...
-
Excelのプルダウンで2列分の情...
-
Excel ユーザーフォームをモー...
-
EXCELのVBA-フィルタ抽出後の...
-
VB6のDataGridコントロールが良...
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
-
RC表示に変数を入れる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報