返回列表 上一主題 發帖

[發問] 資料BU欄秀出請教

[發問] 資料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

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 就會往右跑一格了。

TOP

DEAR  kim223824  大大
100%符合需求.THANKS*10000

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題