¥[Åv«ü¼Æ¾ú¥v¸ê®Æ¤§±Æ§Ç°ÝÃD
- ©«¤l
- 25
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-31
- ³Ì«áµn¿ý
- 2014-6-8
|
¥[Åv«ü¼Æ¾ú¥v¸ê®Æ¤§±Æ§Ç°ÝÃD
¦U¦ì¤j¤j,
ªþ¥ó¬O¥i¥H³]©wn"Â^¨ú³sÄò´XÓ¤ë¥÷"ªº¥[Åv«ü¼Æ¾ú¥vªÑ»ù¸ê®Æ,
²{¦bªº°ÝÃD¬O,
¸ê®Æ¤w¸g¥i¥H§ì±o¤U¨Ó,
¦ý¬O...«o¤£ª¾¹D«ç¼Ë¼gVBAÅý¥¦¶i¦æ±Æ§Ç,¨Ã§R°£¤£¥²nªº¦æ¦C...
(¦³¤@Ó"±Æ§Ç«á"ªºsheet,´N¬O§Æ±æ¹F¨ìªºµ²ªG!!)
«ô½Ð¦U¦ì¤j¤j«ü±Ð!!!
ÁÂÁ¤F!!
¥[Åv¾ú¥v¦æ±¡±Æ§Ç.rar (21.7 KB)
|
|
·s¤â¤W¸ô
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# cudui - Sub yy()
- c = Array(1, 2, 3, 4, 5, 11, 14)
- With Sheets("¥[Åv¾ú¥v¦æ±¡ì©lÀÉ")
- .[A9:E9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[A1]
- .[K9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[F1]
- .[N9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[G1]
- n = .[a65536].End(xlUp).Row
- a = .Range(.Cells(1, 1), .Cells(n, 14))
- ReDim arr(1 To UBound(a), 1 To 7)
- x = 1
- For j = 1 To UBound(a)
- For i = 1 To 7
- If Mid(.Cells(j, 1), 4, 1) <> "/" Then
- GoTo 123
- Else: arr(x, i) = a(j, c(i - 1))
- End If
- Next i
- x = x + 1
- 123
- Next j
- End With
- With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
- .Range([A2], [G2].End(xlDown)) = ""
- .[A2].Resize(j - 1, 7) = arr
- .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
- .Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-31
- ³Ì«áµn¿ý
- 2014-6-8
|
¦^´_ 2# register313
½Ð°Ý¤j¤j:
¬°¤°»ò§Ú¦pªGn¦b"¥[Åv¾ú¥v¦æ±¡ì©lÀÉ"ªºsheet¤¤ °õ¦æ³oÓ¥¨¶°,
«h·|¥X²{"À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~",
(¦bSheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")¤¤°õ¦æ«h¤£·|¦³¦¹°ÝÃD....)
À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~
§Ú¸Õ¹L,»ÝnÃB¥~¥[¤W¤@¦æ:
Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").Activate
¤~¯à¦bì©lÀÉsheets¤¤°õ¦æ¥¨¶°??- Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").Activate
- With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
- .Range([A2], [G2].End(xlDown)) = ""
- .[A2].Resize(j - 1, 7) = arr
- .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
- .Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
- End With
½Æ»s¥N½X ¨s³º§ÚÀ³¸Ó«ç»ò§ï,¤~¤ñ¸û²³æ¥¿½T??
ÁÂÁÂ~~ |
|
·s¤â¤W¸ô
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 7# cudui
¬O§Úº|¥´¤F4Ó.- With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
- .Range(.[A2], .[G2].End(xlDown)) = ""
- .[A2].Resize(j - 1, 7) = arr
- .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
- .Range(.[B2], .[G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
- End With
½Æ»s¥N½X ¦b¥ô¦ó¤u§@ªí¤U°õ¦æ³£¥i¥H |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-31
- ³Ì«áµn¿ý
- 2014-6-8
|
¦^´_ 8# register313
ì¨Ó¥|Ó"."¦³®t¨º»ò¦h¾¾!!!
³o¥|Ó"."¬O¬°¤F¥i¥HÅý¥¦¦b«e±¦Û°Ê¥["Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")"¶Ü?? |
|
·s¤â¤W¸ô
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-31
- ³Ì«áµn¿ý
- 2014-6-8
|
¦^´_ 10# GBKEE
©Ò¥H¥H¤U³o¤GÓ±Ôz, [A2] or [G2]«e,¦³"."©M¨S ".", ¦³¥i¯à¬O°Ñ·Óªºsheets·|¦³¤£¦P¶Ü??- 01.With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
- 02. .Range([A2], [G2].End(xlDown)) = ""
½Æ»s¥N½X- 01.With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
- 02. .Range(.[A2], .[G2].End(xlDown)) = ""
½Æ»s¥N½X |
|
·s¤â¤W¸ô
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 11# cudui
With Sheets("¥[Åv")
.[A2] = "" ==> ¥[Åv¤u§@ªí ¤§ A2Àx¦s®æ =""
[A2]="" ==> ¥Ø«e§@¥Î¤§¤u§@ªí ¤§ A2Àx¦s®æ =""
(¥¼z©ú¦ó¤u§@ªí «h¬O ¥Ø«e§@¥Î¤§¤u§@ªí)
END WITH |
|
|
|
|
|
|