VBA第二讲课后问题集中提问和解答贴

兰色幻想 · 发表于 2007-11-16 16:25

<p> 针对第二讲的内容，大家可以跟贴进行提问。<font color="#f70909">提问的问题需要和本讲有关</font>。会的学员也可以帮忙解答。</p>

HSS · 发表于 2007-11-16 16:31

<p>蓝色老师，为什么模块里头等号前后调个顺序就会错误呢？比如：</p><p><table cellspacing="0" cellpadding="0" width="722" border="0" xstr="" style="WIDTH: 542pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="221" style="WIDTH: 166pt; mso-width-source: userset; mso-width-alt: 7072;"></col><col></col><col width="141" style="WIDTH: 106pt; mso-width-source: userset; mso-width-alt: 4512;"></col><col></col><col span="5" width="72" style="WIDTH: 54pt;"></col><col></col></colgroup><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td width="722" colspan="7" height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; WIDTH: 542pt; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent; mso-ignore: colspan;"><font face="宋体">Sheets("总表").Range("B3") = .Range("B2") + .Range("B3") + .Range("B4") + .Range("B5")</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td colspan="7" height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent; mso-ignore: colspan;"><font face="宋体">换成：.Range("B2") + .Range("B3") + .Range("B4") + .Range("B5")=Sheets("总表").Range("B3")</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;"><font face="宋体">就错误了呢？（错误13）</font></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td></tr></tbody></table></p>

[此贴子已经被作者于2007-11-16 16:32:13编辑过]

兰色幻想 · 发表于 2007-11-16 16:35

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>HSS</i>在2007-11-16 16:31:00的发言：</b><br/><p>蓝色老师，为什么模块里头等号前后调个顺序就会错误呢？比如：</p><p><table cellspacing="0" cellpadding="0" width="722" border="0" xstr="" style="WIDTH: 542pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="221" style="WIDTH: 166pt; mso-width-source: userset; mso-width-alt: 7072;"></col><col></col><col></col><col></col><col></col><col></col><col></col><col></col><col width="141" style="WIDTH: 106pt; mso-width-source: userset; mso-width-alt: 4512;"></col><col></col><col></col><col></col><col></col><col></col><col></col><col></col><col span="5" width="72" style="WIDTH: 54pt;"></col><col></col><col></col><col></col><col></col><col></col><col></col><col></col></colgroup><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td width="722" colspan="7" height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; WIDTH: 542pt; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent; mso-ignore: colspan;"><font face="宋体">Sheets("总表").Range("B3") = .Range("B2") + .Range("B3") + .Range("B4") + .Range("B5")</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td colspan="7" height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent; mso-ignore: colspan;"><font face="宋体">换成：.Range("B2") + .Range("B3") + .Range("B4") + .Range("B5")=Sheets("总表").Range("B3")</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td height="19" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;"><font face="宋体">就错误了呢？（错误13）</font></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td><td style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; BACKGROUND-COLOR: transparent;"></td></tr></tbody></table></p><br/></div><p>  </p><p>在VBA中的赋值方式，是把等号右边的值交给等号左边的对象或变量．不能反过来赋值 </p><p> </p>

[此贴子已经被作者于2007-11-16 16:35:10编辑过]

HSS · 发表于 2007-11-16 16:46

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2007-11-16 16:35:00的发言：</b><br/><p>  </p><p>在VBA中的赋值方式，是把等号右边的值交给等号左边的对象或变量．不能反过来赋值 </p><p> </p><br/></div><p>酱紫啊，我对EXCEL太菜了，您别见笑，谢谢您的解答 </p><p>希望我毕业后成为高手！ </p>

cnu · 发表于 2007-11-16 19:34

<p>如果作业中，要求把“财务”“人事”“服务”三张表格中的月份加起来算。</p><p>其代码应为：Sheets("总表").Range("b1") = Sheets("财务").Range("b2") + Sheets("财务").Range("b3") + Sheets("财务").Range("b4") + Sheets("财务").Range("b5") + Sheets("人事").Range("b2") + Sheets("人事").Range("b3") + Sheets("人事").Range("b4") + Sheets("人事").Range("b5") _<br/>+ Sheets("服务").Range("b2") + Sheets("服务").Range("b3") + Sheets("服务").Range("b4") + Sheets("服务").Range("b5")</p><p>这样子公式对吗，如果对其公式较长，如何加with语句，进行省略以上.range前主语.。<br/></p>

兰色幻想 · 发表于 2007-11-16 19:50

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>cnu</i>在2007-11-16 19:34:00的发言：</b><br/><p>如果作业中，要求把“财务”“人事”“服务”三张表格中的月份加起来算。</p><p>其代码应为：Sheets("总表").Range("b1") = Sheets("财务").Range("b2") + Sheets("财务").Range("b3") + Sheets("财务").Range("b4") + Sheets("财务").Range("b5") + Sheets("人事").Range("b2") + Sheets("人事").Range("b3") + Sheets("人事").Range("b4") + Sheets("人事").Range("b5") _<br/>+ Sheets("服务").Range("b2") + Sheets("服务").Range("b3") + Sheets("服务").Range("b4") + Sheets("服务").Range("b5")</p><p>这样子公式对吗，如果对其公式较长，如何加with语句，进行省略以上.range前主语.。<br/></p></div><p>with语句的用法讲的很详细,自已先试一下,不会的再问</p>

[此贴子已经被作者于2007-11-16 20:12:54编辑过]

hhzjxss · 发表于 2007-11-16 20:00

兰版辛苦了！

huangxingye · 发表于 2007-11-16 20:08

<p>Sub TongJi()<br/>     Sheets("总表").[B1] = Sheets("财务").[B2] + Sheets("人事").[B2] + Sheets("服务").[B2]<br/>     With Sheets("财务")<br/>          Sheets("总表").[B3] = .[B2] + .[B3] + .[B4] + .[B5]<br/>     End With<br/>End Sub</p><p>请问老师，算财务工资总额时如何调用SUM函数？谢谢！</p>

兰色幻想 · 发表于 2007-11-16 20:15

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>huangxingye</i>在2007-11-16 20:08:00的发言：</b><br/><p>Sub TongJi()<br/>     Sheets("总表").[B1] = Sheets("财务").[B2] + Sheets("人事").[B2] + Sheets("服务").[B2]<br/>     With Sheets("财务")<br/>          Sheets("总表").[B3] = .[B2] + .[B3] + .[B4] + .[B5]<br/>     End With<br/>End Sub</p><p>请问老师，算财务工资总额时如何调用SUM函数？谢谢！</p></div><p>方法很多,application.sum(....) </p><p>注:以后课程中会详细讲的</p>

laosanjie · 发表于 2007-11-16 23:59

<p>兰老师辛苦了！[em10]</p>

		自动登录	找回密码
密码			注册

[问题] VBA第二讲课后问题集中提问和解答贴