-
-
4我有一个工作簿,内有100多个sheet,如何实现一个sheet一个数组? sheet后面可能还会增加。希望将数组的名字使用sheet的名字。 有办法的朋友还请帮帮忙,谢谢
-
6
-
5
-
10
-
4
-
5
-
5
-
11
-
15哪位大佬可以帮忙写一下或者接单的呀,自己录制的总是出错,而且总会有没用的代码出现
-
0随时欢迎找我咨询数据处理及vba相关问题和程序,本人从事相关工作很多年
-
4
-
0word文档如何利用选择非标题、非表格、非图片的内容
-
1
-
3设计多个表格的整合以及计算公式,要设置几个筛选条件,根据筛选条件确定计算逻辑,计算逻辑都不一致。 好复杂,问ai都问不出来,我才疏学浅,讲都讲不清楚,有没有大佬帮忙。 跪谢🙇
-
2
-
1请问一下,如何把thisworkbook中事件程序封装到xlam的加载项中?在别的表格中可以运行加载项的thisworkbook事件程序?
-
5就像这么复制都要运行好一会,之前都还好好的 Sub fz() n = 1 For i = 1 To 20 Set ra = Range("c" & i) ra.Copy Range("e" & n) n = n + 1 Next End Sub
-
4各位大佬,想问下,就是我有很多文件需要用到同一个VBA程序,我在其中一个文件中编写好了程序,除了给每个文件重新复制粘贴这个程序外,有什么办法可以直接应用吗?文件太多了
-
0不知道怎么描述,顺序处理少量文件,其中有个变量不会丢失;但若处理多个文件,如10个,那这个变量就会丢失(空值),这是为什么啊?因为单个文件或者少量文件并不会丢失这个变量,所以无法排除
-
32
-
0
-
5
-
3原代码是用窗格列出匹配项,手动选择自动填充的,我现在想要修改下。 求助大佬修改下代码,不胜感激! 如果没有选择候选窗格的内容,就清空输入值。 如果选择了候选窗格的内容,就把该内容填充到D列最后一个有内容的单元格的下一格位置,并且把该内容最后两个字的拼音首字母填充到E列对应位置。 填充内容后,检查D列的数值是否有超过6个字符相同,就弹出窗口列出有多少数值是超过6字符相同的。 网盘上有附件,里面有详细说明。求大佬
-
0[url]http://看了excel工具-》选项-》编辑器格式确实没有配置上。但是选宋体之后不生效。[/url]
-
0麻烦熟悉的大佬给看看。用api函数给frame控件背景弄成透明的,frame控件里的label控件上的字会跟着变透明吗?
-
6
-
2我做测试,需要通过GPIB连接测试器,另一台电脑上的excel里有一个VISA COM 1.0 library,但是自己的excel里面没有,这个可以手动添加嘛
-
2
-
0Excel里,J列下拉框选择“A”,则同一行的K~P列就会变成灰色的。百度出来的VBA代码都跑不了
-
8线上答疑,英语要好,985/211本科大三以上,研究生更好
-
8之前写的代码一直都运行好好的,今天突然运行很慢很慢,不知道是什么原因。期间把文件换了存储位置,其他也没有别的操作。谢谢高手指教
-
5
-
3有没vba代码,自动登陆sap,下载文件并合并到excel文档内的,求大佬
-
1为什么这个代码直接放进去跑不了? Private Sub WorksheetChange(ByVal Target As Range) Dim cell As Range ' 确保只在J列进行操作 If Not Intersect(Target, Me.Range("J:J")) Is Nothing Then 网页链接= False ' 关闭事件以避免无限循环 For Each cell In Intersect(Target, Me.Range("J:J")) If 网页链接= "A" Then ' 将K到P列的单元格设为灰色 Me.Range(cell.Offset(0, 1), cell.Offset(0, 6)).网页链接= RGB(192, 192, 192) ' 灰色 Else ' 将K到P列的单元格清除背景颜色
-
13求助,有什么办法把数量排一起,金额排一起?
-
8现在exel里已经有一个答题系统的成品了,需要追加一个倒计时的功能。 一次答题有30道选择题,每道题限时5s,5s没答记为错误然后自动切换下一题。 关键在于这里倒计时的同时允许在用户窗体上进行作答要怎么弄
-
6
-
0VBA列表框里的数据怎么添加边框
-
2
-
2wps2019如何让自己写的代码能在任意一个工作簿的功能区(菜单栏)上运行
-
4
-
9Option Compare Database Sub a() Set 路径 = CurrentDb.OpenRecordset("字根路径", 2) 路径.Edit Set 图 = 路径!图示.Value For oi = 1 To 路径.RecordCount If 路径![no-] Mod 1000 <> 0 Then 图.AddNew 图.Fields("FileData").LoadFromFile "D:\时时乱码\AssetsOf醚芪\" & 路径![地址] 路径.Update 路径.Close End If 路径.MoveNext Next End Sub 在图.AddNew 报对象无效。3420 求解!
-
9设置vba事件,e4:e15是原价,f4:f15是折扣,g4:g15是折后价 判断1、检查g4:f15发生变化是手动更改,还是因为判断2引起的更改,如果是因为判断2引起的那么此次变化不处理,如果是手动更改的那么g4:g15=e4:e15*f4:f15,判断2、检查f4:f15发生变化是手动更改,还是因为判断1引起的更改,如果是因为判断1引起的那么此次变化不处理,如果是手动更改的那么那么f4:f15=g4:g15/e4:e15。