查看: 7504|回复: 3
请问excel能不能批量的将中文姓名自动翻译成英文姓名？
阅读权限20
在线时间 小时
比如A1单元格是姓名：张三
B1单元格希望出现的是：San Zhang
阅读权限70
在线时间 小时
[ 本帖最后由 新纪元 于
10:15 编辑 ]
阅读权限20
在线时间 小时
& & & & & & & &
非常感谢！
请问delimiter和tpy分别需要填写什么内容？
阅读权限20
在线时间 小时
& & & & & & & &
我自己研究出来了~！谢谢！不过要做成我需要的模式还需要其它函数支持，不过我自己会了那个，呵呵~非常感激！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 6096|回复: 6
超级牛逼技能：Excel也能中文翻译成英文
和爱学习的人一起激发动力
每月至少2次直播分享，有回放
春节过后报名CMA有惊喜！
CMA获得政府及各大企业集团一致推荐
中国会计视野&ACCA联合
200份奖品等待来取
Excel2013新技能，还在使用低版本的朋友赶紧换新版本吧！A列输入中文，B列输入公式，就能自动翻译，是不是很神奇！=FILTERXML(WEBSERVICE(&/translate?&i=&&A1&&&doctype=xml&version&),&//translation&)复制代码
QQ截图16.png (14.35 KB, 下载次数: 33)
20:01 上传
会计视野论坛帖子版权归原作者所有。对发帖人声明原创的帖子，中国会计视野有使用权和转载权。其他网站在写明来源、作者、会计视野论坛首发网址的情况下可以转载，原创作者保留禁止转载和向其他转载网站索取稿酬的权力。
2007版本玩不了。
有点儿意思
挺好用的，可惜版本不行
站长推荐 /1
一起来做一件有意义的事，《视野思享会》举办了近60期，事实证明是符合大家需求的。本项目开始招募年费会员，一起策划活动主题，一起全程互动解惑，更可观看更多往届视频。详情见内文。
Powered by查看: 1516|回复: 1
我想把VB定义了的文字翻译成英文
阅读权限20
在线时间 小时
我想把明细账的文字翻译成英文，在那改呀？想把“摘要”倆个字改成英文Summary。
Option Explicit
Sub mxz(kmdm As String)
Dim n As Double
Dim i As Long
Dim ccol As Long
Dim j As Long
Dim temps As String '临时字符串
Dim p As Integer '页数
Dim y As Long&&'月份
Dim r As Long
Dim cx As Long '科目出现次数
Dim mxzrow As Long
Dim sfx As Integer
Dim mrfx As Integer
Dim l As Integer
&&Dim 年 As Integer
&&Dim 月 As Integer
&&Dim 日 As Integer
&&Dim 明细科目 As String
&&Dim 总账科目 As String
&&Dim 凭证号 As String
&&Dim 摘要1111111 As String
&&Dim 借方 As Double
&&Dim 贷方 As Double
&&Dim 方向 As String
&&Dim 余额 As Double
&&Dim 科目代码 As String
&&Dim 起始行 As Long
&&Dim 截止行 As Long
&&Dim 行 As Long
&&Dim 总页 As Integer
On Error Resume Next
dypzfrm.Height = 40
dypzfrm.Caption = &准备明细账&
dypzfrm.Label1.Caption = &正在生成明细账,请稍等...&
dypzfrm.Show 0
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=&1&
Application.Calculation = xlCalculationManual
cs(13) = 0 '标记科目次数数组未初始化
If comm1 = 0 Or comm2 = 0 Then
&&comm1 = CInt(Sheets(&科目编码&).Cells(2, 8))
&&comm2 = 12
科目代码 = kmdm&&'记录科目代码
'==============================================================================================
&&If bz(1) && 1 Then cshkmr
&&If yr(14) && 1 Then cshyr&&'******** 初始化yr数组 ***********
'==============================================================================================
'&&If yr(14) = 0 Then
'& & 起始行 = 5
'& & 截止行 = 5
'& & GoTo xyb
& &y = comm1
& &Do While yr(y) = 0
& &y = y + 1
& &起始行 = yr(y)
& &y = comm2 + 1
& &Do While yr(y) = 0
& &y = y + 1
& &截止行 = yr(y) - 1
'&&If 起始行 & 截止行 Then
'& &Unload dypzfrm
'& &ecgx = 0
'& &cs(13) = 0 '标记科目次数数组未初始化
'& &Application.Calculation = xlCalculationAutomatic
'& &ActiveSheet.Protect Password:=&1&
'& &Application.ScreenUpdating = True
'& & MsgBox &不存在记录！&, vbOKOnly, &警告&
'& & Exit Sub
'& &End If
& &n = 0 '记录明细账总行数
& &If comm1 = 1 Then
& && & If ncs(科目代码, 0) && 0 Then n = n + 1
& && & If qcs(科目代码, CInt(comm1), 0) && 0 Then n = n + 1
If cs(13) && 1 Then cshcs 科目代码, CInt(comm1), CInt(comm2), 1
For y = comm1 To comm2
If cs(y) && 0 Then n = n + cs(y) + 2
Do While n & 25
& &总页 = 总页 + 1&&'精确计算所需总页数
& &n = n - 25
mxzrow = Sheets(&明细账&).UsedRange.Rows.Count
temps = &1:& & mxzrow
Sheets(&明细账&).Rows(temps).Select
Rows(temps).Delete Shift:=xlUp&&'删除之前明细账
Sheets(&账页格式&).Cells(31, 1) = &核算单位：& & Sheets(&科目编码&).Cells(1, 6)
Sheets(&账页格式&).Cells(31, 8) = &打印日期：& & VBA.Year(VBA.Now()) & &.& & VBA.Month(VBA.Now()) & &.& & VBA.Day(VBA.Now())
Sheets(&账页格式&).Cells(1, 1) = Sheets(&科目编码&).Cells(jqczr(&科目编码&, VBA.Left(Sheets(&明细账&).ComboBox1.Text, 4), 4), 6) & &明细账&
Sheets(&账页格式&).Cells(2, 1) = &月份：& & Sheets(&科目编码&).Cells(2, 6) & &.& & comm1 & &-& & Sheets(&科目编码&).Cells(2, 6) & &.& & comm2
Sheets(&账页格式&).Cells(3, 1) = &明细科目：& & Sheets(&明细账&).ComboBox1.Text
Sheets(&账页格式&).Cells(4, 1) = VBA.Trim(Sheets(&科目编码&).Cells(2, 6)) & &年&
If Len(科目代码) = 4 Then
& & Sheets(&账页格式&).Cells(3, 5) = &总帐科目：& & Sheets(&明细账&).ComboBox1.Text
& & i = Sheets(&明细账&).ComboBox1.ListIndex
& & For j = i To 0 Step -1
& && &&&If VBA.Trim(VBA.Left(Sheets(&明细账&).ComboBox1.List(j), 4)) = VBA.Trim(VBA.Left(Sheets(&明细账&).ComboBox1.List(i), 4)) And Len(VBA.Trim(VBA.Left(Sheets(&明细账&).ComboBox1.List(j), 8))) = 4 Then
& && && && &Sheets(&账页格式&).Cells(3, 5) = &总帐科目：& & Sheets(&明细账&).ComboBox1.List(j)
& && && && &Exit For
& && &&&End If
& & Next j
Sheets(&账页格式&).Visible = True
Sheets(&账页格式&).Select
Rows(&1:32&).Select
Selection.Copy
Sheets(&明细账&).Select
For i = 1 To 总页
Cells(1 + 32 * (i - 1), 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(3, 7).Select
Sheets(&账页格式&).Visible = xlSheetVeryHidden
Sheets(&明细账&).Select
For ccol = 1 To 8
Columns(ccol).ColumnWidth = Sheets(&账页格式&).Columns(ccol).ColumnWidth
Sheets(&明细账&).Cells(31, 5) = &第& & p & &页& & & - & & &共& & 总页 & &页&
'=================================================================================================================
& && & Select Case Sheets(&科目编码&).Cells(jqczr(&科目编码&, 科目代码, 4), 10)
& && && &Case &借&
& && && & sfx = 1
& && && &Case &贷&
& && && & sfx = -1
& && & End Select
& && & mrfx = sfx ' 默认方向
& &If comm1 = 1 Then
& && & If ncs(科目代码, 0) && 0 Then
& && && & Cells(r, 4) = &结转上年&& &'& &4&&摘要
& && && &&&余额 = VBA.Round(ncs(科目代码, 0), 2)& &'默认方向余额
& && && &&&If VBA.Round(余额, 2) & 0 Then
& && && && & sfx = -sfx
& && && && & 余额 = -余额
& && && &&&Else
& && && && & If VBA.Round(余额, 2) = 0 Then sfx = 0
& && && &&&End If
& && && &&&Cells(r, 8) = VBA.Round(余额, 2)
& && && &Select Case sfx
& && && &&&Case 1
& && && && & 方向 = &借&
& && && &&&Case -1
& && && && & 方向 = &贷&
& && && &&&Case 0
& && && && & 方向 = &平&
& && && &End Select
& && && && & Cells(r, 7) = 方向
& && && & r = r + 1
& && && & n = n + 1
& && & End If
& && & If qcs(科目代码, CInt(comm1), 0) && 0 Then
& && && & Cells(r, 4) = &期初余额&& &'& &4&&摘要
& && && & 余额 = VBA.Round(qcs(科目代码, CInt(comm1), 0), 2)&&'默认方向余额
& && && &&&If 余额 & 0 Then
& && && && & sfx = -sfx
& && && && & 余额 = -余额
& && && &&&Else
& && && && & If 余额 = 0 Then sfx = 0
& && && &&&End If
& && && &&&Cells(r, 8) = VBA.Round(余额, 2)
& && && &Select Case sfx
& && && &&&Case 1
& && && && & 方向 = &借&
& && && &&&Case -1
& && && && & 方向 = &贷&
& && && &&&Case 0
& && && && & 方向 = &平&
& && && &End Select
& && && && & Cells(r, 7) = 方向
& && && & r = r + 1
& && && & n = n + 1
& && &End If
& &'=====================================================================================
With Sheets(&凭证&)
& &For 行 = 起始行 To 截止行
& &If VBA.Len(科目代码) = 4 And VBA.Left(.Cells(行, 10), 4) = 科目代码 Then
& && && &GoTo xmxz
& &If VBA.Len(kmdm) = 6 And VBA.Left(.Cells(行, 10), 6) = 科目代码 Then
& && &&&GoTo xmxz
& &If .Cells(行, 10) = 科目代码 Then
xmxz:&&'写明细账
& && && &Cells(r, 1) = .Cells(行, 3) ' 月
& && && &Cells(r, 2) = .Cells(行, 4) ' 日
& && && &Cells(r, 3) = .Cells(行, 8) ' 凭证号
& && && &Cells(r, 4) = .Cells(行, 9) ' 摘要
& && && &Cells(r, 5) = .Cells(行, 13) ' 借方
& && && &Cells(r, 6) = .Cells(行, 14) ' 贷方
& && && &If mrfx && sfx Then 余额 = -余额
& && && &If mrfx = 1 Then
& && && & 余额 = VBA.Round(余额 + Cells(r, 5) - Cells(r, 6), 2)
& && && &Else
& && && & 余额 = VBA.Round(余额 - Cells(r, 5) + Cells(r, 6), 2)
& && && &End If
& && && &&&sfx = mrfx
& && && &&&If VBA.Round(余额, 2) & 0 Then
& && && && & sfx = -sfx
& && && && & 余额 = -余额
& && && &&&Else
& && && && & If VBA.Round(余额, 2) = 0 Then sfx = 0
& && && &&&End If
& && && &&&Cells(r, 8) = VBA.Round(余额, 2)
& && && &Select Case sfx
& && && &&&Case 1
& && && && & 方向 = &借&
& && && &&&Case -1
& && && && & 方向 = &贷&
& && && &&&Case 0
& && && && & 方向 = &平&
& && && &End Select
& && && &Cells(r, 7) = 方向
& && && & r = r + 1
& && && & n = n + 1
& && && & If n & 25 Then
& && && && &p = p + 1
& && && && &Sheets(&明细账&).Cells(r + 32, 5) = &第& & p & &页& & & - & & &共& & 总页 & &页&
& && && && &r = r + 7
& && && && &n = n - 25
& && && & End If
& & End If
If VBA.Month(.Cells(行 + 1, 7)) & VBA.Month(.Cells(行, 7)) Or .Cells(行 + 1, 7) = && Then& &'下一行下一月，写本月合计，本年累计
& && && & If n & 25 Then
& && && && &p = p + 1
& && && && &Sheets(&明细账&).Cells(r + 32, 5) = &第& & p & &页& & & - & & &共& & 总页 & &页&
& && && && &r = r + 7
& && && && &n = n - 25
& && && & End If
& & If cs(13) && 1 Then cshcs 科目代码, CInt(comm1), CInt(comm2), 1
& & If cs(CInt(.Cells(行, 3))) && 0 Then& & '判断当月科目是否出现，出现则写本月合计及本年累计，否则不写
& && && & Cells(r, 1) = .Cells(行, 3)&&' 月
& && && & Cells(r, 4) = &本月合计&&&'& &4&&摘要
& && && & Cells(r, 8) = VBA.Round(余额, 2)
& && && & Cells(r, 7) = 方向
& && && & Cells(r, 5) = VBA.Round(fse(科目代码, Cells(r, 1), 1), 2) ' 借方
& && && & Cells(r, 6) = VBA.Round(fse(科目代码, Cells(r, 1), -1), 2) ' 贷方
& && && & temps = &a& & r & &:& & &h& & r
& && && & Range(temps).Interior.ColorIndex = 34& &'本月合计颜色
& && && & r = r + 1
& && && & n = n + 1
& && && & If n & 25 Then
& && && && &p = p + 1
& && && && &Sheets(&明细账&).Cells(r + 32, 5) = &第& & p & &页& & & - & & &共& & 总页 & &页&
& && && && &r = r + 7
& && && && &n = n - 25
& && && & End If
& && && & Cells(r, 1) = .Cells(行, 3) ' 月
& && && & Cells(r, 4) = &本年累计& '& &4&&摘要
& && && & Cells(r, 8) = VBA.Round(余额, 2)
& && && & Cells(r, 7) = 方向
& && && & Cells(r, 5) = VBA.Round(ljfse(科目代码, Cells(r, 1), 1), 2) ' 借方
& && && & Cells(r, 6) = VBA.Round(ljfse(科目代码, Cells(r, 1), -1), 2) ' 贷方
& && && & temps = &a& & r & &:& & &h& & r
& && && & Range(temps).Interior.ColorIndex = 37& &'本年累计颜色
& && && & r = r + 1
& && && & n = n + 1
& && && & If n & 25 Then
& && && && &p = p + 1
& && && && &Sheets(&明细账&).Cells(r + 32, 5) = &第& & p & &页& & & - & & &共& & 总页 & &页&
& && && && &r = r + 7
& && && && &n = n - 25
& && && & End If
& & End If
& &Next 行
& &End With
& &dymk &明细账&& &'明细账打印格式 原始格式
& &Unload dypzfrm
& &cs(13) = 0 '标记科目次数数组未初始化
& &ecgx = 0 ' 清除二次更新标记
& &Application.Calculation = xlCalculationAutomatic
& &ActiveSheet.Protect Password:=&1&
& &Application.ScreenUpdating = True
阅读权限50
在线时间 小时
无附件无真相
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel中进行表格把英文翻译成中文的操作技巧_Excel表格
Excel中进行表格把英文翻译成中文的操作技巧
学习啦【Excel表格】 编辑：晓生
　　日常生活中，使用办公软件OFFICE，有时候会遇到Excel怎么把英文翻译成中文的问题。那么，Excel怎么把英文翻译成中文呢?今天，学习啦小编就教大家在Excel中进行表格把英文翻译成中文的操作技巧。
　　Excel中进行表格把英文翻译成中文的操作步骤：
　　第一步，桌面下新建一个文档。
　　第二步，打开后，主界面如图所示。
　　第三步，点击审阅。
　　第四步，继续点击翻译。
　　第五步，右侧弹出信息检索界面。
　　第六步，输入一个英文单词。
　　第七步，点击回车或者图示的按钮，就可以看到英文翻译结果。
Excel中进行表格把英文翻译成中文的操作相关文章：
本文已影响 人
[Excel中进行表格把英文翻译成中文的操作技巧]相关的文章
看过本文的人还看了
【Excel表格】图文推荐