• 3

excel vba 有條件的提取不重覆值 求救!!

Select Case c_f
Case 1
dd = yy & "-01"
Case 2
dd = yy & "-02"
Case 3
dd = yy & "-03"
Case 4
dd = yy & "-04"
Case 5
dd = yy & "-05"
Case 6
dd = yy & "-06"
Case 7
dd = yy & "-07"
Case 8
dd = yy & "-08"
Case 9
dd = yy & "-09"
Case 10
dd = yy & "-10"
Case 11
dd = yy & "-11"
Case 12
dd = yy & "-12"
Case Else
dd = ""
End Select


當然,這一段也可以更「精簡」,比如直接把2者串連(dd=yy & "-" & c_f),直接搞定。

不過要注意2點:
1) c_f 如果是1位數(1~9),是否該先轉成2位數(01~09) ,再併到yy後面。
2)使用者如果輸入範圍不在1~12間(甚至輸入其他「文字」),應該要補上檢查功能(擋下),請其重新輸入。

以上希望對您的學習有幫助,加油。
Der,misser1
misser wrote:
不好意思,您的問題解...(恕刪)



此問題已暫時放棄,改回函數計算了
但VBA還是慢慢在學習中,
謝謝大大提供的方式,我會試看看的^^
CK豬 wrote:
謝謝大大提供的方式,我會試看看的


程式碼已測試過,基本應該可行,也盡量加註解了~~之後您如果還有問題,大家也可以再互相討論研究看看。


CK豬 wrote:
此問題已暫時放棄,改回函數計算了


Excel函數用得好,也能解決大部分問題;不過相比之下,VBA也有其優勢,如果可以的話,建議您可以繼續研究學習。

或許您會對office365的一些新增函數(動態陣列)有興趣,比如 unique , FILTER ....。

有個影片,可以研究看看。


希望對您有所幫助!
Der,misser1
  • 3
內文搜尋
X
評分
評分
複製連結
Mobile01提醒您
您目前瀏覽的是行動版網頁
是否切換到電腦版網頁呢?