excel vba自动添加汉字（高难）

Private Sub Worksheet_Change(ByVal Target As Range)

    Const t1 = 2

    Const t2 = 3

    If Target.Address(0, 0) = "B1" Then

        a = Target.Text

        If Len(a) <> 2 Then

            MsgBox "出错"

            Exit Sub

        End If

        Application.EnableEvents = False

        If t1 Then a = Left(a, t1 - 1) & "爱" & Mid(a, t1)

        If t2 Then a = Left(a, t1 - 1) & "你" & Mid(a, t1)

        Target = a

        Application.EnableEvents = True

    End If

End Sub

比较简单的的方法是：在设计视图下预先向图片上添加(叠加)文本框或标签控件，如果是多行文本选择文本框比较合适，应去掉文本框前面的标签，在文本框属性中设置为无边框、底色设置为透明，字体、字号、颜色等都可以预先设置好，这些都弄好后就可以根据你的功能要求在不同的事件代码中(比如窗体加载、打开、打印按钮单击等等)直接向文本框赋值字符串就可以了，当然也可以让窗体进入打印预览，显示图像及文字满意后再正式打印。

---