精华内容
下载资源
问答
  • VBA代码全集模板.pdf

    2020-07-09 00:21:11
    VBA 代码全集 云南农业大学 1 VBA 代码全集 云南农业大学 2 VBA 代码全集 目 录 一引用 4 二Worksheet_Change 事件 4 三相乘 6 四相减 7 五高级筛选 7 六双击事件 9 七单位汇总sumif 单条件汇总11 八多条件汇总 连接...
  • 隐藏VBA模块工具.XLL

    2021-04-23 23:07:41
    隐藏VBA模块工具,excel可双击运行office,可完美隐藏VBA的模块
  • excel双击列标题自动排序的VBA代码.docx
  • 朋友在后台提了这样一个问题,能不能根据名称一键将图片批量插入到单元格的批注去,酱紫的话,当鼠标划过单元格,Excel就会自动显示图片了,很酷很实用…… 比如下面动态图所展示的这样: 哎呦,不错哦~~ 实现...

    转载自品略图书馆  http://www.pinlue.com/article/2020/03/2914/4410066052558.html

     

    朋友在后台提了这样一个问题,能不能根据名称一键将图片批量插入到单元格的批注中去,酱紫的话,当鼠标划过单元格,Excel就会自动显示图片了,很酷很实用……

    比如下面动态图所展示的这样:

    哎呦,不错哦~~

    实现代码如下:

    Sub CommentPic()

    "ExcelHome VBA编程学习与实践 看见星光

    Dim Arr, i&, k&, n&, pd&

    Dim PicName$, PicPath$, FdPath$

    Dim Rng As Range, Cll As Range

    Application.ScreenUpdating = False

    On Error Resume Next

    "

    "用户选择图片所在的文件夹

    With Application.FileDialog(msoFileDialogFolderPicker)

    .AllowMultiSelect = False "不允许多选

    If .Show Then FdPath = .SelectedItems(1) Else: Exit Sub

    End With

    If Right(FdPath, 1) <> "\" Then FdPath = FdPath & "\"

    "

    Set Rng = Application.InputBox("请选择需要插入图片到批注中的单元格区域", Type:=8)

    "用户选择需要插入图片到批注中的单元格或区域

    If Rng.Count = 0 Then Exit Sub

    Set Rng = Intersect(Rng.Parent.UsedRange, Rng)

    "intersect语句避免用户选择整列单元格,造成无谓运算的情况

    Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")

    "用数组变量记录五种文件格式

    "

    For Each Cll In Rng

    "遍历选择区域的每一个单元格

    Cll.Comment.Delete "删除旧的批注

    PicName = Cll.Text "图片名称

    If Len(PicName) Then "如果单元格存在值

    PicPath = FdPath & PicName "图片路径

    pd = 0 "pd变量标记是否找到相关图片

    For i = 0 To UBound(Arr)

    "由于不确定用户的图片格式,因此遍历图片格式

    If Len(Dir(PicPath & Arr(i))) Then

    "如果存在相关文件

    Cll.AddComment "增加批注

    With Cll.Comment

    .Visible = True "批注可见

    .Text Text:=""

    .Shape.Select True "选中批注图形

    Selection.ShapeRange.Fill.UserPicture PicPath & Arr(i)

    "插入图片到批注中

    .Shape.Height = 150 "图形的高度,可以根据需要自己调整

    .Shape.Width = 150 "图形的宽度,可以根据需要自己调整

    .Visible = False "取消显示

    End With

    pd = 1 "标记找到结果

    n = n + 1 "累加找到结果的个数

    Exit For "找到结果后就可以退出文件格式循环

    End If

    Next

    If pd = 0 Then k = k + 1 "如果没找到图片累加个数

    End If

    Next

    MsgBox "共处理成功" & n & "个图片,另有" & k & "个非空单元格未找到对应的图片。"

    Application.ScreenUpdating = True

    End Sub

    小贴士:

    1,代码运行后,首先弹出操作界面,要求用户选择图片所存放的文件夹,注意是选择文件夹,不是选择图片,双击打开文件夹后看不到图片是正常现象……。

    2,图片的名称需要和单元格的值相匹配;小代码如果找不到单元格的值所对应的图片,会直接跳过,处理下一个单元格;代码运行结束后,会发出信息,告知一共处理成功了几个图片以及未成功几个非空单元格的图片。

    3,代码中使用了intersect语句,Set Rng = Intersect(Rng.Parent.UsedRange, Rng),因此用户可以选择整列(比如整个A列)或多列单元格区域运行代码,而不用担心因为无谓的运算量过大,造成程序假死的情况。

    4,代码导入的图片格式支持五种常见的类型,Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")

    5,批注图片的高度和宽度可以根据自身情况做调整,相关代码如下:

    .Shape.Height = 150 "图形的高度,可以根据需要自己调整

    .Shape.Width = 150 "图形的宽度,可以根据需要自己调整

    展开全文
  •   个人制作的 VBA 代码加密混淆器,帮你加密你的宏代码,让它不再那么易读。因 VBA 的方便一直以来都喜欢用它写一些小工具,了解多了也就知道这种代码编写的工具完全没有安全性可言,工程密码形同虚设,很容易破解...

    个人制作的 VBA 代码加密混淆器,帮你加密你的宏代码,让它不再那么易读。因 VBA 的方便一直以来都喜欢用它写一些小工具,了解多了也就知道这种代码编写的工具完全没有安全性可言,工程密码形同虚设,很容易破解。(见我的文章中的第三点破解工程代码:Excel 各种密码的破解,大全建议收藏!)。

      我的这个工具的做法就是仿网上的一些 Java,Python 的代码混淆器,用很难辨别的字符串去替换代码中用到的变量、函数或过程名,并转译代码中用到的字符串。谷歌能找到一些付费的软件,做的比我更好,支持控件名混淆、字符串的加密,但我供不起那一两千刀的价格,不划算。于是自己写了一个小工具满足自己的小需求,如果你有需要,在这里只需支付 199 RMB 就可以使用。

      工具的测试版在我的百度网盘下载,测试版支持部分变量混淆,不转译字符串。
    下载链接:https://pan.baidu.com/s/18hk2S1PGWQbxVO00puwDoQ ,提取码:rtfb。如需正式版请关注我的微信公众号,通过里面的邮箱地址联系我。

    1. 代码混淆后的效果

    下面我先 show 一下代码加密后的效果,待加密代码的部分截图:

    混淆完成之后如下图:

    变量名称、字符串不再那么容易辨别了,一串串的数字,头晕,容我喝杯水先!哈哈。

    2. 代码编码注意事项

      工具做的比较简单,不能处理太诡异的代码,这里有一些注意事项在混淆前要对你的代码对照检查一下:

    • 变量声明的注意事项:
      • 所有变量使用前必须声明,包含 For 语句中用到的变量
      • 变量的类型必须指定,类型未定的声明为 Variant
      • 不能在一行代码中声明多个变量,如下
        Dim strFirstName As String, strLastName As String
        
      • 变量名称不能过于简单,如下是不建议的
        Dim I As Integer
        
        建议修改为匈牙利命名法的变量,例如:
        Dim intIndex As Integer
        
      • 常量,变量必须声明作用域,即用关键词 Public, Private 或 Dim 声明,不允许如下:
        Const SUB_PROCESS = 20
        
      • 暂不支持字符串类型的常量,请用变量取代
    • 注意关键字的大小写,例如不要把 Dim 写成 dim
    • 代码中不要包含多余的空格、制表符,尤其是在变量之间
    • 注意代码行的单引号,有时会被解析为注解。可用 Chr(39) 替换
    • 函数、过程名在不指定的情况下默认不混淆
    • 不支持多个模块的代码一起混淆

    3. 工具使用方法

      进入工具的文件夹,你会看到四个文件,如下:

      在 frmMain.vbs 中放入待混淆的代码。Variables.txt 文件中放入那些要进行混淆的函数、过程名、错误处理断点、或工具未能检测到的变量,如无此要求请清空此文件(不能删除)。
      上述的内容提供完后双击 VBAObfuscate.exe 开始混淆你的代码,随后会出现黑黑的一个窗口提示你代码混淆完毕,请按任意键关闭,如下:

    混淆后的结果存储在文件 frmOutput.vbs。请用这些代码替换你的源代码,替换前记得备份哦!
      VBA 代码再怎么混淆、加密都很难做到完全的安全,核心代码建议你用 C 或 C++ 编写成 dll 文件,然后用 VBA调用。

    全文完!欢迎评论,如你满意工具的功能, 请记得点赞哦,谢谢!

    本文为作者原创文章,未经作者允许不得转载。

    展开全文
  • VBA 代码全集 云南农业大学 1 VBA 代码全集 云南农业大学 2 VBA 代码全集 目 录 一引用 4 二 Worksheet_Change事件 4 三相乘 6 四相减 7 五高级筛选 7 六双击事件 9 七单位汇总 sumif单条件汇总 . 11 八多条件汇总 ...
  • 历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该会很快...




    历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该会很快上手,操作体验基本和老版代码助手一致,主要是改进了稳定性和保存速度,新朋友请认真阅读使用说明书,自己多多体会,相信也能很快入手。
    同类产品,vba代码宝,vbe2019,vba开发助手,office开发助手等等很多插件都要求开启VBE工程信任,这是对病毒敞开大门 ,请大家务必慎重不要轻易开启这个设置 ,本插件无需开启VBE工程信任请放心使用!!本插件内置代码均为本人12年开发经验总结精华代码,不作任何加密 ,可自由导出,后续不断升级,欢迎无偿使用!!
    安装包下载链接: https://pan.baidu.com/s/1MYGsskVxKWqlIDP5nDGJzQ 提取码: kp33
    ***更  新  日  志*******************

    • 3.1.8 2019.11.01 重磅更新 中键弹出菜单顶部实现搜索栏,快速搜索插入代码
    • 3.1.9 2019.11.03 多关键字搜索,右键菜单快捷键,整节点删除,F2重命名
    • 3.2.0 2019.11.04 安装新版可保留旧版数据库 插件自动在线检测升级版
    • 3.2.1 2019.11.05 重大更新 支持节点名称拼音首字母模糊搜索!!
    • 3.2.6 2019.11.08 你们要的工具条 如你所愿!!(延迟加载,不会影响启动速速)
    • 3.2.7 2019.11.11 修复整节点删除后搜索出错,中键搜索框默认为20字符宽,去掉保存提示
    • 3.2.8 2019.11.12 加入代码排版对齐,删除空行等辅助工具,在工具栏和右键菜单调出
    • 3.2.9 2019.11.13 重磅VBA工程密码解锁功能,破解VBA密码,无视密码直接查看代码
    • 3.3.0 2019.11.14 加入批量删除注释功能,既然加密无用起码不给你注释!!
    • 3.3.0.1 2019.11.15 调整排版工具到右键顶部,新建节点默认处于编辑状态
    • 3.3.0.2 2019.11.16 修复子节点很多的根节点双击会插入代码的bug
    • 3.3.1.0 2019.11.16 重新安装时,激活信息保留,数据库可选择是否覆盖
    • 3.3.2.0 2019.11.18 重磅升级,加入隐藏ExcelVBA模块和工程不可查看功能
    • 3.3.3.0 2019.11.19 修复2016卸载后导致2010版以及wps工具栏不能加载的bug
    • 3.3.3.1 2019.11.20 中键菜单加入小工具,Office2010 64位版无工具栏也可以使用所有功能
    • .....持续更新中

    务必先看下方使用说明,不要跑来问怎么安装如何激活如何使用!!
    ***使 用 必 看 + 安 装 说 明********** 
    本程序是VBE编辑器的代码管理插件,支持各种具有VBA编辑功能的软件(例如Office、WPS、AutoCAD...) 本人只能保证Office环境下全部功能支持使用,其他环境请自行测试
    本程序数据库及配置文件在 安装目录\date\ 可自己手工硬备份,在需要恢复的时候替换原数据即可
    注意:程序在安装时需要Windows的登录账户具有管理员权限,最好是右键管理员安装,安装程序会将插件信息写入注册表,以确保插件启动。如果杀毒软件报警,请点击允许或者关闭杀毒软件。软件默认安装在

    • %UserProfile%\AppData\Roaming\VBA代码助手专业版

    可直接复制到资源管理器地址栏打开

    • **VBA代码助手专业版 操作说明********使用环境:
    • 所有Windows系统下的VBE宿主环境都可以,Excel,word,ppt,Outlook,Access,cad....主要功能:满足VBA开发欢迎中的
    • 代码插入,鼠标中键呼出插入菜单,极速插入代码。
    • 代码收藏管理,树节点无限层级管理。
    • 插件内置编辑器可代码高亮上色及折叠代码块,查看长代码更方便。
    • 树节点鼠标拖放管理,可跨级别拖放,管理更自由。
    • 快捷键呼出插入面板,无需右键及移动鼠标,插入代码速度更快。
    • 管理面板中搜索代码,双击搜索结果插入,双击树节点插入。
    • 【鼠标中键单击】呼出快捷插入菜单(Alt+1键盘呼出也可以)
    • 代码排版对齐,删除空行等辅助工具,在工具栏和右键菜单调出
    • VBA工程密码解锁功能,破解VBA密码,无视密码直接查看代码
    • 隐藏ExcelVBA模块和工程不可查看功能


    快捷键呼出面板方式在代码区中下面3种方式

    • 【鼠标中键单击】呼出快捷插入菜单 顶部带搜索框可直接搜索代码
    • 【Alt+1】   呼出快捷插入菜单
    • 【Alt+2】   呼出代码管理面板,也可以在快捷插入菜单点击调出管理面板

     
    窗口布局介绍

    • 搜索栏:面板左上角
    • 树节点窗口:面板左侧中间
    • 代码窗口:面板右侧
    • 快捷菜单:在代码窗口任意位置,鼠标中键单击后者Alt+1,呼出快捷插入菜单,点击直接插入
    • 管理功能:代码窗口右键弹出菜单点击或者Alt+2

    代码管理功能说明词汇说明:

    • 节点== 1个具有下级分支的管理节点
    • 代码== 1个具有名称的代码块,就是收藏的最终目标
    • 模块== 标准模块,类模块或者窗体模块总称 注意这3类收藏后不要修改,以免造成无法导入

    操作说明

    • 树形节点单击显示详情,双击写入到VBE里,也可选中后点上方输出到VBE写入
    • 搜索窗口中,可全文搜索,包含代码名,标签和代码内容。
    • 搜索列表双击或者回车插入代码,Esc或者右键返回树节点
    • 节点窗口中,按Delete键删除节点。
    • 节点窗口中,拖拽节点可以排序,可跨节点跨级别拖放,注意拖放操作是即时保存,请大改前提前备份代码库
    • 树节点窗口【鼠标右键】弹出菜单,功能如下【修改名称,新建同级,新建下级,新建节点   收藏模块,收藏函数,收藏选择,删除节点,全部折叠,全部展开】 本工具默认都在所选的节点下方进行操作
    • 代码名称或者内容修改后请点击保存代码库,这些操作非实时保存   注意窗体模块保存后不要修改,会造成无法插入,需要备注可在标签栏填写


    下载地址:
    安装包下载链接: https://pan.baidu.com/s/1MYGsskVxKWqlIDP5nDGJzQ 提取码: kp33

    展开全文
  • 缘由 今天有人问我如何在Excel里面设置聚光灯高亮,我一般很少有Excel,随手查了一下,无非就是excel...(4)双击ThisWorkbook (5)填入如下代码: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, B

    缘由

    今天有人问我如何在Excel里面设置聚光灯高亮,我一般很少有Excel,随手查了一下,无非就是excel外挂一个插件,写几句代码就完事了。。。

    步骤

    (1)安装wps或微软excel

    (2)安装Visual Basic for Applications官方地址
    (3)打开excel,点击alt+f11,如下所示:
    在这里插入图片描述
    (4)双击ThisWorkbook
    在这里插入图片描述
    (5)填入如下代码:

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = -4142
    Rows(Target.Row).Interior.ColorIndex = 36
    Columns(Target.Column).Interior.ColorIndex = 36
    Application.ScreenUpdating = False
    End Sub
    

    如下:
    在这里插入图片描述
    然后关闭上面代码窗口即可。

    在这里插入图片描述

    展开全文
  • VBA程序代码

    2018-05-03 17:46:41
    在VBE窗口点击菜单插入 模块1,双击导出其代码框并添加过程输入名称输入代码此处注意最后一个员工考勤必须用英文的
  • 文章目录0 引言1 提前准备VBA代码1.1 ThisWorkbook的代码:1.2 模块的代码:2 设置步骤2.1 VBA代码设置单元格2.2 插入图片到单元格2.3 以启用宏的方式保存图片 0 引言 今天有人问我Excel单元格插入图片并实现单(双...
  • excel vba代码大全 更改Excel VBA代码以提高速度 (Change Excel VBA Code to Improve Speed)In some of my files, macros run automatically when you select a cell on the worksheet. For example, if you've ...
  • 利用VBA开发数据汇总工具通常在日常工作总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • 实现代码 工作表双击事件(BeforeDoubleClick) 示例 如图所示,该表为某公司员工工资表。为方便对比,现希望能够通过双击标题行即可对该列数据进行降序排列。该如何用VBA完成? 员工编号 姓名 部门 应...
  • 历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该会很快...
  • 今天早上,微信群有人咨询选中单元格后,双击不再编辑,而是复制,能不能用vba做到?这个是可以的。在excel,如果直接双击单元格,会进入单元格的编辑状态,然后可以开始输入内容或者修改单元格的内容。如果要双击...
  • vba调试 目录-[在VBA中调试] 下一章-[在VBA中调试-2A)代码窗格(F7)] -------------------------------------------------- --------------------------------------------- 1)概述。 调试器有一些非常重要的子...
  • 自己写的实用VBA代码合集√

    万次阅读 多人点赞 2015-10-15 15:22:09
    8.Word 删除新闻的多余代码和文字 Sub 新闻排版() ' ' '选择性粘贴 Selection.PasteAndFormat (wdPasteDefault) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting '删图片...
  • VBA代码,在Excel启动时自动执行

    千次阅读 2017-06-26 22:51:16
     ...2.在里面写如下代码 Private Sub Auto_Open() 'Demand Summaryの工数表示期間 (「list」シートの「D2」セル) Sheet2.Cells(2, 4) = 15 End Sub 注意,函数的前面,一定是 Privat
  • 欲写vba代码 必先创Sub

    千次阅读 2017-10-22 16:04:01
    VBA Sub
  • 一个贼简单的代码表白
  • EXCEL的VBA版本扫雷

    2018-08-03 16:45:40
    右键标记地雷,未点开方块双击视为点开,已点开方块双击视为递归扫雷(类似于WIN扫雷的左右键一起按)。 可以自由制定宽和高,以及地雷数,自动埋雷。 其实后来我又在这个基础上改进了一版功能更加强大的扫雷,解决...
  • 网上VBA代码总结

    2019-02-14 22:01:17
    Excel VBA常用代码总结(转载) Excel 基本代码 http://www.cnblogs.com/dazuo/p/4920921.html 改变背景色 改变文字颜色 获取单元格 获取范围 选中某sheet 获得文档的路径和文件名 隐藏文档 禁止屏幕更新 ...
  • 在Excel表通过VBA编码,制做了一个小程序,功能...该程序的特点是用VBA调用外部批处理代码,并给bat传递了三个参数。这里要感谢北极狐工作室提供的FileAllArr函数。使用方法,双击打开Excel表就可以弹出窗口使用了。
  • 一般的数据透视表,修改原表数据后,需要手动刷新才可以更新计算,本文通过几步简单的操作,来实现自动计算。...点击表格的任意一个单元格,在插入菜单,点击表格,此表是有标题的,因此将其勾选,确...
  • 他的操作也不难,在这里跟大家分享2方法,下面就让我们来看一下他是如何操作的一、使用vba对于这种自动填充颜色的功能,最简单有效的方法就是使用vba来实现这样的操作,首先我们点击工作表的名...
  • Excel VBA(WPS专业版)安装及代码编写

    万次阅读 多人点赞 2018-04-14 11:37:29
    > 以前用的wps是需要自己单独再安装vba插件的,现在更新的wps都是自带vba的,在菜单栏>开发工具可以看到,因而这里简单给出wps版本的说明 > 此次更新将在wps2019教育版上重新做一遍,耗时巨大; 时隔两年,已经做了...
  • Excel VBA编程教程(基础一)

    千次阅读 多人点赞 2020-07-10 19:27:39
    Visual Basic for Applications(VBA)是 VisualBasic 的一种宏语言,是微软开发出来在其桌面应用程序执行通用的自动化(OLE)任务的编程语言。主要能用来扩展 Windows 的应用程序功能,特别是Microsoft Office软件...
  • 上周,我发了关于Excel VBA的第一篇文章后,社群里就砸开了锅 看到辣么多小伙伴们,辣么喜欢,我的干劲儿就更足了。于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA界的黑山老妖了。 今天是这...
  • Excel删除重复数据(用VBA代码)

    万次阅读 2012-03-21 12:52:10
    请仔细阅读并修改相关数据。我推荐使用第二种方法,是我修改的,很好用,第三种情况用得比较少。  第一种情况保留不重复的记录行,重复的只保留一行。 1、打开有重复数据的...'本例是删除标题为sheet1的EXCEL表

空空如也

空空如也

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

vba中双击代码