[第45期]单元格输入函数创建控件

ldy

如需其他过程、 语句、公共变量，请自行添加
EXCEL文件请以用户ID+"_45VBA"保存 例如 LDY_42VBA      
答案请压缩后发送到 26258103@163.com?并跟贴占位，请勿在跟贴中直接发答案      
邮件主题 格式为 45VBA答案_用户ID 例如 45VBA答案_LDY      
因每天收到邮件过多，请严格按要求发送邮件。谢谢合作





2 分题的限制条件勘误 ： 应该是不添加类模块，工作表模块属于特殊类模块，可以使用。

先评分，后续工作容后补齐

[ 本帖最后由 ldy 于 2009-3-31 15:56 编辑 ]

ldy

英文版的朋友下载附件可能会出现模块丢失的现象
模块中代码如下：

1. 
   
2. Function 创建(Optional 控件名 As Variant, Optional 类名 As Variant, Optional 左 As Variant, _
   
3. Optional 上 As Variant, Optional 宽 As Variant, Optional 高 As Variant)
   
4. '如需其他过程、 语句、公共变量，请自行添加
   
5. MsgBox "如需其他过程、 语句、公共变量，请自行添加" & vbCrLf & vbCrLf & _
   
6. "答题后请删除此语句。"
   
7. 
   
8. 
   
9. 
   
10. 
    
11. 
    
12. End Function
    

复制代码

fdd

先占位，看后面的2分、3分是否能完成。



邮件收到  --ldy

[ 本帖最后由 ldy 于 2009-3-1 03:29 编辑 ]

YoSQL

要求 1 不使用类模块，保持文件的模块数不变

工作表模块是否属于类模块？

表达概念有点含糊，应该是不添加类模块，工作表模块属于特殊类模块，可以使用。

                   --LDY

[ 本帖最后由 ldy 于 2009-2-23 17:54 编辑 ]

YoSQL

窗体控件里有文本框吗？textbox?

真是特例。。


请教1楼动画中创建的方框，你叫它什么？

只知道手动插入窗体控件里没有文本框
也知道TextBoxes.Add


OK 就是它了，既然了解了题目，就开做吧。

[ 本帖最后由 ldy 于 2009-2-24 23:42 编辑 ]

Scarlett_88

占位，下载先


邮件收到--ldy



[ 本帖最后由 ldy 于 2009-3-31 19:33 编辑 ]

agstick

凑活着整一个

邮件收到 -ldy



[ 本帖最后由 ldy 于 2009-3-31 19:34 编辑 ]

xowi99

做了第2题。占位，邮件已发送至26258103@163.com

邮件收到  -ldy



[ 本帖最后由 ldy 于 2009-3-31 19:35 编辑 ]

yangchun88

做了第三题,请版主查收!


邮件收到  ————ldy



移动控件时，同类型控件都会受影响。按2分题计算

callbyname用的漂亮 + 1分技术



[ 本帖最后由 ldy 于 2009-3-31 20:00 编辑 ]

deweyfbi

看ing！！！