關於連續執行

請問各位大大
如果我在a1~a10都有資料
然後想讓某一個巨集去跑a1~a10
但是不是每次a10都是最後一筆
請問這樣該怎麼寫vba呢

感謝你的指點

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2016-5-1 06:21 | 只看該作者

回復 1# vavashop

Dim lRow&
  lRow = 1
  While Cells(lRow, 1) <> ""

' 需要逐格處理的程序放在這裡

lRow=lRow+1
  Wend

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

3^#

發表於 2016-5-1 10:29 | 只看該作者

方法一：
Dim R&
R = Cells(Rows.Count, 1).End(xlUp).Row　'取得ａ欄最後一筆資料〔列號〕
For i = 1 To R
　　處理程序
Next

方法二：
Dim xR As Range
For Each xR In Range([A1], Cells(Rows.Count, 1).End(xlUp))
　　處理程序
Next

＿Cells(Rows.Count, 1).End(xlUp)　＞　取得ａ欄最後一筆資料〔儲存格〕　
　
　

TOP

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

4^#

發表於 2016-5-3 16:23 | 只看該作者

回復 3# 准提部林

大大可以請求協助一下這網站
http://www.twse.com.tw/ch/trading/fund/T86/T86.php

我原本的vba
可以抓取現在卻變成不行了

Sub 更新上市三大法人1_1()
'
' 巨集1 巨集
' 點選上市分頁再到清除上市融資再回到上市複製日期貼回上市融資 -->執行檔案下載
'

'
Dim xDate As Date, genpage As String, qdate As String, Print_php As String, Wb As Workbook

'1 如不可查詢當日三大法人買賣超日報
xDate = Date - 0  '0改為1變成前一天

Do While Weekday(xDate, vbMonday) >= 6
      xDate = xDate - 0  '0改為1變成前一天

Loop

'如於一定的時間後可查詢當日的三大法人買賣超日報
'請刪除 ** xDate = Date - 1 **

'2 執行下面的程式碼,取消註解 ** ' **

'If xDate = Date And Time < #5:00:00 PM# Then
' xDate = xDate - 1
'End If

For Each Wb In Workbooks
      If Trim(Wb.Name) = "print.php" Then Wb.Close False
      '下載CSV 的名稱為 Print_php 必先關閉
Next
genpage = Format(xDate, "yyyymm/yyyymmdd")
qdate = Format(xDate, "yyyymmdd")
Print_php = "http://www.twse.com.tw/ch/trading/fund/T86/print.php?edition=ch&filename=genpage/" _
         & genpage & "_2by_issue.dat&type=csv&select2=ALLBUT0999&qdate=" & qdate

   Set Wb = Workbooks.Open(Print_php)






End Sub

TOP

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

5^#

發表於 2016-5-3 17:03 | 只看該作者

感謝兩位大大
a1~a10的問題解決了

TOP