Excel教程下载和软件下载中心，Microsoft技术社区联盟成员，全球领先的Excel门户，Office技术培训的最佳社区

« 在VBA中使用类创建控件数组_Excel VBA实战技巧精粹玩转图表数据系列_Excel图表实战技巧精粹 »

输入时逐步提示信息的实现_Excel VBA实战技巧精粹

D08-输入时逐步提示信息的实现 

       主讲人：yuanzhuping

       内容简介：众所周知单元格处于编辑状态时无法运行任何代码，那么输入时如何才能实现逐步提示呢？本节讲解了组合利用文本框和列表框实现输入时逐步提示信息的功能，进而可以大大提高录入效率。

 [视频下载]

       请点击：高清晰版下载 

 [在线欣赏]

  • 高清晰版

注：本媒体文件为自动播放，需10秒左右的缓冲时间。

  • 非高清版

 

  媒体文件信息 

 文件来源：http://player.youku.com/player.php/sid/XMzU2OTg5MjQ=/v.swf

 您可以点击控件上的播放按钮在线播放。注意，播放此媒体文件存在一些风险。

 附加说明：本网站系统禁止了该文件的自动播放功能。

 由于该用户没有发表自动播放多媒体文件的权限或者该版面被设置成不支持多媒体播放。

 

Tags: 08版精粹  视频  
评论:3 | 浏览:
  • quote 2.绕树参天藤
  • 求KEYUP事件代码：Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim i As Integer
    Dim Language As Boolean
    Dim myStr As String
    Me.ListBox1.Clear
    With Me.TextBox1
    For i = 1 To Len(.Value)
    If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
    Language = True
    myStr = myStr & Mid$(.Value, i, 1)
    Else
    myStr = myStr & LCase(Mid$(.Value, i, 1))
    End If
    Next
    End With
    With Sheet2
    For i = 2 To .Range("A65536").End(xlUp).Row
    If Language = True Then
    If Left(.Cells(i, 1).Value, Len(myStr)) = myStr Then
    Me.ListBox1.AddItem .Cells(i, 1).Value
    End If
    Else
    If Left(.Cells(i, 2).Value, Len(myStr)) = myStr Then
    Me.ListBox1.AddItem .Cells(i, 1).Value
    End If
    End If
    Next
    End With
    End Sub运行不对路
  • 2009-11-12 13:15:32 回复该留言

发表评论:

◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。

热门文章

相关统计

  • 文章总数:908
  • 评论总数:1800
  • 引用总数:0
  • 浏览总数:4408595
  • 留言总数:180
  • 当前主题:exhome
  • 当前样式:default
本站特聘法律顾问：徐怀玉律师  闽ICP备05014318号