请教循环取值的写法。

zerozha · 发表于 2005-12-6 23:56

有变量kk, 我想写一个循环，让kk逐个依次取A列的值。请问怎么写？A列行数不确定。
如图。

<img src="attachments/dvbbs/2005-12/200512623561974803.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

ljllcf · 发表于 2005-12-7 01:35

兄弟也是农信的！真好在这遇见了自家人，我把今年的年报也编出来了，抽空交流交流，我的QQ：344858034，也请各路高手多指教，谢谢！

zerozha · 发表于 2005-12-7 09:14

已经解决。
Private Sub CommandButton4_Click()
If MsgBox("是否真要要打印所有总帐？", vbExclamation + vbYesNo, "警告！") = vbYes Then
lstrn = Sheets("科目设置").[a65536].End(xlUp).Row
For i = 1 To lstrn kkm = Sheets("科目设置").Range("A" & i)
生成总帐 kkm ActiveSheet.PageSetup.PrintArea = "$A$1:$E$44" ActiveSheet.PrintOut '打印
Next
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请教循环取值的写法。