如何在<em>VBA</em>中给<em>EXCEL</em>中的单元格

百链接">网页链接

网盘7天有效，xlsb格式，2010版以上度的excel能用

加了个按钮，按一次保存问一次，保存在答"sheet2"表格里

要是把这个表的回名字改了，就把红框里的“sheet2”改答成表名

Private Sub CommandButton1_Click()

Dim a, b

With Sheets("sheet2")

a = WorksheetFunction.CountA(.Columns(2)) + 1

.Cells(a, 1) = Now

For b = 2 To 9

.Cells(a, b) = Cells(5, b)

Next

End With

End Sub

先手动建立一个引用公式，然后在VBA中替换到以下引号中，公式中抄比较麻烦的是变量要用 & 来连接到公式中， 假设i是变量的话
Cells(i, 1).Formula = "='[Samll tools for validation test.xls]sheet5'!$E$125"
[]之间为excel文件名称（如果是引zhidao用不同文件的数据）
sheet5位表格名称
Cells(i,1).Formula = "=if(A" & i & "<>0,true,false)"
还有时需要用到chr(34)来替换引号，因为vba中引号有特殊作用，会将引号间的文字作为字符串处理。

• 一是直接引用百，例如：在单元格C1中计算A1+B1，在excel中常规操作就度是C1输入公式：=A1+B1；而在问vba中录入代码[c1]="=a1+b1",意思是将"=a1+b1"赋值答给c1单元格

• 二是调用工作表函数内，比如：调用sum函数。容[c1] = WorksheetFunction.Sum([a1:b1])

• 三是调用vba函数，比如：调用left函数。[c1] = VBA.Left([a1], 1)
  

确认一个问题，只存在【和】这种情况，还是【和差积商】四则运算都存在？