お世話になります。
Excel VBAのプログラムについてご教授をお願いいたします。
添付した写真ような管理表が例になります。
工程ごとの開始、完了を担当した作業者名を入力すると、入力した日付を表示させるようにしたいのです。
例えば工程1だと、F5セルに工程1を開始した作業者名を入れると、G5セルに作業者名を入力した日付が表示される。
工程数も増やせる、作業者名の入力範囲も上限なしの仕様にしたいのですが、、、
お手数ですがご教示いただけますと幸いです。
No.5ベストアンサー
- 回答日時:
その画像が表示されているシートに以下のマクロを登録します。
(シートモジュールです)
Private Sub Worksheet_Change(ByVal Target As Range)
'6行未満は対象外
If Target.Row < 6 Then Exit Sub
'6,8,10,12,14行・・・以外は対象外
If Target.Column < 6 Then Exit Sub
If (Target.Column - 6) Mod 2 <> 0 Then Exit Sub
Target.Offset(, 1).Value = Date
End Sub
tatsumaru77様 ありがとうございます。
さきほどマクロ起動してみたら思いとおりになりました。
わざわざお時間割いていただき感謝いたします。
No.4
- 回答日時:
新しい画像で確認しました。
作業者名を入力する列は、F列以降1列おきにする。(F,H,J,L・・・)
上記列の6行以降に作業者名を入力し、右横のセルに日付を自動設定する。
で間違いないでしょうか。
例 F6に作業者名を入力し、G6に日付を設定する。
あなたから提示された「例えば工程1だと、F5セルに工程1を開始した作業者名を入れると、G5セルに作業者名を入力した日付が表示される。」は誤りかと思います。F5に入力された場合は、「処理しない」が妥当かと思います。
No.3
- 回答日時:
こんにちは
画像がよく見えないのと、何を知りたいのか不明(丸投げなのか?)なので、何を回答すれば良いのかもよくわかりませんけれど・・
入力に対応して、その右のセルに日付を表示すれば良さそうなので、
Worksheet_Change イベントのプロシージャで処理すれば良いでしょう。
以下、似た様な例を解説しているサイトです。
https://seigi-ojisan1972.com/?p=2653
https://gcgx.games/excel/vba/auto_date.html
※ 入力セルの範囲チェックをなさりたい内容に合うようにすれば、ほぼできると思います。
No.1
- 回答日時:
カメラでの撮影画像より、画面の画像を切り取って(列方向は半分位でもよさそう)掲載した方が見やすいですよ。
あくまでPC私用の場合なら、
Snipping Tool を活用する
https://askpc.panasonic.co.jp/beginner/guide/ten …
等を用いて。
Win11は未所持なのでわかりませんが類似した機能はあるのかも。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
参照先セルに値が入っていない...
-
Excel:文字と数字の組合せ、次...
-
Excelでセルに入力されたカラー...
-
空白でないセルの値を返す方法...
-
値を入力後、自動的にアクティ...
-
入力したところまでを自動的に...
-
excel 関数にて文字を0として認...
-
エクセルの数式がかぶって、選...
-
エクセル:コメントのようなも...
-
Excel マクロ モジュラス43 vba
-
バーコードが読み取れない原因...
-
ふりがな表示
-
yyyy/mm/ddからyyyy/mmへの変換
-
【Excel】セル内の時間帯が特定...
-
エクセル セルに━ (横棒)を入...
-
CSV出力で変換されてしまっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
参照先セルに値が入っていない...
-
エクセルで既に入力してある文...
-
IF関数で0より大きい数値が入力...
-
Excelでセルに入力されたカラー...
-
空白でないセルの値を返す方法...
-
Excel:文字と数字の組合せ、次...
-
値を入力後、自動的にアクティ...
-
入力したところまでを自動的に...
-
エクセルの数式がかぶって、選...
-
yyyy/mm/ddからyyyy/mmへの変換
-
excel 関数にて文字を0として認...
-
【Excel】セル内の時間帯が特定...
-
エクセルで10分ごとの時刻の...
-
エクセルで時間の判定をしてい...
-
エクセル セルに文字を入力した...
-
マイナス同士の前年比
-
エクセルで複数の条件で掛け算...
-
エクセルで数字10が1に変わる。...
おすすめ情報
コメントいただきありがとうございます。ならびに見えずらく申し訳ありません。
画像切り取ったものを添付しましたのでご教示いただけますと幸いです。
コメントいただきありがとうございます。
画像が見えづらい状態で申し訳ありませんでした。snipingツールで切り取った画像を追加で貼り直しましたので確認をお願いします。
snippingツールで貼り付けましたが、遠目のキリトリは見えづらいようですので
近づけて切り取りました。
お手数ですが、ご教示お願いいたします。
度々失礼しました。
遠目だとsnippingツールでも粗くなってしまうので、近めでキリトリしたものを添付いたします。
tatsumaru77様ありがとうございます。
おっしゃるとおり、
6行以降に作業者名を入力し、右横のセルに入力された日付を表示させる、が正しいです。
F列に名前を入力したら、隣のG列にF列で入力された日付を表示
H列に名前を入力したら、隣のI列にH列で入力された日付を表示
J列に名前を入力したら・・・・
同じ仕様にしたいです