標題: [發問] 如何將A欄相同的字, 插入新欄位新增到B欄裡 [打印本頁]

---

作者: v03586    時間: 2016-2-11 23:50     標題: 如何將A欄相同的字, 插入新欄位新增到B欄裡

麻煩大大將EXCEL 資料表上Start 資料表上按鈕寫入功能
直接將FMC資料表做改變

請問一下高手如何將已合併的欄位如下圖
[attach]23260[/attach]
轉換成下圖?
[attach]23261[/attach]
就是把A欄位Product 整合到B欄位的最上欄

[attach]23262[/attach]

---

作者: 准提部林    時間: 2016-2-14 16:16

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

---

作者: v03586    時間: 2016-2-15 01:00

回復 2# 准提部林


     感謝版大再次鼎力相助!!!! 另想詢問一下版大 EXCEL 是否能做到即時看板系統? 還是這種系統只能用網頁+SQL資料庫 去呈現呢?
如這篇所發問

---

作者: v03586    時間: 2016-4-15 02:09

回復 2# 准提部林


    請問大大 , 如果要將這個功能變成插入後Product   A 那欄 欄寬變24,  A 欄~Y欄 反底色黃色
怎麼修改呢?  如圖, 只是反色範圍有自訂到Y欄

[attach]23853[/attach]


我用錄製的程式碼  請教大大如何修改

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

複製代碼

---

作者: 准提部林    時間: 2016-4-15 10:31

回復 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

複製代碼

---

作者: v03586    時間: 2016-4-15 23:08

回復 5# 准提部林


    感謝大大提點!!!! 修改完成囉~~~

---

作者: v03586    時間: 2016-4-18 13:31

回復 5# 准提部林


    在問一下....如果要將字體大小調整
加入這一行無效...請問要在哪邊加入呢？
xRG(0).size = 20

---

作者: 准提部林    時間: 2016-4-18 14:38

回復 7# v03586


xR(0).FONT.size = 20

沒用過語法, 用錄製取得!

---

作者: v03586    時間: 2016-4-18 16:28

回復 8# 准提部林


    似乎沒有改變字型大小@@

---

作者: v03586    時間: 2016-4-18 17:58

回復 8# 准提部林


    找到方法了！
xR(0,4).Font.Size = 20

就能解決！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)