Excel简体繁体转换的VBA代码

2016-02-19 13:27 55 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

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

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

wps怎么繁体转简体

标签： wps教程 wps office教程

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

iOS8简体字如何快速转换繁体字？

标签：手机软件

1.选中你需要转换为繁体的文字。 2.在弹出的选项条中选择““简→繁”，即可将转为繁体中文了。 3.若要将繁体中文再转为简体中文，则重复上述步骤，最后点击“繁→简”即可。 4、如果你很喜欢繁体字，可以直接添加繁体字中文的键盘，【设置】-【通用】【添加新键盘】-【繁体中...

将文本转换为电子邮件的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行则显示在可视窗口的最上面(在可视范围的第一行位置)。与之相关的知识： ...

vba操作Excel经典的通用的代码之一

标签：电脑入门

MyColumn=Target.Column获取活动单元格所在的列号 MyRow=Target.Row获取活动单元格所在的行号工作表名.UsedRange.Rows.Count指定工作表已使用的行的总数工作表名.UsedRange.Columns.Count指定工作表已使用的列的总数工作表名.Cells(行号, 列号).Value获取指定工作表某个单元格的值 Worksheets(m).Cells(i, j).Value使用通用的序号方法...

查看更多精彩>>