精华内容
下载资源
问答
  • Excel中对单元格操作有一些固定的窗口来进行设置,有些设置可能不是那么容易找到,这里做一个小小改动,直接将格式设置引入鼠标...通过是对vba一些学习认识,会理解一些关于excel应用对话框的编码规则。其中所有功...

    Excel中对单元格操作有一些固定的窗口来进行设置,有些设置可能不是那么容易找到,这里做一个小小改动,直接将格式设置引入鼠标右键弹出一个表单进行操作。

    功能

    右键弹出一个表单,设置选择单元格格式

    2cd7aac2a5fbf4ad87eeb428e1977e1b.png

    弹出表单

    任意位置单击右键可弹出一个设置表单,对所选择的单元格进行设置。

    如下图

    c76bdf471930d44080809c2d249ddc80.png

    背景颜色设置

    df71b0757e1ce6246ab3f16f494a0732.png

    字体设置

    7ebb3c36f7668f54088e10aa1aa15a72.png

    设置定义表单

    f0d18fd081b35003c3f24223820bfcdc.png

    为什么要做这些呢?

    通过是对vba一些学习认识,会理解一些关于excel应用对话框的编码规则。

    其中所有功能对话框都可以拿来自定义操作。

    比如下图就是本例中应用到的一些窗体句柄类型。

    5207376fa5fda8c79c6fdf7b715200d5.png

    这些窗体,excel已经做了模块化设计,所以,我们只要知道如何调用然后就可以做相应的编程,以达到想要的效果。

    简单来说,其实不算什么很复杂的事情。

    唯一的难度在于如何找到或记住相应窗体的调用字符,这就不得不对英文有所掌握,大多是很有规律的一些英文说明,知道其编码规律,即便没有记住,也能找到相应的字符。

    例如打开字体设置窗口,用下面代码:

    Application.Dialogs(xlDialogActiveCellFont).Show

    其中xlDialogActiveCellFont就是字体设置字符。

    很好理解。

    其余窗口可对表查询。

    鼠标右键事件

    其中实现鼠标右键功能是一个需要掌握的基本知识。

    如果对此不能理解,那么上面所有的编程都不能实现右键弹出窗体的效果。

    用到了工作表Worksheet_BeforeRightClick事件,意思就是当鼠标单击右键前执行的操作。

    其中,Cancel设置为True。

    这样就可以屏蔽掉Excel预设置的右键菜单。

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)          Cancel = True'屏蔽默认菜单          Set RangeX = Target          tops = Target.Top'当前单元格顶部高度          lefts = Target.left'当前单元格左侧边距          UserForm1.Show'调用显示表单End Sub

    欢迎加关注、收藏各转发

    展开全文
  • Excel中对单元格操作有一些固定的窗口来进行设置,有些设置可能不是那么容易找到,这里做一个小小改动,直接将格式设置引入鼠标...通过是对vba一些学习认识,会理解一些关于excel应用对话框的编码规则。其中所有功...

    Excel中对单元格操作有一些固定的窗口来进行设置,有些设置可能不是那么容易找到,这里做一个小小改动,直接将格式设置引入鼠标右键弹出一个表单进行操作。

    功能

    右键弹出一个表单,设置选择单元格格式

    b6cf8a4b7721c529c25f9079f9bccd1a.png

    弹出表单

    任意位置单击右键可弹出一个设置表单,对所选择的单元格进行设置。

    如下图

    5e36eb0fe70710e6d79dc1b2bd284b8b.png

    背景颜色设置

    9536b4fb5d2cb84a70d3ccf46cf1283b.png

    字体设置

    7c95a36dc33089832680062da44cfd3e.png

    设置定义表单

    4ac0eee807c22097ab6254030b61e669.png

    为什么要做这些呢?

    通过是对vba一些学习认识,会理解一些关于excel应用对话框的编码规则。

    其中所有功能对话框都可以拿来自定义操作。

    比如下图就是本例中应用到的一些窗体句柄类型。

    59a7f96ce634f603ef5072b155ab1c25.png

    这些窗体,excel已经做了模块化设计,所以,我们只要知道如何调用然后就可以做相应的编程,以达到想要的效果。

    简单来说,其实不算什么很复杂的事情。

    唯一的难度在于如何找到或记住相应窗体的调用字符,这就不得不对英文有所掌握,大多是很有规律的一些英文说明,知道其编码规律,即便没有记住,也能找到相应的字符。

    例如打开字体设置窗口,用下面代码:

    Application.Dialogs(xlDialogActiveCellFont).Show

    其中xlDialogActiveCellFont就是字体设置字符。

    很好理解。

    其余窗口可对表查询。

    鼠标右键事件

    其中实现鼠标右键功能是一个需要掌握的基本知识。

    如果对此不能理解,那么上面所有的编程都不能实现右键弹出窗体的效果。

    用到了工作表Worksheet_BeforeRightClick事件,意思就是当鼠标单击右键前执行的操作。

    其中,Cancel设置为True。

    这样就可以屏蔽掉Excel预设置的右键菜单。

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)          Cancel = True'屏蔽默认菜单          Set RangeX = Target          tops = Target.Top'当前单元格顶部高度          lefts = Target.left'当前单元格左侧边距          UserForm1.Show'调用显示表单End Sub

    欢迎加关注、收藏各转发

    展开全文
  • vba文本文件读写

    2020-05-01 16:18:06
    设置编码格式的写入 特别注意:write2TextFile里的strbuf = .readtext,表示是读取文件内容,此时游标在所有文本后面,写入内容的话就变成追加。建议换行后再写新内容。 如果注释掉strbuf = .readtext,就从文件头...

    设置编码格式的写入

    特别注意:write2TextFile里的strbuf = .readtext,表示是读取文件内容,此时游标在所有文本后面,写入内容的话就变成追加。建议换行后再写新内容。
    如果注释掉strbuf = .readtext,就从文件头开始写。如果新文本长度大于原内容长度,相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345,新内容是666,写完就是66645。
    似乎adodb.stream没有删除文本的功能,所以函数里直接删除文件再创建了。
    还有其他的写入方法,可以删除文本,必要时再学习。

    Function write2TextFile(ByVal content As String, ByVal filepath As String, Optional addMode = True, Optional ByVal fso = Nothing, Optional ByVal charset = "utf-8")
        'filepath = "C:\Users\user\Desktop\1.txt"
        Set ads = CreateObject("adodb.stream")
        
        If fso Is Nothing Then
            fsoExists = True            ''''fsoExists用来关闭fso
            Set fso = CreateObject("scripting.filesystemobject")
        End If
        
        'folderExits = fso.folderexists(filepath)   ''''文件夹是否存在
        fileExits = fso.fileexists(filepath)        ''''文件是否存在
        If fileExits And Not addMode Then
            fso.DeleteFile filepath
            fileExits = False
        End If
        If Not fileExits Then
            'fso.createfolder (filepath)     'create folder     ''''创建文件夹
            Set note = fso.CreateTextFile(Filename:=filepath, overwrite:=True)      ''''创建文本文件
            note.Close      ''''这里不close下面.LoadFromFile filepath会报错
            Set note = Nothing
        End If
    
       With ads
            .charset = charset
            .Open
            .LoadFromFile filepath
            If addMode Then
                strbuf = .readtext
                .writetext vbCrLf
            End If
            
            .writetext content
            
            .savetofile filepath, 2
            .flush
            .Close
        End With
    
    
        Set ads = Nothing
        If fsoExists Then       ''''这个if判断用来关闭fso
            Set fso = Nothing
        End If
    End Function
    
    展开全文
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧044设置自动套用格式 技巧045设置单元格的边框线 技巧046设置单元格内容的对齐方式 技巧047设置文本方向 技巧048单元格的合并 3.4 操作单元格 技巧049复制单元格 技巧050添加单元格的公式 技巧051处理空白...
  • 库存分析 目录 项目概况 ... 输出的格式设置为以绿色显示收益,以红色显示损失。 下面的并排比较显示了两年数据的结果。 DQ在2017年表现良好,但在2018年遭受了巨大损失。EnphaseEnergy Inc.(ENPH
  • 04154为单元格设置条件格式、删除条件格式 04155为单元格插入指向工作簿内部的超链接、删除超链接 04156为单元格插入指向工作簿外部的超链接、删除超链接 04157为单元格添加批注、删除批注 04158修改单元格的批注 ...
  • 送货单管理(EXCEL VBA版)

    热门讨论 2009-07-01 22:47:02
    <打印>工作表设置了工作表保护,要修改单元格格式请到工具_保护那里撤消保护. 单据保存:单据填完后,点击下方《保存到单据查询》,单据就会自动保存到《单据查询》表内; 单据查询:打印以后,要翻查以前打印过的...
  • 计算机试题库系统主要由两部分组成:一是试题库本身(试题、答案、编码),二是试题库管理软件。试题库是系统的基础、原材料,软件是系统的调度、加工者。 在计算机应用迅速普及的今天,试题库管理软件并不少见。但...
  • Algoritmi_scuola 班级独奏教学法 问题的解决方法 NON MI PRENDO NESSUNA RESPONSABILITA的sul loro utilizzo,在信息学中对每份书的质询有所保留,而在ordine... Macro Excel在TXT(VBA)中设置格式。 Cose minori。
  • • 多表区域设置格式 • 自动填充功能 • 数据的格式化 • 设置数字格式 • 数据类型转换 • 自定义数字格式 • 数据的填充复制 • 数据的查找替换 • 格式查找替换 • 数据中含通配符的查找 • 表格边框设置立体...
  • 7-5-1 设置打印页面格式 7-5-2 打印报表 7-5-3 结合Word的合并打印功能 7-5-4 其他对象的打印方法 自我突破练习 第8章 操作自如的窗体控件 8-1 控件的认识与使用 8-1-1 认识工具箱与控件 8-1-2 建立新的空白...
  • 7-5-1 设置打印页面格式 7-5-2 打印报表 7-5-3 结合Word的合并打印功能 7-5-4 其他对象的打印方法 自我突破练习 第8章 操作自如的窗体控件 8-1 控件的认识与使用 8-1-1 认识工具箱与控件 8-1-2 建立新的空白...
  • 7-5-1 设置打印页面格式 7-5-2 打印报表 7-5-3 结合Word的合并打印功能 7-5-4 其他对象的打印方法 自我突破练习 第8章 操作自如的窗体控件 8-1 控件的认识与使用 8-1-1 认识工具箱与控件 8-1-2 建立新的空白...
  • 7-5-1 设置打印页面格式 7-5-2 打印报表 7-5-3 结合Word的合并打印功能 7-5-4 其他对象的打印方法 自我突破练习 第8章 操作自如的窗体控件 8-1 控件的认识与使用 8-1-1 认识工具箱与控件 8-1-2 建立新的空白...
  • 为分布式应用项目设置FactoryTalk Directory 服务器计算机 4-3 为分布式应用项目设置网络上的其它计算机 4-4 5 章 使用分布式应用项目 5-1 关于分布式应用项目 5-1 关键概念 5-1 HMI服务器、HMI工程、HMI客户端 5-1 ...
  • Access2000中文版高级编程 目录 第一部分 编程基础 1 第1章 宏与代码 3 1.1 何时使用代码代替宏 4 1.1.1 何时用宏 4 ...第2章 使用VBA编写代码 13 ...14.3.4 使用VBA创建和填充ListView控件 ...
  • 第2章 使用VBA编写代码 13 2.1 编程初步 13 2.1.1 使用代码模块 14 2.1.2 声明变量 17 2.1.3 声明过程 21 2.1.4 控制程序流 27 2.1.5 代码注释 30 2.1.6 错误处理 30 2.1.7 本书的编程风格 31 2.2 VBA初步 ...
  • aspnet公共类cs文件.rar

    2020-07-16 11:07:28
    Excel操作辅助类(无需VBA引用)(ExcelHelper.cs)利用VBA对象,导出DataView到一个Excel文档中的Excel辅助类(Export2Excel.cs)关联文件(ExtensionAttachUtil.cs)注册文件关联的辅助类(FileAssociationsHelper.cs...
  • 2.摄像头操作辅助类,包括开启、关闭、抓图、设置等功能(Camera.cs) 3.提供用于操作【剪切板】的方法(ClipboardHelper.cs) 4.获取电脑信息(Computer.cs) 5.提供用户硬件唯一信息的辅助类(FingerprintHelper.cs) ...
  • WHC第三方控件

    2018-07-16 12:51:42
    2. 摄像头操作辅助类,包括开启、关闭、抓图、设置等功能(Camera.cs) 3. 提供用于操作【剪切板】的方法(ClipboardHelper.cs) 4. 获取电脑信息(Computer.cs) 5. 提供用户硬件唯一信息的辅助类(FingerprintHelper....
  • 1 改进了WPS另存为HTML格式支持编码选择的功能 2 改进了当设置居中操作时自动取消段落缩进的操作 3 改进了当多级符号状态下按Backspace键直接返回到行首的问题 WPS表格 1 分页预览下重置分页符 2 允许更新导入外部...
  • 支持许多不同的文件格式编码 * 可移植对象文件 (PO) 解析器 * Microsoft Installer 文件解析器 支持所有 MSI 文件中的表 * Microsoft Excel 文件解析器 支持所有 Excel 文件中的表单 * XLIFF 配置文件 WYSIWYG ...
  • 高级(ad-hoc)查询,即时数据分析,计算字段,前10评级,根据季度将数据分组,设置解决方案的格式,常见的故障排除方法,外部和OLAP数据,数据透视图,利用VBA实现自动化,Excel服务器,熟悉功能区。  “使用没有...
  • 高级(ad-hoc)查询,即时数据分析,计算字段,前10评级,根据季度将数据分组,设置解决方案的格式,常见的故障排除方法,外部和OLAP数据,数据透视图,利用VBA实现自动化,Excel服务器,熟悉功能区。  “使用没有...
  • 高级(ad-hoc)查询,即时数据分析,计算字段,前10评级,根据季度将数据分组,设置解决方案的格式,常见的故障排除方法,外部和OLAP数据,数据透视图,利用VBA实现自动化,Excel服务器,熟悉功能区。  “使用没有...
  • 高级(ad-hoc)查询,即时数据分析,计算字段,前10评级,根据季度将数据分组,设置解决方案的格式,常见的故障排除方法,外部和OLAP数据,数据透视图,利用VBA实现自动化,Excel服务器,熟悉功能区。  “使用没有...
  • BINHex:苹果的一种编码格式 BMP:Windows或OS/2位图文件 BOOK:Adobe FrameMaker Book文件 BOX:Lotus Notes的邮箱文件 BPL:Borlard Delph 4打包库 BSP:Quake图形文件 BUN:CakeWalk 声音捆绑文件(一种MIDI...
  • │ │ 技巧73 为同一个单元格里的文本设置不同格式.xls │ │ 技巧74 制作斜线表头.xls │ │ 技巧76 工作表背景图片的妙用.xls │ │ │ ├─第7章-名称的奥妙 │ │ 技巧79 在名称中使用常量与函数1.xls │...
  • 经典SQL脚本大全

    2013-12-24 15:28:19
    │ 1.9.1 设置内存选项.sql │ 1.9.2(2) 使用文件及文件组.sql │ 1.9.2(3) 调整tempdb数据库的文件属性.sql │ ├─第02章 │ │ 2.1 日期概念理解中的一些测试.sql │ │ 2.2.4 CONVERT在日期转换中的使用示例....
  • │ 1.9.1 设置内存选项.sql │ 1.9.2(2) 使用文件及文件组.sql │ 1.9.2(3) 调整tempdb数据库的文件属性.sql │ ├─第02章 │ │ 2.1 日期概念理解中的一些测试.sql │ │ 2.2.4 CONVERT在日期转换中的使用示例....

空空如也

空空如也

1 2 3
收藏数 51
精华内容 20
关键字:

vba设置编码格式