帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: vista
軟體版本: 1
閱讀權限: 10
註冊時間: 2011-8-11
最後登錄: 2011-8-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-13 10:58 | 只看該作者

請問迴圈問題

本帖最後由 gglan9 於 2011-8-14 04:55 編輯

Sub 迴圈()
'
' 迴圈  Macro

   For Each k In Sheets("sheelt1").Range("a:a")       '迴圈要連續處理處理sheelt1 A欄的儲存格

         Range("D1").Select =k .Value

                           Application.Run Macro:= "A"  '使用原本sheelt1裡的模組A
            Next
End Sub
請問我程式碼裡的錯誤要如何才能讓D1的值去重複讀取A欄的值往下
例如: A1到A1000

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-8-13 12:18 | 只看該作者

Sub yy()
For Each c In [a:a].SpecialCells(2)
[d1] = c
Next
End Sub

TOP

gglan9

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: vista
軟體版本: 1
閱讀權限: 10
註冊時間: 2011-8-11
最後登錄: 2011-8-23

3^#

發表於 2011-8-13 12:40 | 只看該作者

謝謝oobird
但我現在還有一個問題 A模組還是無法執行
請問如何執行A模組

TOP

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兔年全勤獎章

4^#

發表於 2011-8-13 14:10 | 只看該作者

回復 3# gglan9
Application.Run Macro:= "sheelt1.A" 使用原本sheelt1裡的巨集名稱A
Application.Run Macro:= "A" 一般模組的巨集名稱A

TOP

gglan9

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: vista
軟體版本: 1
閱讀權限: 10
註冊時間: 2011-8-11
最後登錄: 2011-8-23

5^#

發表於 2011-8-13 21:56 | 只看該作者

謝謝兩位大大的回覆
但我現在又有一個問題了
程式碼下
Sub yy()
For Each c In [A:A].SpecialCells(2)
      [D1] = c
               Application.c Now + TimeValue("00:00:30")
   Next
               Application.Run Macro:= "A"
End Sub

D1儲存格因連接到其它的工作表單為動態更新外部資料IQY
從A1讀取儲存格時因會出現一個重複迴圈而沒有停駐使查詢沒有傳回資料
請問如何從A1到D1時停駐一段時間後再去執行A2,A3,A4.............到A?儲存格
可用時間設定讓他去延長等待時間嗎?
謝謝

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-8-13 22:35 | 只看該作者

例如延10秒：Application.OnTime Now + TimeSerial(0, 0, 10),"Dosomething"

TOP

gglan9

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: vista
軟體版本: 1
閱讀權限: 10
註冊時間: 2011-8-11
最後登錄: 2011-8-23

7^#

發表於 2011-8-14 00:58 | 只看該作者

本帖最後由 gglan9 於 2011-8-14 02:02 編輯

我試過
Application.OnTime Now + TimeSerial(0, 0, 10), "Dosomething" '延長等待時間10秒
會顥示無法執行巨集 Excel 會無法關閉必需強制關閉
謝謝oobird

TOP

gglan9

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: vista
軟體版本: 1
閱讀權限: 10
註冊時間: 2011-8-11
最後登錄: 2011-8-23

8^#

發表於 2011-8-14 04:35 | 只看該作者

本帖最後由 gglan9 於 2011-8-14 06:10 編輯

試過
Application.OnTime Now + TimeSerial(0, 0, 10), "Dosomething" '延長等待時間10秒
如果巨集是在活頁簿裡會顥示無法執行巨集 Excel 會無法關閉必需強制關閉
======================================================================
而單獨寫成一個巨集可以執行

試過在迴圈裡讀取此巨集但D1裡資料會停在A1儲存格不用強制關閉excel
Application.Run Macro:= "A" 也沒有動作
也不會繼續往下讀取A欄裡的A2,A3,A4.............到A?儲存格
=================================================================
巨集裡的