当编辑框内容改变，对应的单元格也随着改变

复制代码 代码如下:

Private Sub TextBox1_Change()

ThisWorkbook.ActiveSheet.Range("J1") = TextBox1.Text

End Sub

利用这个代码可以写很多自动计算的Excel小模块了