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

¥[Åv«ü¼Æ¾ú¥v¸ê®Æ¤§±Æ§Ç°ÝÃD

¥[Åv«ü¼Æ¾ú¥v¸ê®Æ¤§±Æ§Ç°ÝÃD

¦U¦ì¤j¤j,

ªþ¥ó¬O¥i¥H³]©w­n"Â^¨ú³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¸ô

¥i¥H±N¨C¤@­ÓÀx¦s®æ¤§«e³£¥[¤W¨Ó·½¡A¨Ò¦p Range("A1") ==> Sheets("1").Range("A1")¡A³o¼Ë¤ñ¸û¤£·|¥H«á¦A°õ¦æµ{¦¡½Xªº®É­Ô¥X²{ªºµ²ªG¤£¬O¦Û¤v·Q­nªº

TOP

¦^´_ 12# register313
[A2]=""                     ==> ¥Ø«e§@¥Î¤§¤u§@ªí  ¤§ A2Àx¦s®æ =""

µ{¦¡½X  ¦b ThisWorkbook  ©Î¤@¯ë¼Ò²Õ  ¬O¦b §@¥Î¤§¤u§@ªí ¨S¿ùªº
¦ý µ{¦¡½X¦p¬O¦b ¤u§@ªíª«¥ó¼Ò²Õ ¬O³o¤@­Ó¤u§@ªíªºA2Àx¦s®æ ¤£¬O«ü§@¥Î¤¤¤§¤u§@ªí

TOP

¦^´_ 12# register313


ÁA¸Ñ¤F!

§Ú­ì¥ý¬O¿ù¥H¬°¦b  With Sheets("¥[Åv")   END With ©³¤U´N·|¦Û°Ê ¨Ï¥Î "¥[Åv"¤u§@ªí...
·s¤â¤W¸ô

TOP

¦^´_ 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

TOP

¦^´_ 10# GBKEE

©Ò¥H¥H¤U³o¤G­Ó±Ô­z, [A2] or [G2]«e,¦³"."©M¨S ".", ¦³¥i¯à¬O°Ñ·Óªºsheets·|¦³¤£¦P¶Ü??
  1. 01.With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")

  2. 02.  .Range([A2], [G2].End(xlDown)) = ""
½Æ»s¥N½X
  1. 01.With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")

  2. 02.  .Range(.[A2], .[G2].End(xlDown)) = ""
½Æ»s¥N½X
·s¤â¤W¸ô

TOP

¦^´_ 9# cudui
With ³¯­z¦¡    ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡C
  1. Sub Ex()
  2.     With Range("A1")
  3.         .Interior.ColorIndex = 5       '»s©wÀx¦s®æ¤º³¡¦â±m¦b¦â½L¤¤ªº¯Á¤Þ­È
  4.         .Value = .Interior.ColorIndex   'Àx¦s®æªº­È=¤º³¡¦â±m¦b¦â½L¤¤ªº¯Á¤Þ­È
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# register313

­ì¨Ó¥|­Ó"."¦³®t¨º»ò¦h¾¾!!!
³o¥|­Ó"."¬O¬°¤F¥i¥HÅý¥¦¦b«e­±¦Û°Ê¥["Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")"¶Ü??
·s¤â¤W¸ô

TOP

¦^´_ 7# cudui

¬O§Úº|¥´¤F4­Ó.
  1. With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
  2.   .Range(.[A2], .[G2].End(xlDown)) = ""
  3.   .[A2].Resize(j - 1, 7) = arr
  4.   .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  5.   .Range(.[B2], .[G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  6. End With
½Æ»s¥N½X
¦b¥ô¦ó¤u§@ªí¤U°õ¦æ³£¥i¥H

TOP

¦^´_ 2# register313


½Ð°Ý¤j¤j:

¬°¤°»ò§Ú¦pªG­n¦b"¥[Åv¾ú¥v¦æ±¡­ì©lÀÉ"ªºsheet¤¤ °õ¦æ³o­Ó¥¨¶°,
«h·|¥X²{"À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~",
(¦bSheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")¤¤°õ¦æ«h¤£·|¦³¦¹°ÝÃD....)

À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

2012-04-19_163131.jpg
2012-4-19 16:32



§Ú¸Õ¹L,»Ý­nÃB¥~¥[¤W¤@¦æ:
Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").Activate
¤~¯à¦b­ì©lÀÉsheets¤¤°õ¦æ¥¨¶°??
  1. Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").Activate

  2.    With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
  3.      .Range([A2], [G2].End(xlDown)) = ""
  4.      .[A2].Resize(j - 1, 7) = arr
  5.      .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  6.      .Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  7.    End With
½Æ»s¥N½X
¨s³º§ÚÀ³¸Ó«ç»ò§ï,¤~¤ñ¸û²³æ¥¿½T??
ÁÂÁÂ~~
·s¤â¤W¸ô

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD