如题，请教老师如何取得subName？做判断用。

帮网友写了几句代码，顺便分享一下 VBA代码来创建按钮控件并设置标题及字体 With sheets("Sheet1") With .OLEObjects.Add("Forms.CommandButton.1",,,,,,,40,60,40,24) .Name="cmdTest" With .Object .Caption="代码创建的控件名" .Font.Size=9 .ForeColor=vbBlue End With End With End With End With

求助，我用vba窗口运行程序时，无法再打开新的excel表，能解决吗？

之前一直打标签用，前两天突然就不能用了，有大佬知道哪里需要改？这个也是之前别人给的

VBA（Visual Basic for Applications） 苏州 一对一 专业指导 为什么要学习VBA？ VBA是一种编程语言，它依托于Office软件，可以实现各种Office软件操作的自动化。也就是说，只要我们用Office软件，如EXCEL,WORD也就是有了应用VBA的理由。为什么用VBA呢？其实最初的很多朋友都有一个共同的理由“因为我懒啊”，说句实在话，这确实是最初学习VBA的理由。但当你学了一段时间后，特别是可以熟练的应用数据库，与人机的交互操作后，你的境界会提高了很多。这时的VBA

各位大哥大姐们，方法与属性这一列怎么这么少选项啊，是还有什么没安装吗

Sub 复制文件() copyFromFile = "\\LKJ\Users\Public\SQL\购销合同.xlsx" copyToFile = "E:\合同" End Sub 为什么没有效果？

a1单元格的字符是：7-16 烟15元，67.6吃饭，礼品300元，超市46元。 以上消费记录有的带元，有为不带,并且带小数 7-16是日期不能提取。代码应依次提取到b1,c1,d1..... 请教老师指导，谢谢！

小白想学习vba生成批量的txt遇到点小状况，弹出这个窗口是什么意思呢？

我安装了宏插件，我有2个wps表格，以下简称A表和B表 A表是xls格式能直接启用宏 但是B表必须改成Excel 2007启用宏的工作簿才能打开宏 如果我把B表改成xls格式就用不了宏了这是为什么啊？

最近在 摸索学习类，好像没啥 完整的教程

For N = 1 To 1000000 i = Format(Now, "s") y = Right(i, 1) If y = 2 Then Exit For Next 利用循环来达到循环的目的，但是太吃资源了，有没有延时代码？

我想用VBA中的if去判断某一个单元格是否为#N/A 且左侧单元格不为0 则进行一个操作 这个错误值是由VLOOKUP产生的 我这边用for each写的 其中和是【If RI.RANGE="#N/A"And <>"0"then】 一直报错 保存类型是13 查了半天也没查明白

VBA写，当前表格中查找D列多行内容是否包含在A1单元格中，如果在A1单元格中把A1单元格中在的字体变红色,在把D列有几条内容的次数显示在B1单元格

当A1等于完成日期时，B1显示ok。当A1等于中文字符时，B1显示A1的中文字符，A1为空时则用今天日期减去申请日期得到的天数

最下面这个方法为什么打印出来的pdf第一张跟其他的是分开的呀，怎么合在一起

各位大佬，是这样的，vba窗体添加菜单使用api函数实现，但是这是在32位电脑上可运行，用到64位电脑上就无法运行了，有没有64位可运行的vba加菜单的代码啊，多谢多谢！自己判断过，应该是long与longptr关系，但是多次修改均无果，只能求助各位大佬了，拜托拜托~

求问各位大佬这种应该怎么用VBA写

运行的时候总是把整个文档内的全部空格都去除了 我想要的功能是只去除选中文字中的空格 应该怎么解决这个问题 谢谢各位大佬

Sub 合并工作表() Dim i As Byte For i = 1 To 6 Worksheets(i).Range("A2:K" & Worksheets(i).Range("a1").CurrentRegion.Rows.Count).Copy Worksheets("汇总").Range("a1048576").End(xlUp).Offset(1, 0) Next End Sub 在前面六个表中，A列，P列，Q列，R列有公式，怎么在汇总表里面对应的列只出现计算的结果，不要出现公式。

1.可以实现函数的自定义。除了系统自带的几百个函数诸如VLOOKUP、SUMIFS......你平常使用的函数外，可以自己写函数。感觉就很牛的样子是吧？ 2.实现办公自动化。如果会使用录制宏的，就知道它可以把我们的每一步操作录制下来，完成录制后，运行就可以按录制的过程重做我们之前的操作。当我们每天有大量重复性工作的时候这个就很有用。但宏主要有几个主要问题：<1>就是像瞎子一样不会判断。而你每天处理的数据都在变动。今天录制的宏，明

我想做一个积分系统，怎么描述呢，就是我设置一个按钮，点击它后他会增加或减少我设置的数值，并且在一个表格中表示出来，这个表格是整个PPT通用的，而且当数值达到一定的数值会给予提示（不必要），但是我看这个想要实现的话要给每一个按钮都做一个VBA模板？有没有别的方法？ 而且这个按钮还要实现超链接的功能。

现在需要统计，客户代码和终端客户2个条件合并相同条件，本币金额超过10万-20万的个数，总金额，并且数据不包含订单类型里面的老店翻新和新店摆场

word表格批量删除含有某一特定字符的指定行，有很多个表格，大概有几千个。文档是文字描述+表格，再加文字描述+表格

用caht写了一个点击后生成随机数的VBA， Sub 生成随机数并显示() Dim 最小值 As Integer Dim 最大值 As Integer Dim 随机数 As Integer Dim slide As Slide ' 设置随机数范围 最小值 = 1 最大值 = 100 ' 生成随机数 Randomize ' 初始化随机数生成器 随机数 = Int((最大值 - 最小值 + 1) * Rnd + 最小值) ' 查找当前幻灯片 Set slide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex) ' 在幻灯片中查找名为"随机数文本框"的文本框并显示随机数 Dim shape As Shape For Each shape In 网页链接 If 网页

Sub 判断() Dim I As Integer n = Range("c65536").End(xlUp).Row For I = 4 To n If IsNumeric(Cells(I, 9)) Then Cells(I, 10) = IIf(Cells(I, 9) >= 98, "★★★", IIf(Cells(I, 9) >= 95, "★★", IIf(Cells(I, 9) >= 90, "★", ""))) End If Next End Sub 在If IsNumeric(Cells(I, 9)) Then 这个语句后面加and cells(i,12)单元格中不含有停职";"事故";"事假";"病假";"违规";"旷工，进行判断Cells(I, 10) = IIf(Cells(I, 9) >= 98, "★★★", IIf(Cells(I, 9) >

过程太大，好不容易写好，拆了几十个函数了，窝火。

我对VBA不懂，如图所示拆分数据。VBA代码如何写？

如下图所示，要求：每位员工只能选1种水果，每种水果最多6个人，使得求和数字最大，用Vba怎么能够实现，求教~

首先大家要了解VBA（Visual Basic for Applications），VBA（Visual Basic for Applications）是什么呢？ Visual Basic for Applications (VBA) 是一种编程语言和开发环境，专为Microsoft Office套件中的应用程序如Excel、Word、PowerPoint、Access等而设计的。VBA允许用户通过编写自定义程序和宏来扩展和定制这些Office应用程序的功能。 VBA是一种宏语言，它建立在Visual Basic语言的基础上，并与Microsoft Office应用程序的对象模型紧密结合。它能够让用户以编程的方式自动化重复的任务、定制报

首先大家要了解VBA（Visual Basic for Applications），VBA（Visual Basic for Applications）是什么呢？ Visual Basic for Applications (VBA) 是一种编程语言和开发环境，专为Microsoft Office套件中的应用程序如Excel、Word、PowerPoint、Access等而设计的。VBA允许用户通过编写自定义程序和宏来扩展和定制这些Office应用程序的功能。 VBA是一种宏语言，它建立在Visual Basic语言的基础上，并与Microsoft Office应用程序的对象模型紧密结合。它能够让用户以编程的方式自动化重复的任务、定制报

有没有大哥知道怎么设置点击一下复制，就能把前面的数字复制到剪贴板使用啊，求大神们解答，谢谢

我定义一个参数，赋值10，然后给两个单元格复制，当我把这个参数当行号的时候，是正常的，我把参数当列号的时候就报错，运行时错误 1004

就是模拟这样一动作：按ctrl+alt+del,然后在弹出的界面按Esc

要把word的文件处理成excel表格，而且还有中英文，非常大量的文件，希望能提供帮助，酬谢！QQ849356679

代码目的是把对应款式的位置标注true并标红 图一是代码所在表 图二是代码 图三是新开的一个测试表单 图四为测试后的异常结果 异常结果：输出的内容还是原来代码所在表的内容 没看懂到底是哪里有问题

将基础数据汇总统计到相应的统计表里，代码需要怎么写

大佬们，求助 运行这个代码 Sub txt() Range("a1").Characters(14, 4).Font.colorindex= 6 Range("a2").Characters(32, 4).don't.colorindex= 6 End Sub 前后，这是为什么啊

在表中添加了一个按钮，当单元格变宽或缩小的时候或删除一列的时候按钮的位置就会发生改变

excel vba中，用arr定义了一个区域之后，如何表示arr的一个区域呢？

要求点击按钮之后把1-12个sheet同时输出为一个pdf，自己选择路径自己命名，在网上查了exportAsFixedFormat，但是好像只能在指定的路径下面保存。然后想用printout方法，但是好像不能同时把好多个sheet放到一起，不知道咋办了，大佬们帮帮忙

代码前面运行正常，后面为什么就出错了。我在写代码时常遇到这种问题。有时候换一台电脑就好了。有时候不行。报错为91，对象变量或with块变量未设置。

各位，我看有些资料视频定义变量 dim i,j,k =integer 这是不是有点问题的，其实只定义了k，i和j是没定义的

VBA，IF语句第一个是如果字体加粗则…，第二个如果不是加粗则…，执行时反而加粗字体执行了第二个，麻烦大神们告知下错误原因，感谢

初学vba请教个学习中遇到的问题。vba的PivotCaches的create的第二个参数是SourceData，但是为什么我用range变量时就报错，用range时就能正常运行。下面是截图，一张用的是由union赋值得到的变量qy；另一张用的range。我是通过查找获取单元格行列号后，按照这个行列号选择固定位置的两个区域作为数据透视表缓存的数据源的，而两个区域被我赋给变量qy了。

运行时提示1004错误，请大神们指导！救救孩子吧，在网上搜了几天了，也没搞好。

VBA 教程 VBA教程大纲： 第一部分 基础语法篇 第01章 VBA 入门 第02章 VBA 基础语法：常量、注释、变量、数据类型、运算符、语句、选择、循环 第二部分 中级语法篇 第03章 VBA 数组 第04章 VBA 过程 第05章 VBA 异常处理 第06章 VBA 类模块 第三部分 工具篇 第07章 VBA 工具类 ：字符串、日期、类型转化、对话框 第四部分 VBA Excel对象篇 第08章 VBA Excel对象 ：Wokbook、WorkSheet、Range、Application 第五部分 应用篇 第10章 VBA 文件处理

VBA Chart图表 大纲 一、先通过向导与手工配置实现图表的各功能点，方便大家理解图表基本概念： Excel 通过向导创建图表 Excel图表的基本概念 Excel 手动配置图表 二、然后通过编码实现相应功能点： VBA ChartObjects 创建内嵌图表 VBA Charts 创建图表型工作表 VBA 自定义图表数据 VBA Chart图表外观设置 VBA ChartType设置图表类型

想做个VBA的管理系统，有没有小伙伴帮帮忙，可以有偿服务

我有一串资产卡片，怎样才能鼠标框选任意数量，每个后面带个，号，弹出到新建的txt中？ 请大神赐教。 TY2021031796 TY2021031797 TY2021031787 TY2021031788 TY2021031789 TY2021031790 TY2021031785 TY2021031786 TY2021031777 TY2021031776