
VBA
Sub updateTextBox()Dim ws As WorksheetDim textbox As RangeSet ws = ThisWorkbook.Worksheets("Sheet1")For Each textbox In ws.Shapes("TextBox").TextFrame.TextRangetxtbox.Text = ws.Cells(1,1).ValueNext textboxEnd Sub3. 点击“加载”按钮,将上述代码加载到模块中。4. 切换回工作表视图,在需要更新的单元格旁边插入一个文本框。5. 在代码编辑器中,输入上述代码并保存为一个VBA过程。6. 打开开发者选项卡,在其中选择该过程,并单击“运行”。这样就可以实现单元格内容实时更新到插入的文本框中了。需要注意的是,以上方法仅适用于WPS软件版本较低的用户。对于版本较高且未开启开发者选项卡等功能的用户,可以考虑使用第三方插件或软件来实现该功能。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号