@qii-yahposted at 2024-10-18

エクセルVBA　特定の列に日付が入力されたらマクロを実行する

Q&A

Closed

VBAマクロ

解決したいこと

特定の列に日付が入力されたらマクロを実行させたいのです。
列名：O列

例）
ECサイトの物販業を運営しておりまして、
エクセルの
シート（リスト）＝受注時のデータがあり、処理が完了したら
シート（リスト2）へ処理終了済みとしてデータを移動させたいです。

＜処理終了済み＞の判断基準として、
シート（リスト）の＜O列＞に発送日が入力された場合を基準としたいです。

まず、具体的な日付を入れたパターンでマクロを作成してみました。
これ自体は動作確認できたのですが、

●O列の内どの行のO列でも実行する。
という記述がどうしてもできません。

ご存じの方お教えいただけます様お願い申し上げます。
また、作成したマクロの記述は、色々見様見真似で記述しましたので
不要な記述もあるかも知れません。

何卒よろしくお願い申し上げます。

作成したマクロの記述ソースコード

Sub 貼り付け()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long

    ' シートを設定
    Set ws1 = ThisWorkbook.Sheets("リスト")
    Set ws2 = ThisWorkbook.Sheets("リスト 2")
    
    
    ' Sheetsリストの該当セルの行を指定
    Range("O5").Select
    ActiveCell.FormulaR1C1 = "10/17/2024"
    
    'アクティブな列の行を指定
    ActiveCell.EntireRow.Select
    
    '上記の列・一行を切り取り
    Selection.Cut

    ' Sheetリスト 2の最終行を取得
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).row

    ' データを貼り付け
    ActiveSheet.Paste ws2.Range("A" & lastRow2 + 1)
    
    'リストに戻る
    Sheets("リスト").Select
    Range("テーブル1[#Headers]").Select
    
    
    
End Sub

6Answer

@nak435 posted at 2024-10-18

具体的な日付を入れたパターンでマクロを作成してみました。
これ自体は動作確認できたのですが、

これは、↓ここの O5セルのことを、おっしゃっていますか？

Range("O5").Select
ActiveCell.FormulaR1C1 = "10/17/2024"

そうだとして、

O列の内どの行のO列でも実行する。
という記述がどうしてもできません。

Ox セルにしたいということでしたら、
x を 5〜n までループで処理すればよいということでは？

dim x as integr
for x = 5 to 1000
    Range("O" & x).Select

next

0Like

@qii-yah posted at 2024-10-18

@nak435 様

早速のご連絡ありがとうございます。
具体的な日付を入れたパターンでマクロを作成は＜O5＞のセルのことです。

私は、VBA初心者なのですが
完成イメージとしましては
＜O列＞に日付が入ったら、直ぐに、マクロを実行。というイメージですが
その場合でもループが良いものでしょうか？
※実際は、入力される日付もまちまちです。
もしご存じであればお教えいただけます様
よろしくお願い申し上げます。

0Like

Comments

@nak435

＜O列＞に日付が入ったら、直ぐに、マクロを実行。というイメージですが
その場合でもループが良いものでしょうか？

そうでしたら、ループは不要で、次のスクショのように、ワークシートにWorksheet_Changeマクロを書けばよいです。
シート内のどのセルであっても、セルが更新されるとWorksheet_Changeが呼び出されるので、if文で O列を判定して、そのセルに対する処理を書けばよいです。

@qii-yah posted at 2024-10-18

@nak435 様

ご親切なアドバイス、本当にありがとうございます。
早速試させていただいたのですが
何故か上手くいかず。。。

お作りいただいたソースコードはピクチャー通り
Sheet(リスト）に作成すれば良いのですよね？

具体的な日付を入れたパターンで作成したソースコードは
現在、moudle3に作成したのですが
これはこのまま置いておいて良いものでしょうか？

何度も申し訳ありません。
よろしくお願い申し上げます。

0Like

Comments

@nak435

Sheet(リスト）に作成すれば良いのですよね？

O列を参照するシートに作成します。
下記スクショのように、Worksheet Changeが重要です。
実際の処理はmoudle3に置いてあっても構いませんが、そこの関数を呼び出すように書いていますか？

呼ぶ側、呼ばれる側のスクショを貼ってもらえれば、より具体的にご指摘できます。

@qii-yah posted at 2024-10-18

@nak435　様

おはようございます。
本当にありがとうございます。
動作できたようです！
2つのマクロピクチャ添付させていただいております。

現状は、＜発送日にカーソルがある状態＞で
マクロ実行をクリックすると動作する状態です。
これを、＜発送日に日付が入ったら＝カーソルがある状態＞
になると、マクロが自動的に実行する状態に
することはできるものなのでしょうか？

何度も申し訳ありません。
何卒よろしくお願い申し上げます。

0Like

Comments

@nak435

＜発送日に日付が入ったら＝カーソルがある状態＞
になると、マクロが自動的に実行する状態に
することはできるものなのでしょうか？

以下のようにそのマクロを呼び出せばよいです。
（1枚目のスクショのマクロに、⭐️印の行を追加）

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell_address As String
    cell_address = Target.Address(ReferenceStyle:=xlA1)
    If Left(cell_address, 3) = "$O$" Then
        Range(cell_address).Select
        
        call 処理済み注文シート移動処理()    '⭐️
    
    End If
End Sub

@qii-yah posted at 2024-10-19

@nak435さま

この度はお世話になりありがとうございます。
完成いたしました！
本当にレッスン以上のアドバイスありがとうございました。
まだまだ初心者で初めてみる対処方法で驚き感激いたしました！
取り急ぎ御礼申し上げます。

0Like

Comments

@nak435

完成いたしました！

よかったですね。
”解決”でよろしければ、当Q&Aをクローズしてください。

@qii-yah posted at 2024-10-19

@nak435さま

最後までアドバイスありがとうございます。
当サイトの使用方法もまだ理解できていませんでした。
早速質問クローズさせていただきます。
本当にありがとうございました！

0Like

Are you sure you want to delete the question?

エクセルVBA　特定の列に日付が入力されたらマクロを実行する

解決したいこと

作成したマクロの記述ソースコード

6Answer

Comments

Comments

Comments

Comments

Your answer might help someone💌

エクセルVBA 特定の列に日付が入力されたらマクロを実行する

解決したいこと

作成したマクロの記述ソースコード

6Answer

Comments

Comments

Comments

Comments

Your answer might help someone💌

エクセルVBA　特定の列に日付が入力されたらマクロを実行する