-
-
1伸手贴,求大神帮助。
-
3如题,如何在sheet中插入列表控件,并让其显示在指定单元格下方,这个早前接触过能实现的,但是时间有点久我整忘了,大佬怎么写啊
-
6能够把当前工作簿(包括各sheet)里各单元格如果有字节为“@”的,就替换为“=”。我自己用宏录制功能录制如下VBA Sub 宏2() ' ' 宏2 宏 ' ' Cells.Replace What:="@", Replacement:="=", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _ , FormulaVersion:=xlReplaceFormula2 End Sub 总是无法替换全,有些奇怪
-
7
-
5价格低的来联系,后续有单欢迎合作
-
31,简化公式,200个字变成10个字 有很多公式写的很长,看不懂很难维护,如果改成VBA代码,简化成一个超级函数,方便维护,还可以给多个工程共用,实现模块化开发 2,计算提速。有些vba运算很慢,需要几分钟到几小时,用好的方法,运行速度可以减到1分钟以内甚至10秒以内。 这2天做了一个3万个左右的订单表和产品销售统计的算法。 原来的主人,运行后就卡死了,后面按10个产品去查找订单,需要1秒左右,那3万个产品就要3000秒,差不多一个小时
-
12求助吧里的各位大神,如何用vba实现把sheet1某一列(比如第二列)中非重复项筛选出来,并把结果输出到sheet2(或者自定义工作表名称)的某一列呢。谢谢啦
-
7QQ 148332727 手机/微信 15333729278 多年编程经验,出活快速 有需求的直接联系我 价格优惠
-
4具体情况:电脑里有很多文档,其中一些文档内有特殊标记,例如包含某一地名,那我需要将此文档命名为“地名-文件名”的格式。据此,我分别向文心一言和讯飞心火提问如下: “如何批量找出含安徽或者安 徽或者安 徽或者山东或者山 东或者山 东或者陕西或者陕 西或者陕 西的word文档,如果文档内安徽或者安 徽或者安 徽,则将安徽-加到文档名的开头,如果文档内含有山东或者山 东或者山 东,则将山东-加到文档名的开头,,如果文档内含有含
-
10
-
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
-
8
-
7
-
8ActiveWorkbook.ActiveSheet.UsedRange.Copy ThisWorkbook.ActiveSheet.Range("AP1") ActiveWorkbook.Close SaveChanges:=False
-
2
-
1
-
12
-
1源文件是详细文字表格 目标文件是制式表格,想实现的功能是:在目标文件里,直接模糊查询表格内一两项,可以将源文件里相应内容直接调用出来。同时打印,我不想用vlookup函数,几千条数据,影响速度。
-
20如题,我先随便发几个,如果有人共享,那就一直更新.没有就算了.....
-
6本文件夹里有若干个excel文件,要把每个文件里面sheet(只有一個sheet)批量改成统一的指定名字
-
1请求大神帮帮忙,VBA将.doc文档的黑色字符设为自动色,其它色的字保持不变。
-
13
-
3了解些EXCEL操作ACCESS的方法,感觉自学太难,想问有VBA群吗?互相交流学习
-
0
-
2cnSq = "SELECT 题号, 题目, 答案, 解析 FROM (" & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A01' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A02' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'B01' AND 状态 = NO " & _ "UNI
-
1
-
4
-
34