excel中怎样给控件循环赋值

㈠ excel vba循环赋值

试试将Sheet1.Cells(Sheet3.Range("av&iii").Value, Sheet3.Range("au&iii").Value) = "主体"中的内容改一咐租下:
"av&iii"改"av" & iii
"au&iii"桐带改局简芦"au" & iii
改为
Sheet1.Cells(Sheet3.Range("av" & iii).Value, Sheet3.Range("au" & iii).Value) = "主体"

㈡ excel 循环赋值

中间锋搭坦插一银桐列：
B1=SUMPRODUCT(($A$1:A1<5)*1) ，公式下拉
C1=INDEX(A:A,MATCH(ROW(C1),B:B,0)) ，公式下拉
C列就是你要的结枝世果。

㈢ 如何用宏实现EXCEL的循环赋值并打印

三步走:
1.alt+F11
2.双击左边工程框里的Sheet1,右边的编辑窗口中输入以纯罩下代码做毕闹：

Sub yueliang()
Dim i As Integer
For i = 1 To Range("A1").End(xlDown).Row
Range("E3") = Cells(i, 1)
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

3.鼠标放数埋到程序中，点F5即可
或alt+F8,运行这个宏

㈣ 如何用宏实现EXCEL的循环赋值并打印

Private
Sub
CommandButton1_Click()
Dim
i
As
Integer
Dim
sh1
As
Worksheet,
sh2
As
Worksheet
Set
sh1
=
ThisWorkbook.Sheets("sheet2")
Set
sh2
=
ThisWorkbook.Sheets("sheet1")
For
i
=
1
To
sh1.Range("A65536"颤扮启铅).End(xlUp).Row
sh2.Range("A1"茄旁灶).Value
=
sh1.Cells(i,
1)
sh2.Range("B1").Value
=
sh1.Cells(i,
2)
sh2.Range("C1").Value
=
sh1.Cells(i,
3)
sh2.Range("A1:C1").PrintOut
DoEvents
Next
i
Set
sh1
=
Nothing
Set
sh2
=
Nothing
End
Sub
这个样子吧

㈤ Excel VBA循环赋值

不知道你要做什么，我按自己的理解改一下，你试一下：
Sub 奖励()
j = Sheets("1月27日"兄逗).UsedRange.Columns.Count '获取总行数

For i = 2 To j '第二行开始循环 循环j次
l = Trim(Range("B" & i).Value) '获取B列i行数据
b = Trim(Range("D" & i).Value) '获羡大卖取D列i行数据
If l >= 20000 And b >= 30 Then '当l大于等于20000且b大于等于30是 赋值g为128
g = 128
ElseIf l >仿饥= 30000 And b >= 30 Then '当l大于等于30000且b大于等于30是 赋值g为228
g = 228
Else
g = "" '其他赋值g为空值
End If
Range("F" & i).value=g '赋值给F列i行数据
Next
End Sub

㈥ EXCEL VBA 控件名 变量 循环 赋值

Sub 保存属性()
Dim y As Object, j As Byte
For Each y In Worksheets("资料面"升段此).OLEObjects
If InStr(y.Name, "CommandButton") Then
j = Replace(y.Name, "CommandButton", "")
Worksheets("保存").Range("C" & (x - 1) * 20 + j - 1) = y.Enabled
End If
Next
End Sub
Sub 读取保存数据()
Dim y As Object, j As Byte
For Each y In Worksheets("资燃绝料面").OLEObjects
If InStr(y.Name, "CommandButton") Then
j = Replace(y.Name, "CommandButton", "")
y.Enabled = Worksheets("保存"吵迅).Range("C" & (x - 1) * 20 + j - 1)
End If
Next
End Sub

㈦ Excel 弱弱的一个问题：怎么用循环给单元格赋值

方法樱空有很多，主要是配合MOD函数，举例如下：

循环给赋裤誉值数字1,2,3,4
=MOD(ROW(A4),4)+1

循环给赋值文字A,B,C
=INDEX({"胡颂段A","B","C"},MOD(ROW(A3),3)+1)
=CHOOSE(MOD(ROW(A3),3)+1,"A","B","C")
=MID("ABC",MOD(ROW(A3),3)+1,1)

循环A1~A4的数据
=INDEX(A$1:A$4,MOD(ROW(A4),4)+1)
=OFFSET(A$1,MOD(ROW(A4),4),)

㈧ Excel 如何利用循环引用多个同类型的控件的值

在excel中，如果公式存在循环引用，可以通过公式——错误检查——循环液氏引用，来纳洞找到循环引用的位置，也可以通过左下角的状闹茄散态栏提示来找到循环引用的位置。