[已解决]VBA＿拼音简码＿实现检索输入(指定区域使用此功能)

yjwdjfqb · 发表于 2011-8-10 09:59

VBA＿拼音简码＿实现检索输入(指定区域使用此功能)

请各位高手帮忙修改下代码：拼音简码＿实现检索输入(指定区域使用此功能)

具体要求在附件中，请老师们帮下忙。。。谢谢各位啦。。。。

最佳答案

月排行榜 / 总排行榜

wayy

2011-8-11 15:17

VBA＿拼音简码＿实现检索输入(指定区域使用此功能).rar (32.01 KB, 下载次数: 122)

无聊的疯子 · 发表于 2011-8-10 10:21

回复 yjwdjfqb 的帖子

在Select_Change事件中有这样一段代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'触发的列为 4 ，触发的行为大于 4 ,改动两个4
If Target.Column <> 4 Or Target.Row <= 4 Then Exit Sub
如果选择的单元格所在列不是第4列或者所在行小于等于4行,就退出该过程

那么将你需要操作的地址做为条件加入进去就行了!!

yjwdjfqb · 发表于 2011-8-10 10:32

回复无聊的疯子的帖子

楼主，本人是菜鸟一个。。。麻烦把你修改好的附件上传一个好吧。。
谢谢啦！！！

yjwdjfqb · 发表于 2011-8-10 14:02

回复无聊的疯子的帖子

期待老师解决。。。。

wayy · 发表于 2011-8-11 15:17

VBA＿拼音简码＿实现检索输入(指定区域使用此功能).rar (32.01 KB, 下载次数: 122)

yjwdjfqb · 发表于 2011-8-11 16:42

回复 wayy 的帖子

感谢老师的修改，同时也感谢你的指导，只是我现在还不是很懂VBA，我会记住老师的话的。感谢了！！！

yjwdjfqb · 发表于 2011-8-11 19:11

回复 wayy 的帖子

VBA＿拼音简码＿实现检索输入【指定区域使用此功能】-问题

老师，我修改了下，指定区域使用　拼音检索输入功能，

修改了变量，怎么，其它地方还是可以使用此功能。。。。

请老师，看看。。。。

无聊的疯子 · 发表于 2011-8-11 19:24

本帖最后由无聊的疯子于 2011-8-11 19:25 编辑

回复 yjwdjfqb 的帖子

For Each rng In Range("M6")  '设置拼音检索输入功能的使用区域    这里只有一个地址了，下面随便你怎么加也不可能=28
   If rng.Address <> Target.Address Then    如果rng的地址不等于当前单元格的地址，I就加1
      I = I + 1
   End If
Next

If I = 28 Then Exit Sub  原来代码中是28个单元格，所以I=28意思是当前选择单元格地址不在上面的区域内

其实可以改一下

For Each rng In Range("M6") '设置拼音检索输入功能的使用区域
If rng.Address = Target.Address Then
Dim c As Range, r&
Set c = Target
With Me.TextBox1
.Top = c.Top
.Left = c.Left
.Width = c.Width
.Height = c.Height ' + 5
Me.ListBox1.Top = .Top
Me.ListBox1.Left = .Left + .Width
.Text = c.Text
.SelStart = 0
.SelLength = Len(.Text)
.Activate
.Visible = True
End With
Exit For
end if
Next

复制代码

yjwdjfqb · 发表于 2011-8-11 20:52

回复无聊的疯子的帖子

谢谢你修改的，这下可以了，我想请问下

Private Sub CommandButton1_Click()
Application.EnableEvents = False
Me.ListBox1.Enabled = True
Me.TextBox1.Enabled = True
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "已完成恢复！"
End
End Sub

这段，可不可以，加上程序里面，防止出错

上面这段代码好像是，程序出错后，进行恢复程序的。。。

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