Board logo

標題: [發問] 代替COPY ??? [打印本頁]
作者: t8899    時間: 2015-8-29 14:29     標題: 代替COPY ???

[I2]=[H1]  顏色沒有拷過來???
除了用 [H1].COPY [I2] 外 還有其他方法嗎 ???[attach]21862[/attach]
[attach]21862[/attach]
[attach]21863[/attach]
作者: 准提部林    時間: 2015-8-31 19:09

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

程式one by one執行, 不懂這個copy為何會與其它copy相衝突???
作者: t8899    時間: 2015-8-31 20:56

本帖最後由 t8899 於 2015-8-31 20:58 編輯
字串中文字個別標色, [格式複製]也辦不到, copy是最方便!

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


假設你在word用copy  
再切回excel  vb用 [a1].copy  [a2]
則word 的 copy將消失(paste是空白的)
作者: Scott090    時間: 2015-9-1 07:15

回復 3# t8899

作業系統的剪貼簿只有一個，
copy , paste透過剪貼簿執行, 應用程式共用，前一個在剪貼簿中的資料會被後一個 copy進來的資料覆蓋
作者: GBKEE    時間: 2015-9-1 10:04

  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
複製代碼




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