我想要运行一个循环，按照一定的标准对文本进行分组，然后加起来，但是我需要能够抓取两个数据。 Connecticut 624 Georgia 818 Washington 10 Arkansas 60 New Jersey 118 Ohio 2,797 select将是类似的东西，我希望用户能够突出显示两列，我将贯穿并按位置分组状态，并添加总计 编辑 – 到目前为止，我所能做的就是抓住用户select的范围： Sub Short() Dim rngMyRange As Range If TypeName(Selection) = "Range" Then Set rngMyRange = Selection Else Exit Sub 'Non-range type selection eg a chart End If MsgBox "The address of rngMyRange is " & rngMyRange.Address(False, False) End […]

我是新来的VBA为Excel和我坚持一个小问题。 我有一个数据列表，我有两个任务，我想完成。 第一个将删除J列中任何等于0的值的行; 第二部分：我想循环遍历剩下的行，并删除I列中的值大于J列中的值的行。 但是，我收到以下错误：VBA运行时错误91对象variables或未设置块variables 这是说： For rw = .Cells(rows.Count, "E").End(xlUp).Row To 2 Step -1 完整的代码是 Private Sub clearupdata_Click() Dim rows As Range, OSQty As Range, value As Long, rw As Long Set OSQty = Range("j2") Do Until OSQty.value = "" value = Val(OSQty.value) If (value = 0) Then If rows Is Nothing Then Set […]

我有一个标签，自动接收从电子表格的另一部分提取的数据。 总是有三列数据用于报告：列A具有任务描述，列B具有人工编号，列C具有费用编号。 Col F有一个数字，表示该部分的行数（每次都会有所不同，但它是随着提取而来的 – 不需要计算）。 我只是想在每个部分周围绘制边框。 所以如果我手动做，我selectA2：A7并select外部边界。 然后我selectB2：B7并做同样的事情。 然后C2：C7重复。 我知道有多less行，因为这个数字在F列。 然后我进入下一节并做同样的事情，但是行数可能会不同，但在F列中标识。 该过程将被重复，直到所有部分都被概述为止。 可能有3个部分，或20个。我想我可以根据列F中的数据条目的计数循环序列。 这里是之前和之后的链接： Excel边界自动化 – 之前 Excel边界自动化 – 之后

我正在做一个问题，并使用函数rnd（），但随机值<0.001359使其他值不可接受。 如何生成从0.001359开始的随机数字直到1？

我有一个桌子，有几种types的物品买入和卖出。 我创造了一个计算出售物品时的总销售价格的公式。 如何在公式中包含date标准，以便可以用新价格捕获现有项目？ 谢谢。 对答案增加了问题：

我想在VBA中使用AdvancedFilter，而不是将副本设置为范围到固定值，我想将其复制到第一个空行。 我想从两个单独的AdvancedFilter步骤附加两个表，有没有更简单的方法？ 例如，首先复制两个表来分隔位置，然后合并它们？ 两个表都有相同的列。 我现在的代码是： Set rngCriteria_v = Sheets("1").Range("filter") Set rngExtract_v = Sheets("2").Range("**Here first empty row**") Set rngData_v = Sheets("3").Range("Input") rngData_v.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=rngCriteria_v, _ CopyToRange:=Sheets("Stocks_5_control").Columns("AG").Find(vbNullString, Cells(Rows.Count, "AG")), _ Unique:=False

我引用第一个工作表中的一系列单元格来构build第二个工作表。 我经常在第一张纸的中间添加行。 在引用第一个的第二个表中，我添加了一行的单元格号中有一个跳过。 表1：包含我的主要清单，这是更新 一个新的行被添加（A3）到表1： 表2：引用表1并拉动行 但是，您可以看到，第3行应该包含添加的行“Rachael”，而是已经下移到Sheet1！A4并且一起错过了A3。 我怎样才能解决这个问题？

我有一个Rails 4应用程序需要使用许多excel文件，代表花名册（20个左右，由他们自己的委员会分组），必须阅读和编辑的用户。 预部署我的系统工作完美，这些文件将居住在public/rosters并可以由任何经过身份validation的用户引用和编辑，不幸的是，当我部署到Heroku我不能再这样做。 我一直在使用一个S3存储桶来托pipe这个和其他相关应用程序所需的其他文件，它一直在奇妙的工作，我一直在使用它; 所以我决定尝试解决这个问题。 不幸的是，看起来好像我只能通过公开的方式访问这些文件，这并不是我想要做的。 所以我的问题是：什么是最好的方式来引用这些文件（使用我的access_key_id和secret_access_key进行理想的身份validation），并允许用户推送更改将覆盖S3存储桶上的文件。

我有一张工作表，里面有四张不同的表格：总计，一月，二月和三月。 每张表都有销售产品A和B. 在总表中，我有一个三个月的列表，当我select一个特定的月份时，单元格B6和C6的值发生了变化，这很好。 以下公式位于这些单元格中：= INDIRECT（“'”＆$ C $ 2＆“'！”＆“B3”）and = INDIRECT（“'”＆$ C $ 2＆“'！”＆“C3”） 现在，我需要知道一个年份至今的价值取决于选定的月份。 例如，我在一月份的产品A有十个销售额，同一个产品的二月份有十二个销售额。 如果我在总表中select二月份，我可以使用哪些公式有22个销售？

我创build了一个有五个文本框的Excel表单。 这些文本框接受任何数值。 一旦input五个数字，就会有第六个文本框显示这些值的总和。 这些值的总和应该始终是100％。 这是我的代码： Private Sub TextBox1_Change() Dim Value As Single Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) TextBox6.Value = Value End Sub 我对所有文本框更改事件具有相同的代码。 不幸的是，这是行不通的。 当我input10作为我的input，而不是显示100%它显示10203040作为结果。 我究竟做错了什么？