標題:
[發問]
資料BU欄秀出請教
[打印本頁]
作者:
rouber590324
時間:
2018-1-9 13:23
標題:
資料BU欄秀出請教
DEAR ALL 大大
1.如圖一程式會秀出於儲存格B4往下.
2.若我寫改 秀出於儲存格B4往右.該如何修改??
3.煩不吝賜教 THANKS*10000
圖一
Sub aa()
Range("B4:D65536").ClearContents
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Z = 4
Do Until Range("A" & Z) = ""
cn.Open "Provider=MSDAORA.1;Password=BATCH;User ID=URCE01B;Data Source=QSRS05A"
strsql = "SELECT TBDD2002.PN" & Chr(13) & "" & Chr(10) _
& "FROM TBDD2002,TBDD2040" & Chr(13) & "" & Chr(10) _
& "Where TBDD2002.PN=TBDD2040.PN AND SUBSTR('" & Range("A" & Z) & "',1,6)=SUBSTR(TBDD2002.PN,1,6) and NVL(FORMALPN,'A') IN 'FS'"
rs.Open strsql, cn
Range("B" & Z).CopyFromRecordset rs
rs.Close
cn.Close
Z = Z + 1
Loop
End Sub
作者:
kim223824
時間:
2018-1-10 11:38
DEAR ALL 大大
1.如圖一程式會秀出於儲存格B4往下.
2.若我寫改 秀出於儲存格B4往右.該如何修改??
3.煩不 ...
rouber590324 發表於 2018-1-9 13:23
Range("B" & Z)儲存格的另一個表示方式為 CELLS(Z,"B") ，其中的B也可以用數字表示CELLS(Z,2)，
所以若是要B4向右的話，可以改寫為CELLS(4,Z)，Z為變數，每次+1 就會往右跑一格了。
作者:
rouber590324
時間:
2018-1-10 16:41
DEAR kim223824 大大
100%符合需求.THANKS*10000
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
