-
-
3
-
4禁用了第五列 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
-
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) =
-
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
-
39A列 D列 F列 00031 华为 仓储 00031 华为 运输 00031 华为 物流 00031 华为 仓供应 00031 华为 物管理 00032 小米 仓储 00032 小米 运输 00032 小米 仓供应 数组1=仓储,运输,物流 数组2=仓供应,物管理 请问如何用vba写规则: 先根据a列编号找出所有同编号的数据行,找出之后,如果同一个编号F列数据中包含数组1与数组2则,标红数组1 A列 D列 F列单元格
-
7Sub FilterRows() ' 根据第7列的值来筛选数据,并且筛选条件为当前选定单元格的值 ActiveSheet.Range("A6").AutoFilter Field:=Selection.Column, Criteria1:=Selection.Value ' 将筛选后的结果复制到当前活动的工作表之后 With ActiveSheet .Cells.Select Selection.Copy End With Sheets.Add(After:=ActiveSheet).Paste ActiveSheet.Rows("1:4").ClearContents For Each cell In ActiveSheet.Rows(5).Cells If Not IsDate(cell.Value) Then cell.ClearContents End If Next cell End Sub 运行能运行出来,就是只是一个筛选功能也太久了吧
-
2求助,在corelvba控件中用qrmaker.ocx生成二维码后需要再粘贴到文档,CellPitch调大也没用,生成的间隔始终太小,效率也麻烦,想用createoleobject QRmakerCtrl.1直接创建,生成后发现没有Input输入口,不能更改,求大神们好心教教
-
9
-
5求一个vBAv日期控件,或双击自动添加日期也行
-
11
-
6