-
1
-
4
-
35
-
75
-
6
-
11请问如果学会VBA,可否接单挣点外快呀?
-
2VBA用新的SAP账号跑的时候跑出来报表都是空的,SAP账号需要做什么设置。确定VBA代码是没问题的,只是不知道SAP需要做什么设置。
-
10
-
1
-
9Sub保存() Dim re,i For i = 12 To 19 IF Sheets("表单录入").Cells(i,5)<>""Then rE=Sheets("出入库明细").range("d"&Sheets("出入库明细").rows.count).end(xlup).row IF rE <=8 Then rE = 8 Sheets("出入库明细").Cells(rE + 1,4)=Sheets("表单录入").[M10]'日期' Sheets("出入库明细").Cells(rE + 1,5)=Sheets("表单录入").[N9]'单号' Sheets("出入库明细").Cells(rE + 1,6)=Sheets("表单录入").[E10]'供客' Sheets("出入
-
31
-
1求教各位,在vba编程下,将某个工作薄另存时,如何将特定字符加入? 如工作簿是名字是abc,如何在另存为新文件命名时,文件名中包含工作簿名字的同时,在其前面加上202406的字符?
-
11我想要做这样一个功能 当我将要删除一个工作表时,判断一下条件,满足条件后触发事件 触发事件后,判断条件 满足条件正常删除,不满足条件阻止删除 如果正常删除了,删除后,再触发一个事件 这种能做到吗?
-
0
-
3
-
1
-
13伸手贴,求大神帮助。
-
7价格低的来联系,后续有单欢迎合作
-
3求大神指点,PPT中用VBA制作评分系统,八个评委,满分100,找最高分和最低分,然后求平均分的代码要怎么写?
-
3学习vba看推荐什么书
-
8能够把当前工作簿(包括各sheet)里各单元格如果有字节为“@”的,就替换为“=”。我自己用宏录制功能录制如下VBA Sub 宏2() ' ' 宏2 宏 ' ' Cells.Replace What:="@", Replacement:="=", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _ , FormulaVersion:=xlReplaceFormula2 End Sub 总是无法替换全,有些奇怪
-
8
-
7
-
3如题,如何在sheet中插入列表控件,并让其显示在指定单元格下方,这个早前接触过能实现的,但是时间有点久我整忘了,大佬怎么写啊
-
31,简化公式,200个字变成10个字 有很多公式写的很长,看不懂很难维护,如果改成VBA代码,简化成一个超级函数,方便维护,还可以给多个工程共用,实现模块化开发 2,计算提速。有些vba运算很慢,需要几分钟到几小时,用好的方法,运行速度可以减到1分钟以内甚至10秒以内。 这2天做了一个3万个左右的订单表和产品销售统计的算法。 原来的主人,运行后就卡死了,后面按10个产品去查找订单,需要1秒左右,那3万个产品就要3000秒,差不多一个小时
-
4具体情况:电脑里有很多文档,其中一些文档内有特殊标记,例如包含某一地名,那我需要将此文档命名为“地名-文件名”的格式。据此,我分别向文心一言和讯飞心火提问如下: “如何批量找出含安徽或者安 徽或者安 徽或者山东或者山 东或者山 东或者陕西或者陕 西或者陕 西的word文档,如果文档内安徽或者安 徽或者安 徽,则将安徽-加到文档名的开头,如果文档内含有山东或者山 东或者山 东,则将山东-加到文档名的开头,,如果文档内含有含
-
9
-
9只保留单元格下拉填充的功能,禁用向右拖拽填充的功能, 可以用VBA代码实现吗?哪位大神能出手相助?
-
62
-
10禁用了第五列 2到10行的粘贴功能代码,但是实际操作,发现整个第五列都不能粘贴,请大神帮忙 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then If Target.Row > 1 And Target.Row < 11 Then Application.CutCopyMode = False Else Application.CutCopyMode = True End If End If End Sub
-
10
-
8Sub 数码打印计价() Dim x For x = 150 To 155 If Cells(x, 3) = "生产" Then End If Next For x = 150 To 155 If Cells(x, 15) = "" Then Cells(x, 16) = 0 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then Cells(x, 16) = 10 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then Cells(x, 16) = 18 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) =
-
19
-
0比如第一个宏,是选择A1-3-5-7这几个单元格,第二个宏是选择A2-4-6-8单元格,第三个宏是B1-3-5-7,我想同时选中第一个宏和第三个宏,或是同时选中第二个和第三个,能实现吗?
-
0
-
18见简介
-
3
-
20本人不懂vba..在网上搜到如下方法 即禁用了第五列 2到10行的粘贴功能,里面的确设定了2到10行的代码,但是实际操作,发现整个第五列都不能粘贴,当然这个不是问题,本来我就希望禁止掉整列的粘贴功能 问题是如果我双击其他单元格,再选中文本复制,然后双击第五列某单元格,再进行粘贴,发现仍然可以粘贴 也就是说下面代码仅禁止了整个单元格的粘贴,但是不能禁止双击进去直接粘贴文本 请大神帮忙 Private Sub Worksheet_SelectionChange(ByVal Target As R
-
4大佬能VBA可以怎么解决这个问题吗? 有数据表产品型号和相对应的数量两列,然后要根据型号对应的数量进行拼箱制作装箱单,比如型号有ABCD4个型号,数量分别为900,100,50,150,然后箱规要求300,装箱单可以根据数据表进行拼箱,比如型号A在装箱单就会拆分为: 型号:A 装箱数量:300 件数:3 总数量: 900 然后其他型号不满300的要进行合并拼箱,最多不超过360。 型号:B 装箱数量: 100 型号:C 装箱数量:50 型号: D 装箱数量:150这三个型号的件数刚
-
2
-
2指定区域的数据有效性会被粘贴破坏,也会被左边的单元格拖拽填充坏,哪位大神能帮忙解决啊?
-
6