[已解决]单击Command1按钮就复制内容

lidaoying6

1、我需要Combobox读取Sheet1，A1数据，
Private Sub UserForm_Initialize()
Me.ComboBox1.Text = Sheet1.Range("A1")
End Sub
然后将Combobox1控件的Style参数设置成2-fmstyle...的时候，运行提示错误，如图：如果将Style参数设置成1-...的时候就可以正常运行，但是我想的效果是读取Sheet1，A1数据，然后Combobox不可以输入其他数据和只能选着Combobox下拉列表的数据，不可以手动输入文字这些

2、怎么单击Command1按钮就复制Combobox1里面的数据到剪切板里面，因为我要粘贴到另外的地方。

最佳答案

月排行榜 / 总排行榜

冥王

2015-6-12 17:33

1. Private Sub CommandButton1_Click()
   
2.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  '后期绑定DataObject,将文本放入剪贴板
   
3.         .SetText Sheet1.Range("A1")
   
4.         .PutInClipboard
   
5.     End With
   
6.     MsgBox "复制Combobox内容成功，已经复制到剪切板"
   
7. End Sub
   
8. 
   
9. 
   
10. 
    
11. Private Sub UserForm_Initialize()
    
12.     Me.ComboBox1.AddItem Sheet1.Range("A1")
    
13. End Sub

复制代码

跳转到最佳答案楼层

lidaoying6

附件忘记传了

lidaoying6

附件忘记了

wayy

[i=s] 本帖最后由 wayy 于 2015-6-12 17:43 编辑 [/i]

发错贴子了，不好意思

冥王

1. Private Sub CommandButton1_Click()
   
2.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  '后期绑定DataObject,将文本放入剪贴板
   
3.         .SetText Sheet1.Range("A1")
   
4.         .PutInClipboard
   
5.     End With
   
6.     MsgBox "复制Combobox内容成功，已经复制到剪切板"
   
7. End Sub
   
8. 
   
9. 
   
10. 
    
11. Private Sub UserForm_Initialize()
    
12.     Me.ComboBox1.AddItem Sheet1.Range("A1")
    
13. End Sub

复制代码

lidaoying6

冥王 发表于 2015-6-12 17:33

非常感谢，谢谢

lidaoying6

冥王 发表于 2015-6-12 17:33

lidaoying6

冥王 发表于 2015-6-12 17:33

还有一个是我要让A1数据显示在COMBOBOX1，的文本上，而不是Me.ComboBox1.AddItem Sheet1.Range("A1")的AddItem列表上面呢