今A列に土日を除いた日付があり、マクロを実行すると、日付が一日加算される下記のようなVBAを書いてます。
Sub DateCulc()
i = 3
Do
dodate = (DateAdd("d", 1, Cells(i, 1)))
Cells(i, 1) = dodate
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub
一日加算した場合、土日をスキップ、つまり金曜の日付は月曜になるようにしたいのですが、思いつきません。WeekDayを使うのだと思うのですが。
ご教授頂けますか。宜しくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
一例まで。
Sub DateCulc_2()
i = 1
Do
a = Format(Cells(i, 1), "aaa")
b = 1
If a = "金" Then b = 3
dodate = (DateAdd("d", b, Cells(i, 1)))
Cells(i, 1) = dodate
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub
No.1
- 回答日時:
足してから考えるか前に考えるかだが、前者なら金曜なら+3
後者なら土曜日ならさらに+2すれば月曜になるよ。
曜日はWeekday関数を使えば良い。
>思いつきません
なぜ?
>一日加算した場合
これに拘るから、難しいと思うのでしょう。
コードは簡単だから自分で作ること。
ーー
祝日が心配だが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
日付だけを変更して印刷(Excel)
Excel(エクセル)
-
EXCEL VBAでWORKDAY関数を使用したい
Excel(エクセル)
-
-
4
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
7
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
エクセルのVBAで日付を検索し転...
-
テキストボックスにカレンダー...
-
VisualBasic6.0のFormat関数で...
-
ユーザーフォームのラベルに日...
-
1本あたり○円と表示する時どの...
-
【Excel VBA】条件に合った行の...
-
【VBA】土日をスキップして日付...
-
システム日付とは?
-
他のPCの日付・時刻の取得
-
テキストボックスに今日の日付...
-
VB.net 登録されている日付の連...
-
VBAのオーバーフローについて質...
-
ExcelのVBAコードについて教え...
-
WEBで動作するカレンダーとアイ...
-
VBA 日付、未来の日付はエラー...
-
特定の項目セルにスキャン(入...
-
phpでサイドバーを自由に作り共...
-
Pythonプログラムの使用期限設定
-
VBAです。UPDATEのSql文内のDat...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
Eclipseの対応する括弧の強調表...
-
VisualBasic6.0のFormat関数で...
-
DataGridViewでyyyy/MM/dd
-
今日より前の書き方 マクロ
-
VBA 日付、未来の日付はエラー...
-
コンボボックスに日付を表示する
-
「eclipseで作るカレンダー(ス...
-
システム日付とは?
-
1本あたり○円と表示する時どの...
-
VBAで当月の1日を表示するには...
-
テキストボックスにカレンダー...
-
【VBA】土日をスキップして日付...
-
VB 日付範囲チェック
-
VB6.0 のformat関数について
-
3人のじゃんけんのプログラム
-
和暦表示
-
テキストボックスに今日の日付...
-
DataGridViewの和暦表示について
おすすめ情報