copyµù¸Ñ®æ¦¡ªº»yªk ??

t8899

copy a1ªºµù¸Ñ®æ¦¡ ¨ìb1 »yªk¬O??(¥u­n®æ¦¡)

linyancheng

¿ý»s¤£¥X¨Ó¶Ü¡H

t8899

¿ý»s¤£¥X¨Ó¶Ü¡H
linyancheng µoªí©ó 2017-11-1 10:51

Range("A1").Copy
    Range("B1").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
³o¬O«þ¥þ³¡ªºµù¸Ñ§t®æ¦¡¡A§Ú¥u­n®æ¦¡

yiwei0707

¦^´_ 3# t8899


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

t8899

¦^´_  t8899


        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ ...
yiwei0707 µoªí©ó 2017-11-1 13:50

    ¨S®ÄªG Book1.zip (6.66 KB)

¤U¸ü¦¸¼Æ: 5

2017-11-1 19:59

Hsieh

¦^´_ 5# t8899

µù¸Ñª«¥óµLªk¥H½Æ»s/¿ï¾Ü©Ê¶K¤W®æ¦¡
¦ý¥i¥H¨ú±o¤å¦rªº®æ¦¡µM«á¨ì¥Ø¼Ð°Ï³]©w®æ¦¡

1. Sub ex()
   
2. With Range("H1").Comment.Shape
   
3.    With .TextFrame.Characters.Font
   
4.    MsgBox .FontStyle  '¦rÅé²Ê±×
   
5.    MsgBox .ColorIndex  '¤å¦rÃC¦â
   
6.    MsgBox .Name  '¦r«¬
   
7.    MsgBox .Size  '¤å¦r¤j¤p
   
8.    End With
   
9. End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 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

½Æ»s¥N½X

t8899

¨â¦ìª©¥Dªºµª®×³£¥i¸Ñ¨M§Úªº°ÝÃD¡AÁÂÁ«ü¾É