- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
5#
發表於 2014-2-4 16:50
| 只看該作者
回復 4# pupai
新手常犯的錯誤
這Sub 巨集2() 是在工作表物件模組,但如 Sub 巨集2()在一般模組或ThisWorkbook,就沒有錯誤- Sub 巨集2()
- For i = 2 To 100
- Sheets("代碼").Select
- If Trim(Range("A" & i).Value) <> "" Then
- StockNo = Range("A" & i).Value
- Sheets("取得資料").Select
- Range("B1").Value = StockNo
- Application.Run "'董監持股分析.xls'!Sheet2.GetData"
- End If
- Next i
- '這裡沒錯誤*****************
- With Sheets("進階整理")
- .Select
- .Range("A46:M46").Select
- End With
- '*****************
-
- '''程式碼是在[代碼]工作表物件模組.....
- Sheets("進階整理").Select '將作用中的工作表移到 [進階整理]
- Range("A46:M46").Select '這裡的Range("A46:M46")是[代碼] 的Range
- '錯誤是不能在 [進階整理]中 指定[代碼]的Range為[進階整理]的作用中的範圍
- Selection.Copy
- Sheets("Sheet1").Select
- Rows("2:2").Select '同樣的錯誤
- Selection.Insert Shift:=xlDown
- Range("A2").Select '同樣的錯誤
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- End Sub
|
|
發表於 2014-2-4 14:51
| 
