将文本附加到找到的单元格

时间:2016-12-18 19:14:12

标签: excel-vba vba excel

我有多个电子表格,其中小时作为A列中的文字,并且在B列旁边有一个总计的总和。

我们列出小时数的行不同,这就是我运行 find 来获取其位置的原因。

我们运行滚动总和(= 5 + 3 + 6 + 8)以获得视觉提示,个人在第一天工作5小时,下一工作3小时,下一年工作6等。

我正在尝试构建一个能够添加到该字符串并完成公式的公式,以便我可以看到电子表格中公式的总和以及其内容中的各个附加内容。

到目前为止,我有一些东西要找到单元格并找到它但我无法将其附加到其内容中。

考虑 thours 变量,

hourToStart

以上每日工作时间,需要额外的一小部分。我该怎么做:

minuteToStart

这是一个加法字符串(= 5 + 3 + 6 + 8)并且能够添加到该添加中以获得类似(= 5 + 3 + 6 + 8 + 4)的内容然后能够返回这个宏继续添加到这个公式?我的大部分尝试都恢复了它的价值(22)。

感谢您的帮助。

1 个答案:

答案 0 :(得分:1)

我无法确定哪个单元格包含您问题中的内容,但假设Cells(r1, c1).Value包含当前的总工作小时数,Cells(r2, c2).Formula包含计算以前总小时数的公式工作,然后你可以更新公式,以反映当前工作时间:

Cells(r2, c2).Formula = Cells(r2, c2).Formula & "+" & _
                        (Cells(r1, c1).Value - Cells(r2, c2).Value)

我想我已经制定了你的工作表布局,所以我认为公式变为

With Application.Workbooks("vbstest.dec17").Worksheets("sheet2")
  .Cells(xh, zh + 1).Formula = .Cells(xh, zh + 1).Formula & "+" & _
     (Application.Workbooks("vbstest.dec17").Worksheets("sheet1").Cells(x, z + 1).Value - _
     .Cells(xh, zh + 1).Value)
End With