Excel VBA質問箱 IV

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

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


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

55801 / 76732

←次へ　｜　前へ→


	【25698】Re:３つのｺｰﾄﾞと合致するデータに新しいコードを振る方法

Hirofumi - 05/6/11(土) 1:03 -


	引用なし

	パスワード

以下の部分も変更しないと、上手く有りません

　　　　'データを配列に取得
　　　　vntData = .Offset(1).Resize(lngRows, 4).Value
　　End With

　　　　End If
　　　　vntData = .Offset(1).Resize(lngRows, 3).Value
　　End With

上は、List先頭から、4列を配列に格納していますし（A、B、C、Dコード）
下は、List先頭から、3列を配列に格納していますし（A、B、Cコード）

此れを変えないと、

　　　　　　'Aコード、Bコード、CコードをKeyとする
　　　　　　vntKey = vntData(i, 1) & vbTab _
　　　　　　　　　　　　& vntData(i, 2) _
　　　　　　　　　　　　　　& vbTab & vntData(i, 3)
　　　　　　'もしKeyが重複する場合
　　　　　　If .Exists(vntKey) Then
　　　　　　　　strProm = "Keyが重複しています"
　　　　　　　　GoTo Wayout
　　　　　　Else
　　　　　　　　'KeyとDコードをIndexに登録
　　　　　　　　.Add vntKey, vntData(i, 4)
　　　　　　End If

と

　　'Sheet1のKeyをIndexから探索
　　With dicIndex
　　　　For i = 1 To lngRows
　　　　　　vntKey = vntData(i, 1) & vbTab _
　　　　　　　　　　　　& vntData(i, 2) _
　　　　　　　　　　　　　　& vbTab & vntData(i, 3)

が、使え無い（配列の値を使用している為）

0 hits

▼

【25644】３つのｺｰﾄﾞと合致するデータに新しいコードを振る方法 Lee 05/6/9(木) 11:19