ＶＢＡ日付一致で転記

Question

ＶＢＡ初心者です。現在、INDEX,MATCH関数を使って左表の日付と右日程表の日付が一致したときに型番と機番が完成日の行に入るようにしてるのですが、ＶＢＡでできたらと思い模索しております。ＶＢＡでの方法があるのでしたらご教示ください。

Qchan1962 · Accepted Answer

こんにちは、１点目は、実行トリガーの三つを削除した時に連動して消えるようにするのは可能でしょうか？３点目は、ボタン実行のパターンも知りたいです１点目は、 If Cells(r, "B") <> "" And Cells(r, "E") <> "" And Cells(r, "G") <> "" Then　を If Cells(r, "B") <> ""　Then　とすれば、型番と機番は、入力時、つまり空白を含め書き替えられます。しかし、日付を消した時にすべてを消す場合は、検索キーワードになっているので、少し工夫が必要です。日付を消したら、出力先の型番と機番を消す方法としていくつか考えられますが、 Application.Undoを使用してみます複数の実行条件で同じ処理を行うので、重複する処理は使い廻しをします。例 Private Sub Worksheet_Change(ByVal Target As Range) Dim myRng As Range, r As Long, dtKey As Date 　　If Intersect(Target, Range("B3:G15")) Is Nothing Then Exit Sub 　　Application.EnableEvents = False 　　r = Target.Row 　　If Target(1).Column = 2 And Target(1).Value = "" Then 　　　　Application.Undo 　　　　dtKey = Cells(r, "B") 　　　　Range("B" & r & ":G" & r) = "" 　　　　Call FindWord(dtKey, Target.Row) 　　End If 　　If Cells(r, "B") <> "" Then 　　　　dtKey = Cells(r, "B") 　　　　Call FindWord(dtKey, Target.Row) 　　End If 　　Application.EnableEvents = True End Sub Sub FindWord(dtKey As Date, r As Long) Dim myRng As Range 　　　　Set myRng = Range("M2", Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column)). _ 　　　　　　　　　　Find(What:=dtKey, LookIn:=xlFormulas, SearchOrder:=xlByColumns) 　　If Not myRng Is Nothing Then 　　　　myRng.Offset(4) = Cells(r, "E").Value 　　　　myRng.Offset(5) = Cells(r, "G").Value 　　End If End Sub 練る必要がありますが取り敢えず。 Application.EnableEvents = False　はApplication.Undoエラーを回避する為、必須になります。３点目は、ボタン実行のパターンも知りたいです単純に考えると Private Sub Worksheet_Change(ByVal Target As Range)　の　Target As Rangeに当てはめる値があれば良い事になるのではと思いますが、ボタンで実行するなら対象となるすべての範囲を対象に実行する方が簡単です。また、ボタンから実行するなら関数式も理解しているようですので、色々遠回りせずExcelぽく＃１で示した　範囲＝”関数式”　範囲.Value=範囲.Value の方が下記の様にわかり易いです。 Sub sample() Dim col As Long 　　col = Cells(2, Columns.Count).End(xlToLeft).Column 　　Range(Cells(6, "M"), Cells(6, col)).Formula = "=IFERROR(INDEX($B$3:$H$15,MATCH(M1,$B$3:$B$15,0),4),"""")" 　　Range(Cells(7, "M"), Cells(7, col)).Formula = "=IFERROR(INDEX($B$3:$H$15,MATCH(M1,$B$3:$B$15,0),6),"""")" 　　Range(Cells(6, "M"), Cells(7, col)).Value = Range(Cells(6, "M"), Cells(7, col)).Value End Sub 参考：少し遠回り Private Sub Test() Dim myRng As Range, r As Long, dtKey As Date Dim Target As Range Set Target = Selection(1) 　　If Intersect(Target, Range("B3:B15")) Is Nothing Then Exit Sub ボタンからの処理なのに範囲が狭く、選択された日付セルを基準にしていますので合理的な処理とは言えないと思いますが、あくまで参考です。

Qchan1962 · Answer

＃１です。多分、動くだろうプロシージャを書く事は出来ますが、少し条件、表組みなどが変わった場合、ご自身で改修出来ますでしょうか？現在、関数式で問題ないようでしたらそのまま構築する方が良いのではとお節介に思います。ご質問が　＞ＶＢＡでの方法があるのでしたらご教示ください。なのでサンプルを提示しますが、行っている内容などは、ご自身でメソッドなどを検索して理解してくださいね。 2行目が日付Date型になっているのなら、Findで探し、Offsetで入力できるかと思います。の方法です。ワークシートモジュールに下記をコピペで VBAの導入方法なども理解されている事を前提とします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myRng As Range, r As Long 　　If Intersect(Target, Range("B3:G15")) Is Nothing Then Exit Sub 　　Application.EnableEvents = False 　　r = Target.Row 　　If Cells(r, "B") <> "" And Cells(r, "E") <> "" And Cells(r, "G") <> "" Then 　　　　Set myRng = Range("M2", Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column)). _ 　　　　　　　　　　Find(What:=Cells(r, "B"), LookIn:=xlFormulas, SearchOrder:=xlByColumns) 　　End If 　　If Not myRng Is Nothing Then 　　　　myRng.Offset(4) = Cells(r, "E").Value 　　　　myRng.Offset(5) = Cells(r, "G").Value 　　End If 　　Application.EnableEvents = True End Sub M２行からの横の日付を検索対象にしていますので、このセルは　2020/9/5のように入力されていて書式設定でdにして表示1,,,4,5の様になっています。＞１行目が月、２行目が日、３行目が曜日で3つとも年月日で入れております。列方向のセル結合がある為、SearchOrder:=xlByColumns 実行トリガーはB3:G15ですが、同じ行の３つ共に値が入っている時に実行されます。逆に言うと3つとも値がある状態でいずれかを変更すると対象セルに値が入ってしまいます。ご入力の可能性があります。ご入力を一旦止めてキャンセルできるようにするか、トリガーを狭め条件を厳しくするか、または、入力実行後トリガーのセルの値をクリアーするなど更に工夫が必要と思います。（入力セルは一行で良い様な気がします。入力実行後下に蓄積させるなどで） Application.EnableEvents = Falseは、イベント発生を止めるコマンドです。 Application.EnableEvents = Trueを実行せずにVBAを終了すると次回イベントが発生しませんので検証時は、'Application.EnableEvents = False　などとして無効にしてください。

Qchan1962 · Answer

こんにちは、
ご質問の場合、関数式とVBAの大きく違うところは、いつ実行するかと言うところです。
関数は、数式の参照セルに入力された時に解が求められますが、VBAはそのトリガーを
どうするかを、仕様に含める必要があります。
例えば、G：Hセル（A:H)に入力された時に実行するとか、まとめてボタンから実行するとかです。
前者は、シートのイベントを使いますが、後者は、ボタンにプログラムを登録します。

また、入力されているINDEX,MATCH関数を補足で示されると良いと思います。
右表のセルが日付Date型になっているか等もわかるので、、

自動記録でいくつか作って手を加える方法も考えられますが、結合セルが少し気になります。
2行目が日付Date型になっているのなら、Findで探し、Offsetで入力できるかと思います。
また、VBAで　入力したい範囲に＝”INDEX,MATCH関数”　.Value=.Value なんて方法もあると思います。
参考：https://kokodane.com/mini_macro29.htm

ＶＢＡ 日付一致で転記

こんにちは、

＃１です。

こんにちは、

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ＶＢＡ日付一致で転記