□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 8月なら7月表示 | |
|---|---|
[195869] 8月なら7月表示- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ よしみ -(2023/08/17(13:49)) □U R L/ Format(Date, "ggge""年""m""月""""16日〜""ggge""年""m""月""""15日""") 令和5年7月16日〜8月15日表示にするにはどのようにすればよいでしょうか？ -1をどこかに入れてもダメでした・・・ よろしくお願いします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195870] Re[1]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/08/17(14:24)) □U R L/ DateSerial 関数が便利です。 ht tps://support.microsoft.com/ja-jp/office/dateserial-%E9%96%A2%E6%95%B0-a0128476-83a0-407c-831a-93f2b046f503 DateSerial(年,月,日) 今日の日付は Date で取得できます。 DateSerial(年,月-1,日) で一か月前の日付を出せます。 DateSerial(2023,1-1,1) は2022/12/1になります。 DateSerial(2023,1,0) は2022/12/31になります。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195871] Re[2]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/08/17(14:34)) □U R L/ サンプルコードです。 Sub test() Dim mydateA As Date Dim mydateB As Date mydateA = DateSerial(Year(Date), Month(Date) - 1, 16) mydateB = DateSerial(Year(Date), Month(Date), 15) MsgBox Format(mydateA, "ggge年m月d日〜") & Format(mydateB, "ggge年m月d日") End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195872] Re[3]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/08/17(17:20)) □U R L/ 参考HPです。 ht tps://excel-ubara.com/excelvba8/ ↑の 日付時刻：マクロVBA関数 | |
[195895] Re[4]: 8月なら7月表示- ■  / 記事引用/メール受信=OFF■
□投稿者/ よしみ -(2023/08/21(09:49)) □U R L/ おにいさま、ありがとうございました！ | |
[195896] Re[5]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ よしみ -(2023/08/21(14:14)) □U R L/ すいません！追加質問させてください。 末日の場合、どのようになりますでしょうか？ 8月1日〜9月末日としたばあいの例で教えていただきたいです。 末日とすることでややこしいのであれば、30日でもOKですが、月によってバラバラなのでやりやすいほうで大丈夫です。 よろしくお願いします。 | |
[195897] Re[6]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/08/21(14:22)) □U R L/ 既に⬆️でヒントは差し上げています。 >DateSerial(2023,1,0) >は2022/12/31になります。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195898] Re[7]: 8月なら7月表示- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/08/21(14:33)) □U R L/ 0は1から1引いた数字です。 年月日の「日」の部分が0ということは 1日の一日前、つまり前月の末日という ことになります。 | |
[195899] Re[8]: 8月なら7月表示- ■ / 記事引用/メール受信=OFF■
□投稿者/ よしみ -(2023/08/23(09:14)) □U R L/ そうでした、すいません。最初はピンとこなかったのですがなんとかできました。 ありがとうございました。 今月末に実行するなら mydateA = DateSerial(Year(Date), Month(Date), 1) mydateB = DateSerial(Year(Date), Month(Date) + 1, 0) 次の月に、前月分を実行するなら mydateA = DateSerial(Year(Date), Month(Date) - 1, 1) mydateB = DateSerial(Year(Date), Month(Date), 0) この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |