[分享]VBA班第二讲听课笔记

hhzjxss

<p>Option Explicit</p><p><br/>Sub 精英()<br/>&nbsp;&nbsp;&nbsp; Range("A1") = "兰色幻想"<br/>&nbsp;&nbsp;&nbsp; Sheets("部门").Range("b2") = 100<br/>End Sub<br/>Sub 精英2()<br/>&nbsp;&nbsp;&nbsp; With Sheets("部门")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Range("A1") = "兰色幻想"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Range("b2") = 100<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub<br/>Sub 精英3()<br/>&nbsp;&nbsp;&nbsp; With Sheets("部门")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheets("Sheet2").Range("A1") = .Range("b2") + .Range("c3") + .Range("d4")<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub<br/></p><p>&nbsp;</p> x6NXHwMl.rar (6.59 KB, 下载次数: 81)

2007-11-14 22:20 上传

点击文件名下载附件
[分享]VBA班第二讲听课笔记 <br/>

刺桐

谢 谢 雨 组长！

rubao2008

<p>谢谢组长！！！！</p>[em01]

芭芘宝贝

3Q!!![em01]

夏天里的凉风

<p>太好了，谢谢</p><p></p>

HSS

谢谢老师，一定好好学习去～

mick456

<p>不错,兰版讲得真好啊</p>[em01]

云淡☆风轻

<p>呵呵,老师的速度可真快的!!!!!!!</p><p>谢谢!!!!!!!</p><p>&nbsp;</p>[em01]&nbsp; [em01]&nbsp; [em01]&nbsp; [em01]&nbsp; [em01]&nbsp; [em01]

flash973

[em10]tks

xuexi

谢谢