ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

TOP

¿ý»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®æ¦¡

TOP

¦^´_ 3# t8899


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

TOP

¦^´_  t8899


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


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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

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
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD