用VBA搞定!
在表格里加个文本框(TextBox),记得把Multiline设成True,不然没法换行。
然后把下面这段代码丢到对应工作表的代码窗口里就行:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Value
If Target.Column = 1 Then
TextBox1.Visible = True
TextBox1.Text = t
TextBox1.Top = Target.Top
TextBox1.Left = Target.Left + Target.Width
Else
TextBox1.Visible = False
Exit Sub
End If
End Sub
意思是:选中A列单元格时,自动弹出文本框,内容就是单元格的值,位置也跟着跑。点别的列就隐藏。
实测好使,亲测有效~
(*那行明显是乱码,直接改成`TextBox1.Top = Target.Top`就完事了)
在表格里加个文本框(TextBox),记得把Multiline设成True,不然没法换行。
然后把下面这段代码丢到对应工作表的代码窗口里就行:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Value
If Target.Column = 1 Then
TextBox1.Visible = True
TextBox1.Text = t
TextBox1.Top = Target.Top
TextBox1.Left = Target.Left + Target.Width
Else
TextBox1.Visible = False
Exit Sub
End If
End Sub
意思是:选中A列单元格时,自动弹出文本框,内容就是单元格的值,位置也跟着跑。点别的列就隐藏。
实测好使,亲测有效~
(*那行明显是乱码,直接改成`TextBox1.Top = Target.Top`就完事了)
