¦h¶¥X³f¸ê®Æ¦p¦ó¦b·s¤À¶¨Ì½d³ò¤é´Á¿ï¥X±Æ¦C©O?
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
¦h¶¥X³f¸ê®Æ¦p¦ó¦b·s¤À¶¨Ì½d³ò¤é´Á¿ï¥X±Æ¦C©O?
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
¤@Ó¦h¤ë¤F~©È¦U¦ì¤j¤j¤Ó¦£¨S¬Ý¨ì~~³»¤@¤U^^ |
|
JIMMY
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
RE: ¦h¶¥X³f¸ê®Æ¦p¦ó¦b·s¤À¶¨Ì½d³ò¤é´Á¿ï¥X±Æ¦C©O?
¥»©«³Ì«á¥Ñ jimmy510 ©ó 2012-8-23 13:24 ½s¿è
¦^´_ 2# jimmy510
½d¨ÒÀɦpÀ£ÁYÀÉ,½Ð°Ý¥i¥H¦b·s¤À¶¤¤±N¬Y°Ï¬q¤é´Áªº©Ò¦³¤À¶¸ê®Æ±Æ¦C¥X¨Ó¶Ü?¨Ò¦p§Ún¿ï99/6/1¦Ü99/9/1©Ò¦³ªº¥X³f¸ê®Æ..
·Ð½Ð¸ê²`ªºª©¤ÍÀ°§Ú¤@¤U~ÁÂÁÂ..
¤å¥ó.rar (15.36 KB)
|
|
JIMMY
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
©êºpÅo~¦A³»¤@¤U~§Ú¤å¥ó¤w¸g¤W¶Ç¤F~¦³ªÅªºª©¤ÍÀ°¦£¤@¤U§a^^~ÁÂÁÂ.. |
|
JIMMY
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 242
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-8
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-9-5 16:26 ½s¿è
¦^´_ 4# jimmy510
¤£ª¾¹D¬O¤£¬O³oÓ·N«ä
·J¾ã¸ê®Æ¤S¦³pºâÄæ¦ì¥i¯à¥ÎVBA¤ñ¸û³æ¯Â- Sub ex()
- Dim ar()
- ReDim Preserve ar(s)
- ar(s) = Array("¤Ø¤o", "¤é´Á", "¼Æ¶q", "³æ»ù", "Á`ÃB", "³Æµù")
- s = 1
- st = InputBox("¿é¤J°_©l¤é´Á", , Format(DateAdd("M", -12, Date), "e/m/d"))
- st1 = InputBox("¿é¤J°_©l¤é´Á", , Format(Date, "e/m/d"))
- For Each sh In Sheets
- With sh
- If .Name Like "¤M¼Ò*" Then
- For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
- If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
- ReDim Preserve ar(s)
- ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
- s = s + 1
- End If
- Next
- End If
- End With
- Next
- If s > 1 Then
- With Worksheets.Add(after:=Sheets(Sheets.Count))
- .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
- End With
- Else
- MsgBox "¨S¦³²Å¦X¸ê®Æ"
- End If
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
¦^´_ 5# Hsieh
·PÁª©¤jªº¸Ñµª~§Ú´ú¸Õ«á¯uªº¬O§Ú·QnªºªF¦è~ÁÂÁÂ..¥i¬O¦³¨Ç¤p°ÝÃD·Q½Ð±Ð,·í§Ú±N³oÓVBA©ñ¨ì§Oªº¬¡¶Ã¯¨Ï¥Î®É¥¨¶°¦A¶]®É¦³µo¥Í¿ù»~,°õ¦æ°»¿ù®É¶]¨ì
If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then ¿ù»~,½Ð°Ý¦³þÃä»Ýn½Õ¾ã¶Ü? |
|
JIMMY
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
¦^´_ 7# Hsieh
ª©¤j§A¦n,ªþ¤W¦³°ÝÃDªº¸ê®Æ,³Â·Ð§AÀ°§Ú¬Ý¤@¤U,§Ú¦³¬Ý¹L¤é´Á³]©wÀ³¸Ó³£¨S¿ù..
¬üªL.rar (28.04 KB)
|
|
JIMMY
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 242
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-8
|
¦^´_ 8# jimmy510
·í¤u§@ªíA3¥H¤U¨S¦³¤é´Á¸ê®Æ¤~·|¥X¿ù- Sub ¥X³f¬d¸ß()
- Dim ar()
- ReDim Preserve ar(s)
- ar(s) = Array("¤Ø¤o", "¤é´Á", "¼Æ¶q", "³æ»ù", "Á`ÃB", "³Æµù")
- s = 1
- st = InputBox("¿é¤J°_©l¤é´Á", , Format(DateAdd("M", -12, Date), "e/m/d"))
- st1 = InputBox("¿é¤J°_©l¤é´Á", , Format(Date, "e/m/d"))
- For Each sh In Sheets
- With sh
- If .Name Like "¤M¼Ò*" Then
- For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
- If Not IsDate(a) Then GoTo 10
- If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
- ReDim Preserve ar(s)
- ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
- s = s + 1
- End If
- 10
- Next
- End If
- End With
- Next
- If s > 1 Then
- With Worksheets.Add(after:=Sheets(Sheets.Count))
- .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
- End With
- Else
- MsgBox "¨S¦³²Å¦X¸ê®Æ"
- End If
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2012-2-23
- ³Ì«áµn¿ý
- 2023-7-12
|
·PÁª©¤j~~¸Ñ¨M¤F~~ÁÂÁ§AªºÀ°¦£ |
|
JIMMY
|
|
|
|
|