帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-22 12:05 | 只看該作者

[發問] 迴圈問題

本帖最後由 spermbank 於 2013-11-22 12:07 編輯

大家好:
   Sheets("工作表1").Select
   x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
   假設X=10
   for i = 3 to x
   next
   可以執行
   for i = x to 3
   next
   為什麼不能執行，有什麼方式可以使這個迴圈正常執行呢?

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-11-22 12:30 | 只看該作者

回復 1# spermbank
你沒有常瀏覽討論區的內容,(多多瀏覽,功力才能升級)

X=10
for i = 3 to x
next
for i = x to 3 STEP -1
next

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

3^#

發表於 2013-11-22 12:42 | 只看該作者

本帖最後由 spermbank 於 2013-11-22 12:43 編輯

回復 2# GBKEE

G大，感謝。
我會慢慢學習瀏覽，現在都花在想策略上><
感謝

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2013-11-22 12:45 | 只看該作者

回復 1# spermbank

for 在你沒有指定的情形下，都是從小到大去執行的，
所以你只要x比後面的數值大，就不會動，
因此要在後面加個 step -1，
step表示數值每次跳的間隔。

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2013-11-22 17:32 | 只看該作者

回復 1# spermbank

x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算

看大家比較常用的方法是
x = [A65536].End(xlUp).Row 'A欄最後一個資料的列號

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

6^#

發表於 2013-11-23 00:18 | 只看該作者

回復 spermbank

x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算

看大 ...
ML089 發表於 2013-11-22 17:32

Counta 有一個條件是的要看看欄位上不能有空值出現, 出現的話會少算了.

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

bmouth

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2013-11-22
最後登錄: 2013-11-24

7^#

發表於 2013-11-23 11:02 | 只看該作者

有更簡單的：

x = Sheets("工作表1").UsedRange.Rows.Count

不過只會回總共行數，如果開頭是空白的則不會計算進去。

你好

TOP

bmouth

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2013-11-22
最後登錄: 2013-11-24

8^#

發表於 2013-11-23 11:04 | 只看該作者

  Sheets("工作表1").Select
   x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
   假設X=10
   for i = 3 to x
   next
   可以執行
   for i = x to 3
   next

可以改成：

Sheets("工作表1").Select
total = ActiveSheet.UsedRange.Rows.Count
start = 3
For i = total+start To start Step -1
'執行
Next

複製代碼

你好

TOP