求助下列代码如何简化

dljyh2009

  If xlShtA.Columns("A:A").Hidden = True Then
               CheckBox1A.Value = False
                   Else
               CheckBox1A.Value = True
         End If
          If xlShtA.Columns("B:B").Hidden = True Then
               CheckBox1B.Value = False
                   Else
               CheckBox1B.Value = True
         End If
          If xlShtA.Columns("C:C").Hidden = True Then
               CheckBox1C.Value = False
                   Else
               CheckBox1C.Value = True
          End If
           If xlShtA.Columns("D:D").Hidden = True Then
               CheckBox1D.Value = False
                   Else
               CheckBox1D.Value = True
          End If
           If xlShtA.Columns("E:E").Hidden = True Then
               CheckBox1E.Value = False
                   Else
               CheckBox1E.Value = True
           End If

            If xlShtA.Columns("F:F").Hidden = True Then
               CheckBox1F.Value = False
                   Else
               CheckBox1F.Value = True
           End If

蓝桥玄霜

没有最简只有好用。
如果你懂得类，或许可以改写一点，但是又增加了泪模块的代码。

jiminyanyan

初学者，好用就行，多点代码其实没关系。。。。。

zhaogang1960

请参考：

1. Dim i As Byte, arr
   
2. arr = [{"A","B","C","D","E","F"}]
   
3. With xlShtA
   
4.     For i = 1 To 6
   
5.         .OLEObjects("CheckBox1" & arr(i)).Object.Value = Not .Columns(i).Hidden
   
6.     Next
   
7. End With

复制代码

zhaogang1960

去掉数组arr：

1. Dim i As Byte
   
2. With xlShtA
   
3.     For i = 1 To 6
   
4.         .OLEObjects("CheckBox1" & Chr(64 + i)).Object.Value = Not .Columns(i).Hidden
   
5.     Next
   
6. End With

复制代码

zhaogang1960

如果事先不知道有几个复选框：

1. Dim shp As OLEObject, s$
   
2. With xlShtA
   
3.     For Each shp In .OLEObjects
   
4.         If TypeName(shp.Object) = "CheckBox" Then
   
5.             s = Replace(shp.Name, "CheckBox1", "")
   
6.             shp.Object.Value = Not Columns(s & ":" & s).Hidden
   
7.         End If
   
8.     Next
   
9. End With

复制代码

dljyh2009

谢谢，全是高手