|
2枚のシートを見て、印刷・金額管理をしたいのですが
うまくいかないので教えてください。
やりたいこと)
シート1・2の件数は10000件程度あります。
シート1の明細は毎日追加して行きます。
シート1の明細で過去印刷したものは金額・済マークが更新
されている。
1.シート1の印刷済以外の金額更新をシート2から伝票NO
を参照KEYにして取得し取得後は、シート1の印刷区分に
済を更新する。
シート1
伝票NO 金額 印刷管理
111 10 済
222 110
333 210 済
444 310
555 410 済
666 510
777 610 済
888 710
シート2
伝票NO 金額
222 110
444 310
666 510
888 710
'●A列にデータがある場合は、H2内容をコピー(統計区分)
With Application.ActiveSheet
Rmax = .Range("A10000").End(xlUp).Row '最下行番号
'データが入っていれば
If Rmax > 1 Then
.Range("N3").Formula = _
"=IF(ISERROR(VLOOKUP(A3,[受]集計!$A$1:$B$10000,2,FALSE)),"""",VLOOKUP(A3,[受]集計!$A$1:$B$10000,2,FALSE))"
If CStr(Cells(i, 14).Value) <> "" Then
.Range("N3:N" & Rmax).FillDown '下方向へコピー
End If
End If
End With
★質問
1.VLOOKUP(A3,のA3は⇒CELLS(3,1).VALUEとかに指定できるのでしょうか?
2.If CStr(Cells(i, 14).Value) <> "" Then
.Range("N3:N" & Rmax).FillDown '下方向へコピー
End If
この処理で済マークの更新の無い分だけを更新するようなことが
できるのか教えてください。
|
|