VBA如何获取工作表单选按钮的值（非VBA窗体控件）

非窗体控件中的optionbutton如果要取它的属性，必须这么表示

If Sheets("sheet1")optionbutton2objectValue = true Then

由于你是整列读取的，应该用for循环语句，见下面代码：

Sub 写入()

Sheets("sheet1")Select

'sheet1A列写入sheet2的C列

For i = 1 To [a65536]End(xlUp)Row

Sheets("sheet2")Range("c" & i) = Format(Range("a" & i), "MMDDYY")

Next

'sheet1B列写入sheet2的D列

For i = 1 To [b65536]End(xlUp)Row

Sheets("sheet2")Range("d" & i) = Format(Range("a" & i), "hhmmss")

Next

End Sub

vba上的窗体显示在sheet界面可以通过将Top和Left的值分别设置为Sheet的Top和Left来将UserForm显示在Sheet的界面。根据查询相关公开信息显示：使用ActiveWindow对象来获取当前活动窗口的位置和大小，并将UserForm的Top和Left属性设置为当前窗口的中心位置。这样，当UserForm显示时，它将位于Sheet界面的正中心位置。

Sub t()

l = 0

For lie = 1 To 255

For hang = 1 To Cells(65536, lie)End(xlUp)Row

If l < Len(Cells(hang, lie)) Then

l = Len(Cells(hang, lie))

r = hang

c = lie

End If

Next

Next

MsgBox "最长的是第" & r & "行第" & c & "列的单元格，长度为：" & l & "个字符" & vbCrLf & "内容为：" & Cells(r, c)Value

End Sub

你的题目是“VB中如何使用EXCEL控件（sheet1控件）来导入EXCEL数据“

但要求是：”另外还有几个要求：

1：不用VB的其他表格去实现该功能，因为我VBA的代码没办法移植，代码有很多。重写太复杂

2：不用VB后台 *** 作EXCEL的方法，要再VB中处理数据，而不是用VB去 *** 作EXCEL处理数据”

好像不行吧，使用VB导入Excel，但又不希望使用VB控件，你认为可能吗？

其实使用VB导入Excel，不是特别复杂，很简单的，不像VBA。

以上就是关于VBA如何获取工作表单选按钮的值（非VBA窗体控件）全部的内容，包括:VBA如何获取工作表单选按钮的值（非VBA窗体控件）、VBA中，各个sheet的读取和写入这么个引用呢。Sheet!A、vba上的窗体怎么显示在sheet界面等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！