エクセル2013
D列に入力があると同行のA列に日付(時間)が入力されるように設定してあります。
(B列にはユーザー名)
その時、A列の日付を基準に、E列に 3営業日後の日付を入力させるには
どのようなマクロを組んだら宜しいでしょうか?
また、入力済行のD列を消去(空白)した場合、該当行に入力されている全データを消去するには
どうしたら宜しいでしょうか?(行削除ではありません)
下記、既マクロが現在、組まれているものです。
宜しくお願い致します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim TgRng As Range
Set TgRng = Intersect(Range("D:D"), Target)
If Not TgRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In TgRng
Rng.Offset(, -3).Value = Now
Rng.Offset(, -2).Value = LoginName
Next
Application.EnableEvents = True
End If
Set TgRng = Nothing
End Sub
No.2ベストアンサー
- 回答日時:
No.1です。
>祝日や会社規定の休業日等も考慮するためには・・・
Workday関数にそのまま「休日」のデータが使用できます。
ただし、あらかじめ祝日(休日)のデータを作成しておく必要があります。
仮にSheet2のA1~A20に祝日・会社規定の休日のシリアル値データを作成した場合は
↓のコードとなります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim TgRng As Range
'▼myRngという変数を追加
Dim myRng As Range
'▼Sheet2のA列以降の祝日(会社規定の休日)の表を作成しておく
'仮にA1~A20セルに休日のシリアル値がある場合
Set myRng = Worksheets("Sheet2").Range("A1:A20")
Set TgRng = Intersect(Range("D:D"), Target)
If Not TgRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In TgRng
If Rng <> "" Then
Rng.Offset(, -3).Value = Now
'▼WORKDAY関数の最後に myRng を追加
Rng.Offset(, 1) = WorksheetFunction.WorkDay(Rng.Offset(, -3), 3, myRng)
Else
Rng.EntireRow.ClearContents
End If
Next Rng
Application.EnableEvents = True
End If
Set TgRng = Nothing
End Sub
※ 上記コード内の「myRng」は実状に合わせてください。
※ 実は前回投稿後、気になっていたのですが。
>3営業日後の日付
とは「土日を除く3営業日」となりますので、仮に御社が土日も営業している場合は
別の方法を考える必要があります。m(_ _)m
No.1
- 回答日時:
こんばんは!
そのままワークシート関数を使用すれば良いと思います。
E列の表示形式はあらかじめ「日付」で設定しておいてください。
>Rng.Offset(, -2).Value = LoginName
で変数「LoginName」が定義が設定されていませんので、↓のコードでは入れていません。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim TgRng As Range
Set TgRng = Intersect(Range("D:D"), Target)
If Not TgRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In TgRng
If Rng <> "" Then
Rng.Offset(, -3).Value = Now
'▼WORKDAY関数をそのまま使用
Rng.Offset(, 1) = WorksheetFunction.WorkDay(Rng.Offset(, -3), 3)
Else
Rng.EntireRow.ClearContents
End If
Next Rng
Application.EnableEvents = True
End If
Set TgRng = Nothing
End Sub
こんな感じでよいのでしょうか?m(_ _)m
この回答への補足
早速の回答、ありがとうございます。
3営業日後の日付ですが、祝日や会社規定の休業日等も考慮するためには
どのようにしたら宜しいでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
基準日以前のデータを範囲を指...
-
エクセルで行の高さ及び列幅の...
-
エクセルの時刻のカウントが出...
-
エクセル VBA 行間隔を飛ばした...
-
急ぎ!色のついたセルを非表示...
-
【Excel VBA】指定した行の最大...
-
VBA 配列で型がエラーになります。
-
オートフィルタ後のデータから...
-
Excelで並び替え後にア行...
-
エクセル関数について
-
プルダウンに【なし、平均、デ...
-
文字列を比較し、相違するフォ...
-
マクロで行の高さを設定したい
-
EXCELで日付を比べ3か月以内の...
-
時間の重複チェック
-
行の一番右のデータセルと同じ...
-
Excelで入力した氏名をあいうえ...
-
excel / ピポッド 日数を出したい
-
特定の列範囲の中で最終列を指定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
基準日以前のデータを範囲を指...
-
エクセルで行の高さ及び列幅の...
-
オートフィルタ後のデータから...
-
Excelで並び替え後にア行...
-
急ぎ!色のついたセルを非表示...
-
エクセルの時刻のカウントが出...
-
【Excel VBA】指定した行の最大...
-
時間の重複チェック
-
エクセル関数について
-
プルダウンに【なし、平均、デ...
-
エクセル VBA 行間隔を飛ばした...
-
Excel 最小二乗法 二次関数
-
文字列を比較し、相違するフォ...
-
EXCEL 最終行のデータを他のセ...
-
EXCELで日付を比べ3か月以内の...
-
マクロで行の高さを設定したい
-
エクセル 複数行ある同一商品...
-
VBA 複数行の検索及び抽出
-
エクセル関数のSUMPRODUCTにつ...
おすすめ情報