推 JieJuen:了解了 感謝說明^^ 08/16 01:54
哈 J 大真的眼力好，之前的因為沒有得測試，所以只加前後程式碼，沒有動中間的，
應該改成以下才是比較完整
Dim A As Variant
Dim row as Integer
Dim start_row as Integer
row_no = Sheet1.Range("a1").End(xlDown).Row
start_row TextBox1.Text
A = Range(Cells(start_row, 1), Cells(row_no, 2))
For i = 1 to row_no-start_row+1
strsql = "select * from test where a like'" & A(i,1) & "'" '查詢
Set myrst = myCon.Execute(strsql)
If myrst.EOF = True Then
A(i,2) = "No Data"
j = j + 1 '計算沒有資料的筆數
End If
Next
Range(Cells(start_row, 1), Cells(row_no, 2)) = A
※ 引述《JieJuen (David)》之銘言：
: 想請問w大，
: 此例中單單只是定義一個A
: 但查詢過程中都沒有用到A
: 這樣就可以產生效果了嗎?
: 還是說，原先的.Cells(i, "A")是看A欄
: 現在變成會看A陣列?
: 不好意思，有點舊的文了^^"
: ※ 引述《windknife18 (windknife18)》之銘言：
: : 因為沒有 SQL 所以你試看看可不可行囉
: : Dim A As Variant
: : Dim row as Integer
: : Dim start_row as Integer
: : row_no = Sheet1.Range("a1").End(xlDown).Row
: : start_row TextBox1.Text
: : A = Range(Cells(start_row, 1), Cells(row_no, 1))
: : For i = 1 to row_no-start_row+1
: : strsql = "select * from test where a like'" & .Cells(i, "A") & "'" '查詢
: : Set myrst = myCon.Execute(strsql)
: : If myrst.EOF = True Then
: : .Cells(i, "B") = "No Data"
: : j = j + 1 '計算沒有資料的筆數
: : End If
: : Next
: : Range(Cells(start_row, 1), Cells(row_no, 1)) = A
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.146.144