精华内容
下载资源
问答
  • VBA制作软件原型应该也不错,有机会可以尝试一下。'************单选和复选框************* Private Sub CommandButton1_Click() Dim sr As String If CheckBox1.Value = True Then sr = sr & " &...

    麻雀虽小,五脏俱全。用VBA制作软件原型应该也不错,有机会可以尝试一下。

    '************单选和复选框*************
    Private Sub CommandButton1_Click()
    Dim sr As String
      If CheckBox1.Value = True Then sr = sr & " " & CheckBox1.Caption
      If CheckBox2.Value = True Then sr = sr & " " & CheckBox2.Caption
      If CheckBox3.Value = True Then sr = sr & " " & CheckBox3.Caption
      TextBox3.Value = sr
    End Sub
    
    
    Private Sub OptionButton3_Click()
      If Me.男.Value = True Then
        TextBox3.Value = "男"
      End If
    End Sub
    Private Sub OptionButton4_Click()
      If Me.女.Value = True Then
        TextBox3.Value = "女"
      End If
    End Sub
    
    Private Sub Frame1_Click()
    
    End Sub
    
    Private Sub Image1_Click()
    
    End Sub
    
    '**********滚动条与*微调按钮****************
    
    '一 常用方法和属性
     '1 设置最大值和最小值
        'Max属性
        'min属性
     '2 步长(每点击两边按钮和滑块增加或减少的步长)
        'largechange属性,只用于滚动条,点击一次中间增加或减少的数
        'smallchange属性,点击一次按变化的数
    
    '二 事件
    Private Sub ScrollBar1_Change()
      TextBox1.Value = ScrollBar1.Value
    End Sub
    
    Private Sub SpinButton1_Change()
      'TextBox1.Value = ScrollBar1.Value
    End Sub
    Private Sub SpinButton1_SpinUp()
       TextBox2 = DateAdd("d", -1, TextBox2.Value)
    End Sub
    Private Sub SpinButton1_SpinDown()
       TextBox2 = DateAdd("d", 1, TextBox2.Value)
    End Sub
    Private Sub UserForm_Initialize()
     Dim f As String
     f = Dir(ThisWorkbook.path & "\pic\*.jpg")
     Do
       Me.ListBox1.AddItem f
       f = Dir
     Loop Until Len(f) = 0
     TextBox2 = Date
     
    End Sub
    
    '**********图片控件****************
     '图片控件中图片的导入
    Private Sub ListBox1_Click()
    Dim path
    path = ThisWorkbook.path & "/pic/" & ListBox1.Value
      Image1.Picture = LoadPicture(path) '用loadpicture函数加载图片
    End Sub
    
    
    '**********多页控件****************
     '1 多页控件的多行是指什么?
       'MultiRow 属性:当多页控件的标签很多时,可以分多行显示。
     '2 多页控件的值
      '1 选择第1个标签,Value为0,选择第2个Value为1....选择第N个Value为N-1
      '2 设置值的属性后可以直接选取这个标签。如MultiPage1.Value=0 就可以选取第2个标签
        Private Sub MultiPage1_Change()
        '  MsgBox MultiPage1.Value
        End Sub
     '3 隐藏标签
      'Style 属性值为2时,可以隐藏标签
      '  Me.MultiPage1.Style = 2
    
    Private Sub UserForm_Initialize()
    Me.MultiPage1.Style = 2
    Me.MultiPage1.Value = 0
    按钮权限
    End Sub
    
    Sub 按钮权限()
     Select Case Me.MultiPage1.Value
       Case 0
         上一步.Enabled = False
         Me.Caption = "第1步 共" & Me.MultiPage1.Pages.Count & "步"
       Case Me.MultiPage1.Pages.Count - 1
         下一步.Enabled = False
         Me.Caption = "第" & MultiPage1.Pages.Count & "步 共" & Me.MultiPage1.Pages.Count & "步"
       Case Else
         上一步.Enabled = True
         下一步.Enabled = True
        Me.Caption = "第" & MultiPage1.Value + 1 & "步 共" & Me.MultiPage1.Pages.Count & "步"
       End Select
    End Sub
    
    Private Sub 上一步_Click()
    Me.MultiPage1.Value = Me.MultiPage1.Value - 1
    按钮权限
    End Sub
    
    Private Sub 下一步_Click()
    Me.MultiPage1.Value = Me.MultiPage1.Value + 1
    按钮权限
    End Sub
    

    展开全文
  • 添加VBA控件按钮及操作提示框

    万次阅读 2018-09-18 14:47:58
    在Excel文件中,为了实现更加自动化或者称为人机交互式的操作,很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序,在编辑器里操作更像是...这里就将要说的就是,怎样添加按钮和编辑其属性。操作如下...

    在Excel文件中,为了实现更加自动化或者称为人机交互式的操作,很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序,在编辑器里操作更像是专业开发技术人员开发测试使用的操作,对于用户来讲,他们根本不需要关系程序是怎么执行,更谈不上去怎么调试程序,最好就是在xlsm文件某一sheet上直接点击按钮就可以完成我们想要的结果。

    这里就将要说的就是,怎样添加按钮和编辑其属性。操作如下所示:

    1、在xlsm文件中点击常用菜单栏“开发工具”按钮,选择“设计模式”,然后在其左边点击“插入”选项按钮。

    2、在跳出的子菜单显示界面,点击选择ActiveX控件栏目下的第一个图标,选择命令按钮。 

    3、然后点击鼠标左键,画一个方框,按钮即被添加。

     4、右键单击“CommandButton1”按钮,选择属性选项,跳出右边属性编辑界面。在“(名称)”和“Caption”对应的右边编辑框修改自己想替换的名称。其中“(名称)”对应的是VB编辑器中函数的名称,“Caption”对应的是按钮名称。

    5、如我们改“(名称)”为VBAtest,“Caption”为“点击me”。修改完成后,关闭属性界面即可。双击按钮可以跳到VB编辑器界面,然后可以进行vba程序开发编辑。

     6、最后需要将设计模式取消选择,否则点击按钮只会选中它。当取消选择后,点击按钮就会有点击按钮的反馈,如果在VB编辑器中编好了程序,VBA程序应该就可以运行起来了。

    上面只是增加了点击按钮操作,但如果是用户不小心点到了按钮,本来是不想运行程序的,但此时程序已经开始运行不会停下来,这样给人的感觉不是很人性化。所以我们在程序中给用户一个提示和判断,当点击按钮后不立即执行主程序,而是首先提示用户是否要继续下面的操作,用户根据需要选择确定或者取消。具体实现代码如下:

    Private Sub VBAtest_Click()  
      'MsgBox "欢迎开始载入……"
      If vbOK = MsgBox("欢迎开始载入…", vbOKCancel, "提示") Then
        Application.ScreenUpdating = False
        '''''''
        '执行的代码……
        '''''''
        Application.ScreenUpdating = True
        MsgBox "载入完成结束!"
      Else
        MsgBox "您放弃了此次载入,下次再见!"
      End If
    End Sub
    

    效果如下所示:

    会提示用户下面会进行什么操作,用户可以选择确定或者取消。点击确定后便会运行主程序,选择取消则会直接跳到程序结束,提示用户“您取消了这次操作”,如下图:

     

    几行代码,增加了人机的互动性,防止人为误操作,简单又实用。

    代码很简单,就一个MsgBox函数,关于它的使用自行搜索,再配合给的例子演示下就应该会基本使用了。

     

    展开全文
  • Sub 开始问卷() Sheets("Sheet3").Shapes("Graph 1").Visible = False Sheets("Sheet3").OptionButton178.Value = False End Sub 这段代码的第三行会报错“对象不支持该属性或方法”。 谢谢各位!
  • OptionButton:单选按钮Caption属性就是提示文字,Value属性True或False CheckBox:复选框Caption属性就是提示文字,Value属性True或False Frame:框架控件,带有“xyz”符号的控件 Image:图像控件,主要属性...

     

    相关知识点

    OptionButton:单选按钮Caption属性就是提示文字,Value属性True或False

    CheckBox:复选框Caption属性就是提示文字,Value属性True或False

    Frame:框架控件,带有“xyz”符号的控件

    Image:图像控件,主要属性Picture:显示图片的对象,可在属性窗口中设置,也可用代码LoadPicture(“文件路径”)设置,PictureSize:设定该图片的显示模式,包括“原尺寸”“拉伸”“自适应”等。

    在工具箱空白处点击右键可以找到“附加控件”,添加其他控件

    Microsoft Web Browser浏览器控件

    UserForm1.WebBrowser1.Navigatehttp://sian.com

    所有控件都有Enable属性,设置为False,控件显示为灰色,无法使用,True正常

    Visible属性,设置为False,控件自动隐藏,无法看到,True显示

    例1 爱好选择

    Private Sub CommandButton1_Click()

         Dim gender as string,interest as string

         If  Optionbutton1.value Then

                       Gender=”男性”

         ElseIf  Optionbutton1.value Then

                       Gender=”女性”

         Else

                       Gender=”未注明”

         End If

         Cells(4,2)=gender

         If checkbox1.value Then interest =interest & “音乐”

         If checkbox2.value Then interest =interest & “体育”

         If checkbox3.value Then interest =interest & “美术”

         Cells(4,4)=interest

    End Sub

    例2 图片控件

    Private Sub commandButton1_Click()

         x=(x+1) mod 3

         k=”c:\vba\vba-cover-”& trim(str(x+1)) & “.gif”

         me.Image1.Pircture=LoadPicture(k) ‘代码中指定路径

         me.Repaint

    End Sub

    例3列表框选项变化时,将内容写入文本框,同时显示网站页面

    Private Sub ListBox1_Change()

         Dim i as long

         If  Listbox1.listindex >-1 then

                i=listbox1.listindex+2

                textscore1.text=cells(i,3)

                textscore2.text=cells(i,4)

                textscore3.text=cells(i,5)

                textscore4.text=cells(i,6)

                textscore5.text=cells(i,7)

                WebBrowser1.Navigate.Cells(i,8)

         End If

    End Sub

    例4 文本框属性控制,启用,禁用,显示,隐藏

    Private Sub cmdEnable_click()

         Me.textbox1.enable=Ture ‘启用

    End Sub

    Private Sub cmddisable_click()

         Me.textbox1.enable=False ‘禁用

    End Sub

    Private Sub cmdshow_click()

         Me.textbox1.visible=True ‘显示

    End Sub

    Private Sub cmdhide_click()

         Me.textbox1.visible =False ’隐藏

    End Sub

    展开全文
  • 本人主要介绍了VBA窗体控件的一些基本操作内容,各种常用属性,常用操作等,基本涵盖了全部常用的控件,给出了代码样例,适用于初学者,欢迎感兴趣的下载学习,不明之处请留言。
  • VBA-将宏添加到选项卡(简易版)

    千次阅读 2019-09-27 17:29:15
    简单介绍一下在Office中将宏添加到选项卡的简易方法(UI介面操作法和VBA法)。

    VBA-将宏添加到选项卡(简易版)

    缘起

    相信经常使用Office软件,尤其是Excel的朋友,很多人都听说过VBA,我周围也有些部门的同事会自主研发一些实用的宏工具。作为最贴近工作场景的脚本编写方式,学会使用VBA会给业务工作带来一定的便利。

    方法

    要用起来VBA,启动是必要的步骤。自用时,无论是在VBE里F5,还是Alt+F8启动都无所谓;但如果是制作规范化流程中使用的工具,除开代码的规范性,启动的便利性也是很重要的。比较便利的启动方法有快捷键、选项卡扩充等方法。今天这篇就是介绍一下界面操作和VBA代码两种将VBA功能放到选项卡的简易实现方式。

    方法一:界面操作方法

    以Word为例,其他Office软件同理

    1. 点击“File”
      在这里插入图片描述
    2. 点击“Options”
      在这里插入图片描述
    3. 点击“Customize Ribbon”(标识1处),选择“Macros” (标识2处),此时所有的宏都会显示在标识2下方的列表中。
      在这里插入图片描述
    4. 在标识3、4、6的上方列表,是所有的选项卡(例如Home、Insert等等)的列表:
      • “New Tab”(标识3)用来添加像Home一样的选项卡
      • “New Group”(标识4)用来添加像Clipboard这样的选项卡中的小类别
      • 添加好Tab和Group后,可以在宏列表中选中要添加的宏然后点击“Add”(标识5)去把特定的宏加到自定义的选项卡中。
      • “Rename”(标识6)可以为所有的Tab、Group以及添加的宏功能更名及更改图标。
      这个页面还有其他好玩的按钮,都是微软开放给所有用户的功能,比如“Import/Export”(标识7),它的功能就是能把设计好的选项卡导出,然后在别的电脑上导入的功能,在团队内分享宏的UI设置时比较便利。
      *提醒一下,像“Rename”这种功能的确能打造符合不同用户审美的选项卡,然而除非你对所有功能了如指掌,不推荐在默认选项卡中使用,否则在你想使用某些功能的时候,只能对着指导教程或者重置功能哭泣了:)

    方法二:VBA法

    这个方法没有UI操作那么直观,但是胜在分享出去之后在别的电脑上可以便利的使用。下面简单的实现添加一个按钮的方法,主要利用的还是CommandBar对象。更多关于CommandBar的介绍,请走传送门

    Sub AddMacroButton()
    Dim oBar As CommandBar
    Dim oControl As CommandBarButton
    Dim oButtonStyle(1 To 3) As Variant
    
    '这里是按钮显示名
    oButtonStyle(1) = "MacroFunc"
    '这里是按钮链接宏名
    oButtonStyle(2) = "TestFunc"
    '这里是按钮图案ID
    oButtonStyle(3) = 261
    
    Set oBar = Application.CommandBars.Add("MacroBar", , , True)
    oBar.Visible = True
    
    Set oControl = oBar.Controls.Add(1)
    oControl.Caption = oButtonStyle(1)
    oControl.OnAction = oButtonStyle(2)
    oControl.FaceId = oButtonStyle(3)
    End Sub
    
    '这里要添加的宏
    Sub TestFunc()
    MsgBox ("Macro worked.")
    End Sub
    

    最后特别的提一下FaceID这个属性。在这个看脸的社会里,颜值对人的主观印象影响很大,微软内置了几千种不同的图表可以通过FaceID调用,有大佬整理下来了,要看的朋友请走传送门

    公众号

    刚刚开通公众号,名叫柚点技巧,感兴趣的朋友可以添加关注,方便交流。
    在这里插入图片描述

    展开全文
  • VBA-将宏添加到选项卡(进阶版)

    千次阅读 2019-10-10 11:10:55
    简单介绍一下在Office使用制作插件的方式将宏添加到选项卡的操作方法。
  • 本章主要内容:按钮控件,标签控件,单选按钮控件,微调按钮控件,设计测试系统,小结。
  • 需要在用户窗体中加入按钮的,则需要打开“工具箱” 插入控件按钮 2、代码编写 (1)、首先在sheet中添加一个按钮,来显示用户窗体,查看效果 Private Sub CommandButton1_Click() UserForm1.Show End Sub 鼠标...
  • excel VBA 隐藏行

    2017-11-09 13:28:04
    excel vba 的运用 !!!!!!!隐藏行!!!!!!!!!!!!!!!!!!!!!!!!!!
  • 制作Excel报表,有时需要设定选项按钮(radiobutton), 而不同项目的选项按钮需要归为一组,以避免相互影响。 分组方法有多种,下面举例说明: 如果使用的是窗体控件的选项按钮:   那么只好用“分组框”...
  • VBA switch语句

    千次阅读 2019-09-28 00:14:38
    当用户想要根据Expression的执行一组语句时,使用Switch Case语句。 每个被称为一个”情况”,并根据每种情况变量接通测试。如果测试表达式与用户指定的任何Case不匹配,则执行Case Else语句。 Case Else是...
  • VBA自定义工具栏按钮制作方法

    千次阅读 2011-04-02 10:26:27
    在 Excel 中点击菜单 “工具” → “自定义” ,在弹出的...选择“指定宏”,在弹出的“指定宏”对话框中选择要使用的宏名字,点“确定” → “关闭”,要使用该宏,只需点击刚刚拖到工具栏上的按钮即可。    说...
  • 因为在Excel中VBA是默认隐藏且禁止运行宏的,所以首先介绍如何在Excel中启用VBA,然后介绍基础的变量、常量与循环、判断语句
  • EXCEL VBA 自动添加控件

    2013-02-27 09:59:50
    EXCEL VBA 自动添加控件,可以参照,来源于网络。
  • 目录 题 码 回调(CallBack) IRibbonControl对象 ... 如图所示,该表为员工档案。...然后自定义功能区,在自定义选项卡中添加一个按钮,将其onAction属性设置为该回调过程saveCopy。 步骤1 自定义功能区...
  • 在上一章咱们讲了为什么要学习VBA~VBA不值得学~学了还有没有用~零基础学VBA编程01:VBA还能不能学?学了还有没有用?这一章咱们再来简单回答几个小问题:什么是VBA?如何编写和运行VBA代码?什么是VBA先来看第一...
  • 控件数组的概念实际上是VB中的一个概念,在Excel VBA中并不具备此功能。此处所描述的控件数组实际是将数组中各个控件对象组成一个数组。当需要赋值给工作表时,则可以使用该数组进行直接赋值。但该数组的作用域必须...
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • 基于VBA的数据录入界面开发

    千次阅读 2020-09-03 14:25:27
    基于VBA的数据录入界面开发: 一、用户需求: EXCEL表格中需要录入信息过多,人为查找耗时且易出错。 二、功能实现: 根据输入信息,在界面查找并显示相应数据。 在界面填写待填充信息,同步保存到EXCEL表格。...
  • 如何给option button分组,使得用户在选择是或者否的时候,可以二选一或者三选一,而且各个选项之间互不干扰呢。方法非常简单,只要使用groupname设置一下分组就可以了。 这里设置一下分组后,同个分组的option ...
  • vba 弹框

    2017-11-07 17:10:00
    '第三个按钮,上传数据到数据库 Private Sub CommandButton1_Click() str1 = "abcde" str2 = InputBox("请输入一个字符串!") If str1 = str2 Then MsgBox "它们是一样的呀!" Else MsgBox "它们是不一样的!" End If ...
  • 在上一讲轻松搞定数字、文本单元格格式错乱问题中,我们已经通过VBA代码快速的重新调整数字、文本格式,在文章结尾也提到了,可以通过在“快速访问工具栏”中添加按钮,一键完成转换为数字或转换为文本。首先,将...
  • 步骤1 选择“文件”选项卡,单击“选项按钮,打开“Excel”选项对话框,并选择“自定义功能区”选项,如图所示。 步骤2 在“自定义功能区”中单击“新建选项卡”按钮,新建一个选项卡并自动创建组。在左侧“从...
  • VBA-使用msgbox对话框

    千次阅读 2020-02-29 20:41:00
    使用msgbox对话框 在使用 Excel 的过程中,如果需要向用户显示简单的提示信息,可以使用 MsgBox 函数显示一个消息框,其格式为:MsgBox...button:可选项,用于指定消息框中显示按钮的数目及类型、使用的图标样式、...
  • vba-msgbox用法详解

    千次阅读 2020-06-02 22:49:53
    在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 先放官方描述,后面有对应实例,实例全是干货,可直接看实例 ...
  • VBA 自定义对话框

    2020-08-17 22:09:45
    inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有Application对象中的方法,这两个是不一样的。 ①VBA中的inputbox函数用法: Dim str As String str = InputBox("请随便输入一串字符串...
  • VBA dialogs 调用对话框

    2021-11-03 12:05:43
    对话框 xlDialogAttachToolbars 323 【附加工具栏】对话框 xlDialogOptionsChart 325 【图表选项】对话框 xlDialogVbaInsertFile 328 【VBA 插入文件】对话框 xlDialogVbaProcedureDefinition 330 【VBA 过程定义】...
  • VBA编写的程序中,如果可以在运行时动态创建控件无疑是非常有用的,因为有些控件是...Forms.Optionbutton.1(选项按钮) Forms.Textbox.1(文本框) Forms.Listbox.1(列表框) Forms.Commandbutton.1(命令按钮)
  • Textbox只能输入数字 在网上一查就是好多,看来这个问题,嘿~不懂的人还有点多哦。现在我懂了,有进步了哦。 Private SubTextBox1_Change() ... If TextBox1.Text = "" Then ...清除Sheet4.ComboBox1.Clear

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,118
精华内容 1,247
关键字:

vba选项按钮的值