[發問] 代替COPY ???

t8899

[I2]=[H1]  顏色沒有拷過來???
除了用 [H1].COPY [I2] 外 還有其他方法嗎 ??? Book2.zip (7.95 KB)

下載次數: 7

2015-8-29 14:29

下載 (23.3 KB)

2015-8-29 14:29

准提部林

字串中文字個別標色, [格式複製]也辦不到, copy是最方便!

程式one by one執行, 不懂這個copy為何會與其它copy相衝突???

t8899

字串中文字個別標色, [格式複製]也辦不到, copy是最方便!

程式one by one執行, 不懂這個copy為何會與其它 ...
准提部林 發表於 2015-8-31 19:09

假設你在word用copy  
再切回excel  vb用 [a1].copy  [a2]
則word 的 copy將消失(paste是空白的)

Scott090

回復 3# t8899

作業系統的剪貼簿只有一個，
copy , paste透過剪貼簿執行, 應用程式共用，前一個在剪貼簿中的資料會被後一個 copy進來的資料覆蓋

GBKEE

1. Sub CommandButton1_Click()
   
2.     Dim i As Integer, A As Integer, C As Integer
   
3.     With Range("I65536").End(xlUp).Offset(1)
   
4.         .Cells = [H1]
   
5.         i = 1
   
6.         Do
   
7.             A = IIf(i = 1, i, i + 1)
   
8.             i = Application.WorksheetFunction.Find(",", .Cells, i + 1)
   
9.             C = [H1].Characters(Start:=A, Length:=i - A).Font.ColorIndex
   
10.             .Characters(Start:=A, Length:=i - A).Font.ColorIndex = C
    
11.         Loop Until i >= Len(.Cells)
    
12.     End With
    
13. End Sub

複製代碼