[求助]如何自动动态添加边框

jyh-3777

<p>求助:在控件对话框中选择项目后,点击"生成"按钮,生成分户明细账,<br/>1\如何在生成数据区域自动动态加边框,<br/>2\如何在J列显示"借",K列生成公式,如:K9=H9-I9,K10=K9+H10-I10,依此类推,本工作表内的代码不能运行.<br/>Sub 明细账计算()<br/>For i = 9 To y<br/>&nbsp;&nbsp; If (Cells(i, 8).Value + Cells(i, 9).Value) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Cells(9, 10).Value = "借" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 10).Value = Cells(i - 1, 10).Value + Cells(i, 8).Value - Cells(i, 9).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 10).Value = Cells(i - 1, 10).Value - Cells(i, 8).Value + Cells(i, 9).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; Else<br/>&nbsp; Cells(i, 10).Value = ""<br/>End If<br/>Next i<br/>End Sub</p><p></p><p>已解决部分</p>

[此贴子已经被作者于2006-8-15 6:26:56编辑过]