- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2010-12-30 17:03
| 只看該作者
本帖最後由 GBKEE 於 2010-12-30 17:05 編輯
回復 11# littlea
在VBA是窗中
Sub test()
排序
Dim d%
I = 17
Do
I = I + 1
Sheets("出貨通知單(範本)").Select
a$ = Cells(I, 1)
If a$ = "" Then Exit Do
Sheets("CL221").Select
J = 8
Do
J = J + 1
If Cells(J, 1) = "" Then Exit Do '這行如圖 按F9 設下 中斷點 中斷後 按F8逐行執行
Debug.Print Cells(J, 1) & ";" & a$ '這行可用 檢視-> 即時運算視窗 來查看變數值
If Cells(J, 1) = a$ Then
Sheets("出貨通知單(範本)").Select
P$ = Cells(I, 6)
d% = DialogSheets("請輸入編號").EditBoxes(1).Text
Sheets("CL221").Select
Cells(J, d% + 14) = P$
Exit Do
End If
Loop
Loop
End Sub
|
|
發表於 2010-12-30 13:56
| 
