- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-25
|
[Âà¶K] Âà¶K Clipboard - ¦s¨ú°Å¶Kï
Âà¶K¦Û½׾Âleonchou ª©¥D Clipboard - ¦s¨ú°Å¶Kï
DataObject ¬OÀ³¥Îµ{¦¡©M°Å¶Kï(Clipboard)¤§¶¡ªº¾ô¼Ù¡A
¥i¥H³z¹L DataObject ª«¥ó¦s¨ú°Å¶K諸¤º®e¡C
DataObject ¤º®e·|ÀHµÛÀ³¥Îµ{¦¡Ãö³¬¦Ó®ø¥¢¡A
¦Ó°Å¶K鷺®e«h¥un¤£Â÷¶}Windows´N¤£·|®ø¥¢¡C
¥H¤Uµ{¦¡·|«Å§i¨Ã¥Î¨ì DataObject ª«¥ó«¬ºA¡A
¨Ï¥Î«e¥²¶·½T©w¤w¤Þ¥Î MS Forms 2.0 Object Library¡C
(³]©w¤Þ¥Îµ{¦¡®wªº¤è¦¡½Ð°Ñ¦Ò¤U¹Ï)
Sub ¨ú±o°Å¶K鷺®e()
¡@Dim data As New DataObject
¡@data.GetFromClipboard
¡@Range("A1") = data.GetText(1)
End Sub
Sub ¼g¤J°Å¶Kï()
¡@Dim data As New DataObject
¡@chars = [A1].Characters(3, 5).Text '¨ú±oA1³¡¥÷¤º®e
¡@data.SetText chars '¼g¤JDataObject
¡@data.PutInClipboard '¼g¤J°Å¶Kï
¡@[B1].Select
¡@ActiveSheet.Paste '¦A¶K¨ìB1
End Sub
Sub ²M°£°Å¶K鷺®e()
¡@Dim data As New DataObject
¡@Set data = New DataObject
¡@data.SetText ""
¡@data.PutInClipboard
End Sub
§A¥i¥H¹ï DataObject ¨Ï¥Î Clear ¤èªk¨Ó²M°£¥¦ªº¤º®e¡A
¦ý³o¤èªk¦b³o¸Ì¨Ã¤£¹ê»Ú¡A
¤£¦pª½±µ¶Ç°e¤@ӪŦr¦ê¨ì°Å¶Kï¸Ì¡A¦p¤W±½d¨Ò¡C |
|