1234
返回列表 上一主題 發帖

[發問] 將資料自動複製到，目前點選的所在頁面並自動選擇最後一行空白處貼上

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
27# 跳轉到 »
發表於 2015-5-12 16:16 | 只看該作者
本帖最後由 jackson7015 於 2015-5-12 16:17 編輯

回復 26# GBKEE

感謝GBKEE板大
原狀況排除了

但是又出了新狀況...
我的因為A4:AQ4都有值，所以我把[CTRL+↓]的指令改成從AQ4開始(End(xlUp)的意思應該是這樣沒錯吧?)
但是還出現問題
  1.     lTRow = wsTar.Cells(Rows.Count, 1).End(xlUp).Row
  2.     .Range([A5], .Cells(lSRow, [AQ4].Column)).Copy wsTar.Cells(lTRow, 1)
複製代碼
下面的列式有錯誤
  1.     .Range([A5], .Cells(lSRow, [AQ4].Column)).Copy wsTar.Cells(lTRow, 1)
複製代碼
再請前輩們分析看看
感謝~

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
26#
發表於 2015-5-12 15:48 | 只看該作者
回復 25# jackson7015
是這樣嗎?
  1. lSRow = .Cells(.Rows.Count, .[AQ1].Column).End(xlUp).Row ' 找末列
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
25#
發表於 2015-5-12 09:04 | 只看該作者
回復 24# luhpro

感謝luhpro大大的回覆

巨集卡在
  1. lSRow = .Cells(Rows.Count, [AQ1].Column).End(xlUp).Row ' 找末列
複製代碼
打開的全年度資料庫無誤
請問該如何排解?

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
24#
發表於 2015-5-8 23:53 | 只看該作者
想借提問固定檔案檔名的分頁資料複製問題
想從資料表"當月報表"中建立巨集，作用如 下
複製"當月報表"中的 ...
jackson7015 發表於 2015-5-7 08:29
  1. Sub nn()
  2.   Dim lSRow&, lTRow&
  3.   Dim sPath$
  4.   Dim bNFind As Boolean
  5.   Dim wsSou As Worksheet, wsTar As Worksheet
  6.   Dim wbSou As Workbook, wbTar As Workbook
  7.   
  8. sPath = ThisWorkbook.Path
  9. ChDrive sPath
  10. ChDir sPath
  11.   Set wbSou = ThisWorkbook
  12.   Set wsSou = wbSou.Sheets("綜合資料庫")
  13.   
  14.   bNFind = True
  15.   For Each wbTar In Workbooks ' 全年度資料庫 檔案是否已開啟
  16.     If wbTar.Name = "全年度資料庫.xls" Then
  17.       Set wsTar = wbTar.Sheets("綜合資料庫")
  18.       bNFind = False
  19.       Exit For
  20.     End If
  21.   Next
  22.   If bNFind Then ' 若檔案未開啟則開啟它
  23.     With Workbooks.Open("全年度資料庫.xls", , True)
  24.       Set wbTar = ThisWorkbook
  25.       Set wsTar = .Sheets("綜合資料庫")
  26.     End With
  27.   End If
  28.   
  29.   With wsSou
  30.     lSRow = .Cells(Rows.Count, [AQ1].Column).End(xlUp).Row ' 找末列
  31.     lTRow = wsTar.Cells(Rows.Count, 1).End(xlUp).Row
  32.     .Range([A5], .Cells(lSRow, [AQ1].Column)).Copy wsTar.Cells(lTRow, 1)
  33.   End With
  34. End Sub
複製代碼
有些指令並無必要性,
只是一併列出來相關物件可以用怎樣的指令來取得.

若有先執行底下這三行,
sPath = ThisWorkbook.Path
ChDrive sPath
ChDir sPath
則只需要將檔案都放在同個目錄下,
讀檔指令中可以不用再給路徑.

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
23#
發表於 2015-5-7 08:29 | 只看該作者
想借提問固定檔案檔名的分頁資料複製問題
想從資料表"當月報表"中建立巨集，作用如 下
複製"當月報表"中的[綜合資料庫]的A5:AQ有值的最後一行
到
"全年度資料庫"資料表的[綜合資料庫]中的A列有值的下一行(空白處)

想詢問前輩們，以上巨集要如何編寫比較正確
如果沒有打開檔案"全年度資料庫"，請問會自動打開嗎?

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
22#
發表於 2015-4-20 21:37 | 只看該作者
回復 21# PKKO


   感謝說明∼另外有個想法
我寫成一個檔案是固定檔名的好了，
例如這樣
固定（業務專用ｃ－客戶明細）　　　　不固定（客戶資料）　　讓固定（業務專用ｃ－客戶明細）可以去自己抓取不固定（客戶資料）內的第二個分頁第２行，會來貼在固定（業務專用ｃ－客戶明細）空白資料的最後一行
固定（業務專用ｂ－客戶明細）　　　　不固定（客戶資料）
固定（業務專用ａ－客戶明細）　　　　不固定（客戶資料）

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
21#
發表於 2015-4-20 00:33 | 只看該作者
回復 14# starry1314

不指定Workbooks代表使用目前的活頁簿

    Sheets("客戶明細").Rows(2).Copy'代表目前使用活頁簿的"客戶明細"分頁的第二列進行複製
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues'目前使用中的分頁,的最下方空白列貼上值
PKKO

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
20#
發表於 2015-4-19 21:37 | 只看該作者
回復 19# tyrone123456


    Sub test()


    Workbooks("紀錄表-基礎A").Sheets("客戶明細").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

End Sub

1.目前這樣在業務那個檔案會複製第一個SHEET的超連結過來到SHEET2的第一欄
2.如果再基礎那個那個檔案執行巨集的話會變成A2的超連結至A1.
可以在麻煩教我怎麼解決嗎|

TOP

tyrone123456

帖子
49 
主題
0 
精華
0 
積分
54 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-4-14 
最後登錄
2015-7-16 
19#
發表於 2015-4-19 20:52 | 只看該作者
就是Sheet的編號，因為你有使用For I = 2 to sheets.count，所以Sheets(I).name代表第I個Sheet的名字

For I = 2 To Sheets.Count
     ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
        Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
18#
發表於 2015-4-19 20:15 | 只看該作者
回復 16# tyrone123456


   想請問一下
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
裡面的(I) 代表的是?

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
1234
返回列表 上一主題