Excel简体繁体转换的VBA代码

2016-02-19 13:27 44 1 收藏

下面图老师小编要向大家介绍下Excel简体繁体转换的VBA代码，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！

【 tulaoshi.com - Excel教程】

在Excel中，没有简体和繁体文字之间的转换功能。

但是Word却有此功能，因此，我们可以在Excel中通过VBA代码调用Word的繁体和简体功能，实现在Excel中的简体繁体转换的功能。

下面就是与此相关的VBA代码，希望对你有帮助。

Sub JFZH()

Dim wd As Word.Application

Set wd = New Word.Application

With wd.Documents.Add .Sections(1).Range.Text = Sheet1.Cells(1, 1).Text " .Sections(1).Range.Select "wd.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0

wd.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0 "繁体转简体

Sheet1.Cells(1, 1) = .Sections(1).Range.Text .Close False"简体转繁体

End With wd.Quit

Set wd = Nothing End Sub

来源:https://www.tulaoshi.com/n/20160219/1604334.html

看过《Excel简体繁体转换的VBA代码》的人还看了以下文章更多>>

excel双击列标题自动排序的VBA代码

标签：电脑入门

通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。比如，将代码放在如下的事件中： Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 代码如下： Dim YouRg As Range If Target.Column = Me.Cells (1,1).CurrentRegion.Columns.Count And Target...

wps怎么繁体转简体

标签： wps教程 wps office教程

wps怎么繁体转简体 1、首先我们打开wps，将你要转换的繁体复制进来 2、然后我们点击审阅==繁转简我们来看看效果当然大家想要简体转繁体，操作方法其实是一样的，但是选择的按钮就是旁边的那个简转繁了 wps双行合一在哪？ (图tulaoshi.com老师整理); 1、首先我们先输入文字，选定文字，点击...

将文本转换为电子邮件的VBA代码

标签：电脑入门

以下代码可循环访问一列范围数据，并将每个条目转换为一个电子邮件地址。 Dim convertRng As Range "Change the range to suit your need. Set convertRng = Range("Z1:Z99") Dim rng As Range For Each rng In convertRng If rng.Value "" Then ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.V...

如何通过VBA代码来滚动Excel的窗口

标签：电脑入门

①滚动行 Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 14 代码解释：上述代码的功能是，先激活Sheet1，将其作为活动工作表，然后，自动拖动垂直滚动条，将第14行拖到第一行的位置，即第一行至第13行将被拖到窗口中的上面，并看不到，而第14行则显示在可视窗口的最上面(在可视范围的第一行位置)。与之相关的知识： ...

WPS 2018怎么把繁体字转换成简体字