[分享]小妖版职位说明书

loren

<p>新版小妖病毒</p>

小鲤鱼

来学习一下VBA[em17]

杰

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>loren</i>在2008-6-17 22:19:00的发言：</b><br/><p>新版小妖病毒</p></div><p>乱说,一个"小妖版......"标题而已. </p><p>我家妖妖怎么会制造病毒[em03]</p>

RXT6710

看看<br/>

7dong502

[em17][em17]

北部湾

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>laosanjie</i>在2008-6-17 21:33:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>pureshadow</i>在2008-6-17 20:11:00的发言：</b><br/><div class="t_msgfont" id="postmessage_338797">让职位说明书可怕庞大的修改工作在几分之内就可完成.<br/>不过里面的代码,写得一般了点<img alt="" src="http://www.office-cn.net/vvb/images/smilies/default/shy.gif" border="0" smilieid="8"/></div><br/></div><p><font color="#0033ff">[em17][em17]&nbsp; 学习一下。顺便提个小建议：</font> </p><p><font color="#0033ff">可以用</font> <font color="#ff0033">With ......&nbsp; End With&nbsp; </font><font color="#0033ff">语句来简化输入。<strong>另因这个程序的按钮就在 </strong></font><font color="#0033ff"><strong>Sheets("说明书") 这个表里</strong>，所以“Sheets("说明书").”在这个程序里也可以省略。</font> </p><p><font color="#0033ff">Select Case Sheets("说明书").Range("C2").Value</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#ff00ff">Case Sheets("数据源").Range("A" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0033ff">Sheets("说明书").Range("C3")</font>&nbsp; = <font color="#ff00ff">Sheets("数据源").Range("B" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Sheets("说明书").Range("E3")</font>&nbsp; = <font color="#ff00ff">Sheets("数据源").Range("C" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Sheets("说明书").Range("G3")</font>&nbsp; = <font color="#ff00ff">Sheets("数据源").Range("D" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Sheets("说明书").Range("C4")</font>&nbsp; = <font color="#ff00ff">Sheets("数据源").Range("E" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font size="4"><strong>......</strong></font></p><p><font size="4"><font color="#0033ff">用</font> <font color="#ff0033">With ......&nbsp; End With&nbsp; </font><font color="#0033ff">语句来简化输入如下：</font></font></p><p>&nbsp;&nbsp;&nbsp;<font color="#ff0033"> With </font><font color="#ff00ff">Sheets("数据源")<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; <font color="#0909f7">Select Case Range("C2").Value</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<font color="#ff00ff">Case <strong>.</strong>Range("A" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0033ff">Range("C3")</font> = <font color="#ff00ff"><strong>.</strong>Range("B" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<font color="#0000ff"> Range("E3")</font> = <font color="#ff00ff"><strong>.</strong>Range("C" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; <font color="#0000ff">Range("G3")</font> = <font color="#ff00ff"><strong>.</strong>Range("D" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; <font color="#0000ff">Range("C4")</font> = <font color="#ff00ff"><strong>.</strong>Range("E" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; <font size="4"><strong>......</strong></font></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<font color="#0000ff"> Range("F95") =</font><strong> </strong><font color="#ff00ff"><strong>.</strong>Range("DN" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; <font color="#0000ff">Range("C96")</font> = <font color="#ff00ff"><strong>.</strong>Range("DO" &amp; i)<br/></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<font color="#0000ff">End Select<br/></font>&nbsp;&nbsp;&nbsp; <font color="#ff0033">End With</font></p></div><p></p>到底是V入的班主任哈，[em17]

szyygb

下宅，学习