请问怎样能把以上控件窗口选取的结果输出在某一单元格里？

kahnsong · 发表于 2012-7-19 12:45

请问请问怎样能把以上控件窗口选取的结果输出在某一单元格里？

谢谢了！

baoshishang · 发表于 2012-7-21 15:21

如果你的每个控键名应该是可以知道的, 则可在相应的单元格中登记该值

cells(activecell.row,1)=controls(i)

( 当前行, 第1列) 控键号(也可控键名称)

做好相应的循环, 即可
余类推

xsy我可以很好 · 发表于 2012-7-21 20:22

Private Sub OptionButton1_Click()
[sheet1!a1].value=OptionButton1.caption
End Sub
Private Sub OptionButton2_Click()
[sheet1!a1].value=OptionButton2.caption
End Sub

kahnsong · 发表于 2012-7-24 09:29

baoshishang 发表于 2012-7-21 15:21
如果你的每个控键名应该是可以知道的, 则可在相应的单元格中登记该值

cells(activecell.row,1)=controls ...

谢谢了，回头我再试试~

kahnsong · 发表于 2012-7-24 09:32

xsy我可以很好发表于 2012-7-21 20:22
Private Sub OptionButton1_Click()
[sheet1!a1].value=OptionButton1.caption
End Sub

谢谢了，回头我再试试~

baoshishang · 发表于 2012-7-31 21:17

if optionbutton1=true then
cells(i,j)="Supplier"
elseif optionbutton2=true then
cells(i,j)="Warehouser"
elseif optionbutton3=true then
cells(i,j)="Q/A"
elseif optionbutton4=true then
cells(i,j)="Assy"
elseif optionbutton5=true then
.......
endif

这样可以了?

		自动登录	找回密码
密码			免费注册