| |
２枚のシートを見て、印刷・金額管理をしたいのですが
うまくいかないので教えてください。
やりたいこと）
シート１・２の件数は１００００件程度あります。
シート１の明細は毎日追加して行きます。
シート１の明細で過去印刷したものは金額・済マークが更新
されている。
1.シート１の印刷済以外の金額更新をシート２から伝票ＮＯ
を参照ＫＥＹにして取得し取得後は、シート１の印刷区分に
済を更新する。
シート１
伝票ＮＯ 金額 印刷管理
111 10 済
222 110
333 210 済
444 310
555 410 済
666 510
777 610 済
888 710
シート２
伝票ＮＯ 金額
222 110
444 310
666 510
888 710
'●Ａ列にデータがある場合は、Ｈ２内容をコピー（統計区分）
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
この処理で済マークの更新の無い分だけを更新するようなことが
できるのか教えてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
