今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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) Excelマクロでセルに値が入力されたら実行する 5 2023/08/06 11:03
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 日付を重複させずに数えたい 4 2022/12/04 16:26
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
EXCEL VBAでWORKDAY関数を使用したい
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
5
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
VBA シートの切り替えができないようにするには
PowerPoint(パワーポイント)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
アクセス:既定値に土日含まず3日後を指定したい
Access(アクセス)
-
10
アクセスで営業日を計算させる方法について
Access(アクセス)
-
11
VBA(エクセル)のコンパイルエラー
Excel(エクセル)
-
12
エクセルVBAで1ヶ月のシフト表から日曜日を除いた表を作成したい
Excel(エクセル)
-
13
エクセルで特定の行だけ行削除、行挿入できないようにロックをかけるには
Excel(エクセル)
-
14
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
15
「社長様いますか」という営業電話に、そろそろガツンと言いたい
ビジネスマナー・ビジネス文書
-
16
土日祝を省いた印刷
Excel(エクセル)
-
17
callで順に実行されるプロシージャを途中で止める方法
Excel(エクセル)
-
18
マクロについて質問です 範囲内のセルが空白か調べるにはどのようなプログラムになるんでしょうか? セル
Visual Basic(VBA)
-
19
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
20
ExcelのVBAでシフト表を作っていますが、詰んでいます。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
GAS ドキュメント
-
VBでDate型の大小比較がうまく...
-
ユーザーフォームのラベルに日...
-
エクセルVBAで機械の稼働時間を...
-
VBA 日付・時刻の判別 時刻を認...
-
VBAで日付入力しているのですが
-
大文字Oと0の違い
-
テキストボックスにカレンダー...
-
VBAで当月の1日を表示するには...
-
日付をクリックすると別ページ...
-
3人のじゃんけんのプログラム
-
エクセルのVBAで日付を検索し転...
-
「eclipseで作るカレンダー(ス...
-
テキストボックスに今日の日付...
-
g08のロック画面の日付表示の変更
-
1本あたり○円と表示する時どの...
-
DataGridViewの和暦表示について
-
VBA 日付、未来の日付はエラー...
-
エクセルのユーザーフォームに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
DataGridViewでyyyy/MM/dd
-
Eclipseの対応する括弧の強調表...
-
JSPからYYYYMMDDで日付入力する
-
「eclipseで作るカレンダー(ス...
-
VisualBasic6.0のFormat関数で...
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
1本あたり○円と表示する時どの...
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
VBAで当月の1日を表示するには...
-
【Excel VBA】条件に合った行の...
-
VB6.0 のformat関数について
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
コンボボックスに日付を表示する
-
指定した日付が、その月の第何...
-
VB 日付範囲チェック
おすすめ情報