返回列表 上一主題 發帖

版次變更問題

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-9-6 06:36 | 顯示全部帖子
回復 14# sheau-lan


    可以麻煩附上檔案嗎?
依照 版次.rar 裡面沒有可以填寫查詢的地方。
都是依照 版次紀錄 將結果回傳到 最新版次，
並只紀錄C欄位最後1次紀錄，跟D欄位最後1次紀錄。
所以您指的"查無資料"是要新增查詢功能?
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-9-9 22:02 | 顯示全部帖子
回復 16# sheau-lan


    還是看不太懂...
你指的查詢是最新版次這個活頁簿嗎?
程序註解:
  1. Private Sub CommandButton1_Click()
  2. LR = Sheet2.[a65536].End(3).Row '讀取"版次紀錄"全部資料數為多少筆
  3. If LR = 1 Then LR = 2 '如果只有一筆，就計算成2
  4. LR2 = Sheet3.[a65536].End(3).Row '讀取"最新版次"全部資料有多少筆
  5. If LR2 = 1 Then LR2 = 2 '如果只有一筆，就計算成2
  6. Range("a2:d" & LR2).Value = "" '清空A2到D的LR2範圍"最新版次"所有資料
  7. For Each MRN In Sheet2.Range("A2:a" & LR) '迴圈"版次紀錄"中從A2開始往下範圍所有資料
  8.   If Application.CountIf(Sheet2.Range("A2:A" & MRN.Row), MRN) = _
  9.       Application.CountIf(Sheet2.Range("A:A"), MRN) Then '如果MRN變數中有兩筆以上時執行最後一筆，其它跳過
  10.       [a65536].End(3).Offset(1, 0) = MRN.Value 'MRN的值在a65536儲存格往上遇到有值得儲存格後往下一格填入
  11.       [a65536].End(3).Offset(0, 1) = 1 '同上往右填入1
  12.   End If
  13. Next

  15. For Each mrn2 In Range("a2:a" & LR2) '迴圈當前活頁簿A2到A的LR2儲存格全部資料
  16.    B = 1 '用於計算迴圈次數，迴次迴圈到此重新為1
  17.    For i = 2 To LR '迴圈次數2開始到LR的值，LR為讀取"版次紀錄"全部資料數為多少筆
  18.      
  19.      If Sheet2.Cells(i, 1).Value = mrn2 And Sheet2.Cells(i, 2) <> "" Then '如果當前"版次紀錄"A欄與迴圈"最新版次"相同並B欄不為空白執行
  20.         mrn2.Offset(0, 2) = Sheet2.Cells(i, 2) '將"版次紀錄"當前B欄值填入"最新版次"往右第二格
  21.         B = B + 1 '執行過紀錄B+1
  22.         mrn2.Offset(0, 1) = B '紀錄該芳生圖號執行過幾次，等於版次多少
  23.      End If
  24.      If Sheet2.Cells(i, 1).Value = mrn2 And Sheet2.Cells(i, 3) <> "" Then '如果當前"版次紀錄"A欄與迴圈"最新版次"相同並C欄不為空白執行
  25.         mrn2.Offset(0, 3) = Sheet2.Cells(i, 3) '將"版次紀錄"當前C欄值填入"最新版次"往右第三格
  26.      End If
  27.   Next
  28. Next
  29. End Sub
複製代碼
所以這樣看最新版次是即時產生的，
應該不是你指的查詢，
而版次紀錄是你的資料來源，
需要手動建置，填寫完畢後在最新版次中即時產生，
有用到的只有版次紀錄、最新版次這兩個活頁簿，
我的解釋是這樣...所以我看不出查詢功能在哪裡...
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題