返回列表 上一主題 發帖

[發問] 請問如何連結並複製外部資料

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2011-11-3 21:37 | 顯示全部帖子
本帖最後由 luhpro 於 2011-11-3 21:55 編輯
1. 工作表(IQC查詢)這邊，如果再輸入新的要查詢資料的值，原本的欄位資料會被蓋掉，請問有什麼方法解決?
icefire722 發表於 2011-11-2 19:42

要讓它不覆蓋前查資料的方法我想到的有兩種:
1. 每次都找最後一行資料, 然後新增到其底下一行.(查詢資料列號會一直累加下去)
  1. Sub DateButton_Click()

  3. Dim srcRange As Range, fndRange As Range
  4. Dim fstAddress As String, CurRow As Long
  5. Sheets("IQC查詢").Select
  6. Set srcRange = Sheets("每日IQC").Range("A19").CurrentRegion.Columns(3)
  7. Set fndRange = srcRange.Find(what:=Range("B3").Value)
  8. If Not fndRange Is Nothing Then
  9.     fstAddress = fndRange.Address
  10.     CurRow = Cells(7, 1).End(xlDown).Row + 1
  11.     Do
  12.         Cells(CurRow, 1).Value = fndRange.Offset(, -2).Value
  13.         Cells(CurRow, 2).Value = fndRange.Offset(, 0).Value
  14.         Cells(CurRow, 3).Value = fndRange.Offset(, 2).Value
  15.         Set fndRange = srcRange.FindNext(after:=fndRange)
  16.     Loop Until fndRange.Address = fstAddress
  17. Else
  18.     MsgBox "無此批號!!"
  19. End If
  20. End Sub
複製代碼
2. 記錄最後一列列號, 每次新增後將該列號加1.(每次重開檔列號會重新從第7列開始)
  1. Public CurRow As Long
  2. Option Explicit

  4. Sub DateButton_Click()
  5. Dim srcRange As Range, fndRange As Range
  6. Dim fstAddress As String
  7. CurRow = CurRow + 1 - (CurRow < 6) * 6
  8. Sheets("IQC查詢").Select
  9. Set srcRange = Sheets("每日IQC").Range("A19").CurrentRegion.Columns(3)
  10. Set fndRange = srcRange.Find(what:=Range("B3").Value)
  11. If Not fndRange Is Nothing Then
  12.     fstAddress = fndRange.Address
  13.     Do
  14.         Cells(CurRow, 1).Value = fndRange.Offset(, -2).Value
  15.         Cells(CurRow, 2).Value = fndRange.Offset(, 0).Value
  16.         Cells(CurRow, 3).Value = fndRange.Offset(, 2).Value
  17.         Set fndRange = srcRange.FindNext(after:=fndRange)
  18.     Loop Until fndRange.Address = fstAddress
  19. Else
  20.     MsgBox "無此批號!!"
  21. End If

  23. End Sub
複製代碼
看看是否符合你的需求.

題外話 :
若需要用變數來存放列號以便使用時不建議用 Integer ,
因為它只能存到 32767 ,
距離舊版 Excel 的最大列號 65536 是不夠用的.

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題