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

am0251

§Ú­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¶Ü?ÁÂÁÂ!!

am0251

¤£,­è¤~Hsieh¤j¤jÀ°§Ú§âµ²ªG½Æ»s¨ìSheets(2),¦ý¦pªG§Ú­n½Æ»s¨ì§Oªº¤u§@ªí,¬O§_¥u¬O§âSheets(2)§ï¦¨§Oªº¸ô®|´N¥i¥H¤F?

mark15jill

¦^´_ 5# am0251


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

am0251

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

Hsieh

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

am0251

¤£¦n·N«äSpecialCells(xlCellTypeConstants)³o«ü¥O,§ÚÁÙ¨S¾Ç¹L,¥i¥H±Ð§Ú¤@¤U«ç»ò¥Î¶Ü?«D±`·PÁÂ~!!

Hsieh

¦^´_ 1# am0251


    SpecialCells(xlCellTypeConstants)