设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 请老师们帮忙修改代码
数据透视表40+个常用小技巧，让你一次学会！
返回列表 发新帖
查看: 1639|回复: 3

[已解决]请老师们帮忙修改代码

[复制链接]
qwe
发表于 2011-10-16 23:22 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
请老师们帮忙修改代码
最佳答案
月排行榜 / 总排行榜
mxg825
2011-10-17 13:07
  1. Private Sub OptionButton1_Click()
  2.    If OptionButton1 Then Call 复位(OptionButton1)
  3. End Sub
  4. Private Sub OptionButton2_Click()
  5.     If OptionButton2 Then Call 复位(OptionButton2)
  6. End Sub
  7. Private Sub OptionButton3_Click()
  8.     If OptionButton3 Then Call 复位(OptionButton3)
  9. End Sub
  10. Private Sub OptionButton4_Click()
  11.     If OptionButton4 Then Call 复位(OptionButton4)
  12. End Sub
  13. Function 复位(我的控件 As Object)
  14. Dim my As Object
  15. For Each my In Me.Controls
  16.    If (TypeName(my) = "CheckBox" Or _
  17.    TypeName(my) = "OptionButton") And _
  18.    my.Name <> 我的控件.Name Then my.Value = False
  19. Next
  20. End Function
复制代码
补上控件类型 判定

新建 Microsoft Excel 工作表.rar

9.91 KB, 下载次数: 11
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
mxg825
发表于 2011-10-16 23:39 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
  1. Private Sub OptionButton1_Click()
  2.    If OptionButton1 Then Call 复位(OptionButton1)
  3. End Sub
  4. Private Sub OptionButton2_Click()
  5.     If OptionButton2 Then Call 复位(OptionButton2)
  6. End Sub
  7. Private Sub OptionButton3_Click()
  8.     If OptionButton3 Then Call 复位(OptionButton3)
  9. End Sub
  10. Private Sub OptionButton4_Click()
  11.     If OptionButton4 Then Call 复位(OptionButton4)
  12. End Sub
  13. Function 复位(我的控件 As Object)
  14. Dim my As Object
  15. For Each my In Me.Controls
  16.    If my.Name <> 我的控件.Name Then my.Value = False
  17. Next
  18. End Function
复制代码
回复

使用道具 举报

qwe
 楼主| 发表于 2011-10-16 23:58 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
回复 mxg825 的帖子

为什么在Page2中点OptionButton控件会自动返回到Page1
这样要Page2中点复合框还要再多一个步骤
回复

使用道具 举报

mxg825
发表于 2011-10-17 13:07 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub OptionButton1_Click()
  2.    If OptionButton1 Then Call 复位(OptionButton1)
  3. End Sub
  4. Private Sub OptionButton2_Click()
  5.     If OptionButton2 Then Call 复位(OptionButton2)
  6. End Sub
  7. Private Sub OptionButton3_Click()
  8.     If OptionButton3 Then Call 复位(OptionButton3)
  9. End Sub
  10. Private Sub OptionButton4_Click()
  11.     If OptionButton4 Then Call 复位(OptionButton4)
  12. End Sub
  13. Function 复位(我的控件 As Object)
  14. Dim my As Object
  15. For Each my In Me.Controls
  16.    If (TypeName(my) = "CheckBox" Or _
  17.    TypeName(my) = "OptionButton") And _
  18.    my.Name <> 我的控件.Name Then my.Value = False
  19. Next
  20. End Function
复制代码
补上控件类型 判定
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-14 08:44 , Processed in 0.275646 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表