ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vba¤W¨S¿ìªkª½±µÅª¨úC2/B5µ¥Àx¦s®æªº¼Æ­È

[µo°Ý] vba¤W¨S¿ìªkª½±µÅª¨úC2/B5µ¥Àx¦s®æªº¼Æ­È

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2019-2-19 19:43 ½s¿è

³o°ÝÃD¥i¯à¶W¯Å¤Jªù¡A¤~­è¾Ç²ß¨Ï¥Î¥¨¶°/vba²Ä¤G¤Ñ..
¦ý·Q½Ðª©¤W¥ý¶iµy·L´£ÂI¤@¤U¡A³o¼Ë°ÝÃD­n§Q¥Î¤°»òÃöÁä¦r¨Ó·j´M¤~¯à§ä¨ì¬ÛÃö¸Ñªk

§Ú¥´ºâ§Q¥Îvba¨ÓÀ°§¹¦¨§â¬Y´X¦Cµ¹ÁôÂð_¨Óªº¤u§@¡A
­º¥ý§Q¥Î¿ý»s¥¨¶°¥\¯à¡A§â2~137¦Cµ¹ÁôÂð_¨Ó¡A±o¨ì¤U­±µ{¦¡½X
Sub hide()
'
' hide¥¨¶°
'
    Rows("2:137").Select
    Range("C137").Activate
    Selection.EntireRow.Hidden = True
End Sub

±µµÛ§Ú·Q­n§âÁôÂ꺦C±q2~137§ï¦¨2~¬Ya¦C
a¦Cªº¼Æ­È§Ú¦bªí³æ¸Ì­±³z¹L¥H¤U¤½¦¡ºâ¥X¨Ó¤F
a=MATCH(TODAY(),A2:A207,0)
­¶­±¤W¤]Åã¥Üºâ¥X¨Óªº­È¬O137

µM«á¥´ºâ§â³o­Ó¤½¦¡ª½±µ©ñ¶ivbaµ{¦¡½X¤¤¡A´N¥X²{bug¤FµLªk°õ¦æ
    Rows("2:MATCH(TODAY(),A2:A207,0)").Select
´«¤@­Ó¤è¦¡¡Aª½±µ«ü©w³o­Óa­Èªº©Ò¦b¦ì¸mV212®M¤J¤½¦¡¤¤¡A¤]¬O¤@¼Ëªºª¬ªpµLªk°õ¦æ
    Rows("2:V212").Select

½Ð°Ý¦b³oºØ±¡ªp¤U¡A­n¦p¦óÅývbaŪ¨úexcelªí³æ¤¤ªº¼Æ­È¡H
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-2-20 10:03 ½s¿è

V212¬°¤½¦¡­È:=MATCH(TODAY(),A2:A207,0)
Rows("2:" & range("V212") +1 ).Select
©Î
Rows("2:" & [V212] +1 ).Select

============================
V212¬°¤½¦¡­È:=MATCH(TODAY(),A:A,0)
Rows("2:" & range("V212")).Select
©Î
Rows("2:" & [V212]).Select

TOP

¤£¥ÎÀx¦s®æ¤½¦¡
Dim Mh
Mh = Application.Match(CLng(Date), [A:A], 0)
If IsError(Mh) Then Exit Sub
Rows("2:" & Mh).Select

TOP

Sub Macro1()
Dim Mh
Cells.EntireRow.Hidden = False '¨ú®øÁôÂææ
Mh = Application.Match(CLng(Date), [A:A], 0) '¨ú±o·í¤é¤é´Á¦ì¸m
If IsError(Mh) Then Exit Sub '­Y§ä¤£¨ì·í¤é, ¸õ¥X
Rows("2:" & Mh).EntireRow.Hidden = True 'ÁôÂææ
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ±z´£¨Ñ¤W­zªº¼gªk¡A¦¨¥\¦a°õ¦æ¤F§Ú·Q­nªº°Ê§@
§Ú·|¦A¬Ý¬Ý¬ÛÃöªº³¹¸`¾Ç²ß

¤U¤è¨â­Ó¤£§Q¥ÎÀx¦s®æªº¹Bºâ¤]¥[¤J§Úªºµ§°O¤¤
¥¼¨Ó¾Ç¨ì³o³¡¤Àªº®É­Ô¥i¥H¦A®³¥X¨Ó²z¸Ñ¤@¦¸

¤Ó·PÁ¤F¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD