问个关于多个数组如何写代码的弱弱的问题
excel吧
全部回复
仅看楼主
level 5
暴死岛切凛🌴 楼主
Sub ccp()
For i = 1 To 20
Cells(i, 1).Select
With Selection.Validation
.InputMessage = Cells(i, 2)
End With
Next
End Sub
行号
2 To 25
31 To 54
列号
39,44,49,54,59,64
我想把下面的行号和列号都放进去公式里面。[狂汗]
然后可以的话再弄个自动重算的小按钮在工作表上。
2019年11月01日 09点11分 1
level 5
暴死岛切凛🌴 楼主
不好意思，
行号共通
2 To 25
31 To 54
列号
将｛39,44,49,54,59,64｝单元格填入到｛4,9,14,19,24,29,34｝的InputMessage里
2019年11月01日 09点11分 2
level 5
暴死岛切凛🌴 楼主
顶[委屈]
2019年11月01日 14点11分 3
level 5
暴死岛切凛🌴 楼主
Sub ccp()
i1 = 1
i2 = 1
i3 = 1
i = 1
Cells(i, 1).Select
With Selection.Validation
.InputMessage = Cells(i, 2)
Do
If i1 <= 25 And i Mod 10 = 0 Then
i1 = i1 + 1
Cells(i1, 4).Interior.ColorIndex = 45
End If
If i2 <= 10 And i Mod 5 = 0 Then
i2 = i2 + 1
Cells(i2, 9).Interior.ColorIndex = 3
End If
If i3 <= 10 And i Mod 3 = 0 Then
i3 = i3 + 1
Cells(i3, 14).Interior.ColorIndex = 8
End If
i = i + 1
Loop While i1 <= 25
End Sub
2019年11月01日 15点11分 4
level 5
暴死岛切凛🌴 楼主
Sub ccp()
i1 = 1
i2 = 1
i3 = 1
i4 = 1
i5 = 1
i6 = 1
i6 = 1
i6 = 1
i = 1
Do
If i1 <= 25 Then
i1 = i1 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 25 Then
i2 = i2 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i3 <= 25 Then
i3 = i3 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 25 Then
i4 = i4 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 25 Then
i5 = i5 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 25 Then
i6 = i6 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 10 Then
i2 = i2 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
If i2 <= 10 Then
i2 = i2 + 1
Cells(i1, 4).Select
With Selection.Validation
.InputMessage = Cells(i1, 39)
End If
i = i + 1
Loop While i1 <= 25
End Sub
2019年11月01日 15点11分 5
1