-
-
4只保留单元格下拉填充的功能,禁用向右拖拽填充的功能, 可以用VBA代码实现吗?哪位大神能出手相助?
-
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
-
21,简化公式,200个字变成10个字 有很多公式写的很长,看不懂很难维护,如果改成VBA代码,简化成一个超级函数,方便维护,还可以给多个工程共用,实现模块化开发 2,计算提速。有些vba运算很慢,需要几分钟到几小时,用好的方法,运行速度可以减到1分钟以内甚至10秒以内。 这2天做了一个3万个左右的订单表和产品销售统计的算法。 原来的主人,运行后就卡死了,后面按10个产品去查找订单,需要1秒左右,那3万个产品就要3000秒,差不多一个小时
-
18见简介
-
8禁用了第五列 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
-
9
-
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
-
2
-
2具体情况:电脑里有很多文档,其中一些文档内有特殊标记,例如包含某一地名,那我需要将此文档命名为“地名-文件名”的格式。据此,我分别向文心一言和讯飞心火提问如下: “如何批量找出含安徽或者安 徽或者安 徽或者山东或者山 东或者山 东或者陕西或者陕 西或者陕 西的word文档,如果文档内安徽或者安 徽或者安 徽,则将安徽-加到文档名的开头,如果文档内含有山东或者山 东或者山 东,则将山东-加到文档名的开头,,如果文档内含有含
-
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
-
1如题,如何在sheet中插入列表控件,并让其显示在指定单元格下方,这个早前接触过能实现的,但是时间有点久我整忘了,大佬怎么写啊
-
4
-
34
-
3各位大佬求助,想实现一个功能:代码写在个人宏工作簿里,只要当前运行的工作簿有更改,就运行自动保存。 下面这个代码只能实现本工作簿自动保存
-
8以下是代码 Sub 更新物料代码() Dim conn As New 网页链接Dim sj As String With Sheets("物料代码").Range("a2:F" & Sheets("物料代码").Range("a65536").End(xlUp).Row) .ClearContents End With 网页链接"Provider = Microsoft.ACE.OLEDB.12.0;Data Source=E:\360MoveData\Users\Administrator\Desktop\统计单.accdb" sj = "select 物料代码,名称,图纸号,客户 from [lbk]物料代码[rbk]" Sheets("物料代码").Range("a2").CopyFromRecordset conn.Execute(sj) End Sub 求各位大佬帮助
-
6
-
25首先chuhuori设成了公共变量,数据类型是date,前面的代码都能跑完,也能给chuhuori赋值2024/4/16这个日期,然后在下面这一行提示类型不匹配 if chuhuori <> '''' then 于是乎我不理解了。 在之前这个宏是能跑完不报错的,包括上面出错的if那一条,后面为了追加计数功能又加了几行,然后把chuhuori变成了公共变量,就报错了,但是不管怎么说,只是用if判断为不为空也不至于类型不匹配啊,如果是chuhuori类型有问题,那它也跑不出2024/4/16这个日期,应该在
-
9线上答疑,英语要好,985/211本科大三以上,研究生更好
-
6
-
2