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

¥i¥H«Ü§Öªº§ä¨ì¸ê®Æ¶Ü?

¥i¥H«Ü§Öªº§ä¨ì¸ê®Æ¶Ü?

¥»©«³Ì«á¥Ñ am0251 ©ó 2011-6-21 11:50 ½s¿è

§Ú­n°µ¤@­Óªí,¬O³o¼Ëªº("A7:A32, C7:C32, E7:E32")¬O¦WºÙ,("B7:B32, D7:D32, F7:F32")¬O¼Æ¶q,¦pªG"¼Æ¶q"ªº¤@®æ¦³¼Æ¦rªº¸Ü,¥ªÃ䪺"¦WºÙ"&"¼Æ¶q"ªº¦rÅé´N·|¥Ñ"14"Åܤj¨ì"16",¦rÅé¤]·|Åܦ¨"²ÊÅé"¦ý¦pªG"¼Æ¶q"ªº¤@®æ¨S¦³¼Æ¦rªº¸Ü,´NÅܦ^­ì¥»ªº¤j¤p,¤§«á¦A§â¦³"¼Æ¶q"ªº¤@®æ³s¦P"¦WºÙ"¤@°_COPY¨ì¤U¤@­¶,§Úªºµ{«×¥u·|¥Î"IF"ªº¤èªk,¨C¤@®æªº¤u§@,§Úª¾¹D³o¼Ë°µ«Ü²Â,¦³°ª¤â¥i¥H±Ð§Ú¤@¤U§ó§Öªº¤èªk¶Ü?ÁÂÁÂ!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# am0251


    SpecialCells(xlCellTypeConstants)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«äSpecialCells(xlCellTypeConstants)³o«ü¥O,§ÚÁÙ¨S¾Ç¹L,¥i¥H±Ð§Ú¤@¤U«ç»ò¥Î¶Ü?«D±`·PÁÂ~!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# am0251
  1. Sub nn()
  2. Range("A7:E32").Font.Size = 14 'ÁÙ­ì®æ¦¡
  3. Range("A7:E32").Font.Bold = False
  4. If Application.CountA(Range("B7:B32, D7:D32, F7:F32")) > 0 Then '¼Æ¶qÄæ¦ì
  5.    For Each a In Range("B7:B32, D7:D32, F7:F32").SpecialCells(xlCellTypeConstants) '¼Æ¶qÄæ¦ì¦³¸ê®Æªº¦ì¸m
  6.       a.Offset(, -1).Font.Size = 16 '§ïÅܮ榡
  7.       a.Offset(, -1).Font.Bold = True
  8.       With Sheets(2)
  9.          a.Offset(, -1).Resize(, 2).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) '½Æ»s¨ì²Ä2¤u§@ªíAÄæ
  10.       End With
  11.    Next
  12. End If
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«D±`ªº·PÁÂ,¤£¹L¦pªG§Ú­n½Æ»s¨ì§Oªº¤u§@ªí,¸ô®|¥i¥H¦b­þ¸Ì¦A©O?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# am0251


    ½Æ»s?? ¬O¸ê®Æ½Æ»sÁÙ¬O¥¨¶°½Æ»s?
¥¨¶°ªº¸Ü ¥u­n±N¸Ó¥¨¶° ¶×¥X ¦b¶×¤J§Y¥i

TOP

¤£,­è¤~Hsieh¤j¤jÀ°§Ú§âµ²ªG½Æ»s¨ìSheets(2),¦ý¦pªG§Ú­n½Æ»s¨ì§Oªº¤u§@ªí,¬O§_¥u¬O§âSheets(2)§ï¦¨§Oªº¸ô®|´N¥i¥H¤F?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD