高手请进(重发)

米仓

<p>本来的效果是很好的，但是一输入数据以后就变了！</p><p>大家帮忙解决一下吧！我觉得这个太实用了！在我输入数据以后就不用左看右看了！</p><p> jS1EUOI5.rar (5.74 KB, 下载次数: 13)

2008-5-1 17:11 上传

点击文件名下载附件
高手请进(重发) </p><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p><br/>&nbsp;</p>

杰

<p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;">rivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)<p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp; </span>Application.ScreenUpdating = False </span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>Cells.Interior.ColorIndex = -4142<p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>Rows(Target.Row).Interior.ColorIndex = 20<p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>Columns(Target.Column).Interior.ColorIndex = 20<p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp; </span>Application.ScreenUpdating = True<p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-outline-level: 2;"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: #969696; FONT-FAMILY: &quot;Arial Narrow&quot;,&quot;sans-serif&quot;; mso-fareast-font-family: 宋体; mso-bidi-font-family: 宋体; mso-font-kerning: 0pt;">End Sub<p></p></span></p>

daibin

<p>没看懂是啥意思。。</p><p>不明白那里有问题就谈不上有没能力帮助你</p><p>既然如此。附件也没必要下来看了。</p><p></p>

小p

学习一下