checkbox的全选和反选可以通过VBA来控制,这种设计常见于一些交互式报表,代码如下: 1.分成两个IF判断 Private Sub CheckBox1_Click() ‘checkbox为总控,通过点击它来实现全选或反选 Dim b3 As Integer Dim i As Integer Dim b1 As Range If Sheets(1).CheckBox1.Value Then ’第一个IF判断为全选的条件时 b3 = Sheets(1).Range("h50&quo
Hello everybody, I have a datable which contain multiple lines gotten from database, in the header of the datable i have a checkbox <ice:dataTable rows="10" id="inventoryList" value="#{Bordereau.listFiche}" var="item&
Sub test() ' Dim s As Collection '定义s变量为集合对象 ' Set s = New Collection '初始化集合对象s (否则无法使用) Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了 '集合s中添加元素的方法 s.Add i '对于集合s,用Add方法可以加入集合元素 '当然事实上你可以添加任意内容来代替本例中的i Next '读取集合中元素的方法 To s.Count '可以用Count属性返回集合中元素
Visual Basic for Applications 宏语言 打开VB编辑器 首先打开Excel,组合键Alt+F11 加载宏 找到相应的宏,点击"执行" 举例 Sub 评分() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(i, 2).Value '取得成绩 If t >= 90 Then j = "A" ElseIf t >= 80 Then j = "B" Els