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

复制代码代码如下:


Private Sub TextBox1_Change() 
ThisWorkbook.ActiveSheet.Range("J1") = TextBox1.Text 
End Sub 


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