[已解决]谢谢mxg825老师。汉字变拼音出错，（原HYY514老师写的）

lhj323323 · 发表于 2011-10-16 17:08

本帖最后由 lhj323323 于 2011-10-16 17:08 编辑

回复 mxg825 的帖子

存在sheet1中的？您是用什么方法找到的呢？
在哪儿呢，我怎么没有找到？

mxg825 · 发表于 2011-10-16 18:15

这个最佳答案由 mxg825 给出，感谢 mxg825 的回答。

单击隐藏图章

Sub 移动显示DIC()
With Sheet1.dic
.Top = [A9].Top
.Left = [A9].Left
.Width = 600
.Height = 50
.MultiLine = True
End With
End Sub

复制代码

运行一次看看

lhj323323 · 发表于 2011-10-16 18:32

本帖最后由 lhj323323 于 2011-10-16 18:49 编辑

回复 mxg825 的帖子

老师：
这就引申出两个问题了：
1、我如何将显示出来的这个东西隐藏回去，它是不是窗体控件呀？
2、如果我想将HYY514老师写的这个程序归集到我收集的一个汇总模板中，如何将这个东西复制过去？

下面的代码，运行后，电脑提示，对象不支持该属性和方法

Sub 移动显示DIC() 'mxg825于20111016帮我把HYY514隐藏在工作表的控件工具箱的文本框（名称就叫dic）找出来了
'原来，HYY514的Sheet4.dic就是这个文本框，他将该控件隐藏了。
If Sheet4.CommandButton1.Caption = "显示版本2的文本框" Then
With Sheet4.dic
.Top = [A9].Top
.Left = [A9].Left
.Width = 600
.Height = 50
.MultiLine = True
.CommandButton1.Caption = "隐藏版本2的文本框"
End With
Else
With Sheet4.dic
.Top = 0
.Left = 0
.Width = 0
.Height = 0
.MultiLine = False
.CommandButton1.Caption = "显示版本2的文本框"
End With
End If
End Sub

复制代码

mxg825 · 发表于 2011-10-16 18:40

把他复制到过去就可以了!

lhj323323 · 发表于 2011-10-16 18:50

本帖最后由 lhj323323 于 2011-10-16 19:35 编辑

回复 mxg825 的帖子

老师：
请看看13楼，我更新后加入的代码。看看可以怎么改。？

老师：
我知道错在哪里了，报错指的是按纽控件的设置没有对。现已解决了，谢谢MXG825老师。

mxg825 · 发表于 2011-10-16 19:43

1、我如何将显示出来的这个东西隐藏回去，它是不是窗体控件呀？
答:他没有隐藏,只是放在B65518 单元格位置,他可见高度与宽度值很小,接近0值!2、如果我想将HYY514老师写的这个程序归集到我收集的一个汇总模板中，如何将这个东西复制过去？
答:只要把控件复制过去,就可以了; 或把控件中的值读出来,105969个字符,直接交给变量:sDic = 读出来的 [105969个字符]

lhj323323 · 发表于 2011-10-16 19:45

回复 mxg825 的帖子

谢谢老师。我明白了。谢谢。

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