返回列表 上一主題 發帖

[發問] 代替COPY ???

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-29 14:29 | 只看該作者

[發問] 代替COPY ???

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

收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2015-8-31 19:09 | 只看該作者
字串中文字個別標色, [格式複製]也辦不到, copy是最方便!

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

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
3#
發表於 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是空白的)

TOP

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
260  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
4#
發表於 2015-9-1 07:15 | 只看該作者
回復 3# t8899

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題