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

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

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

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

½Ð°Ý¤@¤U°ª¤â¦p¦ó±N¤w¦X¨ÖªºÄæ¦ì¦p¤U¹Ï
before.png
2016-2-11 23:48

Âà´«¦¨¤U¹Ï?
after.png
2016-2-11 23:48

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

TEST.rar (19.33 KB)

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

TOP

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

TOP

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


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

QQ.png
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

TOP

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

TOP

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


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

TOP

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


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

TOP

¦^´_ 7# v03586


xR(0).FONT.size = 20

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

TOP

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


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

TOP

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


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

´N¯à¸Ñ¨M¡I

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD