温馨提示：暂时只支持15个文字以下的输入！（输入后按ENTER键或点击查询）粤语发音词典（）
根据粤拼查找文字：
使用说明：在输入框输入单字、词汇或句子，点击查询即可。网站智能判断粤语词汇，并列出相关解释。如有遇程序出错、不能发音以及发展建议等，请反馈给我们，我们万分感谢！微信查发音，请扫描二维码。
　大家最近在学的词句：&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、&&、程序实现字符串中文翻译成英文！
[问题点数：100分，结帖人gaofenfei]
程序实现字符串中文翻译成英文！
[问题点数：100分，结帖人gaofenfei]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2009年5月 .NET技术大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。天津市欣程达餐饮管理服务有限公司
天津市欣程达餐饮管理服务有限公司
公司介绍天津市欣程达餐饮管理服务有限公司，业务经理是赵洪娟，公司注册资本未提供，我公司的办公地址位于交通便利的天津 天津河东 河东区卫国道８０号海源宾馆８３２０房间，我们有最好的产品和专业的销售和技术团队，我们为客户提供最好的产品、良好的技术支持、健全的售后服务，天津市欣程达餐饮管理服务有限公司是天津河东餐饮业行业知名企业，如果您对我公司的产品服务有兴趣，请在线留言或者来电咨询。 您可能喜欢基本资料主营产品
公司注册地址 天津 天津河东 河东区卫国道８０号海源宾馆８３２０房间
业务经理赵洪娟
邮政编码300161
电话(022)
（温馨提示：请核实资质，谨防诈骗）
注册资金未提供网址/tjhedong/co/13584.htm
信用等级
企业人气第443次被浏览
所属分类
所属城市
小提示本页是 [天津市欣程达餐饮管理服务有限公司] 在顺企网的黄页介绍页，如果您是负责人并希望管理这家公司， 认领该企业后可以删除广告，或者信息有误需要纠正或者删除，请 [
] 天津市欣程达餐饮管理服务有限公司的地图百度地图中的红点是天津市欣程达餐饮管理服务有限公司在天津河东的具体位置标注，您可以用鼠标拖动查找，双击放大缩小地图天津河东相关餐饮业单位 天津河东推荐企业
免责声明：本站信息由企业自行发布，本站所有服务免费，请提防诈骗，顺企网不负任何责任
顺企网版权所有
发布批发采购信息、查询企业黄页，上顺企网查看: 1420|回复: 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
在线时间 小时
无附件无真相
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师首航欣程首航欣程在售住宅 已有4576人关注14人意向购买最新活动一手掌握，看房活动专车到达，看房团购活动报名中 . . .姓名:手机: 团购QQ群
028-& 环境：规划：配套：开发商：首航欣程网友点评陷阱楼盘，12000买来安置房配置；千万别买；他们业主都在维权找开发商闹同价位楼盘12000元/㎡11000元/㎡12000元/㎡12000元/㎡11000元/㎡12000元/㎡12000元/㎡11000元/㎡12000元/㎡11500元/㎡周边楼盘8700元/㎡5800元/㎡7500元/㎡价格待定11000元/㎡11500元/㎡25000元/㎡8500元/㎡30000元/㎡15000元/㎡