- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2016
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2022-4-7
- 最後登錄
- 2022-4-7
|
EXCEL VAB問題
小弟首次在這版上發言，如果有解釋不清楚或者不對的地方再請包涵，
日前使用一個前輩做好的VBA，執行後顯示"執行階段錯誤13"，有高手可以幫忙看一下問題卡在哪裡嗎?程式碼如下：(標示顏色的是偵錯後顯示的)
Sub Update_費用工作底稿()
Dim Counter As Long
Dim myRecord(6) As Variant
Dim n As Long
Dim myLineNumber As Long
Dim ws As Worksheet
Dim SumBegin As String
Dim SumEnd As String
Set ws = ActiveSheet
Range("A9:F45").Select
Selection.ClearContents
Sheets("z2-DATABASE_SR_XMAST").Select
Range("A2").Select
Counter = 0
n = 0
myLineNumber = 0
Do Until IsEmpty(ActiveCell.Offset(Counter, 0).Value)
If UCase(ActiveCell.Offset(Counter, 0).Value) = UCase(ws.Range("N2")) Then
For n = 0 To 5
myRecord(n) = ActiveCell.Offset(Counter, n + 2).Value
Next
For n = 0 To 5
ws.Select
Range("A9").Select
ActiveCell.Offset(myLineNumber, n).Value = myRecord(n)
Next
myLineNumber = myLineNumber + 1
Sheets("z2-DATABASE_SR_XMAST").Select
Range("A2").Select
Else
End If
Counter = Counter + 1
Loop
ws.Select
Range("A9").Select
For n = 3 To 4
SumBegin = ActiveCell.Offset(0, n).Address
SumEnd = ActiveCell.Offset(myLineNumber + 1, n).Address
Next
End Sub |
|
發表於 2022-4-7 14:49
| 
