
以前教えて頂きましたコード
Private Sub Workbook_Open()
Dim tmp, dNow
tmp = Split(ThisWorkbook.Name, ".")
If Split(ThisWorkbook.Name, ".")(UBound(tmp)) <> "xlsm" Then
dNow = Format(Now, "yyyy/mm/dd")
With Worksheets("300")
If dNow >= Format(.Range("D39"), "yyyy/mm/dd") _
And dNow <= Format(.Range("E39"), "yyyy/mm/dd") Then
MsgBox ("「締め切りが完了しました」"), 48
Exit Sub
End If
End With
End If
End Sub
があります、
このコードは指定セルの日付の範囲内によってブックをオープンした時に
警告文が表示されます。
この警告文が表示されたタイミングで
マクロ
比較日付
便利帳比較
マクロひな形保存
上記の3つのマクロが実行できる方法を教えてください。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAプログラム初心者です。 以下の問題のプログラムを表記してみたのですが、実行するためには、どこを
Visual Basic(VBA)
-
別シートから年齢別の件数をカウントしたい
Visual Basic(VBA)
-
VBAで列を削除
Visual Basic(VBA)
-
4
Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日
Visual Basic(VBA)
-
5
VBAについて教えてください
Visual Basic(VBA)
-
6
ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています
Visual Basic(VBA)
-
7
VBA初心者です。電話番号の数字の前に0を表示させたいです。
Visual Basic(VBA)
-
8
Excel vba で1と10を正確に判断させる方法を教えてください。 TからU列に1と入力があれば
Visual Basic(VBA)
-
9
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてくださ
Visual Basic(VBA)
-
10
別シートから年齢別の件数をカウントしたいの続き
Visual Basic(VBA)
-
11
VBAでWorkbook.addの使い方
Visual Basic(VBA)
-
12
Excelでデータを抽出するに良い方法
Excel(エクセル)
-
13
ユーザー関数の自動計算(excel2003)
Excel(エクセル)
-
14
A2セルの値が「100021_りんご01青森県」からInStrで「りんご」を抽出したい。 セルの値が
Visual Basic(VBA)
-
15
VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「"」付にならないよ
Visual Basic(VBA)
-
16
複数セルに〇印をつけるマクロ
Visual Basic(VBA)
-
17
動かなくなってしまった古いVBAを動くようにしたい
Visual Basic(VBA)
-
18
乱数の表示
Visual Basic(VBA)
-
19
VBAで一時中断したプログラムの再開をさせたい
Visual Basic(VBA)
-
20
フレームワーク「4.8.1」で、[Sub Main]が動かない。助けて下さい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで特定の列が0表示の場...
-
5
特定のPCだけ動作しないVBAマク...
-
6
Excel マクロ VBA プロシー...
-
7
エクセルで別のセルにあるふり...
-
8
マクロ実行時、ユーザーフォー...
-
9
ExcelのVBA。public変数の値が...
-
10
エクセルの改ページを行ごとに...
-
11
一つのTeratermのマクロで複数...
-
12
Excel VBAからAccessマクロを実...
-
13
VBAで図形同士をコネクタで繋い...
-
14
TERA TERMを隠す方法
-
15
EXCELのVBAでRange("A1:C4")を...
-
16
VB初心者です。メールから添付...
-
17
Accessのテーブル、クエリをCSV...
-
18
VBAで特定の文字を含まない列の...
-
19
#defineの定数を文字列として読...
-
20
バッチファイルでEXCELを起動し...
おすすめ情報
公式facebook
公式twitter