如何实现文本框一直显示在屏幕中间

一掷乾坤

这个文本框，我想让他在选中的单元格变动的时候，始终显示在屏幕中间，vba代码要怎么写。我目前的代码是以下这样。我设置了left和top属性，就会是固定在excle的固定位置，screen.wdith又提示不存在。

暂时我先用TextBox1.Top = Selection.Top就保证能看见这个文本框。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, neirong As String
    For i = 2 To 3999
        If Cells(i, "f") <> "" Then
            neirong = neirong & Cells(i, "a").Value & vbNewLine & Cells(i, "f").Value & vbCrLf & vbCrLf
        End If
    Next i
    TextBox1.Text = neirong
End Sub

一掷乾坤

我先用textbox1.top=selection.top代替，能看见文本框。

02761752696

一掷乾坤 发表于 2023-7-26 11:26
我先用textbox1.top=selection.top代替，能看见文本框。

将文本框放入窗体试试，有惊喜哦

一掷乾坤

02761752696 发表于 2023-7-27 08:23
将文本框放入窗体试试，有惊喜哦

放了，但是窗体显示以后，到写入数据的时候，会提示textbox1不存在。

一掷乾坤

02761752696 发表于 2023-7-27 08:23
将文本框放入窗体试试，有惊喜哦

可以了，原来昨天我把代码写错地方了