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

[µo°Ý] ¶¥¼hÅÞ¿è§PÂ_

·PÁ   «e½ú´£¨Ñ~¬Ý¹L¨ü¯q¨}¦h!!!

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-10-29 19:40 ½s¿è

¦^´_ 9# li_hsien
§A¦b For i = 1 To .Rows.Count «e¤@¦æ¥[¤J .Value = .Value ¬Ý¬Ý¡C

ªþÀɪºÀx¦s®æ©Ç©Çªº¡AµLªk¥Î¯S®í´M§ä§ä¨ì±`¼ÆÀx¦s®æ¡A¥[¤W¤W­±ªº­«·s½á­È´N¥i¥H¤F¡A¤£ª¾¹D¬O¬°¤°»ò::(
§Úªº§PÂ_ÅÞ¿è¬O¸Ó¦æ¦³¬P¸¹´N¶À¦â¡A¨S¬P¸¹´N©M¤W¤@¶¥¦P¦â¡A(¨Ã³]©w²Ä0¶¥¬°¬õ¦â)¡C

TOP

¦^´_ 12# stillfish00


   ¥[¤F¨º¦æ´NOK!!!
  
   ÁÂÁÂstillfish00¤j

   §Ú¦A¨Ó¬ã¨s¬ã¨s»yªkªº¤º®e

   : )

TOP

¦^´_ 8# GBKEE

·Q°_°Ýª©¥D¤j¤j
R = .Range("A" & i).Resize(, 5).Find("*", .Range("A" & i))

¬°¤°»òR·|¦L¥XÀx¦s®æªº¼Æ¦r?
.Range("A" & i).Resize(, 5)     <-³o¬q¬O¿ï¨úAÄæ¨ìF§a
.Find("*", .Range("A" & i))      <-³o¬O§ä¦³*ªºÀx¦s®æ¦ì¸m¡A±qAÄæ¶}©l§ä§a

¤£ª¾³o¼Ëªº²z¸Ñ¹ï¤£¹ï

¦ý§Ú¤£²M·¡¬°¤°»ò¥L·|¦^¶Ç«e­±ªº¼Æ¦r
¥H¤U¥Î¥N½Xªº°Ï¶ô
  1. A     B     C     D     E     F
  2. 1                                      *          <-¦^¶Ç1
  3.          2                                         <-¦^¶Ç2
  4.          2                                         <-¦^¶Ç2
  5.                  3                     *          <-¦^¶Ç3
½Æ»s¥N½X
³Â·Ð¤j¤jÀ°§Ú¸Ñ´b¤@¤U   ÁÂÁ : )

TOP

¦^´_ 14# li_hsien
Find("") ->´M§äªÅ¥ÕªºÀx¦s®æ
Find("*") ->´M§ä¥ô¦ó¦³¸ê®ÆªºÀx¦s®æ
.Find("*", .Range("A" & i))   ¨S¿ù : ¬O§ä¦³¦³¸ê®ÆªºÀx¦s®æ¦ì¸m¡A±qAÄæ¶}©l§ä§a
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# GBKEE

½Ð°Ý :

Find("*") ->´M§ä¥ô¦ó¦³¸ê®ÆªºÀx¦s®æ

©Ò¥H¤W­±³o­Ó*¦r¸¹

¨Ã¤£¬O§äFÄ檺*

¦Ó¬O«ü"¦³¸ê®Æ"(«DªÅ­È)ªº·N«ä¶Ü???

TOP

¦^´_ 16# li_hsien
.Range("A" & i).Resize(, 5).Find("*", .Range("A" & i))
Resize±N«ü©wÂX¥R¬°(´X¦C,´XÄæ)ªº½d³ò -> Ai:Ei ªº½d³ò.Find("*", .Range("A" & i))->Find("*" : ´M§ä¦³¸ê®ÆªºÀx¦s®æ.
FÄ檺* ¦b³o¸Ì§PÂ_¥X¨Ó -> ElseIf .Range("F" & i) = "*" Then
  1. Dim flag(1 To 5) As Boolean-> ªì©l¤Æ 1 - 5 ¬° False
  2. If .Range("F" & i) = "*" And R = 1 Then Erase flag
  3. '*************************
  4. Erase ³¯­z¦¡
  5. ­«·sªì©l¤Æ©T©w¤j¤p°}¦Cªº¤¸¯À¡A¨ÃÄÀ©ñ°ÊºA°}¦CªºÀx¦sªÅ¶¡¡C-> 1 - 5 ¬° False
  6. '*******************************************
  7.   
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 17# GBKEE

ÁÂÁªO¤j

§Ú´ú¸Õ¤F´X¦¸´N²M·¡¤F

¤S¾Ç¨ì¤F¤@¨ÇªF¦è

ÁÂÁÂ : )

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD