[已解决]选择设置

sparkguo · 发表于 2012-7-3 13:56

如何实现最多选择三项

比如说：已经选择了三项，选择第四项的时候，前面选择的三项自动少一项（始终保持选择的只有三项）

困扰我好长时间了

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-3 19:07

三项选择题.rar (10.43 KB, 下载次数: 10)

Select · 发表于 2012-7-3 15:35

为什么有两个工作簿？

看不懂题意

zjdh · 发表于 2012-7-3 19:07

三项选择题.rar (10.43 KB, 下载次数: 10)

sparkguo · 发表于 2012-7-4 09:20

zjdh 发表于 2012-7-3 19:07

谢谢老师啊自己再加工一下以便在实际中应用

sparkguo · 发表于 2012-7-4 13:20

zjdh 发表于 2012-7-3 19:07

老师，代码能不能注释一下啊
谢谢老师了

zjdh · 发表于 2012-7-4 13:57

本帖最后由 zjdh 于 2012-7-4 13:59 编辑

很简单的语句啊！
Sub XG()
With Sheets(2)
      For Each CE In .Range("D3:G3")
         If CE = "True" Then K = K + 1 '检查有多少个被选中
      Next
      If K > 3 Then '若超过3个
         For I = 1 To 4
            If .Cells(3, I + 3) <> .Cells(3, I + 26) Then CL = I + 3: Exit For
                        '新纪录与原记录对比,找出最新选择项,记录列号，退出循环
         Next
10       CL2 = Int((4 * Rnd) + 4)    '产生4～7随机数
         If CL <> CL2 Then .Cells(3, CL2) = "False": GoTo 20 '若非最新选择项列号则将其设置未选中,跳转记录
         GoTo 10
      End If
20    .Range("D3:G3").Copy .Range("AA3") '记录状态到AA3:AD3
End With
End Sub

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