シートのＡ列に商品コードが入っており、別ブックのＡ列に商品コード、Ｂ列に商品名が入っています。
現シートのＡ列を一行ずつ読んで、その商品コードをキーに別ブックの商品コードを検索し一致するコードがあれば現シートのＢ列に別ブックの商品名をセットする、という作業を勉強がてらado接続を使って実行したいと思い、下記のコードで実行してみました。
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Properties("Extended Properties") = "Excel 8.0"
CN.Open "C:\Users\*****\Desktop\shohinmaster.xls"
For i = 2 To 最終行
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM [shohin$] WHERE 商品コード = '" & Cells(i, 1) & "' ", CN
If RS.EOF Then
Cells(i, 2) = "???"
Else
Cells(i, 2) = 商品名
End If
Next
これで実行しますと、現シートの商品名は空白という結果になります。？？？とすらセットされませんでした。
また RS.Open の行の '" & Cells(i, 1) & "' という箇所なのですが、現シートの商品コードは数値で
入っているのですが、別シートの商品コードは文字列としてセットされていますのでこの形式にしております。
EXCELは2016、OSはWINDOWS7です。
どこが誤っているのかアドバイスいただければ幸いです。宜しくお願い致します。
Excel2007 ADOを使ってCSVのSQL処理をしています
対象は売上伝票で、取引先名、商品名などで検索をかけるのですが
その結果がマッチした明細のみしか取り出せないのをなんとかしたいです
例えば、1つの伝票には複数明細が含まれるのが通常ですが、
商品名で検索すると、その商品の明細しか出てきません
これを、マッチした明細を含む伝票全体を取り出したいのです
SELECT 伝票日付,伝票番号 FROM T_売上
WHERE 取引先="A社’ AND 商品名='鉛筆' GROUP BY 伝票日付,伝票番号
こんな形で検索対象を含む伝票の伝票番号リストを得ることはできたので、
次はこの日付と番号でWHEREをかけるのか
あるいはEXSISTSなどを使うのか
ちょっと具体的にイメージできません
教えていただけるとありがたいです
よろしくお願いします
重複した値を一つだけ残していきたいです。
たとえば リンゴ リンゴ リンゴ とあれば２つリンゴが消えて欲しいです
今のところ重複した値を消す方法しかわからず詰まっています。
なにとぞよろしくおねがいします
Option Explicit
Sub test()
Dim i As Double
Dim x As Double
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Range("T3", Range("T" & Rows.Count).End(xlUp)).Sort Key1:=Range("T3"), Order1:=xlAscending, Header:=xlYes
For i = 3 To Cells(Rows.Count, 20).End(xlUp).Row
Range(Cells(i, "T"), Cells(i, "T")).RemoveDuplicates Columns:=Array(1), Header:=xlYes
Application.Calculate
Next
End Sub
失礼します。昇順がうまくいかず困っています。
本来T3から下を昇順で並び変えたのち重複した値を削除したいのですがうまくいきません
もしよろしければダメな点を教えていただけないでしょうか？よろしくおねがいします。
Option Explicit
Sub test()
Dim i As Double
Dim x As Double
For i = 3 To Cells(Rows.Count, 20).End(xlUp).Row
Range(Cells(i, "T"), Cells(i, "T")).Sort Key1:=Range("T2"), Order1:=xlAscending, Header:=xlYes
Range(Cells(i, "T"), Cells(i, "T")).RemoveDuplicates Columns:=Array(1), Header:=xlYes
Next
End Sub
失礼します現在重複があればX行の隣に印を付けるというコードを書いているのですがデータ量が8万列あり、自身で下記のコードを実行すると応答なしとなってしまいます。
どう記述すれば機能するのでしょうか？よろしくお願いします。
Sub Sample2()
Dim c As Range
With Range("X1", Range("X" & Rows.count).End(xlUp))
.Offset(, 1).ClearContents
For Each c In .Cells
If WorksheetFunction.CountIf(.Cells, c) > 1 Then c.Offset(, 1) = "●"
Next
End With
End Sub
