317

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-9-4 10:47 | 只看該作者

一個期限顯示問題

請教各前輩及大大們,
小妹有一期限問題, 請教各先進, 附檔,
先行謝過..

資料區.rar (8.44 KB)

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2013-9-4 11:33 | 只看該作者

題目問的不清楚，資料給的不齊全
期限資料在哪裡?
顯示的時機是什麼?

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2013-9-4 12:04 | 只看該作者

回復 1# 317

Option Explicit
Sub Ex()
Dim Rng As Range, f As Range, R As Integer
With Sheets("工作表1")
Set Rng = .Range("C:C").SpecialCells(xlCellTypeConstants)
Set f = Rng.Find(InputBox("輸入酒名"), LOOKAT:=xlWhole)
If Not f Is Nothing Then
If .Cells(f.Row, "H") <> "" Then
R = f.Row
Else
R = .Cells(f.Row, "H").End(xlUp).Row
If R = Rng.Cells(1).Row Then R = R + 1
End If
MsgBox f & "到期日" & .Cells(R, "H")
End If
End With
End Sub

複製代碼

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

TOP

317

中學生 Rank: 2

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

4^#

發表於 2013-9-4 17:48 | 只看該作者

回復 3# GBKEE
謝謝版大, 這是我所需要, 但忽然有個想法, 能否把輸入名稱改為年份加月份, 如啟動巨集, 在顯示框中輸入年份及月份, 月份物品全數顥示,
小妹知道這是有難度, 不過是想知多一點, 學多一點.. 謝謝大大,

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-9-4 23:04 | 只看該作者

回復 4# 317

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

複製代碼

學海無涯_不恥下問

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

6^#

發表於 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

複製代碼

TOP

317

中學生 Rank: 2

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

7^#

發表於 2013-9-5 00:13 | 只看該作者

本帖最後由 317 於 2013-9-5 00:14 編輯

謝謝樓上三位 GBKEE ,Hsieh ,luhpro ,前輩大大, 小妹衷心謝謝, 祝願快樂

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2013-9-5 07:29 | 只看該作者

回復 4# 317

Option Explicit
Sub Ex()
Dim R As Integer, ym As String, mystr As String, A As Range
With Sheets("工作表1")
R = Range("C:C").SpecialCells(xlCellTypeConstants).End(xlDown).Row
ym = InputBox("輸入到期年月格式[yyyymm]", , Format(.[H4], "YYYYMM"))
For Each A In .Range("H:H").SpecialCells(xlCellTypeConstants)
If IsDate(A) Then
If Format(A, "yyyyMm") = ym Then
If A.End(xlDown).Row > R Then
mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & R)), vbLf)
Else
mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & A.End(xlDown).Row - 1)), vbLf)
End If
Exit For
End If
End If
Next
MsgBox IIf(mystr <> "", ym & " 到期" & vbLf & mystr, ym & " 沒有到期的酒")
End With
End Sub

複製代碼

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

TOP

317

中學生 Rank: 2

帖子: 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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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元的贊助,人人有能力.

TOP