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

pureshadow

<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> usRTWZT8.rar (25.84 KB, 下载次数: 39)

2008-6-17 20:10 上传

点击文件名下载附件
[分享]小妖版职位说明书 <br/>

一剑惊心

看看

zjxia889

[em01]什么?

canxin

<p>看看!</p>

lixianhu

学习来了

冰冰草莓

学习！

guideming

<p>妖写的什么代码呀……</p><p>瞧瞧……</p>

laosanjie

<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 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>[em04]</p>

[此贴子已经被作者于2008-6-17 21:45:03编辑过]