[µo°Ý]¦p¦ó§ä¥X¨C¤ë©T©w¤@µ§¸ê®Æ
- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-3-31
- ³Ì«áµn¿ý
- 2015-1-30
|
[µo°Ý]¦p¦ó§ä¥X¨C¤ë©T©w¤@µ§¸ê®Æ
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-2 17:07 ½s¿è
½Ð°Ý¤wª¾¤é´Á¤¤¦p¦ó¦A¤@°ï¸ê®Æ¤¤¨C¤ë¸Ó¤é´Áªº¸ê®Æ¡A¤]´N¬O¨C¤ë¤@µ§¸ê®Æ¡H³Â·Ðªº¬O¸ê®Æ¬O¨C2~3¤Ñ¤£©w´Á¤@µ§¡A
Y§ä¤£¨ì¸Ó¤ë¥÷ªº¤é´Á¸ê®Æ¡A´N¥H¸Ó¤é´Á«e¤éªº¸ê®Æ¬°·Ç¡A¸Ôªþ¥ó¨Ò¤l¡A½Ð¦U¦ì°ª¤âÀ°¦£¡I¡I
data.rar (39.64 KB)
|
|
|
|
|
|
|
- ©«¤l
- 618
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 663
- ÂI¦W
- 1
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- OFFICE 2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Pingtung
- µù¥U®É¶¡
- 2011-9-2
- ³Ì«áµn¿ý
- 2024-7-5
|
¦^´_ 1# mfsong
±q°ÝÃDªº´yz»Pªþ¥ó¬Ý¤£¥X±zªº§xÂZ»P´Á«Ý¬°¦ó¡A¥i§_´£¨Ñ¹w´Áµ²ªG½d¨Ò¡H
ÁÂÁ¡I |
|
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-3-31
- ³Ì«áµn¿ý
- 2015-1-30
|
¦^´_ 2# p212
Sorry, «e±»¡©ú¤£²M·¡¡F¸É¥R¦p«á¡G¨Ó·½¸ê®Æ¬O¦ý¬O¨C¹j2~3¤Ñ¤@µ§¤§³sÄò¼Æ¤ëªº¸ê®Æ¡A§Æ±æ¿é¤J©T©w¤@¤Ñ¸ê°T«á¡A¤§«á¯à¾ã²z¥X¸Ó¤ëªº·í¤Ñ¸ê®Æ¡A
¨Ò¦p¡G¿é¤J13¡A§Æ±æ¾ã²z¥X1/13, 2/13, 3/13,.....ªº¨C¦æ¸ê®Æ¡A¨ä¤¤YµL2/13¡A«h©¹«e±À2/12¸ê®Æ¬°·Ç¡C
¥H¤W»¡©ú¡C |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 3# mfsong - Sub ex()
- Dim Mydate#, d%, Rng As Range, A As Range
- d = InputBox("¿é¤J°ò·Ç¤é", , 13)
- ym = Format([B1], "yyyy/")
- Set Rng = UsedRange.Columns(1)
- For i = 1 To 12
- Mydate = DateValue(ym & i & "/" & d)
- k = d
- Do Until IsNumeric(Application.Match(Mydate, Rows(1), 0))
- k = k - 1
- If k < 1 Then GoTo 10
- Mydate = DateValue(ym & i & "/" & k)
- Loop
- Mydate = DateValue(ym & i & "/" & k)
- Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
- Set Rng = Union(Rng, A)
- 10
- Next
- Rng.Select '¿ï¨ú¸ê®Æ½d³ò
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-3-31
- ³Ì«áµn¿ý
- 2015-1-30
|
¦^´_ 4# Hsieh
Exactly! µ{¦¡«Üºë²¡A¤£¹L¸ê®ÆµLªk³B²z¸ó¦~»¡...ÁÂÁ¤F¡I |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 5# mfsong - Option Explicit
- Sub Ex()
- Dim Mydate As Double, d As Integer, Rng As Range, A As Range, yy As Integer, i As Integer, k As Integer
- d = InputBox("¿é¤J°ò·Ç¤é", , 13)
- Set Rng = UsedRange.Columns(1)
- For yy = Year([B1]) To Year([B1].End(xlToRight)) '¦~«×
- For i = 1 To 12 '¤ë¥÷
- For k = d To 1 Step -1 '©¹«e§ä¤é´Á
- Mydate = DateValue(yy & "/" & i & "/" & k)
- If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
- Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
- GoTo 10
- End If
- Next
- For k = d + 1 To Day(DateAdd("m", 1, DateValue(yy & "/" & i)) - 1) '©¹«á§ä¤é´Á
- Mydate = DateValue(yy & "/" & i & "/" & k)
- If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
- Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
- GoTo 10
- End If
- Next
- 10
- If Not A Is Nothing Then Set Rng = Union(Rng, A)
- Set A = Nothing
- Next
- Next
- Rng.Select '¿ï¨ú¸ê®Æ½d³ò
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-3-31
- ³Ì«áµn¿ý
- 2015-1-30
|
¦^´_ 6# GBKEE
ÁÂÁª©¥D¡I°ÝÃD¸Ñ¨M¤F¡I§Ú´¿¦Û¤v¹Á¸Õ¸Ñ¨M¡A¦]«Ü¦h«ü¥O¤£¼ô¡A¨Ï±oµ{¦¡·d±o«Ü½ÆÂø¡A¦ý¬Ý±o¦U¦ì°ª¤â¦¡¤l¤Sµu¡A¸r¼}¦U¦ì¥\¤O¡I
THANKS¡I¡I |
|
|
|
|
|
|