- 帖子
- 248
- 主題
- 55
- 精華
- 0
- 積分
- 334
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-7-24
- 最後登錄
- 2023-2-2
|
樓上三位樓主, 早晨
小妹再度請教, 我把程式加以修改, 但小妹想如GBKEE版大大, 對話盒中只顯示到期貨物,
如輸入沒有到紅酒月份時, 亦會作出提示該月份沒有到期紅酒,
小妹試圖把GBKEE版大大程式混入下列程式中, 但不成功, 故請樓主們協助, 謝謝謝!
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, "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 & stemp & "入貨日期 : " & Cells(A.Row, "B").Text & "編號 : " & Cells(A.Row, "c").Text & "名稱 : " & Cells(A.Row, "d").Text & "級別 :" & Cells(A.Row, "e") & " 到期日 : " & Cells(R, "m")
End If
End If
Next
MsgBox IIf(mystr <> "", ym & " 到期" & vbLf & mystr, ym & " 沒有到期的酒")
End Sub |
|
發表於 2013-9-4 10:47
| 
