No.2ベストアンサー
- 回答日時:
Sub test01()
sg = DateSerial(Year(Date), Month(Date), 0)
ssg = DateSerial(Year(Date), Month(Date) - 1, 0)
MsgBox "先月は" & Month(sg) & "月、先々月は" & Month(ssg) & "月"
End Sub
では?
No.3
- 回答日時:
Public Sub sample()
Dim 今月 As Integer
Dim 先月 As Integer
Dim 先々月 As Integer
今月 = InputBox("今月は何月ですかぁ?", "月を入力して下さい", Month(Date))
先月 = 今月 - 1
If 先月 = 0 Then 先月 = 12
先々月 = 先月 - 1
If 先々月 = 0 Then 先々月 = 12
MsgBox "先々月=" & 先々月 & "月,先月=" & 先月 & "月(今月は" & 今月 & "月)"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(税金) 市民税県民税納税通知書が来たのですけど、約9万円の請求が来ていました。 自分は今年の10月のはじめま 3 2022/12/16 23:33
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- au(KDDI) auショップで正式に解約をしないと、延々と基本料を支払うことになるのでしょうか? 5 2022/04/06 17:46
- その他(お金・保険・資産運用) 東京海上日動、保険料の支払いについてです。先月5月に口座振替ができず、今月6月に2か月分の請求がくる 1 2023/06/22 13:50
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- レンタカー・カーシェアリング タイムズカーシェアについて。先月の1/2に初めてタイムズカーシェアを利用しました。その際、支払い方法 1 2023/02/17 12:54
- Visual Basic(VBA) 【VBA】先月分の取得ができない理由が分かりません。 2 2022/04/24 11:16
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) Excel VBAでのオートフィルターについて教えてください。 日付データからフィルターで今日を起点 1 2022/07/26 22:10
- クレジットカード おすすめのクレジット会社 4 2022/06/21 15:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBA シート名を先月の名前にしたい
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VBA 前月の月の名前でブックを保存
その他(Microsoft Office)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
6
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
7
エクセルでエラーが出て困っています。
Excel(エクセル)
-
8
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
9
Excel VBAで年度をまたぐ期間の月末日を求める方法
Excel(エクセル)
-
10
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
17
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
20
エクセルVBAでEdate関数は使えますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カレンダーの日付 5/Bの意味に...
-
自治会の通常総会の年度について
-
月の最後の週の呼び名は?
-
8月までっていつまでのことでし...
-
総会の年度表記について
-
エクセルのフィルターを複数シ...
-
確認ですが普通5月までに決める...
-
「6月まで」というのは6月以内...
-
10月をもって辞めるって、10...
-
VBAで先月、先々月を求める方法
-
満何歳の意味
-
『無線LANが切れる時、何かイベ...
-
「1年以上」の定義について
-
○年後の3月末日を関数で出したい
-
○月第○週 の数え方について
-
今は何年度ですか?
-
定年になる年度を関数で算出したい
-
VBA ユーザーフォームのChange...
-
ExcelVBAで質問です。Workbook_...
-
12:00 PM は何時?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自治会の通常総会の年度について
-
総会の年度表記について
-
満何歳の意味
-
ひな祭りに外食するならどこで...
-
月の最後の週の呼び名は?
-
確認ですが普通5月までに決める...
-
10月をもって辞めるって、10...
-
カレンダーの日付 5/Bの意味に...
-
「6月まで」というのは6月以内...
-
学校の在籍機関
-
8月までっていつまでのことでし...
-
エクセルのフィルターを複数シ...
-
入社が2月1日とした場合、3ヶ月...
-
昔の愛称?「~の字」
-
「1年以上」の定義について
-
一ヶ月前、一ヶ月後
-
卒業式に着る袴をお店でレンタ...
-
○年後の3月末日を関数で出したい
-
「陽気」という言葉の使い方
-
VBA ユーザーフォームのChange...
おすすめ情報