Excel VBA宏编程入门(五)——用户交互[通俗易懂]

Excel VBA宏编程入门(五)——用户交互[通俗易懂]目录任务介绍选择文件夹选择文件保存路径交互选择一列交互选择一行任务介绍VBA编程中,为了程序的灵活性,有时候需要用到用户交互操作,例如让用户选择一个文件夹,用户选择一个单元格等等。本文将介绍一些常用的用户交互操作的实现选择文件夹St=Application.FileDialog(msoFileDialogFolderPicker).Show’如果选择了文件夹就返回-1,不选择文件夹就返回0IfSt<>0ThenfileDir=Application.File

大家好,又见面了,我是你们的朋友全栈君。

任务介绍

VBA编程中,为了程序的灵活性,有时候需要用到用户交互操作,例如让用户选择一个文件夹,用户选择一个单元格等等。本文将介绍一些常用的用户交互操作的实现

选择文件夹

St = Application.FileDialog(msoFileDialogFolderPicker).Show '如果选择了文件夹就返回-1,不选择文件夹就返回0
If St <> 0 Then
    fileDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)    '取选择的文件夹路径
    MsgBox "您选择的文件夹是:" & fileDir     
Else
    Exit Sub    '没有选择合并文件所在路径,退出程序
End If

选择文件保存路径

Dim fileSaveName
'保存文件所在路径
fileSaveName = Application.GetSaveAsFilename(InitialFileName:="合并.xlsx", fileFilter:="Text Files (*.xlsx), *.xlsx")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
Else
    Exit Sub    '没有选择保存路径,退出程序
End If

'创建空白excel文件
Set cwb = Workbooks.Add
cwb.SaveAs fileName:=fileSaveName, _
           FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

交互选择一列

 '下面通过InputBox这个方法确定分组项所在的列
On Error GoTo 100 '如果有错误跳转到100处
Set Rg = Application.InputBox("请选择分组项所在的列(可以单击其中一个单元格)", "选择", Type:=8) '用了这句不可以关闭屏幕刷新
ColNum = Rg.Column '把要拆分的列赋值变量 ColNum
Sheets(Rg.Parent.Name).Activate '将选择的工作表设置为活动工作表

100:
    MsgBox "您选择了取消或者是关闭,即将退出程序", 64, "温馨提示"

交互选择一行

'下面通过InputBox这个方法确定数据(表头、列标题除外)开始所在的行
On Error GoTo 100 '如果有错误跳转到100处
Set Rg = Application.InputBox("请选择标题所在的行(可以单击其中一个单元格)", "选择", Type:=8) '用了这句不可以关闭屏幕刷新
RowNum = Rg.Row '把数据开始的行赋值变量 RowNum

100:
    MsgBox "您选择了取消或者是关闭,即将退出程序", 64, "温馨提示"
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/136842.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • YGC和FGC是什么「建议收藏」

    YGC和FGC是什么「建议收藏」1.YGC和FGC是什么YGC:对新生代堆进行gc。频率比较高,因为大部分对象的存活寿命较短,在新生代里被回收。性能耗费较小。FGC:全堆范围的gc。默认堆空间使用到达80%(可调整)的时候会触发fgc。以我们生产环境为例,一般比较少会触发fgc,有时10天或一周左右会有一次。2.什么时候执行YGC和FGCedn空间不足,执行younggcb.old空间不足,…

  • Java 异常错误 (Ljava/lang/String;)L java/lang/String;「建议收藏」

    Java 异常错误 (Ljava/lang/String;)L java/lang/String;「建议收藏」异常问题如下:起初xml中返回值类型是这样子,一直在找返回值类型的问题,怎么看都是没有问题的又改为如下,结果还是不对,查询资料反反复复还是出现这个异常突然一下想到会不会是有重复id名字的sql 我用的是idea,直接全局查询,确实查到了一模一样在别的包下的sql,因为我项目是maven的子工程,就给冲突了;最后还是冒着尝试想法去试了一下,把名字一个,哦吼!美滋滋 问题解决 不在报错以后开发还是需要多注意名字重复的问题的!…

  • 3D建模场景怎么做?

    3D建模场景怎么做?在开始做3d场景之前,我绘制了一些草图。选好需要的草图后(图01),我用3dsmax从标准几何体开始制作模型,还使用了像lathe,bevel以及unwrapuvw这类的基本修改器。用不同的参数值进行复制(图02)。为了完成这个项目,一些额外的模型也是必须的(图03)。图01图02图03开始制作材质也就意味着有趣的一部分工作开始了。我喜欢用unwrap修改器工作,然后将所有的展开的渲染图全部输入到photoshop软件中,在photoshop中我可以根据…

  • Linux 系统中的主要目录有哪些?_linux系统中进程有哪些类型

    Linux 系统中的主要目录有哪些?_linux系统中进程有哪些类型简介本文讲解SNMPTrap,在介绍Trap概念之前,首先认识一下SNMP吧。简单网络管理协议(SimpleNetworkManagementProtocol)是一种应用层协议,是TCP/IP协议族的一部分。它使网络设备之间能够方便地交换管理信息。能够让网络管理员管理网络的性能,发现和解决网络问题及进行网络的扩充。目前SNMP已成为网络管理领域中事实上

  • vue中父组件传值给子组件,父组件值改变,子组件不能重新渲染[通俗易懂]

    vue中父组件传值给子组件,父组件值改变,子组件不能重新渲染[通俗易懂]1在子组件中用watch()监听值的改变,不同的类型的要用不同的监听方法props:{echartStyle:{type:Object,default(){return{}}},titleText:{type:String,default:”},tooltipFormatt…

    2022年10月31日
  • db4o基础一[通俗易懂]

    db4o基础一[通俗易懂]1.打开数据库IObjectContainerdb=Db4oFactory.OpenFile(YapFileName);\\’c:\db4obasic.yap’//IObjectConta

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号