-
9我操作的目标工作簿关闭时回发邮件,怎么在我的vba执行时当关闭目标工作簿时禁止这个功能
-
9最近在自学Excel VBA,一边看B站视频学一边问newbing,用的WPS2016的软件 i变量声明的代码明明没问题,总报错,新建一条程序试过完全没问题,合在一起就报错,感觉在AC下面多加一句什么话都会报错 百度也没见有 头都秃了只能来求组了,想要的代码还变量都没声明完就搞不下去了,我还要声明好几个变量,难道是VBA声明变量有什么问题吗?里面每条都单独拎出来试过没问题才放进去的 头大啊头大....问newbing,newbing嘴硬说一点问题也没有是我错,只能
-
9找了很多地方都没有新的vba教程视频,有人有吗
-
3Sub 时间() Sheet1.Range("B8").Value = Format(Date, "YYYY年MM月DD日") & " " & Format(Time, "HH:MM:SS") & Format(Date, " AAAA") Application.OnTime Time + TimeSerial(0, 0, 1), "时间", , True End Sub 想把HH:MM:SS改成显示红色能改吗
-
1Sub 班级总体重本存活率() E8_Vlookup [重本存活率!a5:a100], [教师安排!a2], [教师安排!b2], [重本存活率!b5] '查询区域+对应数据+输出数据+输出位置 '查班主任 E8_Vlookup [重本存活率!a5:a100], [班级类别及科类!a2], [班级类别及科类!c2], [重本存活率!c5] '查班级类别 起始行1 = 5 最大行1 = Sheet16.Cells(Rows.Count, "A").End(xlUp).Row 起始行2 = 4 最大行2 = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row For i = 起始行1 To 最大行1 '班级行数 '计算物理类存活率 If Sheet16.Cells(i, "c"
-
17
-
2VBA 脚本,使用了 ComboBox ActiveX 控件(拖放到到 Sheet1 上),命名 Sheet1.ctLiftType 使用 VBA 脚本的过程是正常的 但是在关闭 Excel 的时候 Sheet1.ctLiftType 对象报 “方法和数据成员未找到” (注:报错位置是 bLiftType_Change() 事件处理中,和关闭类事件没有关联) 大家碰到过这种奇怪的情况吗!?
-
4
-
6各位大佬,我想在excel目录后快速生成每个sheet内的合计金额,每个sheet的行和列都不同,请问这个需求可以通过excel公式直接实现吗?
-
3
-
9如何用一个工作簿的户号(一户多口人一个户号),提取相同户号的人员的,姓名,称谓到另一个工作簿里。感谢感谢
-
1每次都要重新输入数字,错误的地方才会改正,自己不会VBA,这个是用的GPT,下面是代码,麻烦会的老师,改了把完整的代码发一下谢谢。或者加我WEI有偿感谢 Sub 复制工作表重要() Dim i As Integer Dim num As Integer Dim lastReport As String Dim lastRecord As String lastReport = "报告" lastRecord = "记录" num = InputBox("请输入要复制的数量:", "复制工作表") For i = 1 To num If i = 1 Then '第一次复制直接复制现有的报告和记录 Sheets(Array(lastReport, lastRecor
-
27Sub test() Dim ar, br(), i&, j&, mc ar = Range("a1").CurrentRegion '希望可以增加其他不连续的C1,F1等单元格 ReDim br(1 To UBound(ar), 1 To 1) With CreateObject("vbscript.regexp") .Pattern = "([1-9][0-9]*|0\.[0-9]+|[1-9][0-9]*\.[0-9]+)(?=O)" .Global = True For i = 1 To UBound(ar) If .test(ar(i, 1)) Then Set mc = .Execute(ar(i, 1)) For j = 0 To mc.Count - 1 br(i, 1) = br(i, 1) + Val(mc(j)) / 8 Next End If Next End With [J1:J2].Resize(UBound(br), 1) = br End Sub --------------------------------------------------------------------------------
-
23我已经确定就是这句出错:Cells.Select,但是苦于不知道如何改。。。。。 Private Sub 分拆工作簿() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets Cells.Select With Selection.Font .Name = "微软雅黑" End With Next MsgBox "文件已经被分拆完毕!" End Sub
-
3
-
8大佬,自定义一个功能和find查找相似功能的函数,怎么写呀
-
19图1是通过宏的按钮,图2是插入的开发按钮,运行的,右边排序没问题!
-
9
-
12CAD vba有没有感兴趣的。一起讨论。 Sub 炸属性块() Dim ss As AcadSelectionSet Set ss = newSel_set("aBlock") ThisDrawing.Utility.Prompt "选择一个属性块插入:" ss.SelectOnScreen If ss.Count > 0 Then If ss(0).ObjectName = "acdb" Then ’这里还在想怎么能把属性块炸开又能保留原来的属性值内容。 ’先用字典记录所有属性值对应属性名称然后在原来位置填写文字 ‘所有属性遍历完后,删除属性块 Else MsgBox "选择图形不是图块" End If Else MsgBox "未选择图块"
-
9
-
13请教大神,怎么从新定义vba的二维数组的行数,且不丢失原来数组中的数据,例如一开始定义arr(3,5),存储数据后增加数组行长度,变为arr(6,5)
-
31
-
18
-
9我想在【原始数据】中,找到【匹配】中的数据,然后删除【原始数据】中的这一行,求大佬告知 尝试了vlookup 和find都报错了 原本用的find,if判断是否能找到,然后删除,也报错了
-
21如题,各位大佬见好,最近对公司的库存进行盘点,发现现有纸质台账太过繁琐,若使用excel表格进行数据录入,编写窗体,虽使用listview+Lnkedit实现窗体编辑修改,但查询相对较慢(数据行仅100行,使用instr模糊查找需1秒),且listview刷新显示全库存数据需2秒,故求大佬给点资料,研究下数据库,多谢多谢!
-
8
-
6比如workbook。worksheets。range(xx)表示某个单元格这种 在PPT中是什么,在word中又是什么,图片,图表,段落怎么表示 有没有类似于获得完整路径的办法 WPS演示用不了录制宏
-
15各位大佬 find函数提示类型不匹配,我看好像是查找值字符太长了,网上说不能超过255,请问这个怎么解决呀
-
0
-
13
-
4
-
3想看看AI对VBA的了解有多少,所以分别和百度的文心一言和ChatGPT聊了聊VBA。 中小企业自动化Excel找林潇,欢迎私信回复交流。 林潇: 掌握VBA编程的核心要义有哪些? ChatGPT: 掌握VBA编程的核心要义有以下几点: 1. 了解基本语法和数据类型:VBA是一种基于Visual Basic的编程语言,因此熟悉Visual Basic语法和数据类型是非常重要的。 2. 熟悉对象模型:VBA是一种面向对象的编程语言,因此掌握对象模型是至关重要的。对象模型是指Excel、Word等应用程序中的对象,
-
6初学者需要vba程序设计帮忙,觉得没问题且今天下午有空可以语音指导的请联系我。 报酬是150rmb/一小时。
-
4哪位大神教我:Excel表 录入窗口录入到另外一个数据表。同时还需做一个查询窗口。简单概括如下:1.录入窗口。2.按条件查询窗口。3.数据库表。这三个必要条件。如有更好的方法就更完美,有尝、200 有尝。大家可以留言私信
-
2求大佬解惑 我用同样的部分复制之后,用select方法选中单元格再用paste方法粘贴就正常,可是用pastespecial方法就只是选中了想粘贴的区域,没有真正粘贴(剪贴板里有数据)请问这是为什么啊
-
7C030950000300 套机-米家变频空调-室内机-白色 * 1;C030950005200 套机-K01C-KFR-35G/N1A3-室内机 * 1;C030950007500 套机-K06C-KFR-50W/D1A1-室外机 * 2;C030950010400 套机- KG16C-KFR-50G/D1A1-室内机 * 1;C030950010500 套机- KG16C-KFR-50W/D1A1-室外机 * 1;C030950011600 套机-KG10C-KFR-26W/V1A1-室外机 * 2;C030950012700 套机-KG18C-KFR-35W/S1A1-室外机 * 1;C030950013800 套机-KG19C-KFR-35W/N1A3-室外机 * 1;C030950014100 套机-KG09C-KFR-35G/N1A1-室内机 * 1;C030950015100 套机-KG10Z-KFR-26G/V1A1-室内机 * 1
-
27Dim i As Integer i = Worksheets("St1").Cells(47, 1).value Worksheets("St1").Cells(22, 1).value = Application.WorksheetFunction.CountA(Worksheets("COS").[A5:A5000], ">='" & i & "'")
-
6
-
17
-
27
-
2
-
5
-
13
-
3我想在每一年的1月2日清空指定表格内容怎么写
-
144一道简单题,文科生被逼死 编写求一元二次方程ax2+bx+c=0解的程序,其中,a,b,c为任意实数。(10分) 要求:完成一个名为QuadraticEquationRoot的过程,在过程中通过三个InputBox函数分别输入方程系数a b c的值。求出方程的解后通过在立即窗口中输出方程的解。请按以下格式输出方程的根x1和x2。x1和x2之间有一个空格。并要求: (1)如果x1和x2为实根,则先输出数值大的根,后输出数值小的根。如 x1=5.00 x2=3.00 (2)如果方程是共轭复根,按“x1=m+ni x2=m-ni”格式输