Excel VBA質問箱 IV

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

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


6201 / 13646 ツリー ←次へ | 前へ→

【46608】関数を使わずにVBAで処理をしたい ピー子 07/2/8(木) 3:59 質問[未読]
【46610】Re:関数を使わずにVBAで処理をしたい かみちゃん 07/2/8(木) 7:30 発言[未読]
【46611】Re:関数を使わずにVBAで処理をしたい ichinose 07/2/8(木) 7:48 発言[未読]
【46643】Re:関数を使わずにVBAで処理をしたい ピー子 07/2/8(木) 21:24 お礼[未読]

【46608】関数を使わずにVBAで処理をしたい
質問  ピー子  - 07/2/8(木) 3:59 -

引用なし
パスワード
   皆さん力を貸してください。

シート1に会社の名前をを登録
シート2に製品名 製品個数を入力
    A列にCode番号を入力すると
    D列にVLOOKUPを使わずに会社名を表示
Private Sub Worksheet_Change(ByVal Target As Range)
を使ってマクロを組みたい。

シート1
     A     B       
1    Code  Company    
2    101   あ社 
3    102   う社 
4    103   お社 


シート2
     A     B      C   D    
1    Code  Description  Qty Company
2    101   コーヒー    11  あ社     
3    102   ミルク     12  う社  
4    102    水      13  う社  
5    103  カップメン   20  お社   

5000

VBAを勉強してまだ3日です。
先輩方のアドバイスをお願い致します。

【46610】Re:関数を使わずにVBAで処理をしたい
発言  かみちゃん  - 07/2/8(木) 7:30 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シート1に会社の名前をを登録
>シート2に製品名 製品個数を入力
>    A列にCode番号を入力すると
>    D列にVLOOKUPを使わずに会社名を表示
>Private Sub Worksheet_Change(ByVal Target As Range)
>を使ってマクロを組みたい。

ちょっと時間がないので、ヒントだけです。
Worksheet_Change
のコードは、シート2のシートモジュールに記述します。
そして、Findメソッドを使って、A列の値をシート1のA列から検索して、一致したら、
シート1の一致したセルの行のB列の値を取得するということをします。
Findメソッドのヘルプに使用例が載っていますので、参考にしてみてください。

【46611】Re:関数を使わずにVBAで処理をしたい
発言  ichinose  - 07/2/8(木) 7:48 -

引用なし
パスワード
   おはようございます。

>
>シート1に会社の名前をを登録
>シート2に製品名 製品個数を入力
>    A列にCode番号を入力すると
>    D列にVLOOKUPを使わずに会社名を表示
>Private Sub Worksheet_Change(ByVal Target As Range)
>を使ってマクロを組みたい。

ワークシートのセルで使うVlookup関数をご存知なら、
Vlookup関数をセルに埋め込まずに使う方法もあります。
これ利点は、Vlookup関数で探索したデータの書換えができる点ですよね!!

VBAのコード内では 一例ですが

Application.vlookup(range("a1"),range("b1:d10"),3,false)

こんな記述で使用できます。

下の例のようなマスターデータの検索なら、このVlookupかMatch関数あたりが
良いと思います。これらは、コードが整列されていれば、2分検索のアルゴリズムを
使用できるので検索も速いですよね?


>
>シート1
>     A     B       
>1    Code  Company    
>2    101   あ社 
>3    102   う社 
>4    103   お社 
>
>
>シート2
>     A     B      C   D    
>1    Code  Description  Qty Company
>2    101   コーヒー    11  あ社     
>3    102   ミルク     12  う社  
>4    102    水      13  う社  
>5    103  カップメン   20  お社   
>〜
>5000

検討してみてください。

【46643】Re:関数を使わずにVBAで処理をしたい
お礼  ピー子  - 07/2/8(木) 21:24 -

引用なし
パスワード
   皆さん有難うございました。頑張って勉強したいと思います。

6201 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free