Tag: excel 2010

一个程序，它将在最后一行中find最小值的列，并将其第一行中的值赋给variables？

在我发布的最后一篇文章中，我得到了很多非常有用的build议，但是效果并不好，所以我想我可以多一些帮助。 所以我有一个图表，看起来像这样。 假设左上angular的值1在单元格A1中： x= 1 2 3 4 5 6 7 8 4 3 2 1 2 3 4 5 9 8 7 6 7 8 9 10 8 7 6 5 4 3 2 1 Sum= 21 18 15 12 13 14 15 16 第一行是由1到8的x值组成的。行2,3和4是使用等式中第一行的x值得到的值。 第五行是第二，三，四行的总和。 我需要的程序是使用VBA，通过Sum行，第五行，并检测最小的值。 在这种情况下，它将是12.然后应该将该列的x值分配给variablesX-Min。 最后，它应该将X-Min的左右值分配给它们自己的variablesX-Left和X-Right。 所以对于这个例子来说，它会经过总和行，find最小的值是12.所以对于那个列，它将进入第1行，并将值4分配给X-Min。 然后它将偏移到左侧，并指定X-Left = 3，然后向右偏移并指定X-Right = […]

如何使用Excel VBA四舍五入到一定数量的有效数字？

编辑：这部分解决了！ 所以我在我正在做的一个程序中有一堆计算，并且数字越来越长，我得到溢出错误。 这是由于将50位数字除以另一个50位数字所致。 我需要一种方法来将特定数字四舍五入到一定数量的有效数字。 这里有一些更多的信息。 首先，所有我要舍入的数字总是小于1.数字可以小到1E-50。 我只关心前10位有效数字。 为了防止溢出错误，我只需要一种方法将其舍弃到十个字左右，然后再进行下一个计算。 那么，有一个数字出去50个数字是非常无用的。 我在想也许是循环数字，逐位数字？ 当这个数字等于零时，程序可以给计数器加1，然后一旦碰到零以外的任何东西就跳出循环。 然后下一个步骤可以截断该计数器的数字加上我想要的许多有效数字。 例如，对于.000001234567812345678。 它会返回5个零。 如果我想要十位有效数字，我会做五+十= 15.程序将只保留十进制后的前15位数字，所以数字将被截断为0.000001234567812。 另一个想法可能是使用日志。 那么新号码提升到的能力将是有效数字前面的零的数量。 我不知道的是，首先，如何通过数字逐个数字，并检查每个数字是否为零。 我也不知道如何截断一个数字到一定数量的数字。 任何帮助将不胜感激！ 编辑：这部分没有解决。 我觉得这样做很快，所以我会问这里的问题。 如果在20分钟左右没有回答，也许我会再发一个post。 为什么这不起作用？ Sub Rounding() Tracker = 0 For i = 1 To 10 Tracker = Tracker + 1 Cells(1, Tracker) = Rnd Cells(1, Tracker) = Application.Evaluate("=Round(Cells(1, Tracker), 4 – (Int(Log(Cells(1,Tracker))) + 1))") […]

计算的字段不会正确评估

好吧，我有一个工作表上有一些列的一些计算表 PPS | Qty | TtlPrice | Comm | Fee | Ttl | format 列定义 PPS – 直Numeric(9,5) 数量 – 直Numeric(12,0) ttlPrice – PPS * Qty 通信 – 标准统一费率 费用 – =IF([@PPS] > 1, -SUM(0.005 * [@Qty]), 0) Ttl – =SUM([@TtlPrice]:[@Fee]) 格式 – 条件格式控制列 问题是，当我评估Fee列的时候，它实际上和你想象的相反。 任何大于1的值在条件子句部分评估为True ，然后评估-Sum(.005*[@Qty])而不是0 ，否则为真，任何小于1 PPS评估为False 。 是否有一个古怪的，我没有注意到之前处理Excel表中的行引用会导致这种性质？

Workbook对象的命名范围工作表父项

我正在试图获取对子工作簿中的工作表对象的引用。 有没有更好的方法来从儿童工作簿中获取工作表参考？ 我现在有什么： activeworkbook.Names("rngMarketAreaMgr1").RefersToRange.Worksheet.Name 似乎有点长而过分的点名来获得这个名字。 由于范围最终指向工作表上的定义表，因此表（理论上）可能会移动到不同的工作表，因此我需要逻辑地引用工作簿级别的NamedRange，然后提取工作表对象，然后使用。

未查看未分类的数据不起作用

我有一个表如下，我想用vlookup，但它不工作。 列b和c的格式单元格是文本。 我很想从列C中的B列中find文本。我的公式是： =VLOOKUP(F5,B:C,1,FALSE) f5=مركز بهداشت دانشگاه تهران 但是它返回：＃n / a当我想从列B中find列C时，它工作正常。 请帮帮我。 我该怎么办？ 有没有与阿拉伯文的不匹配？

在二维数组中查找值并在相邻单元格中返回值

**Sheet 1** ColumnA BCDEFGH ———————————————————— EURUSD 1.2765 1 ACCOUNT624 2 account125 1 account834 EURCAD 1.01 2 Account49 3 account45 2 account67 EURGBP 0.78 2 Account777 1 account45 2 account678 **Sheet 2** ColumnA BCD ————————————— EURUSD 1.2765 Account 624 ? EURUSD 1.2765 Account 125 EURUSD 1.2765 Account 834 EURCAD 1.01 Account49 EURCAD 1.01 Account45 在上面的工作表1中，每行显示货币交易以及每个帐户的数量。在工作表2中，每行仅显示1个帐户。 我想用表1中的数量填充表2中的columnd […]

在Excel中，有没有什么办法可以快速提前一个时间单元？

例如，假设单元格A1的值为11:37:00 PM（显示为23:37）。 我想单击单元格并立即将其推进到11:38:00 PM（显示为23:38）。 这是令人讨厌的，必须删除并键入新的时间值到顶部的区域。

根据一组ID从另一张表中总结数值

我想创build一个帮助人们logging饮食习惯的工作手册。 该工作手册目前有两个表，“食谱”和“日记”。 食谱有列ID，名称，KCAL和蛋白质。 用户可以添加他们经常使用的任何配方，只需使用数字ID来引用它们。 日记有DATE，TOTAL_KCAL和TOTAL_PROTEIN列。 这个想法是每个date用户可以看到吃的能量和蛋白质的总量。 我已经想出了如何使用VLOOKUP（）将配方表单中的单个配方的kcal和蛋白质数量转换成日记表单： =VLOOKUP(1;Table1;3;FALSE) //For kcal 但我真的想自动化这一点。 在这个阶段，如果我想使用这个表，我需要复制整个函数（并添加一个+前缀），粘贴到最后，并将第一个参数更改为正确的ID。 然后我不得不重复这个过程到TOTAL_PROTEINS列（我需要记住将源参数从3更改为4）。 我想最佳情况是，如果日记表也有一些EATEN_RECIPES列，人们可以添加一个ID列表（1,15,6），但我不知道这是否可能在Excel中。 重点是，我想能够记下一个ID日记，并有Excel自动从食谱表中获取大卡和蛋白质的数量，并更新日记中的总金额。 这可能是一件相当简单的事情，但我不知道在谷歌使用什么search词，任何意见，在此表示赞赏。 （另外我需要一个更好的标题。）

代码不在所有打开的工作簿上运行

循环打开工作簿 它的代码运行通过所有打开的工作簿，但这是一个问题，它运行约10到12次然后停止。 任何人都可以任何想法… Sub OpenAllWorkbooks() Set destWB = ActiveWorkbook Dim DestCell As Range FileNames = Application.GetOpenFilename( _ filefilter:="Excel Files (*.csv*),*.csv*", _ Title:="Select the workbooks to load.", MultiSelect:=True) If IsArray(FileNames) = False Then If FileNames = False Then Exit Sub End If End If For n = LBound(FileNames) To UBound(FileNames) Set wb = Workbooks.Open(Filename:=FileNames(n), ReadOnly:=True) Next […]

如果它返回＃N / A，则将条件添加到此INDEX MATCH公式

我在Sheet3中有一个公式来从Sheet1中查找一个值并返回它，但是有时候，如果值不在Sheet1中，我希望它在Sheet2中检查。 sheet1和sheet2在列A：A中具有相同的数据，只有列具有不同的值。 =INDEX(Sheet1!D:D,MATCH(Sheet3!A2&"MAN_CHANGE",Sheet1!A:A,0)) 如何修改公式以检查sheet2中sheet1中是否存在匹配项？