私はVBA初心者です。
どなたか詳しい方、教えてください。
★VBAでやりたいこと★
3日先までの納期が近づいた部品を把握したいです。
部品の納期管理システムを作りたいです。
エクセルで部品図と納期と入荷日が分かるような表を作って、納期管理をしています。
でも仕事が忙しく、納期が近づいているものの存在をを忘れてしまいます。
なので、毎日朝、「今日から3日後までの納期確認」ボタンを押して、3日先までの納期が近づいている部品の行に色を付けて、注意喚起したいんです。
それから、納期がすでに過ぎているものに関しても色を付けたいです。
部品が入荷したものに関しては色を付けたくないです。
添付した画像のように、上から3行に色を付けたいと思っています。
下記私が作成したコードです。
エラーが発生し、希望通りに動きません。
どなたかVBAに詳しい方、ご教授願います。
どうぞよろしくお願いいたします。
★コード★
Option Explicit
Sub 納期管理()
Dim dt As Date
Dim dt1 As Variant
Dim dt2 As Date
dt = Date
For Each dt1 In Range(Range("D4"), Range("D4").End(xlDown))
If (dt2 = dt - dt1) < 3 Then
If dt1.Value.Offset(, 1) = "" Then
dt1.Interior.Color = vbMagenta
Else
dt1.Interior.Color = xlNone
End If
End If
Next dt1
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>部品の納期管理システムを作りたいです。
これからデータが増えていくわけですが
>3日先までの納期が近づいている部品の行に色を付けて、注意喚起したいんです。
の行がとびとびになって下の方に隠れている場合とか想定したら
色付けするより、別のシートに該当するデータを抽出した方が便利だと思います。
例えば、未入荷のデータを別シートに抽出
納期の日付順に並び変え
(フォルダーオプションの機能をマクロ化する事で簡単に出来ます。)
納期が過ぎている
納期が三日に迫っている
行に色付けする。(条件付き書式で良いでしょう)
ポカミス防止に
ファイルを開いたときに勝手に実行させるとか
抽出して表示するシートに移動したときにマクロが実行する様にするとか
考えてみましょう。
No.2
- 回答日時:
こうゆうのってButtonの押し忘れのポカミスも必要ですし、そこを考慮するなら条件付き書式の方が良いのではないかな?と
思いましたが。。。。
>2018.08.14
はセルの値をシリアル値にして表示形式で yyyy.mm.dd にしておけば良いのではないかと。(表示形式に拘るのなら)
No.1
- 回答日時:
日付ですが
2018.08.14を
2018/8/14 のようにすることは可能でしょうか。
現在のままだと、2018.08.14を内部形式では日付(date型)として扱っていませんので、日付の比較ができません。
2018/8/14 のようにすることが可能であれば、簡単なマクロで比較が可能です。
どうしても現在のままで、2018.08.14のような形で使いたいということであれば、
一旦、2018.08.14の文字列をdate型に変換してから、比較を行うようにする必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- 数学 単振り子とルンゲ・タック法 1 2022/07/15 00:05
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルである日付を過ぎたら自動でメール送信。
Excel(エクセル)
-
EXCELで納期管理
Excel(エクセル)
-
エクセルファイルで指定期間に自動ポップアップメセージを出す
Excel(エクセル)
-
-
4
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
5
別のシートから値を取得するとき
Visual Basic(VBA)
-
6
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
7
エクセル 日付超過でポップアップを表示する方法
Excel(エクセル)
-
8
Excelで指定した日付から過去の最も近い日付(指定した日付も含む)を下から検索する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセルVBAで納期管理システム...
-
エクセルのマクロについて教え...
-
エクセル連番自動印刷について
-
【Excel】マクロでページを追加...
-
【ExcelVBA】マクロブックを通...
-
VBA Shapes コピーと名前
-
worksheet_changeの一時無効化
-
エクセルのマクロを教えてください
-
セルに入力するたびにマクロを...
-
VBAで行コピーして挿入
-
エクセル マクロ写真帳に一括で...
-
エクセル 図形の寸法を取得したい
-
エクセルファイルの回数期限の...
-
VBA 選択したデータを別シー...
-
シート名を記入する
-
ブックの共有でVBAエラー
-
EXCEL VBA 他のアプリケーショ...
-
VBAで保存しないで閉じると空の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
エクセル連番自動印刷について
-
VBA Shapes コピーと名前
-
エクセル マクロ写真帳に一括で...
-
EXCEL VBA 他のアプリケーショ...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
ブックの共有でVBAエラー
-
エクセル 図形の寸法を取得したい
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
VBAで行コピーして挿入
-
エクセルファイルの回数期限の...
-
グラフ要素のセルを参照したい...
-
エクセルでマクロ登録の不具合解消
-
再度,ExcelVBA,public変数が消える
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAで自動採番したい...
-
【ExcelVBA】マクロブックを通...
おすすめ情報