請求書フォーマットに一覧表(請求データ)か

Writer: admin Type: duanmo Date: 2019-03-06 00:00
請求書フォーマットに一覧表(請求データ)から値を転記するマクロを組んだのですが、上手くいきません。ボタンを押してもと何も表示されないのですが、どうしたらよいでしょうか?請求データはA2~E2までは項目名でA3以降=取引先名B3以降=受注日C3以降=メーカ名D3以降=商品名E3以降=備考と並んでいます。このデータは随時追加されています。請求書シートで取引先によって請求月が違うため、検索値をつけています。J1=取引先名J2=調べたい期間の開始日J3=調べたい期間の終了日 Sub 請求書作成() Dim BillOffice As String Dim BillDateS As Date Dim BillDateE As Date Dim selRG As Range Dim selRW As Range Dim sLine As Integer Dim iDate As Date Dim iHM As String Dim iField As String Dim iNote As String sLine = 0 ' 入力した取引先と日付を取込 With ThisWorkbook.Worksheets("請求書") BillOffice = .Range("J1").Value BillDateS = .Range("J2").Value BillDateE = .Range("J3").Value .Range("A11:G32").ClearContents End With With ThisWorkbook.Worksheets("請求データ") Set selRG = .Range(.Range("A2"), .Range("A2").End(xlDown)) For Each selRW In selRG ' 条件に合った行かを判定 If IsDate(selRW.Value) Then If .Cells(selRW.Row, 1) = BillOffice And .Cells(selRW.Row, 2) >= BillDateS And _ .Cells(selRW.Row, 2) <= BillDateE Then ' 請求明細 iDate = .Cells(selRW.Row, 2) iHM = .Cells(selRW.Row, 3) iField = .Cells(selRW.Row, 4) iNote = .Cells(selRW.Row, 5) ' 請求書に張り付け sLine = sLine + 1 With ThisWorkbook.Worksheets("請求書") .Cells(sLine + 10, 1) = Year(iDate) .Cells(sLine + 10, 2) = Month(iDate) .Cells(sLine + 10, 3) = iHM .Cells(sLine + 10, 4) = iField If IsDate(iNote) Then .Cells(sLine + 11, 4) = iNote End If End With End If End If Next selRW Set selRG = Nothing End With End Sub※こちらのサイトを参考にしました【https://excel-seed.com/2018/08/09/post-628/】###selRGのセットがうまくいってないです。下記の通りに書き変えてみて下さい。Set selRG = .Range(.Cells(3, 1), .Cells(.Range("A2").End(xlDown).Row, .Range("A2").End(xlToRight).Column))ナイス0
###回答ありがとうございます!勉強になりました。次回機会があればまたよろしくお願いいたします。

 

TAG