- 帖子
- 53
- 主題
- 11
- 精華
- 0
- 積分
- 75
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-3-20
- 最後登錄
- 2025-4-7
|
[發問] VBA 表格內某格數值等於其他EXCEL檔
- Private Sub CommandButton1_Click()
- Dim a As Integer, i As Integer
- Dim b As Integer
- Dim c As Variant
- Dim d As Variant
- Dim E As Variant
- IA = 7000
- IB = 3
- IC = 10
-
-
- Do
- If Sheets("製造單").Range("E" & IB) <> "" Then
- IB = IB + 1
- End If
- Loop While Sheets("製造單").Range("E" & IB) <> ""
-
-
- AGO:
- IC = IC + 1
- Do
-
- d = Sheets("製造單").Range("D" & IB)
- Set c = Sheets("客戶").Range("B11:B" & IC).Find(What:=d, LookIn:=xlFormulas, _
- LookAt:=1, SearchOrder:=2, SearchDirection:=xlNext, _
- MatchCase:=False, MatchByte:=False, SearchFormat:=True)
- If IC = IA Then
- Sheets("製造單").Range("E" & IB) = "未命名"
- GoTo STAR
- End If
-
- If c Is Nothing Then
-
- GoTo AGO
- Else
-
- ' IA = IC - 1
- Sheets("製造單").Range("E" & IB) = Sheets("客戶").Range("H" & IC)
- End If
- STAR:
- IB = IB + 1
- IC = 11
-
- Loop While Sheets("製造單").Range("D" & IB) <> ""
- End Sub
要如何叫阿?? |
|
發表於 2012-5-3 16:00
| 
