请教控件问题

weng21509

<p>我想用窗体在黄色区域根据光标所在的位置填写数据。可是写出的代码，填写的位置都 C4 。朋友们帮我这个菜鸟改写下代码。</p><p>Private Sub CommandButton1_Click()<br/>Dim mrow As Long<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp; If Range("C2").Select = True Then<br/>&nbsp;&nbsp; mrow = 2<br/>&nbsp;&nbsp; If Range("C3").Select = True Then<br/>&nbsp;&nbsp; mrow = 3<br/>&nbsp;&nbsp; If Range("C4").Select = True Then<br/>&nbsp;&nbsp; mrow = 4<br/>&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp; <br/>Range("C" &amp; mrow) = ComboBox1.Value<br/>End Sub</p><p>&nbsp;</p> HU1vmoym.rar (39.92 KB, 下载次数: 6)

2006-11-27 20:23 上传

点击文件名下载附件
请教控件问题

<br/>

sahelo

<p>Private Sub CommandButton1_Click()<br/>&nbsp;&nbsp; ActiveCell = ComboBox1.Value<br/>End Sub</p><p> 2dQ12RK8.rar (39.02 KB, 下载次数: 9)

2006-12-4 09:20 上传

点击文件名下载附件
请教控件问题

<br/></p><p>这个意思？！</p><p>————————————————————————————</p><p>PS：数据有效性 来处理这个问题感觉更好！</p>

[此贴子已经被作者于2006-12-4 9:24:53编辑过]

weng21509

太好了,我要的是这个意思.