1. 烦请高手帮忙解决Excel中VBA的SolverReset的代码问题,谢谢啦~
2. EXCEL VBA 关于保护问题,请高手来帮忙。
这样的方式看起来可行,实际上现在高版本的EXCEL默认不信任对VBE访问,语句执行会报错的。
有一个思路,就是需要删除代码的时候,另存为工作簿,文件名不变,类型使用XLSX,这个格式的文件是没有任何宏代码的。
3. 求高手帮忙注释下excel中vba宏代码各是什么意思,满意的加满分,谢谢!
'mso 9 是office 2000
'工作表的设定
285'行高
129 '纸张大小
600'水平分辨率
600'垂直分辨率
Sheet1
'显示页面之间的分割
105'缩小放大的倍率
105'页面之间的距离
False'内容保护为否
False'目标保护为否
False'scenario 为否 这三个都是workbook 的保护设定
4. 烦请VB高手帮忙,VB引用Excel,只显示工作表内容,隐藏菜单及工具栏,去掉内容以外的空白单元格,求代码
Sub 隐藏工具菜单栏() Dim i As Integer For i = 1 To Application.CommandBars.Count Application.CommandBars(i).Enabled = False Next i Application.Caption = False Application.DisplayFullScreen = False Application.DisplayStatusBar = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False '行列标隐藏 ActiveWindow.DisplayVerticalScrollBar = False '垂直滚动条隐藏 Application.DisplayFullScreen = True Application.ScreenUpdating = Fasle Application.DisplayFormulaBar = FalseEnd SubSub 显示工具菜单栏() Dim i As Integer For i = 1 To Application.CommandBars.Count Application.CommandBars(i).Enabled = True Next i Application.DisplayFullScreen = True Application.DisplayStatusBar = True Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True '行列标隐藏 ActiveWindow.DisplayVerticalScrollBar = True '垂直滚动条隐藏 Application.ScreenUpdating = True Application.DisplayFormulaBar = True Application.DisplayFullScreen = True End Sub ’执行隐藏工具栏命令后所有的EXCEL工作表都将隐藏工具栏。所以在工作表的关闭事件中调用 显示工作表命令。去除其余的表格用白色填充。见附件
5. 求高手帮帮忙,关于excel的VBA中的replace..........先谢谢了..问题解决了会加分
我解决了. 是UNICODE中的空格 &HC2A0
在EXCEL中的处理方法是 s = Replace(Cells(iRow, iCol), ChrW(160), "")
使用Chrw可以处理UNICODE的字符.
6. EXCEL VBA中规划求解器Solver出现 运行错误‘1004’应用程序定义或对象定义错误
没有勾选solver Add-in:
7. excel VBA高手帮忙,VBA内容修改如下面,在线等,谢谢
Sub zidong1()Dim i, arr, dc1 As Object, dc2 As Object, marr(), k, rn, pSet dc1 = CreateObject("scripting.dictionary")Set dc2 = CreateObject("scripting.dictionary")i = Range("A" & Rows.Count).End(xlUp).Rowarr = Range("A9:C" & i)If i > 1 Then Range("A9:C" & i).ClearContentsFor i = 1 To UBound(arr) dc1(arr(i, 1)) = dc1(arr(i, 1)) + arr(i, 2) If arr(i, 3) = "" Then dc2(arr(i, 1)) = dc2(arr(i, 1)) Else dc2(arr(i, 1)) = dc2(arr(i, 1)) & "," & arr(i, 3) End IfNext ik = dc1.keysrn = dc1.itemsp = dc2.itemsReDim Preserve marr(1 To dc1.Count, 1 To 3)For i = 1 To dc1.Count marr(i, 1) = k(i - 1) marr(i, 2) = rn(i - 1) If p(i - 1) = "" Then marr(i, 3) = "" Else marr(i, 3) = Mid(p(i - 1), 2) End IfNext[A9].Resize(dc1.Count, 3) = marrEnd Sub
8. 请VBA高手帮忙写个控制EXCEL的程序代码
楼主,我想试一下,请Hi我...