No.4ベストアンサー
- 回答日時:
セルの一つ一つに済みを付けると言う事ですかね
であれば、取敢えずループを増やした方が簡単かと
For Each、offsetは使っていませんが、、べたに書くとこんな感じかと、、(走り書きです)
Dim i As Long, j As Long
For i = 5 To Cells(Rows.Count, "B").End(xlUp).Row
If CDate(Cells(i, "B")) <= Date Then
For j = 3 To 6
If Cells(i, j).Value <> "" Then
Cells(i, j).Value = Cells(i, j).Value & " < 済み > "
End If
Next
End If
Next
違うアプローチ検討するのなら、参考に成るか分かりませんが、、
ありがとうございます。
CDate いれると型が一致しないとメッセージ
でるので、外したら問題ありませんでした。
ありがとうございました。
No.3
- 回答日時:
>都市の名前がきえてしまいます。
rSheet.Offset(, 1) = "済" ?
rSheet.Offset(, 1) = rSheet.Offset(, 1) & " <済>" では?
No.2
- 回答日時:
こんにちは、
コードは、べたに書けばそんなに難しいとは思えません。
rR.Offset(, 1).Resize(, 4)は、レンジ範囲なので .Value <> ""は型エラーかと
値のあるセルを対象にするのなら、ループで回す方が簡単かな?
rR.Offset(, 1) = "済" で良いなら、countifで数を取得するのも有かもしれないけれど、、
No.1
- 回答日時:
こんにちは
私が理解できていないのか、どこが『難問』なのかわかりません。
B列を順に調べて
・今日より前の日付の行で
・C~F列に値があれば
・「済」マークを付ける
ということでできそうに思いますが、どこがわからないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel ある複数列に数値を入力した際に、別の列に本日の日付を入力したいです 7 2023/03/01 23:31
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) 1つのファイルを複数のフォルダにファイル名を【明日の日付】にして、コピーしたい 5 2022/12/13 04:23
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
今日より前の書き方 マクロ
Visual Basic(VBA)
-
基準日以前のデータを範囲を指定して削除するVBA
Excel(エクセル)
-
エクセルで昨日までの日付データ行を非表示するVBAについて!
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
エクセル VBA オートフィルタ今日以降のデータを抽出するには
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
今日の日付が過ぎたらその行を削除したい
Visual Basic(VBA)
-
8
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
11
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
12
エクセル マクロ 特定の日付"以降を削除"
セキュリティソフト
-
13
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
14
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
15
フォントの大きさ
Visual Basic(VBA)
-
16
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
17
Accessで今日から5日後
その他(データベース)
-
18
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
19
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
20
エクセルVBA/マルチページ/ページ切り替え時
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
IIF関数の使い方
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
VBAのFind関数で結合セルを検索...
-
vba 2つの条件が一致したら...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBA シートモジュール...
-
【VBA】2つのシートの値を比較...
-
Cellsのかっこの中はどっちが行...
-
複数処理 Worksheet_Change(ByV...
-
マクロについて。S列の途中から...
-
VBAを使って検索したセルをコピ...
-
targetをA列のセルに限定するに...
-
VBA 何かしら文字が入っていたら
-
VBScriptでfindを使うには??
-
C# 列の挿入
-
最終列の右へSUM関数を作成する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報
初心者なので申し訳ございませんでした。
おしえてくれませんでしょうか
Dim R As Date
Dim rR As Range
Set rR = Range("B5", Cells(Rows.Count, "B").End(xlUp))
If R <= Date Then
If rR.Offset(, 1).Resize(, 4).Value <> "" Then
rR.Offset(, 1) = "済"
End If
End If
これだとエラーになります。
教えていただきたいです。
For Each rSheet In Range("B5", Cells(Rows.Count, "B").End(xlUp))
If rSheet < Date Then
rSheet.Offset(, 1) = "済"
End If
Next
これだとうまくいきますが、
都市の名前がきえてしまいます。
しかもC列のみです
いつもありがとうございます。
なにか良い方法おしえてくれませんでしょうか
For Each R In Range("B5", Cells(Rows.Count, "B").End(xlUp)).Resize(, 4)
If R < Date And R.Offset(, 1).Value <> "" Then
R.Offset(, 1).Resize(, 4) = R.Offset(, 1).Resize(, 4) & " <済>"
End If
Next
どこが間違っているところおしえてくれませんでしょうか