烦请高手帮忙解决Excel中VBA的SolverReset的代码问题，谢谢啦~

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我...