精华内容
下载资源
问答
  • 他山之石——VBA文本框

    千次阅读 2018-06-29 23:58:59
    继续学习VBA!'**********************文字框控件*************** '一 显示 '1 多行显示 'MultiLine 属性值为true时,可以多行显示文本 '2 文本框对齐 '左右对齐可以用TextAlign对齐,但上下对齐则没有相应的...

    继续学习VBA!

    '**********************文字框控件***************
    '一 显示
      '1 多行显示
         'MultiLine 属性值为true时,可以多行显示文本
      '2 文本框对齐
         '左右对齐可以用TextAlign对齐,但上下对齐则没有相应的属性设置
      '3 密码样式
         '可以设置passwordChar属性来隐藏输入的内容
      '4 行列超过宽度或高度时添加滚动条
         'ScrollBars 属性可以设置垂直和水平滚动条
      '5 强制换行符号
         'EnterKeyBehavior的属性值为TRUE时,可以强制换行.按回车即可以转到下一行.
         '如果用代码,可以借用回车符来实现转行
    Private Sub CommandButton1_Click()
      TextBox2 = "excelpx" & Chr(10) & ".com"  'Cha(10)换行符
    End Sub
    
    
    '二 功能
       '1 自动跳到一下个tab顺序的控件
         'AutoTab属性设置为true,当文字框输入字符数大于
       '2 锁定文本和禁用
          'locked属性为true时,显示正常,可以选取,可以复制,但不能编辑。
          'enable属性为false时,显示灰色,不能选取
       '3 是否允许拖放复制值
          'DragBehavior 属性值为1时,可以进行拖放
          
    '三 常用方法和属性
       '1 lineCount属性:获得文本框的行数
       '2 SelLength属性可以获得当前文本框中选取的文本长度
       '3 SelText,可以获得当前文本框中选取的文本
       '4 SetFocus 获得焦点
       Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        ' TextBox2 = TextBox3.SelLength & ":" & TextBox3.SelText & ":" & TextBox3.SelStart
       End Sub
    
    
    
    Private Sub UserForm_Click()
    
    End Sub
    
    '四 事件
      '1 当文本框值发生改变量时的事件
       Private Sub 用户名_Change()
         MsgBox 123
       End Sub
       '2 当离开文本框时,如果数据发生了改变,则发生此事件
       Private Sub TextBox1_AfterUpdate()
        ' MsgBox 123
       End Sub
      '3 焦点进入文本框时的事件
      Private Sub 用户名_Enter()
       ' MsgBox "我是用户名。"
      End Sub
      '4 离开文本框时的事件
      Private Sub 用户名_Exit(ByVal Cancel As MSForms.ReturnBoolean) '必须输入用户名
        If 用户名.Text = "" Then
          Cancel = True
          MsgBox "你没有输入用户名,不能跳过" & Chr(10) & "请输入内容"
        End If
      End Sub
      'Cancel参数常用于取消该事件的发生,本事件是指取消离开动作,禁止离开
      
     Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '密码必须输入数字
        If Not VBA.IsNumeric(TextBox1.Value) And TextBox1.Value <> "" Then
          Cancel = True
          MsgBox "密码只能输入数字,请重新输入"
        End If
     End Sub
    Private Sub UserForm_Initialize()
    Dim arr, x
     日期 = Date
     Set d = CreateObject("scripting.dictionary")
     arr = Sheets("sheet3").Range("G2:H4")
     For x = 1 To UBound(arr)
       d(arr(x, 1)) = arr(x, 2)
     Next x
    End Sub
    
    
    
    Private Sub 金额_Change()
    
    End Sub
    
    Private Sub 数量_Exit(ByVal Cancel As MSForms.ReturnBoolean) '离开数量后就自动输入到单元格中
    Dim myrow As Long, x
        If VBA.IsNumeric(数量.Value) Then
            With Sheets("sheet3")
             myrow = .Range("a65536").End(xlUp).Row + 1
             .Cells(myrow, 1) = 日期
             .Cells(myrow, 2) = 商品
             .Cells(myrow, 3) = 数量.Value
             .Cells(myrow, 4) = 单价.Value
             .Cells(myrow, 5) = 金额.Value
            End With
             商品 = ""
        Else
           MsgBox "数量不能为非数字,请重新输入"
           Cancel = True
        End If
     ' End If
    End Sub
    
    Private Sub 数量_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      
    End Sub
    Private Sub 商品_Exit(ByVal Cancel As MSForms.ReturnBoolean) '根据商品查找单价
     '提取商品单价
      If d.Exists(商品.Value) Then
       单价 = d(商品.Value)
      Else
        MsgBox "该商品单价不存在,请重新输入"
        Cancel = True
      End If
    End Sub
    
    Private Sub 数量_Change() '输入数量后自动计算金额
      If VBA.IsNumeric(数量.Value) Then
       金额 = 数量 * 单价
      End If
    End Sub


    展开全文
  • VBA 文本框按Enter 键触发事件.

    万次阅读 2012-08-22 20:29:44
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Value = "ok" TextBox3.SetFocus End Sub 注意: ...按钮的属性有一项是default 将其设成TRU


    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)


    TextBox2.Value = "ok"
    TextBox3.SetFocus

    End Sub


    注意:


    userForm 中有一个默认回车时, 自动是激活某一按钮


    按钮的属性有一项是default 将其设成TRUE就行了,同理cancel就是按ESC键响应。

    展开全文
  • VBA笔记——文本框控件的换行

    千次阅读 2020-01-03 13:11:02
    Private Sub UserForm_Initialize() With Me.txtDemo .WordWrap = True .MultiLine = True .Text = "文本框是一个灵活的控件,受下列属性的影响:Text、" _ & "MultiLine、WordWrap和AutoSize。"...
    Private Sub UserForm_Initialize()
        With Me.txtDemo
            .WordWrap = True
            .MultiLine = True
            .Text = "文本框是一个灵活的控件,受下列属性的影响:Text、" _
                & "MultiLine、WordWrap和AutoSize。" & Chr(10) _
                & "Text 包含显示在文本框中的文本。" & Chr(10) _
                & "MultiLine 控制文本框是单行还是多行显示文本。" _
                & "换行字符用于标识在何处结束一行并开始新的一行。" _
                & "如果 MultiLine 的值为False,则文本将被截断," _
                & "而不会换行。如果文本的长度大于文本框的宽度," _
                & "WordWrap允许文本框根据其宽度自动换行。" & Chr(10) _
                & "如果不使用 WordWrap,当文本框在文本中遇到换行字符时," _
                & "开始一个新行。如果关闭WordWrap,TextBox中可以有不能" _
                & "完全适合其宽度的文本行。文本框根据该宽度,显示宽度以" _
                & "内的文本部分,截断宽度以外的那部分文本。只有当" _
                & "MultiLine为True时,WordWrap才起作用。" & Chr(10) _
                & "AutoSize 控制是否调节文本框的大小,以便显示所有文本。" _
                & "当文本框使用AutoSize 时,文本框的宽度按照文本框中的" _
                & "文字量以及显示该文本的字体大小收缩或扩大。"
        End With
    End Sub
    
    展开全文
  • 6.在属性窗口,给该模块重命名:Manipulations 7.选择“视图”-“对象浏览器”,或按F2 8. 在“工程/库”下拉列表框里选择“Excel”类 9. 在搜索框里输入“textbox”并点击搜索按钮。确保你没有在文字间敲...

    1.打开一个新工作表
    2.在工作表中央画一个文本框,并且随便输入什么文字
    3.  选择文本框之外的任意单元格
    4.  按下Alt+F11激活VB编辑器窗口,并且选择工程浏览器窗口的Personal (Personal.xls)
    5.  选择“插入”-“模块”,增加一个新的模块
    6.在属性窗口,给该模块重命名:Manipulations
    7.选择“视图”-“对象浏览器”,或按F2
    8.  在“工程/库”下拉列表框里选择“Excel”类
    9. 在搜索框里输入“textbox”并点击搜索按钮。确保你没有在文字间敲入空格。

    10.使用shapes里的AddTextBox

    11.按F1可以了解相关操作介绍

    12.在模块Manipulations中添加代码:

    Sub MoveTextBox()
                With ActiveSheet.Shapes(1)
                             .Select
                             .Left = 200
                             .Top = 20
                 End With
    End Sub
    Sub MoveCircle()
                With ActiveSheet.Shapes(2)
                            .Select
                            .Left = 0
                            .Top = 0
                End With
    End Sub

    Excel 里的文本框和一个圆形对象,分别是Shapes(1),和 Shapes(2),

    改变相应的left 或者top 的值可以改变位置。

    总结:

    该文主要探索使用对象的浏览器中的方法具体方法和实践操作。

    展开全文
  • 打开Excel表格,通过任何一种方式进入VBA代码编程界面.插入一个窗体Userform1,这时候会弹出一个工具箱按钮.选则工具箱里的文本框(textbox),在窗体上画出一个文本框.文本框,textbox,是通过控件的方式向指定位置录入...
  • 一,textbox的作用textbox,就是文本框,或者叫做文字框.是VBA里的ActiveX控件.textbox最大的作用就是通过设计的界面化数据录入窗口向指定的位置录入数据的最重要的途径之一.在这里,我们只说是最最重要,因为te...
  • 从根本上来说,段落文本框也是一个 Shape(形状)对象,可以调用其 Text 属性的相关方法来获取段落文本框中的文本。 以下代码演示了如何读取段落文本框中的内容: ' 变量声明 Dim s As Shape ' 设置当前文档...
  • 一,textbox的作用textbox,就是文本框,或者叫做文字框.是VBA里的ActiveX控件.textbox最大的作用就是通过设计的界面化数据录入窗口向指定的位置录入数据的最重要的途径之一.在这里,我们只说是最最重要,因为te...
  • 大家好,我们今天继续讲解类和类模块的知识,从这讲开始我们开始对各种实例的学习,在实例学习的过程中我们要加深对概念的理解,对于几个重要的概念,...2 类的属性,用来描述类。有两种声明方案,一种是在类中直接...
  • 一,textbox的作用textbox,就是文本框,或者叫做文字框.是VBA里的ActiveX控件.textbox最大的作用就是通过设计的界面化数据录入窗口向指定的位置录入数据的最重要的途径之一.在这里,我们只说是最最重要,因为te...
  • 【Excel VBA】控件应用(1)-文本框

    千次阅读 2020-03-16 22:05:50
    用户在使用文本框输入数据时,往往希望可以限制输入数据的类型,例如,只允许输入数字,但是文本框的现有属性无法直接实现这样的要求。此时可以在文本框的KeyPress事件过程和Change事件过程中编写代码来判断输入的...
  • 大家好,我们今天继续讲解类和类模块的知识,从这讲开始我们开始对各种实例的学习,在实例学习的过程中我们要加深对概念的理解,对于几个重要的概念,...2 类的属性,用来描述类。有两种声明方案,一种是在类中直接...
  • 内容提要:文章介绍VBA中textbox的MaxLength属性限制文本框输入长度的设置方法。对Excel感兴趣的朋友可加Excel学习交流群:284029260(www.itblw.com)  我们在学习excel VBA时,会接触到textbox文本框。对Excel感...
  • 相关知识点 文本框控件:“ab”光标控件 ...Text属性:文本框的内容 Form.Hide:窗体隐藏,在内存里 Unload:窗体彻底消失或者点击窗体的“X”,效果一样 fmInput.txtname.txt:窗体名.控件名.属性...
  • 前面的几篇图文,咱们讲了关于VBA二次开发的一些控件,这次咱们继续说一个控件.combobox控件,中文的翻译名叫做复合框.在这里咱们要与checkbox做一个区分,combobox是复合框,而checkbox叫做复选框.一,combobox控件复合框...
  • 在前面的课程里,咱们给大家详细的介绍过标签控件,文本框控件,窗体控件,这次咱们给大家说一下VBA的另外常用控件,命令按钮(Commandbutton)控件.命令按钮控件的实质作用其实就是一种VBA代码触发的起动机制,即通过...
  • 在前面的课程里,咱们给大家详细的介绍过标签控件,文本框控件,窗体控件,这次咱们给大家说一下VBA的另外常用控件,命令按钮(Commandbutton)控件.命令按钮控件的实质作用其实就是一种VBA代码触发的起动机制,即通过...
  • VBA常用技巧

    2014-12-21 16:39:28
    1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 12 1-6 使用Union方法 12 1-7 使用UsedRange属性 12 1-8 使用CurrentRegion属性 12 技巧2 选定单元格...
  • 一、VBA入门知识 1、激活工作簿 2、创建新工作簿 3、打开工作簿 4、用编号引用工作表 5、用名称引用工作表 6、将文档保存为 Web 页 7、用 A1 样式的记号引用单元格...20、文本框控件 21、切换按钮控件 22、用户窗体窗口
  • vba英文翻译成中文

    2019-10-15 19:32:03
    我们每天工作中都可能需要用到翻译工具,想着,要不做个翻译小功能玩玩?...控件 名称 属性 文本框 txtCN 无 文本框 txtEN 无 按钮 btnTranslate 无 2、添加代码 Private Sub btnTranslate_Clic...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    VBA常用技巧 目录 VBA常用技巧 1 第1章 Range(单元格)对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 13 1-6 使用...
  • 学习资源:《Excel VBA从入门到进阶》第55集 by兰色幻想一、标签控件示例窗体控件属性有很多,这里只挑几个常用的属性讲一下:Caption插入文本控件,可直接在文本框中输入内容,或在属性栏Caption输入内容。...
  • VBA编写的程序中,如果可以在运行时动态创建控件无疑是非常有用的,因为有些控件是无法预先得知的,这样就更必须在运行时动态创建然后设置相应控件属性。控件的名称如下: Forms.Checkbox.1(复选框) Forms....
  • 学习资源:《Excel VBA从入门到进阶》第55集 by兰色幻想一、标签控件示例窗体控件属性有很多,这里只挑几个常用的属性讲一下:Caption插入文本控件,可直接在文本框中输入内容,或在属性栏Caption输入内容。...
  • 学习资源:《Excel VBA从入门到进阶》第56集 by兰色幻想本节... 文本框对齐 左右对齐可以用TextAlign对齐,但上下对齐则没有相应的属性设置。 3. 密码样式 可以设置passwordChar属性来隐藏输入的内容,在passwordCh...
  • ACCESS VBA 命名规范(LNC)修订版 ——VBA Leszynski naming convention revision 修订人:红尘如烟 基本原则:变量名=属性+类型+对象描述 属性和类型为小写前缀,对象描述为一个或多个英文单词或缩写,每个单词首...
  • 2、文本框对齐 左右对齐可以用TextAlign对齐,但上下对齐则没有相应的属性设置 3、密码样式 可以设置passwordChar属性来隐藏输入的内容 4、行列超过宽度或高度时添加滚动条 ScrollBars 属性可以设置垂直和水平滚动条...
  • -ExcelVBA程序开发-ExcelHome技术论坛 -​club.excelhome.net本以为可以通过录制宏解决,发现录制后的宏代码为空白搜索后找到这个帖子用VBA设置word的shape对象的"对象随文字移动"属性如何设置-CSDN论坛​bbs.csdn...
  • 下面看下效果图左侧是生成的二维码,右侧是一个文本框,输入要二维码存储的信息。操作简单,生成之后还可随机改换二维码颜色。新建二维码代码Me.Controls.Add("barcode.BarCodeCtrl.1", "CodeName")二维码属性...

空空如也

空空如也

1 2 3 4 5
收藏数 88
精华内容 35
关键字:

vba文本框属性