§Q¥ÎVBA±N·j´M¤º®eÅã¥Ü¥X¨Ó(¼Æµ§¸ê®Æ)
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
§Q¥ÎVBA±N·j´M¤º®eÅã¥Ü¥X¨Ó(¼Æµ§¸ê®Æ)
¤p§Ì·QÅý¦Û¤vªºEXCEL¬y¤ô±b¯à°÷¥i¥H¦Û¤v·j´M
¤£ª¾¹Dn«ç»ò°µ¤~¥i¥H§e²{¥X³o¼Ë?
¤p§Ì°ÝÃD¤w¥Î¹Ï¤ùªí¥Ü...
·Qn¥ÎVBA¼g¥X¨Ó,¤£ª¾¹D¦³¨S¦³¤j®v¯à°÷ÂI¿U¨º»ò¤@¹D¥ú
¤@·ø©ú¿O...¬°¤p§Ì«ü¤Þ¤@ÂI¤è¦V.. |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
§e²{µ²ªG¦p¹Ï...¸÷¨D¤j¯««üÂI... |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2017-4-17 14:36 ½s¿è
¦^´_ 2# bioleon69
¸Õ¸Õ¬Ý:- '·j´M
- Private Sub CommandButton1_Click()
- Dim eR As Long, Dt As Date, Dt1 As Date, Dt2 As Date, St As String, Rng As Range, E
- If [E2] = "" And [E4] = "" Then Exit Sub
- [G2].Resize(Rows.Count - 1, 3) = ""
- eR = [A65536].End(xlUp).Row
- Set Rng = [A2].Resize(eR - 1, 1)
- If [E2] <> "" Then
- Dt1 = [E2] & "/1"
- Dt2 = Year(Dt1) & "/" & Month(Dt1) + 1 & "/1"
- End If
- For Each E In Rng
- Dt = E: St = E.Offset(, 1)
- If [E2] = "" Then
- If St = [E4] Then
- eR = [G65536].End(xlUp).Row + 1
- E.Resize(1, 3).Copy Cells(eR, 7)
- End If
- ElseIf [E4] = "" Then
- If Dt >= Dt1 And Dt < Dt2 Then
- eR = [G65536].End(xlUp).Row + 1
- E.Resize(1, 3).Copy Cells(eR, 7)
- End If
- Else
- If Dt >= Dt1 And Dt < Dt2 And St = [E4] Then
- eR = [G65536].End(xlUp).Row + 1
- E.Resize(1, 3).Copy Cells(eR, 7)
- End If
- End If
- Next
- End Sub
- '²M°£
- Private Sub CommandButton2_Click()
- [G2].Resize(Rows.Count - 1, 3) = ""
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-5
|
¨ç¼Æ °Ñ¦Ò
http://blog.xuite.net/hcm19522/twblog/500065104 |
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-5
|
¤é´Á¬O¤°»ò®æ¦¡,
¤£¤W¶ÇÀÉ®×, Ãø¥H´£¨Ñ·N¨£??
FORMAT([a2], "E/MM") = 105/02 |
|
|
|
|
|
|
- ©«¤l
- 62
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 86
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- offffice2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-8-23
- ³Ì«áµn¿ý
- 2017-11-5
|
¦^´_ 3# yen956
ÁÂÁÂYEN¤j,¥i¥H¨Ï¥Î!
¤p§Ì»ÝªáÂI®É¶¡®ø¤Æ¤@¤U±zªºµ{¦¡½X!
ÁÂÁÂhcm¤j
¤]Åý§Ú«õ¨ì¤@ÓEXCELºô¯¸!
·PÁ¤j¤j!
ÁÂÁÂã´£³¡ªLª©¥D¤j
¤é´Á®æ¦¡´N¬O105/02 6Ó¦r¦ê
¨Sªþ¤W¬O¤p§Ì²¨©¿!!
¤p§Ì¥Ø«e¥ý¦æ¬ã¨s«e±¨â¦ì¤j¤jªº¤èªk
¤§«á¦³°ÝÃD·|¦bµo°Ý!
«D±`·PÁ¤T¦ì¤j¤j¼ö¤ß¦^´_
¯¬¨Åé°·±d,¨Æ¨Æ¶¶¤ß,°]·½ºuºu,§ë¸ê¾Þ§@¶¶§Q! |
|
|
|
|
|
|