精华内容
下载资源
问答
  • VBA程序代码

    千次阅读 2018-05-10 16:01:54
    在VBE窗口点击插入选项卡并点击模块,双击导出其代码框并添加过程输入名称输入代码

    在VBE窗口中点击插入选项卡并点击模块,双击导出其代码框

    并添加过程输入名称

    输入代码


    展开全文
  • 步骤1◆选择【开发工具】选项卡,点击【Visual Baisc】选项,打开VBE窗口或者按也可以打开◆在VBE窗口左侧工程资源管理器,右键新建模块,然后双击模块◆在VBE窗口右侧代码区写入代码,保存,关闭VBE窗口代码:Sub...

    今天给大家分享的是使用VBA代码提取文件夹内文件名。

    步骤1

    ◆选择【开发工具】选项卡,点击【Visual Baisc】选项,打开VBE窗口

    或者按也可以打开

    ◆在VBE窗口左侧工程资源管理器中,右键新建模块,然后双击模块

    ◆在VBE窗口右侧代码区写入代码,保存,关闭VBE窗口

    b5b697067c83ac491b439c613e1029d9.png

    代码:

    Sub 提取文件夹内名称()

    Dim FilePath As String

    Dim FileName As String

    Dim i As Integer

    Rows("2:100000").ClearContents

    With Application.FileDialog(msoFileDialogFolderPicker)

    .Title = "请选择要查找的文件夹"

    .InitialFileName = ThisWorkbook.Path

    If .Show = 0 Then Exit Sub

    FilePath = .SelectedItems(1) & ""

    End With

    i = 2

    FileName = Dir(FilePath)

    Do While FileName <> ""

    Cells(i, 1) = FileName

    i = i + 1

    FileName = Dir

    Loop

    End Sub

    步骤2

    ◆选择【开发工具】选项卡,点击【插入】选项的下拉箭头,选择“按钮”控件

    ◆在工作表任意地方插入按钮控件,在指定宏对话框中,选择宏名,确定

    448f2cc5144f01b16c5da7686761d84b.gif

    步骤3

    ◆点击按钮,在弹出的文件选择框中,选择需要提取文件名的文件夹即可

    ※只需选到文件夹,无需指定某一个文件

    5463745e73acbf8f1f749140c11f51c1.gif

    提取后效果:

    0d132554721230401fcfbea97a7cc6ce.png
    展开全文
  • 缘由 今天有人问我如何在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
    

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

    在这里插入图片描述

    展开全文
  • 三、实训项目1.3:VBA程序实训目的:动手编写VBA程序实训内容:添加或删除模块,动手编写程序作业: CSDN发表自己的第一个VBA程序代码。例,将活动工作薄自动新建工作表并将其命名为“员工考勤表”。1.打开VBE...

    三、实训项目1.3:VBA程序

    实训目的:动手编写VBA程序

    实训内容:添加或删除模块,动手编写程序

    作业:  CSDN发表自己的第一个VBA程序代码。

    例,将活动工作薄中自动新建工作表并将其命名为“员工考勤表”。

    1.打开VBE窗口,点击菜单“插入”→“模块”,在工作簿中新建“模块2”,双击该模块,打开如下图:

    2.将光标定于“模块2”对应的代码窗口中,点击菜单栏中“插入”→“过程”,在打开的“添加过程”对话框中输入过程名等信息,如下图第1张图,点击“确定”形成如下第2张图:



    4.在框中输入代码,如下图所示;


     5.运行结果如下图:

    展开全文
  • Excel删除重复数据(用VBA代码)

    万次阅读 2012-03-21 12:52:10
    请仔细阅读并修改相关数据。我推荐使用第二种方法,是我修改的,很好用,第三种情况用得比较少。  第一种情况保留不重复的记录行,重复的只保留一行。 1、打开有重复数据的...'本例是删除标题为sheet1的EXCEL表
  • 要操作工作簿,要使用工作表分析和处理数据,都需要先打开工作簿。...在VBA中,我们可以使用Workbooks对象的Open方法打开工作簿,其语法为:Workbooks对象.Open(FileName,[UpdateLinks],[ReadOnly],[F...
  • EXCEL VBA 关于斗牛的算法 初学EXCEL VBA,只能用最简单的穷举法来算斗牛了。具体规则是,5个数字,任意3个数字相加为10的倍数,其他两个数字相加,大于10则减去10,小于10则为牛几, 例如: 25349,2+5+3=10,4+9...
  • Part 1:事件定义 所谓事件简单来说就是Excel执行某些了操作,例如打开...以上两个事件对应的代码存放在对应工作表及ThisWorkbookPart 2:工作簿事件打开VBE(快捷键Alt+F11),双击工程资源管理器窗口的ThisWor...
  • 第7集 VBE编辑器 熟练使用立即窗口、本地窗口,逐行调试。 20、 Shift快捷键-禁止文件的自动代码的运行 选中文件,按住Shift快捷键,双击完全打开文件后松开shift键,可以禁止文件的自动代码的运行。 ...
  • 一句话代码:1、组合框的循环选择 在双击事件加入,也可用在键盘按上下箭头事件: Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount2、窗体单击及...
  • ExcelVBA编程

    千次阅读 2004-08-28 19:42:00
    Excel可以使用VBA进行编程,下面是总结的几点,几个代码示例是从Microsoft Excel Visual Basic参考Copy过来的,以供参考。1.Excel“视图”,...(表格的按钮双击后即可进入VBA代码编辑界面).3.表格的Range属性
  • 步骤3双击新插入的“模块1”,在右方的代码窗口输入以下代码: 说明 知识扩展 VBA代码编写格式 VBA代码可以写在工程资源管理器的任何对象,一般程序创建在VBA过程(Sub)。利用VBE可以完成VBA程序创建工作。...
  • 刚才写得很详细,结果提交失败。现在简单写一下。 一、窗体建立 1、用向导从有“ID、图片、图片... 源代码以文本文件保存,按上述要求建好窗体,将代码复制入VBA双击数据窗体即可使用。在ACCESS2003运行测试通过。
  • VBA程序

    2018-05-08 12:48:16
    1、打开VBA窗口,点击菜单【插入】→【模块】在工作表新建“模块1”,并双击该模块对象打开其代码编辑窗口。如下图:2、将光标置于“模块1”对应的代码窗口,点击菜单的【插入】,再选择【过程】,在打开的...
  • 展开全部1、打开相应的access数据库。2、在左边的对象栏里单击模块,观察右边的窗口e69da5e6ba9062616964757a686964616f...3、粘贴以下代码并运行、观察立即窗口。PrivateSubaaaa()DimTableNameAsString,FieldNameAs...
  • 4、双击选中待操作的表格,在上面选中worksheet,此时后面的事件发生时,执行下面代码,截图如下 工作表事件 事件 说明 Activate 激活工作表时 Deactivete 工作表从活动状态转化为非活动状态时 ...
  • 满意答案1、打开相应的access数据库。2、在左边的对象栏里单击模块,观察...3、粘贴以下代码并运行、观察立即窗口。PrivateSubaaaa()DimTableNameAsString,FieldNameAsString,iAsIntegerTableName="tb1"'表名tb1Fie...
  • 如何在64位系统vba自创建的窗体增加最大化及最小化按钮?笔者经过调试后的最终代码如下:双击自创建的窗体,在代码编辑区增加如下代码即可:PrivateDeclarePtrSafeFunctionFindWindowLib"user32"Alias"FindWindowW...
  • vba窗口介绍

    2018-05-06 21:39:01
    VBA窗口功能介绍:1.立即窗口:有两个主要功能:...当用户在工程管理器中双击某个对象时,其对应的代码窗口会自动打开,用户可以在其中编辑和调试代码。4.菜单栏:是VBA窗口最重要的组成,包括文件、编辑、视图、...
  • 利用VBA可以轻松地将某文件夹下的所以WORD文档的某个字符串全部替换为其他字符串。下面是具体操作步骤。  第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。... 第四,双击该按钮,进入VB代码编写模
  • VBA小程序

    2018-05-07 20:15:09
    首先,打开VBE 窗口,点击菜单“插人”一“模块”,在工作簿新建“模块1”,并双击该模块对象打开其代码编辑窗口,如下图: 要想删除模块直接右键移除模块即可。 2、写一个VBA程序代码(查看A2单元格是否含有...
  • 动手编写VBA程序

    2018-05-06 19:00:25
    实训内容:添加或删除模块,动手编写程序step1: 添加模块: 打开VBA窗口,点击菜单“插入”—“模块”在工作簿新建模块,并双击改模块对象打开其代码编辑窗口,如下图所示step2: 将光标定于所选模块对应的代码...
  • VBA程序设计

    2018-05-10 16:11:52
    一、打开VBE窗口,点击菜单“插入”,点击“模块”,在工作簿可以新建和删除模块,并双击该模块对象打开其代码编辑窗口,如图所示。二、讲光标定于“模块1”对应的代码窗口,点击菜单“插入”,点击“过程”,在...
  • 1.打开Excel,按快捷键ALT+F11调出VBA编辑器,双击Sheet1,将以下代码拷贝,保存 Sub 两个词组合()  Dim a() As Variant, b As Integer, n As Integer  '定义一个数组,两个变量  b = WorksheetFunction.CountA...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧189 保护VBA代码 12 189-1 设置工程密码 12 189-2 设置“工程不可查看” 12 技巧190 优化代码 12 190-1 关闭屏幕刷新 12 190-2 使用工作表函数 12 190-3 使用更快的单元格操作方法 12 190-4 使用With语句引用...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 124
精华内容 49
关键字:

vba中双击代码