SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-1 17:12 | 顯示全部帖子

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

如圖所示我已經可以把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

複製代碼

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

樓主熱帖

SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

2^#

發表於 2015-9-2 09:42 | 顯示全部帖子

回復 3# GBKEE
謝謝GBKEE 他現在可以操作但我有疑問是我指定範圍但不一定是那家公司這樣可以嗎?要給別人操作的

回復 2# ikboy
謝謝你

TOP

SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

3^#

發表於 2015-9-2 16:23 | 顯示全部帖子

回復 9# 准提部林

抱歉就是因為資料很多又卡到要顯示最新的日期貼出來的只是練習
練習結束就要弄到資料比較多的

TOP

SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

4^#

發表於 2015-9-2 16:30 | 顯示全部帖子

[版主管理留言]

GBKEE(2015/9/3 05:48): 看程式碼沒有檔案,看不到錯在哪裡.

回復 3# GBKEE

抱歉可以麻煩版主幫我把#7跟#8刪除嗎 ?
我想要統一在這一樓問才比較不耽誤版主時間

我執行後 MsgBox IIf(xlMax > 0, xlMax, "查無 " & Co) 這一句沒有辦法出現他會一直跑出最大的那個日期
我直接改成下拉式選單可以嗎?

Option Explicit
Sub EX()
Dim xlMax As Date, Co As String
Co = InputBox("輸入公司名稱", "輸入公司名稱")
With ActiveSheet
.Range("H1").AutoFilter FIELD:=8, Criteria1:=Co '工作表指定範圍自動篩選,給準則
xlMax = Application.WorksheetFunction.Max(Columns(30).SpecialCells(xlCellTypeVisible))
'篩選後可見資料的最大值
.Range("H1").AutoFilter '工作表指定範圍取消自動篩選
End With
MsgBox IIf(xlMax > 0, xlMax, "查無 " & Co)
End Sub

複製代碼

這程式碼我改成這樣但他顯示 Image 1.png

這是哪裡錯誤呢 ? 因為我修改了定義他還是不行

TOP

SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

5^#

發表於 2015-9-3 11:32 | 顯示全部帖子

回復 6# GBKEE

我的檔案公司有加密我沒有辦法弄給你耶
他是跟我說如錯誤訊息說的找不到他的屬性
這有辦法解決他的屬性方法嗎?

TOP

SinYun

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2015-8-14
最後登錄: 2016-3-7

6^#

發表於 2015-9-3 13:45 | 顯示全部帖子

回復 6# GBKEE

Option Explicit
Sub EX()
Dim xlMax As Date, Co As String
Co = InputBox("輸入公司名稱", "輸入公司名稱")
With ActiveSheet
.Range("H1").AutoFilter FIELD:=8, Criteria1:=Co '工作表指定範圍自動篩選,給準則
xlMax = Application.WorksheetFunction.Max(Columns(30).SpecialCells(xlCellTypeVisible))
'篩選後可見資料的最大值
.Range("H1").AutoFilter '工作表指定範圍取消自動篩選
End With
MsgBox IIf(xlMax > 0, xlMax, "查無 " & Co)
End Sub