代码之家 › 专栏 › 技术社区 › xhamsterIT

循环VBA Microsoft Excel

for-loop loops vba excel

xhamsterIT · 技术社区 · 1 年前

Private Sub UserForm_Activate()
If ActiveSheet.Range("AK4").Value = 0 Then
    CXBTN1.Value = False
ElseIf ActiveSheet.Range("AK4").Value = "FALSE" Then
    CXBTN1.Value = False
Else
    CXBTN1.Value = True
End If

'CheckBox
If ActiveSheet.Range("AL4").Value = 0 Then
    CXBTN2.Value = False
ElseIf ActiveSheet.Range("AL4").Value = "FALSE" Then
    CXBTN2.Value = False
Else
    CXBTN2.Value = True
End If
End Sub

有什么方法可以让我绕过这个吗?我是手工做的。我似乎找不到这个循环。

1 回复 | 直到 1 年前

Torben Klein 1 年前

这样地:

celladdrs = Array("AK4", "AL4") 'extend as needed
ctls= Array(CXBTN1, CXBTN2)
for i = 0 to 1
    addr = celladdrs(i)
    ' Use "Set" for object assignment!
    Set control = ctls(i)
    If ActiveSheet.Range(addr).Value = 0 Then
        control.Value = False
    ElseIf ActiveSheet.Range(addr).Value = "FALSE" Then
        control.Value = False
    Else
        control.Value = True
    End If
Next

FaneDuru 1 年前

假设所有要更改的按钮的名称都从1连续递增到85,请使用下一种方式。不需要在数组中放置任何东西。如果你添加一个新按钮,只需更改要递增的最大数字(85到86,依此类推……):

Private Sub UserForm_Activate()
  Dim i As Long, rngMatch As Range
  Const btPref As String = "CXBTN"
  Set rngMatch = Range("AK4")
  For i = 1 To 85 'use here the number of buttons
    If rngMatch.Offset(, i - 1).Value = 0 Or rngMatch.Offset(, i - 1).Value = "FALSE" Then
        Me.Controls(btPref & i).Value = False
    Else
        Me.Controls(btPref & i).Value = True
    End If
  Next i
End Sub

未经测试,但它应该按需工作。当然,如果针对列增量的按钮命名遵守规则。。。

推荐文章

BlurKid · R中for循环时结果的奇怪差异

7 月前

Costinean Sebastian · 如何优化使用for循环处理大型数组的MATLAB脚本的执行时间?"

8 月前

bigjdawg43 · 迭代多个数据帧中的列并有条件地执行操作

12 月前

Colin · 缩短嵌套文件夹名称

1 年前

xhamsterIT · 循环VBA Microsoft Excel

1 年前

Nico44044 · 使用for循环遍历Django模型字段

1 年前

chanbo chung · 如何在聚合中获得所有可能的组合

1 年前

Himanshu · 无法在逐行二进制搜索中迭代2D数组中的所有行

1 年前

Sonia Acosta · 如何在python for while循环中获取下一个用户输入?[副本]

1 年前

stephr · 循环为多个变量选择最接近另一个日期的日期

1 年前