こういった条件でやりたいのですがうまくいきません・・・
処理フラグの立て方は間違っていないと思うのですが・・・
ちょっとセルとかは変えてあります。
もしE3の値が4で割り切れたら8行目を削除し次の処理は行わない
もしE3の値が4で割り切れなかったらE4の値が4で割り切れるか処理をする。
割り切れたら18行目を削除
E3とE4の値両方が4で割り切れなかったら8行目を削除し1行あがるので17行目を削除したいです
Sub rdlt()
If Range("I1").Value = 0 Then
Range("I1").Value = 1 '処理は一度きり
If Range("E3").Value Mod 4 = 0 Then
Rows("8:8").delete '4で割れたとき8行目を削除
Range("J1").Value = 1 '4で割れたときは次の処理用にフラグ
End If
If Range("J1").Value = 0 Then 'E3が4で割れなかったときは処理する
If Range("E4").Value Mod 4 <> 0 Then
Rows("18:18").delete
Range("J1").Value = 1
End If
End If
End If
End Sub
No.1ベストアンサー
- 回答日時:
If ... Then ... Else ... end ifを使って処理してみましょう
if Range("E3").Value Mod 4 = 0 then
Rows("8:8").Delete
Range("J1").Value = 1
else
' E3は割り切れなかった場合
if Range("E4").Value Mod 4 = 0 then
Range("18:18").delete
Range("J1").Value = 1
else
' E3,E4ともに割り切れなかった
' 18行目を先に削除
Rows("18:18").Delete
Rows("8:8").Delete
end if
end if
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フラグを立てるvbaを教えてください。
Excel(エクセル)
-
フラグについて
Visual Basic(VBA)
-
フラグを立てた物のみを別シートへ反映したい
Excel(エクセル)
-
-
4
エクセルVBA 「On Error GoTo 0」について
Excel(エクセル)
-
5
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセル if文で偽判定のとき、何も起こらないようにしたいのですが・・・
Access(アクセス)
-
8
ExcelVBAで最終行を誤認する問題の回避方法
Visual Basic(VBA)
-
9
VBAでの一時停止と再開の方法
その他(プログラミング・Web制作)
-
10
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
11
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
もしかして
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
【Excel】特定の文字を含むセル...
-
switch の範囲指定
-
Do~Loopした回数をカウントしたい
-
インタラクティブの反対語は?
-
自分の不注意で仕事で乗り合い...
-
メルカリのメルカードで買い物...
-
VBA SaveChanges 上書きされない
-
VB.NET Excelを読み込んでDataT...
-
リョウ・・・量?料?
-
C# 画面のちらつきを解消したい
-
2重のDo~Loopは?
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
Do Until rs1.EOF であるレコ...
-
RPGプログラムの*HIVALについて
-
VBAのオートフィルについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
メルカリのメルカードで買い物...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
【Excel】特定の文字を含むセル...
-
EXCEL VBA マクロ 実行する度に...
-
switch の範囲指定
-
DoEventsがやはり分からない
-
VBの質問#if 0 then ってどう...
-
UMLでの例外処理
-
Do~Loopした回数をカウントしたい
-
VB.NET Excelを読み込んでDataT...
-
月度は何て読みますか?
-
findは動くがfindnextがマクロ...
-
リョウ・・・量?料?
-
iD
-
VBA SaveChanges 上書きされない
-
Select Case文でこのようなこと...
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
おすすめ情報