|
ワークシートのA列に仕入先コードを入力するとB列に仕入先名を出力する
コードを下記のように書いたのですが、
A列入力後 ENTER しても何も出力してくれず、改めて入力したセルを
ポインターで選択すると出力したりするといった、不安定な動作をします。
所定の動作をするようなコードに修正するためのご指導いただけないでしょうか
どうぞよろしくお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SMCODE As Variant
With Target
If .Column = 1 Then
Set Con = New ADODB.Connection
SMCODE = .Value
Con.Open "DSN=TEST"
Con.Execute ("SET NAMES sjis")
msql = "select SNAME FROM SM01 "
msql = msql & " WHERE SCD = '" & SMCODE & " ';"
Set Rst = New ADODB.Recordset
Rst.Open msql, Con
If Rst.EOF Then
.Interior.ColorIndex = 3
Exit Sub
End If
.Offset(0, 1).Value = Rst!SNAME
Rst.Close
Set Rst = Nothing
Con.Close
Set Con = Nothing
End If
End With
End Sub
|
|