今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(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
エクセルでエラーが出て困っています。
Excel(エクセル)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
7
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
VBA(エクセル)のコンパイルエラー
Excel(エクセル)
-
10
アクセス:既定値に土日含まず3日後を指定したい
Access(アクセス)
-
11
VBA シートの切り替えができないようにするには
PowerPoint(パワーポイント)
-
12
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
13
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
14
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
15
エクセルVBAで1ヶ月のシフト表から日曜日を除いた表を作成したい
Excel(エクセル)
-
16
「社長様いますか」という営業電話に、そろそろガツンと言いたい
ビジネスマナー・ビジネス文書
-
17
土日祝を省いた印刷
Excel(エクセル)
-
18
ExcelのVBAでシフト表を作っていますが、詰んでいます。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「eclipseで作るカレンダー(ス...
-
DataGridViewでyyyy/MM/dd
-
2Dゲームのグラフィックについて
-
ExcelVBAでSQLサーバの日付時刻...
-
VB 日付範囲チェック
-
今日より前の書き方 マクロ
-
日付をクリックすると別ページ...
-
JSPからYYYYMMDDで日付入力する
-
システム日付とは?
-
Eclipseの対応する括弧の強調表...
-
VBでDate型の大小比較がうまく...
-
1本あたり○円と表示する時どの...
-
VBAの質問になります 行の非表示
-
WEB検索の表示結果を日付順に表...
-
ユーザーフォームのラベルに日...
-
最近、iPhoneがおかしいです 私...
-
電話の着信が来てないのに着信...
-
ベストアンサーを、間違えて違...
-
アンドロイドから通知無しで鳴る音
-
LINE通話中のバナー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
JSPからYYYYMMDDで日付入力する
-
今日より前の書き方 マクロ
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
【Excel VBA】条件に合った行の...
-
VBA 日付、未来の日付はエラー...
-
【VBA】土日をスキップして日付...
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
VBAの質問になります 行の非表示
-
VB 日付範囲チェック
-
コンボボックスに日付を表示する
-
テキストボックスにカレンダー...
-
指定した日付が、その月の第何...
-
VB6.0 のformat関数について
おすすめ情報