【V入2期】数组入门练习三

大致若汝

Private Sub Worksheet_Change(ByVal Target As Range)<br/>Dim arrName<br/>&nbsp;&nbsp;&nbsp; arrName = Array("周一", "钱二", "张三", "李四", "王五", "赵六", "陈七", "何八", "冯九", "郑零")<br/>&nbsp; If Target.Value = Cells(3, 3) Then<br/>&nbsp;&nbsp;&nbsp; Cells(4, 3) = arrName(Target.Value - 1)<br/>&nbsp; End If<br/>End Sub

Qinjabil

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-7-7 4:15:57编辑过]

rqan

<p>

游客，如果您要查看本帖隐藏内容请回复

</p>

[此贴子已经被laosanjie于2008-7-7 16:14:27编辑过]

wh7705

游客，如果您要查看本帖隐藏内容请回复

qixizhuzhi

<p><font size="4">创建一个数组，数组名为arrName，数据为10个同学的姓名：周一，钱二，张三，李四，王五，赵六，陈七，何八，冯九，郑零。要求C3选择序号，C4自动显示数组中对应的姓名。</font></p><p><font size="4"><table cellspacing="0" cellpadding="0" width="216" border="0" xstr="" style="WIDTH: 162pt; BORDER-COLLAPSE: collapse;"><colgroup><col span="3" width="72" style="WIDTH: 54pt;"></col></colgroup><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl26" width="72" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 54pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;"><font face="宋体">　</font></td><td class="xl26" width="72" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 54pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent;"><font face="宋体">B</font></td><td class="xl26" width="72" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 54pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent;"><font face="宋体">C</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl26" height="19" xnum="" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;"><font face="宋体">3</font></td><td class="xl24" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #cc99ff;"><font face="宋体">序号</font></td><td class="xl25" xnum="" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #99ccff;"><font face="宋体">1</font></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl26" height="19" xnum="" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;"><font face="宋体">4</font></td><td class="xl24" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #cc99ff;"><font face="宋体">姓名</font></td><td class="xl25" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #99ccff;"><font face="宋体">周一</font></td></tr></tbody></table><br/></font></p><p><font size="4"><br/><font size="3">

游客，如果您要查看本帖隐藏内容请回复

</font></font></p><p>&nbsp;</p>

随风1

游客，如果您要查看本帖隐藏内容请回复

cjch1969

游客，如果您要查看本帖隐藏内容请回复

AK_may

[em01][em01]

hysqydb

新手学习

YX63

游客，如果您要查看本帖隐藏内容请回复