育才学习网1.VB中按钮复制后的代码写法
Private Sub Command1_Click(Index As Integer)
INDEX=1时就是Command1(1),INDEX=2就是Command1(2)。可以这样：
SELECT CASE INDEX
CASE 1
按下Command1(1)时
CASE 2
按下Command1(2)时
.
.
.
END SELECT
End Sub
2.如何设置按钮点击就会复制指定区域的数值
兄弟这个不需要写什么代码。只需要录制一下宏就行了。
Sub Macro1()
Range("B2:D20").Select
Selection.Copy
Range("H5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub macro2()
Range("B2:D20").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
创建二个按钮，指定这二个宏行了
3.复制和粘贴的代码要怎么写
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
End Sub
4.求单击按钮能复制文本框内容的代码
样式.blockcode .headactions { color: #333; font-size: 12px; cursor: pointer; padding-top: 8px; } 中cursor: pointer；就是鼠标为小手形状了=====================================================<style> h5{ margin: 0; padding: 0; } .headactions { float: right; line-height: 1em; padding: 10px 10px 0 0; } .t_msgfont { font-size: 14px; line-height: 1.6em; } .t_msgfont * { line-height: normal; } .t_msgfont li { margin-left: 2em; } .blockcode { font-size: 12px; margin: 10px 20px; border: solid #5B5B5B; border-width: 4px 1px 1px; background: #EAEAEA url(".cn/images/default/portalbox_bg.gif"); background- repeat: repeat-x; background-position: 0 0; overflow: hidden; } .blockcode h5 { border: 1px solid; border-color: #EAEAEA #EAEAEA #5B5B5B #EAEAEA; line-height: 26px; padding-left: 5px; color: #333; } .blockcode code { margin: 1em 1em 1em 3em; line-height: 1.6em; } .blockcode code { font: 14px/1.4em "Courier New", Courier, monospace; display: block; padding: 5px; } .blockcode .headactions { color: #333; font-size: 12px; cursor: pointer; padding-top: 8px; } </style> copycode(document.all.codetext)；" >复制内容到剪贴板
代码：
文本的内容 PS：分分^_^Y。
转载请注明出处育才学习网 » 按钮自动复制代码怎么写