[發問] 請問怎麼比較日期?

如圖所示我已經可以把B欄日期用程式碼比較出來

但是現在要利用A欄找出同一位客戶但是B欄要顯示最新的

例如成輔企業 2017/11/30

想請問這樣程式碼要怎麼樣編寫

Sub 日期比較()
dim a as variant,b as variant
a=range("b1").value
b=range("b2").value
if a>b then
range("c1").value=range("b1").value
msgbox range("c1").value
else
range("c1").value=range("b2").value
msgbox range("c1").value
end if
end sub

複製代碼

這程式碼要怎麼改才能找同一位客戶到期日最新
請教各位了謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2015-9-8 09:01 | 只看該作者

本帖最後由 GBKEE 於 2015-9-8 09:08 編輯

回復 20# SinYun

准提部林版主: ３．〔日期〕欄有很多錯誤及無效值，理應清除或更正，這會造成統計上的困擾！（其它欄位亦然）

Application.WorksheetFunction.Max 程式的錯誤,為〔日期〕欄的錯誤值所造成.
你的檔案很龐大,肇因使用大量的函數,光是開啟的重算就很費時.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-15

21^#

發表於 2015-9-7 16:25 | 只看該作者

本帖最後由准提部林於 2015-9-7 16:30 編輯

回復 20# SinYun

附檔下載：
http://www.funp.net/629089
使用這個免費空間，是非得已，因很容易被移除或覆蓋，而失去永久性參考；
請多多參與討論升級，以獲得下載附件權限；當然，若能以贊助論壇方式也並無不可（相信獲得會更多）！

１．〔銷售統計〕表的〔標題〕在第２列，所以須改範圍：
　　Sheets("銷售統計").UsedRange.Offset(1, 0).Columns("H:H")
２．〔User〕名稱有〔強制換列〕，例如：
　　Per titled, the customer is
　　ウシオ電機株式会社(USHIO INC.)
　　這不是〔資料表〕輸入的常規，應輸入成一行，再使用〔格式〕的自動換列才是正辦！（不要將excel當word用）
３．〔日期〕欄有很多錯誤及無效值，理應清除或更正，這會造成統計上的困擾！（其它欄位亦然）
４．檔中程式碼經測試都ＯＫ，若在您的ＰＣ中會有錯誤，可能是OFFICE版本問題，恕無法為您排解（我只有OFFICE 2000)，
　　這就有勞與您同版本的大大來解決！
　
＿我只是無給職掛名的版主，希望以上解答對您有幫助～～
　台灣稀有的EXCEL專門論壇，需要大家多方支持～～
　

TOP

SinYun