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

[µo°Ý] ¦p¦ó¤~¯à§ä´M©Ò­nªº¸ê®Æ¨Ã¦bÀx¦s®æ¶î¦â?

[µo°Ý] ¦p¦ó¤~¯à§ä´M©Ò­nªº¸ê®Æ¨Ã¦bÀx¦s®æ¶î¦â?

Hsieh¶W¯Åª©¥D§A¦n!
        ·PÁ¦A·P®¦!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§A¦n!
¦hÁ´£¿ô!
¦P®É¬°0"¤£°Ê§@"¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦U¦ì«e½ú¤j®a¦n¡I
      ¦b³o¸Ì¾Ç²ß¨}¦h¡A«Üºë±m
     ¥H¤W¬O¤ñ¹ï¤å¦r¡A¦pªG¬O¼Æ¦r¤ñ¹ï¸Ó¦p¦ó§@¡H
      ...
wells330 µoªí©ó 2011-4-30 16:32



    ¼Æ¦r ... °ò¥»¤W¬O¤@¼Ë§a...(Àx¦s®æÃþ«¬·|¤£¦P)
¤£¹L  ·Pıªí¹Fªº¤å·N¦³ÂI©Ç..
     D2¡GD297ªº¸ê®Æ¨ä¤¤¥u­n¦³Àx¦s®æ¬O 0 «h¦bB2¡GB297ªº¬Û¹ï¦ì¸m¡]¦pD6¬O 0¡AB6ªºÀx¦s®æ¶îºñ¦â¤å¦rÅã¥Ü¥Õ¦â¡^
      E2¡GE297ªº¸ê®Æ¨ä¤¤¥u­n¦³Àx¦s®æ¬O 0 «h¦bB2¡GB297ªº¬Û¹ï¦ì¸m¡]¦pE6¬O 0¡AB6ªºÀx¦s®æ¶î¬õ¦â¤å¦rÅã¥Ü¥Õ¦â¡^

³o¼Ë¤£·|­«Å|¶Ü...+.+
¦p °²¨Ï d6 e6 ¦P®É¬°0... ¨º§Aªºb6 ­n­þºØÃC¦â...

TOP

¦U¦ì«e½ú¤j®a¦n¡I
      ¦b³o¸Ì¾Ç²ß¨}¦h¡A«Üºë±m
     ¥H¤W¬O¤ñ¹ï¤å¦r¡A¦pªG¬O¼Æ¦r¤ñ¹ï¸Ó¦p¦ó§@¡H
     D2¡GD297ªº¸ê®Æ¨ä¤¤¥u­n¦³Àx¦s®æ¬O 0 «h¦bB2¡GB297ªº¬Û¹ï¦ì¸m¡]¦pD6¬O 0¡AB6ªºÀx¦s®æ¶îºñ¦â¤å¦rÅã¥Ü¥Õ¦â¡^
     E2¡GE297ªº¸ê®Æ¨ä¤¤¥u­n¦³Àx¦s®æ¬O 0 «h¦bB2¡GB297ªº¬Û¹ï¦ì¸m¡]¦pE6¬O 0¡AB6ªºÀx¦s®æ¶î¬õ¦â¤å¦rÅã¥Ü¥Õ¦â¡^


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

TOP

¦³­ÓºÃ°Ý...
¬°¤°»ò­n for i = 1 to 3 ?  

¦pªG¤£­nÃC¦âªº¸Ü
§â .Interior.ColorIndex = 3 §R°£§Y¥i0.0

TOP

«Ü·PÁ¦U¦ì¤j¤jªºÀ°¦£...ÁÂÁ§A­Ì
«á¨Ó§Ú¦b¦VªB¤Í´M°Ý®É
¥L¤~¸ò§ÚÁ¿¡A³o¬O¨â­ÓÃD¥Ø¬O¤À¶}ªº¡Ö¡Ä¡Õ

²Ä¢±ÃDÃD¥Ø§ÚªB¤Í¬OÁ¿
½Ð°Ý¡G
1.¡@­YDÄ檺¤º®e¥X²{¦bA,«h¦b¾F¦C¥X²{V¦r¼Ë
2.¡@for  i =1 to 3¡A¶]3­Ó°j°é¡A¦³¨S¦³¬Ûµ¥¡A­Y¦³¡A½Ð¥´V¡C

¤£¥Î¶î¦â¡C¢ß¡Ä¢ß

TOP

0.0 §Ú³Ì«áµoªº©« ¬O¥Ñ chin15¤j¤j ªº¤è¦¡ ¥[¥H©µ¦ù..
¼Ó¥Dªº¨â­Ó»Ý¨D
(­YDÄæÀx¦s®æ¦³AÄ檺­È  «h¦bBÄæ ¬Û¹ïÀx¦s®æ¥´¤Ä)
¥u¬O·|¦³ÂI¤p»~§P¦Ó¤w «¢«¢><!
­è­è¸ÕÅç+À³¥Î À³¸Ó»~§P¾÷²v«Ü§C...°£«D¬O¼Æ¦r..

TOP

¨C¤@©«­n¤ñ¹ïªº¦ì¸m³£¤£¤@¼Ë
¤£ª¾¸Ó¦^ÂЭþ¤@©«
³Ì«á¤@©«ªº¡G
Sub module1()
Dim yy As Range, data As Range
For Each yy In Range([a1], [a65535].End(3))
Set c = [b:b].Find(yy, , , 1)
If Not c Is Nothing Then
           If data Is Nothing Then
           Set data = c
        Else
          Set data = Union(data, c)
        End If
     End If
Next
    If Not data Is Nothing Then
    With data
        .Interior.ColorIndex = 3
        .Offset(, 1) = "V"
    End With
    End If
End Sub

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD