麻辣家族討論版版 » Excel程式區 » copy註解格式的語法 ??

返回列表下一主題上一主題發帖

copy註解格式的語法 ??

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-11-1 09:32 | 只看該作者

copy註解格式的語法 ??

copy a1的註解格式到b1 語法是??(只要格式)

樓主熱帖

收藏

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

8^#

發表於 2017-11-2 10:14 | 只看該作者

兩位版主的答案都可解決我的問題，謝謝指導

超級版主 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兔年全勤獎章

7^#

發表於 2017-11-2 09:41 | 只看該作者

回復 1# t8899

Sub Ex()
With ActiveSheet
.[H1].Copy .[B1]
With .[B1]
.Value = ""
.NoteText "OK!"
End With
End With
End Sub

複製代碼

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

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2017-11-2 08:53 | 只看該作者

回復 5# t8899

註解物件無法以複製/選擇性貼上格式
但可以取得文字的格式然後到目標區設定格式

Sub ex()
With Range("H1").Comment.Shape
With .TextFrame.Characters.Font
MsgBox .FontStyle '字體粗斜
MsgBox .ColorIndex '文字顏色
MsgBox .Name '字型
MsgBox .Size '文字大小
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

5^#

發表於 2017-11-1 19:59 | 只看該作者

回復 t8899

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ ...
yiwei0707 發表於 2017-11-1 13:50

沒效果

Book1.zip (6.66 KB)

小學生 Rank: 1

帖子: 20
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: OS X & Windows 10
軟體版本: Office 2003 & Office 365
閱讀權限: 10
性別: 男
註冊時間: 2017-7-20
最後登錄: 2022-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-11-1 13:50 | 只看該作者

回復 3# t8899

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

3^#

發表於 2017-11-1 13:17 | 只看該作者

錄製不出來嗎？
linyancheng 發表於 2017-11-1 10:51

Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
這是拷全部的註解含格式，我只要格式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

2^#

發表於 2017-11-1 10:51 | 只看該作者

錄製不出來嗎？

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題