返回列表 上一主題 發帖

[發問] 迴圈跑不停的問題

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-10-27 00:51 | 只看該作者

[發問] 迴圈跑不停的問題

附件： 7C_3Stage-0-7(主檔).rar (98.12 KB)
Drr = Sheets("DATA").Range([DATA!P1], [DATA!Q65536].End(3)) '列6
For ii = 2 To UBound(Drr)
   
    StrRng = "1" ' InputBox("請輸入DATA!各搜尋比對的起始期數", "輸入期數")
    Nrange = "1903" ' InputBox("請輸入DATA!各搜尋比對的迄止(開獎)期數", "輸入期數")
    num = "50" 'InputBox("請輸入效果檔A︰H複製的期距數範圍", "輸入距期數")
    'RrngA = InputBox("請輸入各第一個比對的基準期數", "輸入第一個期數")
    RrngA = Drr(ii, 1)    '列13
    CrngA = "10" 'InputBox("請輸入各""第一個""比對的欄位數識別碼", "輸入識別碼(10~60)")
    'RrngB = InputBox("請輸入各第二個比對的基準期數", "輸入第二個期數或不輸入(按Enter)")
    RrngB = Drr(ii, 2)    '列16

    CrngB = "10" 'InputBox("請輸入各""第二個""比對的欄位數識別碼", "輸入識別碼(10~60)或不輸入(按Enter)")
    Order = "0"  'InputBox("請輸入增加的邏輯條件條件之起迄序號", "輸入序號(1~99)或不增加(按Enter)")
    Number = "1-49" ' InputBox("請輸入各指定的相同號碼", "輸入號碼(1~49)")
    Ncount = "1" ' InputBox("請輸入驗證版的連續次數", "輸入次數(1~10)")
                  ：
                  ：
                  ：
Next ii    '列823

問題：
應該只要跑出 7C_0_1903期_50_1898_10+1897_10_1次_1-49 的資料夾(以下簡稱A資料夾)即可；
但卻多跑出  7C_0_1903期_50__10_1次_1-49的資料夾(以下簡稱B資料夾)~
且B資料夾一直不停止的重複產生與A資料夾內的相同內容。

請問：要如何停止多餘的迴圈？
謝謝！
收藏 分享

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2021-10-27 08:37 | 只看該作者
回復 2# samwang
Q3~Q50有看不見的資料，游標放在Q2，然後Ctrl+下箭頭會直接跑到Q9，在按一次就到Q50，
學到檢視儲存格有無隱藏資料的技巧~
感謝您細心的檢視問題之所在和耐心指導~感恩

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
2#
發表於 2021-10-27 07:37 | 只看該作者
回復 1# ziv976688

Q3~Q50有看不見的資料，游標放在Q2，然後Ctrl+下箭頭會直接跑到Q9，在按一次就到Q50，
正常如果中間都是空白要應該到最後一列65536，所以Drr可以改為由上往下，謝謝
Drr = Sheets("DATA").Range([DATA!P1], [DATA!Q1].End(4))  '列6

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題