返回列表 上一主題 發帖

copy註解格式的語法 ??

copy註解格式的語法 ??

copy a1的註解格式 到b1 語法是??(只要格式)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

錄製不出來嗎?
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

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

Range("A1").Copy
    Range("B1").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
這是拷全部的註解含格式,我只要格式
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# t8899


        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復  t8899


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


    沒效果 Book1.zip (6.66 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 5# t8899

註解物件無法以複製/選擇性貼上格式
但可以取得文字的格式然後到目標區設定格式
  1. Sub ex()
  2. With Range("H1").Comment.Shape
  3.    With .TextFrame.Characters.Font
  4.    MsgBox .FontStyle  '字體粗斜
  5.    MsgBox .ColorIndex  '文字顏色
  6.    MsgBox .Name  '字型
  7.    MsgBox .Size  '文字大小
  8.    End With
  9. End With
  10. End Sub
複製代碼
學海無涯_不恥下問
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 1# t8899
  1. Sub Ex()
  2.     With ActiveSheet
  3.         .[H1].Copy .[B1]
  4.         With .[B1]
  5.             .Value = ""
  6.             .NoteText "OK!"
  7.         End With
  8.     End With
  9.         
  10. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

兩位版主的答案都可解決我的問題,謝謝指導
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題