【VBA经验谈】如何快速学习VBA?(附视频教程)

我们在招聘vba开发工程师，全兼都可，结算灵活。 要求 1.精通vb或vba开发语言。 2.有案例作品。 感兴趣的回复1 然后加v shishihou01

入职测试题 太难了 完全不会

office卸载也用

Function filladata(drid As Integer, prid As Integer, pcid As Integer, krs As Integer, kcs As Integer) rid = 1 For i = prid To prid + krs - 1 If rid < 3 Then ThisWorkbook.Worksheets("print").Cells(i, pcid) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 3 Then ThisWorkbook.Worksheets("print").Cells(i, pcid + 1) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 4 Then ThisWorkbook.Worksheets("print").Cells(i, pcid + 1) = ThisWorkbook.Worksheets("data").Cells(drid, rid) ElseIf rid = 5 Then ThisWorkbook.Wo

x、y的结果明明是一样的，应该是执行else后面的语句才对，为什么总是执行then后面的，是我哪里有问题吗？求解，谢谢各位。

求助大佬系统:WIN10 office:2019 excel打开xlsm后缀的表格会把所有的宏删除，显示报错。 此外利用开发工具进入vba编辑框会有部分标题乱码，编辑框内部输入中文全问号。 在工具——选项中，编辑器那以页缺字，编辑器字体中无法更换字体，而且内部中文部分乱码。 下面放图：

我想插入图片的同时，给图片赋值上超链接。这个要怎么写 Sub LoadImage() Dim HLK As Hyperlink, Rng As Range Dim i As Integer For i = 1 To Sheets.Count For Each HLK In Sheets(i).Hyperlinks '循环活动工作表中的各个超链接 If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断) Set Rng =

MsgBox shuzu1(3) Cells(2, 2).Select For i = 0 To 30 Do j = Selection.Value Selection.Offset(1, 0).Select Loop Until j = shuzu1(i) Cells(i + 2, 11).Value = Cells(i + 2, 1).Value Next

扫头像有惊喜！

请教大佬们为什么这段代码运行无效？检测A列如果是“1625818003”则D列同一行对应格改为BE。 我是自学的菜鸟，请帮忙指正一下错误谢谢

纯萌新 公司的一个excel 有工作表保护 我想删了他 但改后缀行不通，并且重命名了这个文件就会显示我没有权限访问即使我知道密码 很好奇怎么弄的

VBA动态图线

VBA制作员工信息模板

VBA制作员工信息模板

头像

Sub print5() ' ' print5 宏 ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub

各位大神，请教一下自己录制的宏为什么会看不到代码？是哪里出了问题吗？谢谢

电脑默认的打印机是打印标签的， excl表格打印需要指定另一个打印机 请问宏中怎么写代码 1、选择指定打印机2、竖向打印、A4 需要加在已经录制的宏里面 Sub test240() ' ' test240 宏 ' ' Columns("B:B").ColumnWidth = 28 Columns("C:C").ColumnWidth = 16 Cells.Replace What:= _ "　　　　销售：　　　　　　　　拆单：　　　　　　　　财务：　　　　　　　　生产：　　　　　　　　仓储：　　　　　　　　", Replacement:= _ "审核： 主管： 上

Excel vba Excel 函数等资料 均在闲鱼有售，价格优惠 Excel VBA 程序开发自学宝典书籍配套学习视频，教材等资料齐全 疑难千寻千解 Excel 2010 VBA 编程与实践 相关视频也有 有需要闲鱼联系

大家好！请问在窗体中Application.Run变量宏名怎么用？ 我在窗体中写了如下代码，Application.Run 提示 运行错误‘1004’ ，call 则正常， Private Sub CommandButton1_Click() Dim S1, S2 S1 = "UserForm1.A" S2 = "A" Call A '正常 Application.Run S1 ‘提示错误 Application.Run S2 ‘提示错误 End Sub Sub A() MsgBox ("我是A") End Sub Sub B() MsgBox ("我是B") End Sub Sub C() MsgBox ("我是C") End Sub Sub D() MsgBox ("我是D") End Sub

需要教程的来领

下图的A列 是音标,我用的字体是 GWIPA。A列最后的两个单元格，有角标。当B列用=IF(ISNUMBER(FIND("E",A1)),A1,"")后，我能做到如B列的形式。但B列最后的两个单元格 就不显示成角标了。请问这个怎么能保留角标呢。

苏州魅品网络科技有限公司专注于EXCEL VBA 开发，欢迎联系

请教EXCEL怎么直接导入标准财务报表，需要VBA编译吗？谢谢

a = InputBox("要显示进（退）步多少名的学生？", "名次变化选择", 50) cs = InputBox("这次是第几次考试", "考试次数选择", 2) For j = 3 To 8 Worksheets(j).Activate For i = 7 To 60 If Cells(i, 3 * cs + 2) - Cells(i, 3 * (cs - 1) + 2) > a Then Cells(i, 3 * cs + 2).Interior.Color = RGB(255, 0, 0) End If Next Next 在表格里有多次考试成绩，我希望把这次考试与上次考试名次相差多少名的加亮显示，a是选择名次的，可是这运行后背景颜色没有变。 为什么？是不是>a那不能

请问excel我设置了权限，有一个工作表不能修改，只能查看，我设置了保护，但是点击按钮查询数据库时候，也不能查询了，如何处理，这种情况，谢谢大家

Sub shishi() Range("a9") = Excel.Application.WorksheetFunction.Lookup(1, 0 / (Sheet1.Range("i2:i8") = Sheet1.Range("i2")), Sheet1.Range("c2:c8")) End Sub

编写一段 VBA 窗体程序，根据折扣计算出咖啡的折后价。（要求：咖啡的原价和折扣从文本 框获得，计算结果用 lable 显示）求解

宏打不开，那位大神帮我看看哪里出问题了啊

请问VBA中：的作用。比如UserForm1.Controls（btn2).Enable =True: Call Start 中：的作用是避免换行吗？

求助Vba程序加密的方法。一个excel文件，写了宏程序，想让其它人看不到程序源码，如何做？

如图，求大神帮忙看看，谢谢

我想实现一个功能， 就是当我点击查询的时候，显示所有数据，输入时间的时候显示时间段的数据，

跪求

大佬们问个问题，字典可以直接引用数组么 比如:dim arr as variant dim i as variant dim dc=createobject("scripting.dictionary") for i = 1to 6 arr(i)=i next i msgbox = (dc(arr(6))) 跳出信息框里会是6么？

精通excel各种功能，表格、函数、vba编程，PowerBI可视化处理

求助VBA大神(ಥ_ಥ)

按照网上方法也找不到vba文件 根本无法实现VBA6里的VBE6EXT.OLB复制到VBA7 求大神指教啊啊啊啊

找了代码合并excel文件，但都会提示错误，有没有大神给改一下，用的2016版，想实现合并每个文件的第一个sheet Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\