一個期限顯示問題

1^# 跳轉到 »

發表於 2013-9-4 23:41 | 顯示全部帖子

回復 GBKEE
謝謝版大, 這是我所需要, 但忽然有個想法, 能否把輸入名稱改為年份加月份, 如啟動巨集, 在顯 ...
317 發表於 2013-9-4 17:48

我猜樓主要的可能是只要是該月份進貨的都要秀出來,
所以我參考 3# 將 5# 修改了一下 :

Sub ex()
ym = InputBox("輸入入貨年月", , 201308)
Set Rng = Range("B:B").SpecialCells(xlCellTypeConstants)
For Each a In Rng
If IsDate(a) Then
If Format(Cells(a.Row, "B"), "yyyymm") = ym Then
stemp = IIf(mystr = "", "", Chr(10))
If Cells(a.Row, "H") <> "" Then
R = a.Row
Else
R = Cells(a.Row, "H").End(xlUp).Row
If R = Rng.Cells(1).Row Then R = R + 1
End If
mystr = mystr & stemp & "入貨日期 : " & Cells(a.Row, "B").Text & " " & Cells(a.Row, "C") & " 到期日 : " & Cells(R, "H")
End If
End If
Next
MsgBox mystr
End Sub

複製代碼

靜思自在 : 站在半路，比走到目標更辛苦。