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中，如果公式存在循環引用，可以通過公式——錯誤檢查——循環液氏引用，來納洞找到循環引用的位置，也可以通過左下角的狀鬧茄散態欄提示來找到循環引用的位置。
