t8899

大學生 Rank: 4

帖子: 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)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

大學生 Rank: 4

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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 | 只看該作者

Sub CommandButton1_Click()
Dim i As Integer, A As Integer, C As Integer
With Range("I65536").End(xlUp).Offset(1)
.Cells = [H1]
i = 1
Do
A = IIf(i = 1, i, i + 1)
i = Application.WorksheetFunction.Find(",", .Cells, i + 1)
C = [H1].Characters(Start:=A, Length:=i - A).Font.ColorIndex
.Characters(Start:=A, Length:=i - A).Font.ColorIndex = C
Loop Until i >= Len(.Cells)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP