- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
12#
發表於 2013-9-5 14:36
| 只看該作者
回復 11# 317
對話盒中只顯示到期貨物, 如輸入沒有到紅酒月份時, 亦會作出提示該月份沒有到期紅酒,
可以再解釋一下嗎?
試著修改如下- Option Explicit
- Sub Ex()
- Dim ym As String, Rng As Range, A As Range, mystr As String, R As Integer
- 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 '****
- If mystr = "" Then mystr = "入貨日期" & vbTab & "編號" & vbTab & "名稱" & vbTab & "級別" & vbTab & "到期日"
- If Cells(A.Row, "m") <> "" Then
- R = A.Row
- Else
- R = Cells(A.Row, "m").End(xlUp).Row
- If R = Rng.Cells(1).Row Then R = R + 1
- End If
- mystr = mystr & vbLf & Format(Cells(A.Row, "B"), "yyyy/mm/dd") & vbTab & Cells(A.Row, "c").Text & vbTab & Cells(A.Row, "d").Text & vbTab & Cells(A.Row, "e") & vbTab & Cells(R, "m")
- End If
- End If
- Next
- MsgBox IIf(mystr <> "", mystr, ym & " 沒有到期的酒")
- End Sub
複製代碼 |
|