动态添加控件和代码

lj1226189 · 发表于 2004-7-6 15:52

ohEhuVbP.rar (6.18 KB, 下载次数: 1407)

[此贴子已经被taller于2004-7-7 17:19:31编辑过]

cofe2000 · 发表于 2004-7-6 16:22

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 2 And Target.Row < 6 And Target.Column > 2 And Target.Column < 13 Then Range("h8") = Target.Value End If End Sub

lj1226189 · 发表于 2004-7-6 17:35

为什么用不起来!各位高手过来帮帮忙!

ml666 · 发表于 2004-7-6 19:28

chijanzen兄的办法真不错，收藏，谢谢

lj1226189 · 发表于 2004-7-7 13:41

能否发一个附件给我!谢谢!

lj1226189 · 发表于 2004-7-7 16:25

不知为什么还是打不开！

谢！

lj1226189 · 发表于 2004-7-7 17:17

我想再问两个问题！

1，编辑器里怎么看不到窗体，哪一句代码是将温度加到H8

2，能否点击温度后自动退出窗体。

taller · 发表于 2004-7-7 17:17

以下是引用lj1226189在2004-7-7 16:25:00的发言：

不知为什么还是打不开！

谢！

超级皮卡丘的代码没有问题,而且是一种很好的思路,并且可以作为动态添加控件和代码的模板收藏

lj1226189 · 发表于 2004-7-8 20:38

我这一辈子能学到你水平一半,足矣!

lj1226189 · 发表于 2004-7-8 21:12

ftK2VmKR.rar (11.28 KB, 下载次数: 269)

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

动态添加控件和代码

点评

楼上朋友代码可能有点问题!

水平有限!代码用不起来!

有出错提示！

好终于解决了！超级皮卡丘你真历害！

皮卡丘先生真是太历害!

想你皮卡丘先生看看为什么这个附件点击窗体输入温度后不退出窗体!