[發問] 物件省略的加&quot;.&quot;與不加問題

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

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

12^#

發表於 2011-12-20 14:44 | 只看該作者

回復 11# thps51134
Option Explicit 陳述式在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
如圖

迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
程式碼是沒問題的要看看檔案內容

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

11^#

發表於 2011-12-20 10:42 | 只看該作者

本帖最後由 thps51134 於 2011-12-20 10:47 編輯

回復 10# GBKEE

　想請教您code中兩列的意義
1. 第一列 "Option Explicit"

2. 第11列 "NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1)"
　　迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
　　每次於新檔案貼上都是貼在同一列Q_Q

'自己改寫的迴圈內; 第九列執行有問題'
For i = 22 To RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If Cells(i, 3).Value = "BU5" Then
If NewSh.Cells(2, 1) = "" Then '因為Cells(1,1)都為空, 所以換了別格
Range(Cells(i, 1), Cells(i + 1, 2)).EntireRow.Copy NewSh.Rows(1)
'新檔案最後一列後
'因為前面沒看到newbo所以換成NewSh...不知道有沒有誤會'
Else
Range(Cells(i, 1), Cells(i + 1, 3)).EntireRow.Copy NewSh.Cells(Rows.count, "A").End(xlUp).Offset(1) '新檔案最後一列
End If
End If
Next i

複製代碼

謝謝!

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

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

10^#

發表於 2011-12-15 17:51 | 只看該作者

回復 9# thps51134

Option Explicit
Sub Ex()
Dim NewSh As Worksheet
With Workbook("Test.xls").Sheets(1)
Set NewSh = Workbooks.Add.Sheets(1) '變數指定為新增活頁簿的Sheets(1)
For i = 1 To RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If 條件 = True Then
If NewSh.Cells(1) = "" Then 'A1=""
Rows(i).Copy newbo.Rows(1) '新檔案最後一列後
Else
Rows(i).Copy NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1) '新檔案最後一列
End If
End If
Next
NewSh.Parent.SaveAs "資料夾\檔案名稱" '新增的活頁簿存檔
End With
End Sub

複製代碼

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

9^#

發表於 2011-12-14 17:16 | 只看該作者

回復 8# GBKEE

想用VBA做的事：
　　 1. 將Test.xls表格檔頭複製到新開的檔案
　　2. 回到舊檔案(Test.xls), 對Row data作逐列判斷
　　　　符合=> Copy該row到新檔案最後一列後
　　　　不符=> 到下一列判斷
這邊不知道該如何在兩個Workbook中切換才好
=====

其實很想知道如何做完所有copy動作再存檔
　可是不知道該如何寫For loop中的
with "剛剛新增的workbook"　
如果直接 with workbook.add怕一次loop就新開一個workbook ...@@

謝謝!

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

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

8^#

發表於 2011-12-14 16:19 | 只看該作者

本帖最後由 GBKEE 於 2011-12-14 16:48 編輯

回復 7# thps51134
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A -> .Range(範圍)複製(全部)到變數物件A
若設" .Range(.Cells(1, 1), .Cells(4, 72))" 為B-> B.Copy A
還是說建議強制先替使用者將新add 的 workbook存檔,再將它叫出來?
應是做完COPY 再存檔

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

7^#

發表於 2011-12-14 15:16 | 只看該作者

回復 6# GBKEE

抱歉未及時回覆
感謝兩位... (羞愧掩面)
　竟然眼花當錯誤

想繼續向諸位請教
1. 在第四行中的" .Range(.Cells(1, 1), .Cells(4, 72)).Copy A "的意義為何?

With Workbooks.Add
Set A = .Sheets(1).Cells(1, 1) '指定新活頁簿的第一個工作表A1
With Workbooks("Test.xls").Sheets(1)
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A '複製TEST.XLS的第一張工作表部分範圍到新活頁簿中
End With
End With

複製代碼

若設" .Range(.Cells(1, 1), .Cells(4, 72))" 為B
B.Copy A 是 "copy B to A"嗎?

2. 若想另外在"Test.xls"作逐行判斷
令結果= true的該列copy to 新開的Workbook
自己腦袋裡的概念像這樣...

With Workbook("Test.xls").Sheets(1)
for i = 1 to RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If true then
Rows(i).copy
With 剛剛新開的workbook
'將於Workbook("Test.xls").Sheets(1)中copy的Row
'paste在 New Workbook的最後一列之後
End With
End if
Next i
End With

複製代碼

還是說建議強制先替使用者將新add 的 workbook存檔
再將它叫出來?

感謝!

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

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

6^#

發表於 2011-12-7 16:23 | 只看該作者

本帖最後由 GBKEE 於 2011-12-7 16:35 編輯

回復 5# thps51134
視窗 Windows沒有Sheets(1)有ActiveSheet
視窗 With Windows ("test.xls").Sheets(1) 改為 -> 活頁簿 With WorkBooks("test.xls").Sheets(1)

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

5^#

發表於 2011-12-7 15:21 | 只看該作者

本帖最後由 thps51134 於 2011-12-7 15:23 編輯

回復 4# Hsieh

Sub NewMethod()
With Workbooks.Add
Set A = .Sheets(1).Cells(1, 1) '指定新活頁簿的第一個工作表A1
With Windows("test.xls").Sheets(1)
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A '複製TEST.XLS的第一張工作表部分範圍到新活頁簿中
End With
End With
End Sub

複製代碼

偵錯時highlight說在第4行發現問題
還是說, 會不會我改到了什麼設定?
===
其實用.select是因為
使用錄製巨集時跑出的Code 為需要用到Activate的
改來改去就成了現在的樣子

真的很想省掉
Hsieh大給了我一個很棒的方向~

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-12-7 13:42 | 只看該作者

本帖最後由 Hsieh 於 2011-12-8 08:34 編輯

回復 3# thps51134
你試過可以直接給值是可以執行的
所以應該會發現是Select造成的錯誤
試著不要使用SELECT，也可避免無謂的螢幕更新
With Workbooks.Add
   Set A = .Sheets(1).Cells(1, 1) '指定新活頁簿的第一個工作表A1
   With Workbooks("Test.xls").Sheets(1)
      .Range(.Cells(1, 1), .Cells(4, 72)).Copy A '複製TEST.XLS的第一張工作表部分範圍到新活頁簿中
   End With
End With

學海無涯_不恥下問