麻辣家族討論版版 » Excel程式區 » 版次變更問題

返回列表下一主題上一主題發帖

版次變更問題

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-12-25 08:10 | 只看該作者

版次變更問題

說明於夾帶擋內

提問.rar (21.18 KB)

樓主熱帖

收藏

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

17^#

發表於 2018-9-9 22:02 | 只看該作者

回復 16# sheau-lan

還是看不太懂...
你指的查詢是最新版次這個活頁簿嗎?
程序註解:

Private Sub CommandButton1_Click()
LR = Sheet2.[a65536].End(3).Row '讀取"版次紀錄"全部資料數為多少筆
If LR = 1 Then LR = 2 '如果只有一筆，就計算成2
LR2 = Sheet3.[a65536].End(3).Row '讀取"最新版次"全部資料有多少筆
If LR2 = 1 Then LR2 = 2 '如果只有一筆，就計算成2
Range("a2:d" & LR2).Value = "" '清空A2到D的LR2範圍"最新版次"所有資料
For Each MRN In Sheet2.Range("A2:a" & LR) '迴圈"版次紀錄"中從A2開始往下範圍所有資料
If Application.CountIf(Sheet2.Range("A2:A" & MRN.Row), MRN) = _
Application.CountIf(Sheet2.Range("A:A"), MRN) Then '如果MRN變數中有兩筆以上時執行最後一筆，其它跳過
[a65536].End(3).Offset(1, 0) = MRN.Value 'MRN的值在a65536儲存格往上遇到有值得儲存格後往下一格填入
[a65536].End(3).Offset(0, 1) = 1 '同上往右填入1
End If
Next
For Each mrn2 In Range("a2:a" & LR2) '迴圈當前活頁簿A2到A的LR2儲存格全部資料
B = 1 '用於計算迴圈次數，迴次迴圈到此重新為1
For i = 2 To LR '迴圈次數2開始到LR的值，LR為讀取"版次紀錄"全部資料數為多少筆
If Sheet2.Cells(i, 1).Value = mrn2 And Sheet2.Cells(i, 2) <> "" Then '如果當前"版次紀錄"A欄與迴圈"最新版次"相同並B欄不為空白執行
mrn2.Offset(0, 2) = Sheet2.Cells(i, 2) '將"版次紀錄"當前B欄值填入"最新版次"往右第二格
B = B + 1 '執行過紀錄B+1
mrn2.Offset(0, 1) = B '紀錄該芳生圖號執行過幾次，等於版次多少
End If
If Sheet2.Cells(i, 1).Value = mrn2 And Sheet2.Cells(i, 3) <> "" Then '如果當前"版次紀錄"A欄與迴圈"最新版次"相同並C欄不為空白執行
mrn2.Offset(0, 3) = Sheet2.Cells(i, 3) '將"版次紀錄"當前C欄值填入"最新版次"往右第三格
End If
Next
Next
End Sub

複製代碼

所以這樣看最新版次是即時產生的，
應該不是你指的查詢，
而版次紀錄是你的資料來源，
需要手動建置，填寫完畢後在最新版次中即時產生，
有用到的只有版次紀錄、最新版次這兩個活頁簿，
我的解釋是這樣...所以我看不出查詢功能在哪裡...

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

16^#

發表於 2018-9-7 15:48 | 只看該作者

回復 15# faye59

有歐,在查詢那一個工作表

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

15^#

發表於 2018-9-6 06:36 | 只看該作者

回復 14# sheau-lan

可以麻煩附上檔案嗎?
依照版次.rar 裡面沒有可以填寫查詢的地方。
都是依照版次紀錄將結果回傳到最新版次，
並只紀錄C欄位最後1次紀錄，跟D欄位最後1次紀錄。
所以您指的"查無資料"是要新增查詢功能?

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

14^#

發表於 2018-9-4 14:05 | 只看該作者

回復 10# owen06
owen06 大大
之前這一支程式你有幫我解決,我也完成了
我想請問一下,那如果我查的資料沒有他秀"查無資料",可是我想在版次那邊他秀1那這樣我晟是應該怎麼改

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

13^#

發表於 2014-12-29 13:58 | 只看該作者

對...謝謝大大..我想破頭了都想不出來...
真是被自己打敗了..程式真的好難搞懂..

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

12^#

發表於 2014-12-29 13:55 | 只看該作者

回復 11# sheau-lan

這樣？

版次.rar (32.66 KB)

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

11^#

發表於 2014-12-29 08:54 | 只看該作者

大大..如果我把工作表分開應該怎麼改

版次.rar (26.15 KB)

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

10^#

發表於 2014-12-26 16:36 | 只看該作者

回復 9# sheau-lan

這樣子對嗎？我不是很確定。

能.rar (595.61 KB)

中學生 Rank: 2

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

9^#

發表於 2014-12-26 10:01 | 只看該作者

owen06大大...又附夾帶檔了
這樣的說明你看一下

版次.rar (26.15 KB)

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題