Excel VBA将文本框(文本和格式)复制到另一个文本框(无ActiveX /用户表单)

Excel VBA是一种用于自动化Excel操作的编程语言，可以通过编写宏来实现各种功能。在Excel VBA中，可以使用以下代码将一个文本框的文本和格式复制到另一个文本框：

Sub CopyTextBox()
    Dim sourceTextBox As Shape
    Dim targetTextBox As Shape
    
    ' 获取源文本框
    Set sourceTextBox = ActiveSheet.Shapes("TextBox1")
    
    ' 获取目标文本框
    Set targetTextBox = ActiveSheet.Shapes("TextBox2")
    
    ' 复制源文本框的文本和格式到目标文本框
    targetTextBox.TextFrame2.TextRange.Text = sourceTextBox.TextFrame2.TextRange.Text
    targetTextBox.TextFrame2.TextRange.Font.Bold = sourceTextBox.TextFrame2.TextRange.Font.Bold
    targetTextBox.TextFrame2.TextRange.Font.Color.RGB = sourceTextBox.TextFrame2.TextRange.Font.Color.RGB
    ' 可以根据需要复制更多的文本框属性
    
End Sub

上述代码中，首先通过ActiveSheet.Shapes方法获取源文本框和目标文本框的引用。然后，通过TextFrame2.TextRange属性可以获取文本框的文本内容，通过Font属性可以获取文本框的字体格式。最后，将源文本框的文本和格式赋值给目标文本框。

需要注意的是，上述代码中的文本框名称为"TextBox1"和"TextBox2"，可以根据实际情况进行修改。

这是一个简单的示例，展示了如何在Excel VBA中将一个文本框的文本和格式复制到另一个文本框。在实际应用中，可以根据具体需求进行扩展和修改。

腾讯云相关产品和产品介绍链接地址：