选择交替点并将标签移动到/在上方
我对VBA来说是相当新鲜的，并尝试选择交替点以将数据标记放在上方和下方。 这是我的代码，正在将数据标签放在点1之下我想要的是，但是我想要将第三点的标签放在下面，另外还有其他的。我尝试了许多不同的循环和代码，但似乎没有任何工作，我不知道为什么似乎复制和粘贴，而不是移动标签。 对于x = 1到ActiveChart.SeriesCollection（1）.Points.Count 使
..
Office
Excel VBA集合保持重复最后一个对象
我有一个奇怪的问题，试图填充我的对象集合。当我为 PromptsRange.Rows 的每个循环做一切都是完美的。您可以通过 NewPrompt 区域，并观察每一行通过，并最终添加到 PromptsCollection 中。我遇到的问题就是这一点。如果您尝试为 PromptsCollection 上的每个循环执行一次，则每个对象（36）完全相同，是查找表中的最后一个值。我陷入困境也许其中一位学者可
..
删除行，而不会使用vba在excel中丢失公式
我有一个excel表，其中有一个表有一个下拉和一个正常的excel单元格。我尝试清除表的内容，我已经通过 range（“X”）完成了ClearContents 但问题是它要清除内容，但我可以看到表的边框 当我使用 Range（“X” ）。选择 Application.DisplayAlerts = False Selection.Delete
..
在VBA中更改ChartObject的x轴
如果我想将x轴更改为 G5范围内的数据：G105 超过图2 然后我将其放入我的VBA子程序中： ActiveSheet.ChartObjects（“Chart 2”）。激活 ActiveChart。 SeriesCollection（1）.XValues =“='Q1'！$ G $ 5：$ G $ 105” 如何做到这一点，我可以有固定的$ $ $ $ $ $ $ $ $
..
比较excel vba中的字符串
我有一堆包含字符“A”，“B”...“Z”（而没有其他）的字符串。典型的字符串看起来像 ABZYC 。这些字符串成对给予我，如 ABC ， ABDC 。如果一个字符串包含在另一个字符串中（即两个字符串中的任一个包含另一个字符串的所有字母），则字符串是可比较的。字符串出现的顺序并不重要。 在excel vba中是否有直接函数进行这种比较？ 示例： ACBD ， AC - 匹配
..
Stream.SaveToFile上的VBA错误
我正在尝试从另一篇文章修改VBA脚本（26486871）。 该脚本将下载一个Zip文件，提取文本文件并导入数据到Excel。 我不知道VBA，所以我一个一个地处理每个功能。 创建具有随机名称的临时目录..........................完成 从公共服务器下载Zip文件................................错误 提取文本文件（20MB，
..
Dir（）函数找不到新解压缩的文件？
我已经使用Ron de Bruin的引用的解压缩宏的示例1解压缩文件： http://www.rondebruin.nl/win/s7/win002.htm 我迄今已经使用了很多次，但是现在我正在尝试使用两倍压缩的下载文件。我遇到的问题是，下面第二部分代码中的Dir（）函数找不到一次解压后的.zip文件，直到我以某种方式停止宏。 我尝试过的 将DoEvents和1秒钟等待到第二个解压
..
需要使用Macro连接不同数量的单元格
我需要根据上一个单元格中的一个变量来连接单元格列。这将继续，直到指定的变量更改。例如： ABCDE 1 x @ 1 @ 1 + @ 2 + @ 3 2 x @ 2 3 x @ 3 4 y％1％1 +％2 +％3 5 y％2 6 y％3 等 我需要宏来查看A1，如果是x，则在E1中开始连接的字符串。然后移动到A2，如果它是将E1添加到E1中的级联值，
..
ThisWoorkbook运行时错误438
我有一个VBA将Sheet1中的唯一值复制并粘贴到Sheet3上。但是，当我运行VBA时，我得到运行时错误438。 我的VBA看起来像这样： Sub UniqueList（） Application.ScreenUpdating = False Dim lastrow As Long Dim i As Long Dim dictionary As Object Se
..
在for for循环中删除行的Excel VBA缺少行
我有一个子程序可以删除包含大约1000行的范围内的行。 在critera上删除行。 下面的代码工作。 但是，当我运行宏时，我通常必须运行它4次，然后删除包含删除条件的所有行。 我猜这是因为当删除行时，行突然消失时，for循环错过了它的索引。 我的第一个代码看起来像这样。 Set StatusRange = Range（“B2”，Range（“B2”）。End（xlDo
..
Excel VBA - 将格式化符号添加到单元格中的文本，保留原有文本的字符格式
这是继续我的问题在 excel vba在单元格中选择第二个最后一个字符 我正在写一个宏，在单元格中的现有文本之后插入一个红色的刻度（或向下箭头）。 我发现插入的代码会删除原始单元格内容的自定义字符格式（粗体带下划线的红色等）。 ActiveCell.FormulaR1C1 = ActiveCell& “P” 我无法解决如何插入字符和 em>单元格中预先存在的字符
..
适用于Office Excel 2007的VBA版本7的免费教程网站
Office 2007的VBA版本7的 FREE 网站是什么？ Google让我们用“最好的最好的”教程EVER支付了大量的垃圾邮件。 $ b $我有C＃，.NET，Object Pascal，PHP等的编程经验。它不会是一个初学者，而是在该领域的中间人。解释你没有必要的Hello World？我不介意通过，如果Tuts真的很好在最后.. 请指教。 对于火焰：我们都知道谷歌和网
..
AutoFilter返回正确的结果，但是当SpecialCells（xlCellTypeVisible）.value，excel只返回一半的记录
这是我的代码 openWs.AutoFilterMode = False 范围（“A1”）。AutoFilter字段： = 1，Criteria1：= _ “> =”& date1，Operator：= xlAnd，Criteria2：=“
..
在Excel VBA中，如何编写可以在数组公式中使用的函数？
在Excel VBA中，我知道可以通过选择Col C的单元格范围，并且进行= A1：10 * B1：B10 Ctrl-shift-enter，在多个单元格上使用数组公式。 但是，假设代替乘法运算符，我希望它成为我的mymult。 mymult函数？ 函数MyMult（a As Integer，b As Integer） MyMult = a * b 结束功能
..
VBA在模板工作表和可变工作表之间复制和粘贴
我已经编辑了这篇文章，以表明我已经做了一些研究。下面的一些代码在“记录宏”会话期间被捕获。我只是无法弄清楚如何将其记录的工作簿名称更改为变量。任何帮助非常感谢！ 我正在尝试在两个工作表之间复制和粘贴一些数据。一个是一个模板，总是有相同的名称，另一个取决于我打开的那个。我现在的代码不断抛出一个错误。我当前的代码在下面！任何帮助将不胜感激！我想手动打开随机工作簿存储它的名称在一个变量。然后让宏打
..
VBA宏循环显示特定列中的值
我是VBA新手，我想复制下面的代码，以便自动化过程 = IF（A2 = “男”，“M”，“F”） 我编码如下， “A”的第五列（'F'）偏移量的值 Sub Gender1（） ' 'Gender1 Macro ' '= IF（A2 =“Male”，“M”，“F”） Dim rCell As Range Dim rRng作为范围 设置rRng =范围
..
使用宏从Excel电子表格中删除任何未指定的字符
我想通过摆脱任何非标准字符来清理Excel中的.CSV文件。我关心的唯一的字符是A-Z，0-9和几个标准的标点符号。任何其他字符，我想删除。 当我找到一个包含我没有指定的任何字符的单元格时，我已经得到了下列宏来删除整个行，但是我不知道如何让它实际删除字符本身。 Sub Replace（） Dim sCharOK As String，as As String Dim r As R
..
奇怪的单元格地址行为为不连续的范围：VBA
当我遇到一些奇怪的VBA行为时，我正在尝试回答这个问题在Excel中。我已经写了一个非常简单的子代码来演示这个问题： Sub debugAddresses（rng As Range） Debug.Print “整个范围：”& rng.Address Dim i As Long For i = 1 To rng.Cells.Count Debug.Print rng.Cells
..
VBA Rows.Count选择
我正在寻找一个用户选择显示在行动按钮旁边的页面顶部的行数，即，按钮说“生成电子邮件”，旁边说“选择了x项目”。 由于每次更改选择时都会更新，因此我有以下代码： Private Sub Worksheet_SelectionChange（ByVal Target As Range） Sheet1.Range（“E1”）= Target.Rows.Count& “item select
..
VBA WorksheetFunction.Sum不适用于数组，但适用范围？
我不是VBA新手，但我有一个新手的问题。 我正在开发一个项目，我需要创建一个在电子表格中使用某个单元格的函数，扩展范围，然后对其进行求和。 功能Top_Performers（Sales As Range，DataWindow As Integer） Dim MyArray（）As Variant Dim c As Integer，r As Integer r =
..