当编辑框内容改变,对应的单元格也随着改变 复制代码 代码如下:Private Sub TextBox1_Change() ThisWorkbook.ActiveSheet.Range(\”J1\”) = TextBox1.Text End Sub 利用这个代码可以写很多自动计算的Excel小模块了
当编辑框内容改变,对应的单元格也随着改变 复制代码 代码如下:Private Sub TextBox1_Change() ThisWorkbook.ActiveSheet.Range(\”J1\”) = TextBox1.Text End Sub 利用这个代码可以写很多自动计算的Excel小模块了