当前EXCEL单元格数据写入vb textbox

当前EXCEL单元格数据写入vb textbox

---

Sub CommandButton1_Click()
    ActiveCell.Select
    ActiveSheet.TextBox1.Value = ActiveCell.Value
End Sub

---

textbox1．text＝activesheet．activecell．value

---