[發問] 沒辦法正常執行模組

pupai

請教版大
我在檔案中錄製了一段「模組2」
當我執行「模組2」時,程式中途就會自己跑去模組1,
但我不知道要如何修改,才可以單獨正常執行「模組2」
感恩謝謝

GBKEE

回復 1# pupai
它有正常執行
Sheets("進階整理").[B2:M2]的公式=trans2mon(INDIRECT(ADDRESS(221 - (COLUMN() - 2)  * 20,1,1,1,"近一年資料"),1))
因你按F8逐行執行會看到函數trans2mon的執行
按F5就看不到

pupai

回復 2# GBKEE


了解   
感謝 感謝版大

pupai

回復 2# GBKEE


    請教版大
我想把「模組2」放在「巨集2」理面一次執行完畢
但程式有錯不能執行
謝謝!!

1. Sub 巨集2()
   
2. '
   
3. '
   
4. For i = 2 To 100
   
5.     Sheets("代碼").Select
   
6.     If Trim(Range("A" & i).Value) <> "" Then
   
7.     StockNo = Range("A" & i).Value
   
8.             
   
9.     Sheets("取得資料").Select
   
10.    
    
11.     Range("B1").Value = StockNo
    
12.    
    
13.     Application.Run "'董監持股分析.xls'!Sheet2.GetData"
    
14.    
    
15.    
    
16.    
    
17.     End If
    
18. Next i
    
19. 
    
20.     Sheets("進階整理").Select
    
21.     Range("A46:M46").Select
    
22.     Selection.Copy
    
23.     Sheets("Sheet1").Select
    
24.     Rows("2:2").Select
    
25.     Selection.Insert Shift:=xlDown
    
26.     Range("A2").Select
    
27.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
28.         :=False, Transpose:=False
    
29. End Sub

複製代碼

GBKEE

回復 4# pupai
新手常犯的錯誤
這Sub 巨集2() 是在工作表物件模組,但如 Sub 巨集2()在一般模組或ThisWorkbook,就沒有錯誤

1. Sub 巨集2()
   
2. For i = 2 To 100
   
3.     Sheets("代碼").Select
   
4.     If Trim(Range("A" & i).Value) <> "" Then
   
5.     StockNo = Range("A" & i).Value
   
6.     Sheets("取得資料").Select
   
7.     Range("B1").Value = StockNo
   
8.     Application.Run "'董監持股分析.xls'!Sheet2.GetData"
   
9.     End If
   
10. Next i
    
11. '這裡沒錯誤*****************
    
12.     With Sheets("進階整理")
    
13.         .Select
    
14.         .Range("A46:M46").Select
    
15.     End With
    
16. '*****************
    
17.   
    
18.   '''程式碼是在[代碼]工作表物件模組.....
    
19.     Sheets("進階整理").Select  '將作用中的工作表移到 [進階整理]
    
20.     Range("A46:M46").Select    '這裡的Range("A46:M46")是[代碼] 的Range
    
21.     '錯誤是不能在 [進階整理]中 指定[代碼]的Range為[進階整理]的作用中的範圍
    
22.     Selection.Copy
    
23.     Sheets("Sheet1").Select
    
24.     Rows("2:2").Select          '同樣的錯誤
    
25.     Selection.Insert Shift:=xlDown
    
26.     Range("A2").Select          '同樣的錯誤
    
27.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
28.         :=False, Transpose:=False
    
29. End Sub

複製代碼

pupai

回復 5# GBKEE


    下次 我看工具書會
會註意在工作表物件模組,與一般模組的差別
謝謝版大的叮嚀