VBA编程,在EXCEL中选中单元格,然后弹出一个UserForm窗口,窗口里有OptionButton

VBA编程,先在EXCEL中选中单元格范围,然后弹出一个UserForm窗口,窗口里有OptionButton,还有“执行”按钮,我想要在选中了不同的OptionButton后(比如我选择了“时间”OptionButton),再点击“执行”按钮,则把之前选中的单元格中的内容拷贝到sheet2中的A1里,并在A2里写入OptionButton代表的内容!(即选中的“时间” option)

【则把之前选中的单元格中的内容拷贝到sheet2中的A1里】
请问,这个【选中的单元格】的数据是如何更新的?因为楼主已经决定
【先在EXCEL中选中单元格范围,然后弹出一个UserForm窗口】了,
所以没有机会在【选中单元格】后输入数据了。追问

不需要输入啊,我的本意是把原来选中单元格里的值拷贝到另一个sheet2的A1单元格里,当然如果原来选中的是几个单元格,那么依次拷贝到sheet2的A1,A2,A3单元格中,并在sheet2的其他列的单元格,比如B1中这区OptionButton所代表的值,比如OptionButton代表时间

追答

你说的动作我明白,我只是疑惑,被选中的数据是怎么产生的

追问

被选中的数据是原来Excel中就存在的,OptionButton的内容的话是弹出的窗口中你选择的,比如选择optionbutton1选中代表时间,optionbutton2选中代表地点,大神给个Demo

追答

做了一个样本,能力有限,算是抛砖引玉吧

温馨提示:内容为网友见解,仅供参考
无其他回答

VBA编程,在EXCEL中选中单元格,然后弹出一个UserForm窗口,窗口里有Optio...
【先在EXCEL中选中单元格范围,然后弹出一个UserForm窗口】了,所以没有机会在【选中单元格】后输入数据了。

vba optionbotton在userform里的使用方法
Private Sub CommandButton1_Click()If Me.OptionButton1.Value = True Then Cells(1, 1) = OptionButton1.Caption ElseIf Me.OptionButton2.Value = True Then Cells(1, 1) = OptionButton2.Caption Else Cells(1, 1) = ""End If End Sub ...

Vba 我在excel中插入一窗体,在窗体上插入三个选项按钮和一命令按钮...
窗体上双击命令按钮,插入以下代码。Private Sub CommandButton1_Click()If OptionButton1.Value = True Then Range("名称1").Select ElseIf OptionButton2.Value = True Then Range("名称2").Select ElseIf OptionButton3.Value = True Then Range("名称3").Select End If End Sub ...

vba代码编写求助!我做了一个窗体,想实现点击查询后能显示已经输入了的信...
OptionButton2.Value = 1 ElseIf Range("G" & mrow1).Value = OptionButton3.Caption Then OptionButton3.Value = 1 End If End Sub Private Sub 清空数据_Click()TextBox1.Value = ""TextBox2.Value = ""ComboBox1.Value = ""ComboBox2.Value = ""ComboBox3.Value = ""TextBox4.Value...

Excel vba中插入若干OptionButton控件,如何输出选中项
烦一点就是在每个OptionButton控件的点击事件内写入代码。简单一点,可以用一个其他按钮代替,在这按钮内 用FOR EACH 遍历,然后用 SELECT CASE 逐个判断

VBA userform command botton限定
给个思路:textbox输入数据可以用:len(textbox.text)<>0来判断,0为没有数据 listbox是否选择可以用 :listbox.selectedIndex<>-1来判断,-1就是没选择 optionbutton可以在optionButton_click()事件中判断,如果发生了,全局变量flag(自定义)就可以设定为true,否则为false 在程序启动时,设置command...

EXCEL VBA单选按钮选择后,怎样使用命令按钮在单元格内赋值?
我的感觉:If 是.Value = True Then 这里的value是当前页的按钮值,所以你每次都是把所有记录刷新为当前选择的答案。应该用类似如下代码获取value multipage1.pages(0).optionbutton1.value 是page 0的按钮1的值 希望对你有帮助

求改变Excel中OptionButton背景颜色的VBA代码
Public Sub aa()Sheet1.OptionButton1.BackColor = 255 End Sub 如上,赋值就行了啊。。。以上是红色

我想利用VBA向Excel的sheet中插入optionbutton ,插入的同时设置其属性...
应该是建立了 代码没有问题 只是多次执行后 会有新的optionbutton 覆盖在前面 你的标题1看不见了而已

excel vba窗体控件,选项按钮的点击问题
Private Sub OptionButton1_Click() Sheets(1).Select 'Sheets("1月").SelectEnd SubPrivate Sub OptionButton2_Click() Sheets(2).SelectEnd SubPrivate Sub OptionButton3_Click() Sheets(3).SelectEnd Sub...是这样的吗,我的没问题啊。要加 OptionButton 不要加 CheckBox ...

相似回答