一個期限顯示問題

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

17^#

發表於 2013-9-6 08:42 | 只看該作者

回復 16# GBKEE
GBKEE版大, 早晨
衷心感謝回應, 已試行, 真心謝謝謝!!!

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

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

16^#

發表於 2013-9-6 06:19 | 只看該作者

回復 15# 317
5列至第8列都是沒有到期日, 可否把沒有到期日不顯示出來,

For i = A.Row To R
mystr = mystr & vbLf & Format(.Cells(i, "B"), "yyyy/mm/dd") & vbTab & .Cells(i, "c") & vbTab & .Cells(i, "d") & vbTab & .Cells(i, "e") & vbTab & .Cells(i, "m").Text '.Cells(A.Row, "m")改成.Cells(i, "m")
Next

複製代碼

2,在窗框內第一行標籤編號,名稱, 級別, 到期日, 可否移至該行位置中位, 因這看起來, 是不會有混亂感覺

如圖是依 13#的檔案執行14#的程式碼,沒有你說的混亂感覺.

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

317

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

15^#

發表於 2013-9-5 21:48 | 只看該作者

回復 14# GBKEE
GBKEE版大, 先行感謝版大回應,
有二個問題,
1, 便是我健入到期年月201312, 出示窗框如圖, 問題便在於2013/12/31日到期日只有一筆, 便是第四列, 但窗框出現把第4列至第8列都顯示出來,
而實質來說第5列至第8列都是沒有到期日, 可否把沒有到期日不顯示出來,
2,在窗框內第一行標籤編號,名稱, 級別, 到期日, 可否移至該行位置中位, 因這看起來, 是不會有混亂感覺, 謝謝

圖片1.png (145.14 KB)

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

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

14^#

發表於 2013-9-5 20:40 | 只看該作者

本帖最後由 GBKEE 於 2013-9-5 20:45 編輯

回復 13# 317

Option Explicit
Sub Ex()
Dim ym As String, A As Range, mystr As String, R As Integer, i As Integer
With Sheets("工作表3")
ym = InputBox("輸入到期日年月", , Format(.[M4], "YYYYMM"))
For Each A In .Range("M:M").SpecialCells(xlCellTypeConstants)
If Format(A, "yyyymm") = ym Then '****
Debug.Print A.Row
If mystr = "" Then mystr = "入貨日期" & vbTab & "編號" & vbTab & "名稱" & vbTab & "級別" & vbTab & "到期日"
If A.End(xlDown).Row <> Rows.Count Then
R = A.End(xlDown).Row - 1
Else
R = .Cells(A.Row, "B").End(xlDown).Row
End If
For i = A.Row To R
mystr = mystr & vbLf & Format(.Cells(i, "B"), "yyyy/mm/dd") & vbTab & .Cells(i, "c") & vbTab & .Cells(i, "d") & vbTab & .Cells(i, "e") & vbTab & .Cells(A.Row, "m")
Next
End If
Next
End With
MsgBox IIf(mystr <> "", mystr, ym & " 沒有到期的酒")
End Sub

複製代碼

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

317

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

13^#

發表於 2013-9-5 18:23 | 只看該作者

回復 12# GBKEE

GBKEE版大, 好,
小妹現再度把整理的檔案上傳, 內有明細, 加入圖片解釋, 先行謝過版大, 感恩..

資料區.rar (190.91 KB)

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

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

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

複製代碼

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

317

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

11^#

發表於 2013-9-5 11:39 | 只看該作者

回復 10# GBKEE
小妹現把檔案上傳, 有勞版大, 謝謝謝!

資料區.rar (14.66 KB)

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

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

10^#

發表於 2013-9-5 10:30 | 只看該作者

回復 9# 317
上傳檔案看看

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

317

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

9^#

發表於 2013-9-5 09:56 | 只看該作者

樓上三位樓主, 早晨
小妹再度請教, 我把程式加以修改, 但小妹想如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