[µo°Ý] ¦p¦ó±NAÄæ¬Û¦Pªº¦r, ´¡¤J·sÄæ¦ì·s¼W¨ìBÄæ¸Ì

v03586

³Â·Ð¤j¤j±NEXCEL ¸ê®Æªí¤WStart ¸ê®Æªí¤W«ö¶s¼g¤J¥\¯à
ª½±µ±NFMC¸ê®Æªí°µ§ïÅÜ

½Ð°Ý¤@¤U°ª¤â¦p¦ó±N¤w¦X¨ÖªºÄæ¦ì¦p¤U¹Ï

¤U¸ü (56.4 KB)

2016-2-11 23:48

Âà´«¦¨¤U¹Ï?

¤U¸ü (53.15 KB)

2016-2-11 23:48

´N¬O§âAÄæ¦ìProduct ¾ã¦X¨ìBÄæ¦ìªº³Ì¤WÄæ

TEST.rar (19.33 KB)

¤U¸ü¦¸¼Æ: 11

2016-2-11 23:50

v03586

¦^´_ 8# ­ã´£³¡ªL


    §ä¨ì¤èªk¤F¡I
xR(0,4).Font.Size = 20

´N¯à¸Ñ¨M¡I

v03586

¦^´_ 8# ­ã´£³¡ªL


    ¦ü¥G¨S¦³§ïÅܦr«¬¤j¤p@@

­ã´£³¡ªL

¦^´_ 7# v03586


xR(0).FONT.size = 20

¨S¥Î¹L»yªk, ¥Î¿ý»s¨ú±o!

v03586

¦^´_ 5# ­ã´£³¡ªL


    ¦b°Ý¤@¤U....¦pªG­n±N¦rÅé¤j¤p½Õ¾ã
¥[¤J³o¤@¦æµL®Ä...½Ð°Ý­n¦b­þÃä¥[¤J©O¡H
xRG(0).size = 20

v03586

¦^´_ 5# ­ã´£³¡ªL


    ·PÁ¤j¤j´£ÂI!!!! ­×§ï§¹¦¨Åo~~~

­ã´£³¡ªL

¦^´_ 4# v03586

1. Sub test()
   
2. Dim i&, xR As Range, T$
   
3. For i = 9 To [FMC!A65536].End(xlUp).Row
   
4.     Set xR = [FMC!A1].Cells(i, 1)
   
5.     If xR = "" Or xR = T Then GoTo 101
   
6.     [FMC!1:1].Copy
   
7.     xR.Insert Shift:=xlDown
   
8.     xR(0, 2) = "Product"
   
9.     xR(0, 4) = xR
   
10.     xR(0).RowHeight = 24
    
11.     xR(0).Resize(1, 26).Interior.Color = vbYellow
    
12.     T = xR:  i = i + 1
    
13. 101: Next
    
14. [FMC!A:A].EntireColumn.Delete
    
15. End Sub

½Æ»s¥N½X

v03586

¦^´_ 2# ­ã´£³¡ªL


    ½Ð°Ý¤j¤j , ¦pªG­n±N³o­Ó¥\¯àÅܦ¨´¡¤J«áProduct   A ¨ºÄæ Äæ¼eÅÜ24,  A Äæ~YÄæ ¤Ï©³¦â¶À¦â
«ç»ò­×§ï©O?  ¦p¹Ï, ¥u¬O¤Ï¦â½d³ò¦³¦Û­q¨ìYÄæ

¤U¸ü (51.29 KB)

2016-4-15 02:09

§Ú¥Î¿ý»sªºµ{¦¡½X  ½Ð±Ð¤j¤j¦p¦ó­×§ï

1.     Rows("3:3").Select
   
2.     Selection.RowHeight = 24
   
3.     Range("A3:Y3").Select
   
4.     With Selection.Interior
   
5.         .Pattern = xlSolid
   
6.         .PatternColorIndex = xlAutomatic
   
7.         .Color = 65535
   
8.         .TintAndShade = 0
   
9.         .PatternTintAndShade = 0
   
10.     End With

½Æ»s¥N½X

v03586

¦^´_ 2# ­ã´£³¡ªL


     ·PÁª©¤j¦A¦¸¹©¤O¬Û§U!!!! ¥t·Q¸ß°Ý¤@¤Uª©¤j EXCEL ¬O§_¯à°µ¨ì§Y®É¬ÝªO¨t²Î? ÁÙ¬O³oºØ¨t²Î¥u¯à¥Îºô­¶+SQL¸ê®Æ®w ¥h§e²{©O?
¦p³o½g©Òµo°Ý

­ã´£³¡ªL

Sub test()
Dim i&, xR As Range, T$
For i = 9 To [FMC!A65536].End(xlUp).Row
¡@¡@Set xR = [FMC!A1].Cells(i, 1)
¡@¡@If xR = "" Or xR = T Then GoTo 101
¡@¡@[FMC!1:1].Copy
¡@¡@xR.Insert Shift:=xlDown
¡@¡@xR(0, 2) = "Product"
¡@¡@xR(0, 4) = xR
¡@¡@T = xR:  i = i + 1
101: Next
[FMC!A:A].EntireColumn.Delete
End Sub