請幫忙翻譯一下程式

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-8 10:22 | 只看該作者

請幫忙翻譯一下程式

有兩個excel，分別是a.xlsx 和b.xlsx
我想在a.xlsx些vba, 讀取b.xlsx的資料。
請問我應該如何寫
for i = b.xlsx的最後一筆 to 1
因為我想用b.xlsx最後一欄開始往上檢查a.xlsx
但不知道怎樣寫才可以知道b.xlsx的最後一筆

Sub ex()
Dim FRng As Range
Dim A As Range, Rng As Range
  fs = "c:\user\destop\b.xlsx"
'fs = ThisWorkbook.Path & "\b.xlsx"
set wb = Workbooks.Open(fs)
   Set FRng = wb.Sheets("sheet1").Range("k:k").Find(today(), lookat:=xlWhole, SearchDirection:=xlPrevious) 在b.xlsx 的K欄尋找等當日的日期的一列
   If Not FRng Is Nothing Then 假如找到
      If FRng.Offset(, -3).Value >= 0.95 Then 假如b.xlsx 這列的H欄的值大過或等於0.95
set rng = workbooks(a).range("a:a").find(Frng.offset(,-9), lookat:=xlWhole, SearchDirection:=xlPrevious)    在a.xlsx 的A欄尋找b.xlsx 這列的B欄的值是否存在
If FRng Is Nothing Then  假如找不到
            在a.xlsx 的A欄最後一列加上b.xlsx 這列的B欄的值，及在a.xlsx 的F欄最後一列加上b.xlsx 這列的K欄的值

end sub

樓主熱帖

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^#

發表於 2012-12-8 11:20 | 只看該作者

回復 1# 198188

Option Explicit
Sub Ex()
Dim fs As String, xi As Integer
fs = "c:\user\destop\b.xlsx"
'fs = ThisWorkbook.Path & "\b.xlsx"
'Set wb = Workbooks.Open(fs)
'With Wb.Sheets("sheet1")
With Workbooks.Open("d:\book1.xls").Sheets("sheet1")
For xi = .UsedRange.Cells(.UsedRange.Count).Row To 1 Step -1
'由小到大:不必 Step 但如要間隔執行如: Step 5
MsgBox .UsedRange.Cells(xi, "A").Address 'A欄
Next
End With
End Sub

複製代碼

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

3^#

發表於 2012-12-8 11:59 | 只看該作者

回復 2# GBKEE

Sub ex()
Dim FRng As Range
Dim A As Range, Rng As Range
Dim fs As String, xi As Integer
fs = "C:\Documents and Settings\USER\桌面\b.xlsx"
  set wb = Workbooks.Open(fs)
   Set FRng = wb.Sheets("sheet1").Range("k:k").Find(today(), lookat:=xlWhole, SearchDirection:=xlPrevious) 在b.xlsx 的K欄尋找等當日的日期的一列
      If Not FRng Is Nothing Then 假如找到
      If FRng.Offset(, -3).Value >= 0.95 Then 假如b.xlsx 這列的H欄的值大過或等於0.95
  set rng = workbooks(a).range("a:a").find(Frng.offset(,-9), lookat:=xlWhole, SearchDirection:=xlPrevious)    在a.xlsx 的A欄尋找b.xlsx 這列的B欄的值是否存在
      If FRng Is Nothing Then  假如找不到
      With Workbooks.Open("a.xlsm").Sheets("outstanding payments") 在a.xlsx 的A欄最後一列加上b.xlsx 這列的B欄的值，及在a.xlsx 的F欄最後一列加上b.xlsx 這列的K欄的值
         xi = .UsedRange.Cells(.UsedRange.Count).Row
         .UsedRange.Cells(xi, "A") = FRng.offset(, -9).value
         .UsedRange.Cells(xi, "F") = FRng.value
      End With
      End If
   End If
End If
End Sub

請問程式文化有問題嗎？

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^#

發表於 2012-12-8 12:55 | 只看該作者

回復 3# 198188
是文法不是文化.
當日的日期: today()這是工作表函數 ,VBA -> Date

Option Explicit
Sub ex()
Dim FRng As Range, Wb As Workbook
Dim A As Range, Rng As Range
Dim fs As String, xi As Integer
fs = "C:\Documents and Settings\USER\桌面\b.xlsx"
Set Wb = Workbooks.Open(fs)
Set FRng = Wb.Sheets("sheet1").Range("k:k").Find(Date, lookat:=xlWhole, SearchDirection:=xlPrevious) '在b.xlsx 的K欄尋找等當日的日期的一列
If Not FRng Is Nothing Then '假如找到
If FRng.Offset(, -3).Value >= 0.95 Then '假如b.xlsx 這列的H欄的值大過或等於0.95
'*** Workbooks(A)-> A這變數字串沒有見到 ****
Set Rng = Workbooks(A).Range("a:a").Find(FRng.Offset(, -9), lookat:=xlWhole, SearchDirection:=xlPrevious) ' 在a.xlsx 的A欄尋找b.xlsx 這列的B欄的值是否存在
If FRng Is Nothing Then '假如找不到
With Workbooks.Open("a.xlsm").Sheets("outstanding payments") ' 在a.xlsx 的A欄最後一列加上b.xlsx 這列的B欄的值，及在a.xlsx 的F欄最後一列加上b.xlsx 這列的K欄的值
xi = .UsedRange.Cells(.UsedRange.Count).Row
.UsedRange.Cells(xi, "A") = FRng.Offset(, -9).Value
.UsedRange.Cells(xi, "F") = FRng.Value
End With
End If
End If
End If
End Sub

複製代碼

ps: 回覆時按下[代碼] 將程式碼內容貼上,提交,即可便於查看者,複製程式碼.

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

5^#

發表於 2012-12-8 14:44 | 只看該作者

回復 4# GBKEE

請問除了Today的語法有問題外,還有沒有其他地方有語法問題?

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

6^#

發表於 2012-12-8 14:49 | 只看該作者

回復 5# 198188
執行上: 有錯誤嗎? 沒有得到你的期望嗎?
沒錯誤,有得到你的期望,那還有什麼??

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

7^#

發表於 2012-12-8 15:12 | 只看該作者

回復 6# GBKEE

還沒試!因為我在外面用手機上網無法測試!雖然明白概念但因為自己語法能力弱,難以表達,所以先問清楚,回去試可以輕鬆些

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

8^#

發表於 2012-12-8 22:51 | 只看該作者

回復 4# GBKEE

桌面.rar (473.14 KB)

只是打開了另外一個Excel，其他完全沒有反應。
是不是有那些地方出錯了？

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2012-12-9 08:23 | 只看該作者

回復 8# 198188
請檢查 fs = "C:\Documents and Settings\USER\桌面\b.xlsx"
USER 是誰，它僅是提醒你那指的是操作使用者，當然你就得換上正名了！

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

10^#

發表於 2012-12-9 09:20 | 只看該作者

本帖最後由 198188 於 2012-12-9 09:22 編輯

回復 9# c_c_lai

C:\Documents and Settings\USER\桌面
我是用user的名稱來命名這台電腦，所以這句沒錯。
我要開的另一個excel （b.xlsx）是打開了，但是執行沒有什麼做出來