請幫忙翻譯一下程式

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2012-12-12 00:55 | 顯示全部帖子

本帖最後由 stillfish00 於 2012-12-12 00:57 編輯

回復 19# 198188
1. 你的code是放在哪個檔案?
2. 第22行:  Set Rng = Workbooks("outstanding payments").Sheets("outstanding payments").Range("a:a").Find(FRng.Offset(, -9), lookat:=xlWhole, SearchDirection:=xlPrevious)
   改outstanding payments.xlsm
3.  第26行:  With Workbooks.Open("outstanding payments.xlsm").Sheets("outstanding payments")
   改用完整路徑看看
4. 程式不如預期 , 可以學習下中斷點或逐行跑 , 搭配區域變數視窗&即時運算視窗 , debug會更有效率

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2012-12-12 11:05 | 顯示全部帖子

本帖最後由 stillfish00 於 2012-12-12 11:07 編輯

回復 21# 198188
1. 程式放在outstanding payments.xlsm這個檔案
   表示  執行時outstanding payments.xlsm已經開啟
   那麼  26行又用Workbooks.Open再開啟一次就沒有必要啦
3.  我原本的意思是改成With Workbooks.Open("C:\user\destop\outstanding payments.xlsm").Sheets("outstanding payments")
   但既然沒必要再開啟一次 ,
   改為With Workbooks("outstanding payments.xlsm").Sheets("outstanding payments")
   或省略為With Sheets("outstanding payments")就好了

同時要知道A.xlsx 和B.xlsx的最後一筆應該如何寫?
   寫法很多種 , 只舉例其中一種
   檔案已開啟的情況下A.xlsx的最後一筆
   With Workbooks("A.xlsx" ).Worksheets("Sheet1") 指定"A.xlsx"工作簿的"Sheet1"工作表
      Msgbox .Range("A" &  .rows.count).end(xlup).value
   End With
   A和B寫法是一模一樣 , 只是若你程式是寫在 A.xlsx 時
   Workbooks("A.xlsx" ).Worksheets("Sheet1")  可以省略成  Worksheets("Sheet1")
   Workbooks("B.xlsx" ).Worksheets("Sheet1")  則不能省略

如何讓電腦識別那句語法是使用那個excel的資料
   語法前的Workbooks("A.xlsx" )就是指定那個EXCEL
   如同你程式14行寫的Wb也是指定該EXCEL阿

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2012-12-12 13:37 | 顯示全部帖子

回復 24# 198188
不是 , 應該是
i =  Worksheets("Sheet1").Range("A" &  Worksheets("Sheet1").rows.count).end(xlup).value  + 1
或寫成
with Worksheets("Sheet1")
   i =  .Range("A" &  .rows.count).end(xlup).value  + 1
end with

另外 .value  是儲存格內的值
.row才是列號(第幾列)

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2012-12-12 15:23 | 顯示全部帖子

回復 26# 198188
對的

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2012-12-13 17:36 | 顯示全部帖子

回復 28# 198188
最簡單的方法就是15行底下加上ThisWorkbook.Activate ,
或你都改成寫 ThisWorkBook.Worksheets("New form of payment report") 也可以
因為 Workbooks.Open 會改變當前作用中的活頁簿
我寫了code測試

'Codes In a.xlsm
Sub test() Dim wb, fstr As String
fstr = "C:/b.xlsm"
Set wb = Workbooks.Open(fstr)
Debug.Print ThisWorkbook.Name 'will print a.xlsm
Debug.Print ActiveWorkbook.Name 'will print b.xlsm
Debug.Print Sheets.Parent.Name 'will print b.xlsm
wb.Close 0
End Sub

複製代碼

我發覺我前面(#22)說的好像也不完全正確
不是以Code寫在哪來區別能不能省略
應該更正為:
使用WorkSheets/Sheets語法前面沒指定活頁簿時 ,
會自動使用當時Active的活頁簿底下的WorkSheet