Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14062 / 76733

←次へ　｜　前へ→


	【68171】VLOOKUPに関しての質問

困っている - 11/2/8(火) 15:59 -


	引用なし

	パスワード

２枚のシートを見て、印刷・金額管理をしたいのですが
うまくいかないので教えてください。

やりたいこと）

シート１・２の件数は１００００件程度あります。
シート１の明細は毎日追加して行きます。
シート１の明細で過去印刷したものは金額・済マークが更新
されている。

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
　
　この処理で済マークの更新の無い分だけを更新するようなことが
　できるのか教えてください。

2 hits

▼

【68171】VLOOKUPに関しての質問 困っている 11/2/8(火) 15:59

≪