jackyq

因為 GoTo l01 看起來以為是 3各數字 101

但其實他是 GoTo  L01  (  L的小寫在 VBA IDE 下看起來根本就如同1, 因而誤以為真的是1  )

naruto018

回復 8# ziv976688

1.列358是下面這一行嗎?因為我執行時發生，錯誤不是出現在這一行

1. Sheets(1).[D2].NumberFormatLocal = "0.0%"

複製代碼

2.如果goto沒法用，你可以把那一段都變成註解就好了
使用編輯工具列的 "使程式行變為註解"，還原的話使用他右邊那個按鈕"使註解還原為程式"

下載 (4.49 KB)

2017-10-21 15:39

ziv976688

回復 11# jackyq
j大:您好!謝謝您的指導。可是改為line1,結果也是一樣^^"

ziv976688

回復 12# naruto018

1.   '機率表...........
   
2.                 Else
   
3. GoTo 101
   
4.                     Sheets.Add
   
5.                     ActiveSheet.Name = "機率表"
   
6.                     Sheets(1).Cells.RowHeight = 20 '列高
   
7.                     ActiveWindow.Zoom = 75 '縮放
   
8.                     Sheets(1).Range("B2").Select
   
9.                     ActiveWindow.FreezePanes = True
   
10.                     With Sheets(1).[A1:F50]
    
11.                         .HorizontalAlignment = xlCenter
    
12.                         .Font.FontStyle = "粗體"
    
13.                         .Font.Size = 14
    
14.                     End With
    
15.                     Sheets(1).[A1:F50].Font.Name = "Arial"
    
16.                     Sheets(1).[a1] = "推測數字"
    
17.                     Sheets(1).[A1:A50].Font.ColorIndex = 7
    
18.                     Sheets(1).[A1:A50].NumberFormatLocal = "00"
    
19.                     Sheets(1).[B1] = "次數"
    
20.                     Sheets(1).[B1:B50].Font.ColorIndex = 11
    
21.                     Sheets(1).[C1] = "中獎數字"
    
22.                     Sheets(1).[C1:C8].Font.ColorIndex = 3
    
23.                     Sheets(1).[C1:C8].NumberFormatLocal = "00"
    
24.                     Sheets(1).[D1] = "中獎機率"
    
25.                     Sheets(1).[D2] = "=Count(C2:C8)/Count(A2:A50)"
    
26.                     Sheets(1).[D1:D2].Font.ColorIndex = 3
    
27.                     Sheets(1).[D2].NumberFormatLocal = "0.0%"
    
28.                     Sheets(1).Range("D2").Borders.LineStyle = xlContinuous
    
29.                     n = 1: m = 1: o = 1
    
30.                     For i = 1 To 49
    
31.                         If Msrr(i) > 0 Then
    
32.                             n = n + 1
    
33.                             Sheets(1).Cells(n, "A") = i
    
34.                             Sheets(1).Cells(n, "B") = Msrr(i)
    
35.                             If Urr(i) > 0 Then Sheets(1).Cells(n, "A").Interior.ColorIndex = 4
    
36.                         End If
    
37.                         If Urr(i) > 0 Then
    
38.                             m = m + 1
    
39.                             Sheets(1).Cells(m, "C") = i
    
40.                         End If
    
41.                     Next
    
42.                         If Sheets(2).Range("H" & In2rr(numh) + 6) <> "" Then
    
43.                         'For Each a In Sheets(1).Range("C2:C8")
    
44.                         If a = "" Then Exit For
    
45.                         If Application.CountIf(Sheets(2).Range("H" & In2rr(numh) + 6), a) Then: a.Interior.ColorIndex = 8
    
46.                         'Next
    
47.                         End If
    
48.                     With Sheets(1).Range("C1:C" & m)
    
49.                         .Borders.LineStyle = xlContinuous
    
50.                     End With
    
51.                     With Sheets(1).Range("A1:B" & n)
    
52.                         .Borders.LineStyle = xlContinuous
    
53.                     End With
    
54.                     With Sheets(1)  '雙排序
    
55.                          .Columns("A:B").Sort Key1:=.[B2], Order1:=xlDescending, Key2:=.[a2], Order2:=xlAscending, Header:=xlGuess
    
56.                     End With
    
57.                     
    
58.                     Sheets(1).Columns("A:E").EntireColumn.AutoFit  '自動欄寬
    
59.                     Erase Msrr, Urr '清除機率表記錄
    
60.                     Sheets("機率表").Move
    
61.                     ActiveWorkbook.SaveAs mypath1 & "\49AC機_" & Numberx & "_" & Inlog(LOGN - 1) & "_" & In2rr(numh) & "-" & In1rr(N1 - 1) & ".xls"
    
62.                     ActiveWindow.Close
    
63. '.......................................................................
    
64.             
    
65. 101:

複製代碼

n大:您好!謝謝您的再次指導。目前小弟以TEST(1021)的測試狀況是:
在Else(列208)下方插入GoTo 101(列209),在列271插入101:測試=>會停在列249  For Each a In Sheets(1).Range("C2:C8")
表示列210~列268的程式碼還是有被執行。
將列249和列252 Next 點綠不執行=>就OK的

但事實上列210~列268的程式碼還是有被執行。

PS:代碼列2=範例檔列208；代碼列65=範例檔列279

範例檔:
TEST(1021).rar (50.36 KB)

下載次數: 1

2017-10-21 18:54

naruto018

回復 14# ziv976688
1.你覺得goto沒被使用的原因是因為跳出錯誤顯示位置程式碼要跳過的地方
其實程式碼是有被跳過的，但因為程式也檢查是否有錯誤

2.你錯誤地方
因為你這個迴圈變數跟你上一層迴圈的變數一樣

1. For Each a In Sheets(1).Range("C2:C8")
   
2.   If a = "" Then Exit For
   
3. '-------改成下面
   
4. For Each a1 In Sheets(1).Range("C2:C8")
   
5.   If a1 = "" Then Exit For

複製代碼

ziv976688

回復 15# naruto018
n大:您好!
小弟知道~但還是謝謝您的提醒^^

可能大家都誤解小弟這個提問的主軸了!?
我的問題重點是在GoTo的用法:
是不是在程式碼的任意處插入GoTo 101[/b]............101:，
則.............的程式碼就會跳過不執行!?
如果是的話，那...........的內容就不應該會影響執行的過程才對；
如果不是的話，那就表示GoTo的用法有限制或規範，EX:GoTo不是在程式碼的任意處插入即可。

所以~小弟本題的需求是想藉由各位高手的正確和不對之實例(不一定是要以小弟貼上的範例)指導，學習GoTo的正確用法^^

naruto018

回復 16# ziv976688

下面舉個範例：
text1只會跳出1和3的視窗，不會出現2
text2中加入有錯誤的地方，1的視窗出現，2還是被跳過，程式會出現要被跳過的部分中有錯誤

1. Public Sub text1()
   
2. MsgBox "1"
   
3. GoTo 101
   
4. MsgBox "2"
   
5. 101:
   
6. MsgBox "3"
   
7. End Sub
   
8. 
   
9. Public Sub text2()
   
10. MsgBox "1"
    
11. GoTo 101
    
12. MsgBox "2"
    
13. AAA = Max(Range("A1:A3")) '<---------故意在程式碼中寫錯
    
14. 
    
15. 101:
    
16. MsgBox "3"
    
17. End Sub

複製代碼

ziv976688

回復 17# naruto018
以您的範例(或是我爬文時所見到的幾個範例)來說:似乎是GoTo 在任意處插入即可!

但為何在我的範例中，卻必須將欲跳過不執行的程式碼中之錯誤修正後，才能正常執行程式碼?
這樣豈不是代表我插入的GoTo 並沒有起作用(失效)!

問題重點:我插入的GoTo 無效的原因為何?
謝謝您^^

jcchiang

回復 18# ziv976688
程式內容錯誤,在程式執行開始時都會有警訊,與Goto指令無關
所以必需要修正正確才能繼續程式的執行

ziv976688

回復 19# jcchiang
j大:早安!
原來如此!怪不得改用Stop指令在錯誤碼之前測試，結果也是一樣，要先修正錯誤碼，才能停止執行程式。
瞭解了!謝謝您^^