精英7段试题答案上传专贴

zgwei050

<p>先交函数题：<br/>

[此贴子已经被作者于2008-12-5 17:38:11编辑过]

sokewoniu

<div class="quote" twffan="done"><b>以下是引用<i>sokewoniu</i>在2008-11-29 19:37:00的发言：</b><br/><p><br/>编辑一下,把附件都放到下面一个帖子里了,省得分两次下载麻烦</p><br/></div><p></p><p>谢谢指教,下面是修正好的技巧题,请批阅,如有问题,再改进.</p><p><br/></p><p><font color="#ff0033" size="3"><strong>恭喜通过7段测试。</strong></font></p><p>－－xowi99</p><p>&nbsp;</p>

[此贴子已经被xowi99于2008-12-1 16:04:04编辑过]

amulee

<p><br/></p><p>终于做完了7段，请版主多多指导。</p><p>&nbsp;&nbsp;</p><table bordercolor="#cccccc" cellspacing="2" cellpadding="3" width="100%" bgcolor="#ffffff" border="1"><tbody><tr><td><p>&nbsp;VBA题有些小问题：</p><p>VBA1中参数R4在代码中没有体现；VBA3当点击多次创建菜单按钮会在右键菜单中出现多个按钮，而且“对话框生成代码需在‘添加菜单’按钮时自动生成”没达到要求。</p><p>VBA综合题登录窗体的CommandButton1_Click事件中If CbLogUser = CStr(Sheet1.Cells(<strong>UserCount</strong>, 3).Value) Then这句有问题，这样会只允许最后一个用户登录（笔误吧）</p><p><font color="#ff0033">VBA综合、技巧、函数通过。</font></p><p><font color="#000000">－－xowi99</font></p></td></tr></tbody></table>

[此贴子已经被xowi99于2008-12-4 9:44:49编辑过]

amulee

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>amulee</i>在2008-12-1 20:43:00的发言：</b><br/><p>终于做完了7段，请版主多多指导。</p><p>&nbsp;&nbsp;</p><table bordercolor="#cccccc" cellspacing="2" cellpadding="3" width="100%" bgcolor="#ffffff" border="1"><tbody><tr><td><p>&nbsp;VBA题有些小问题：</p><p>VBA1中参数R4在代码中没有体现；VBA3当点击多次创建菜单按钮会在右键菜单中出现多个按钮，而且“对话框生成代码需在‘添加菜单’按钮时自动生成”没达到要求。</p><p>VBA综合题登录窗体的CommandButton1_Click事件中If CbLogUser = CStr(Sheet1.Cells(<strong>UserCount</strong>, 3).Value) Then这句有问题，这样会只允许最后一个用户登录（笔误吧）</p><p><font color="#ff0033">VBA综合、技巧、函数通过。</font></p><p><font color="#000000">－－xowi99</font></p></td></tr></tbody></table><br/></div><p>&nbsp; </p><p>其他都改好了，就是<font color="#3809f7">而且“对话框生成代码需在‘添加菜单’按钮时自动生成”没达到要求</font>这句话不太理解。 </p><p>是指该菜单按钮生成时直接把对话框代码赋值其中，而不能为其设置调用的过程？那通过点击事件触发可以吗？</p>

[此贴子已经被作者于2008-12-5 8:37:57编辑过]

hhzjxss

<p><strong><font face="Verdana" color="#da2549">xowi99</font></strong>版版辛苦了，我再修改一下，到时传上来，还得有劳了！</p><p>&nbsp;</p><p>[em04]</p><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p>

amulee

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>amulee</i>在2008-12-1 20:43:00的发言：</b><br/><p>终于做完了7段，请版主多多指导。</p><p>&nbsp;&nbsp;</p><table bordercolor="#cccccc" cellspacing="2" cellpadding="3" width="100%" bgcolor="#ffffff" border="1"><tbody><tr><td><p>&nbsp;VBA题有些小问题：</p><p>VBA1中参数R4在代码中没有体现；VBA3当点击多次创建菜单按钮会在右键菜单中出现多个按钮，而且“对话框生成代码需在‘添加菜单’按钮时自动生成”没达到要求。</p><p>VBA综合题登录窗体的CommandButton1_Click事件中If CbLogUser = CStr(Sheet1.Cells(<strong>UserCount</strong>, 3).Value) Then这句有问题，这样会只允许最后一个用户登录（笔误吧）</p><p><font color="#ff0033">VBA综合、技巧、函数通过。</font></p><p><font color="#000000">－－xowi99</font></p></td></tr></tbody></table><br/></div><p>&nbsp; </p><p>多谢xowi99的指点，现已经按照要求修改VBA题。 </p><p>VBA综合题确属笔误，UserCount换成i就行了 </p><p>&nbsp;</p><p><br/><strong><font color="#ff0033" size="3"></font></strong></p><p><strong><font color="#ff0033" size="3">恭喜通过7段测试</font></strong></p><p>－－xowi99</p>

[此贴子已经被xowi99于2008-12-5 11:17:00编辑过]

excel-lch

<p>选做题最近还没时间，到时也发上来，综合，函数及VBA答案如附件，请老师批阅！</p><p><br/></p>[em01]

zgwei050

<p>再提交7段技巧解答，请老师考评：</p><p></p><p>（另外7段函数的修改已经在68楼重新提交，请老师一并考评，辛苦老师！)<br/></p><p>_____________________</p><p><font color="#ff0033">函数题通过。</font></p><p>技巧一：两个图表叠加不符合要求，请使用一个图表完成；动画演示没做。</p><p>－－xowi99</p><p>&nbsp;</p>

[此贴子已经被xowi99于2008-12-8 8:34:39编辑过]

xowi99

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>excel-lch</i>在2008-12-5 21:25:00的发言：</b><br/><p>选做题最近还没时间，到时也发上来，综合，函数及VBA答案如附件，请老师批阅！</p></div><p><font color="#ff0033">函数题、技巧题通过。</font> </p><p>VBA题VBA3没达到题目要求，注意MsgBox对话框是在点击右键菜单中的“添加菜单”时才添加的，而不是在Menu_Add过程中添加；“此对话框生成代码需在‘添加菜单’按钮时自动生成”，估计你对这句话理解有误，其实质是用代码操作代码。 </p><p>－－xowi99</p>

[此贴子已经被作者于2008-12-8 14:23:42编辑过]

excel-lch

<p>&nbsp;重发VBA，请99师批阅！</p><br/>[em01]