vba代码_淘宝帖

win2009 · 发表于 2014-4-25 23:08

1：请先下载那个程序
2：下载1楼那个“拼音输入法”类模块，并添加到“输入”中
3：开始操作那个加载宏版
'============================
一：把类模块 "bar" 中这句： dim 行 As Long 改成： Public 行 As Long
剪切到模块 "Instal" 顶部如下
Public Const TS As String = "系统管理员温馨提醒"
Dim Only As New Collection
Public tex As String
Public 行 As Long
二：向自动宏 Auto_Open 里加东西结果如下
Public Sub Auto_Open()
Auto_Close
Installation
' 加载拼音输入法
With ThisWorkbook.VBProject.VBComponents("拼音输入法").CodeModule
n = .CountOfLines
tex = .Lines(1, n)
End With
End Sub
三：在模块 “OtherFunction”里的“代码缩进”下面添加代码如下
Set MenuEvent = New Bar
Set MyControl = .Controls.Add(msoControlButton)
With MyControl
.Caption = "代码翻译"
.Style = msoButtonIconAndCaption
.FaceId = 621
.BeginGroup = True
Set MenuEvent.Myevent = Application.VBE.Events.CommandBarEvents(MyControl)
Only.Add MenuEvent
End With
四：在类模块 “bar” 代码缩进下添加代码如下
Case "代码缩进"
Call miApplyIndent
Case "代码翻译"
Call daima_fanyi

复制代码

win2009 · 发表于 2014-4-25 23:10

五：打开模块 “OtherFunction” 添加代码如下
已经存在的 “miApplyIndent”过程用下面的代码
替换掉，这个比那个快
Sub miApplyIndent()
Dim 当前模块
Dim i As Long, k As Long
Dim 一行 As String, j As Integer, bool As Boolean
Dim Tool As Boolean, d As Boolean
Dim a As Boolean, Dool As Boolean
Set 当前模块 = ActiveWorkbook.VBProject.VBE.ActiveCodePane
k = ActiveWorkbook.VBProject.VBE.SelectedVBComponent.CodeModule.CountOfLines
sr = 当前模块.CodeModule.Lines(1, k)
srr = Split(sr, vbCrLf)
For i = 0 To UBound(srr)
srr(i) = Trim(srr(i))
Next i
For i = 0 To UBound(srr)
一行 = srr(i)
Select Case Left(一行, IIf(InStr(一行, " ") = 0, 999, InStr(一行, " ") - 1))
Case "Do", "For", "Private", "Select", "Sub", "While", "With", "Function"
a = True
Case "If"
If Right(一行, 4) = "Then" Then a = True
Case "Loop", "Next", "End"
d = True
Case "Case", "Else", "ElseIf"
d = True
a = True
End Select
If Right(一行, 2) = " _" And Not bool Then
a = True
bool = True
ElseIf Right(一行, 2) <> " _" And bool Then
Dool = True
bool = False
End If
If Tool Then j = j + 1: Tool = False
If d Then j = j - 1: d = False
On Error GoTo lIndentError
srr(i) = Space$(j * 4) & 一行
On Error GoTo 0
If a Then j = j + 1: a = False
If Dool Then j = j - 1: Dool = False
当前模块.CodeModule.ReplaceLine i + 1, srr(i)
Next i
Exit Sub
lIndentError:
If j < 0 Then j = 0
Resume Next
End Sub

复制代码

win2009 · 发表于 2014-4-25 23:11

本帖最后由 win2009 于 2014-4-27 23:29 编辑

'代码翻译
Sub daima_fanyi()
On Error Resume Next
Dim str, arr(), lrr, 当前模块
srr = Array("、", ":=", ".", "'", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "--", ">=", "].", "=", ">", "<", "<>", "(", ")", """""""", """""", ",")
lrr = Split(tex, vbCrLf)
ReDim arr(1 To UBound(lrr) + 1, 1 To 2)
For i = 0 To UBound(lrr)
tmp = lrr(i)
arr(i + 1, 1) = Split(tmp, "_")(2)
arr(i + 1, 2) = Split(tmp, "_")(1)
Next
'=============================
Set 当前模块 = ActiveWorkbook.VBProject.VBE.ActiveCodePane
k = ActiveWorkbook.VBProject.VBE.SelectedVBComponent.CodeModule.CountOfLines
cc = 当前模块.CodeModule.Lines(1, k)
'去注释
brr = Split(cc, vbCrLf)
For i = 0 To UBound(brr)
brr(i) = Replace(brr(i), ",", "、")
f = f & Split(brr(i), "'")(0) & vbCrLf
Next
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "(\r\n *)+"
f = .Replace(f, "$1")
End With
brr = Split(f, vbCrLf)
' '=============================
For i = 0 To UBound(brr)
For j = 0 To UBound(srr)
brr(i) = Replace(brr(i), srr(j), Space(1) & srr(j) & Space(1))
Next j
For Y = 1 To UBound(arr)
brr(i) = Replace(brr(i), arr(Y, 1), arr(Y, 2), , 1)
Next
'=================================================
For Z = 0 To UBound(srr)
brr(i) = Replace(brr(i), Space(1) & srr(Z) & Space(1), srr(Z))
brr(i) = Replace(Replace(brr(i), "、", " ，"), " ， ", "，")
Next Z
'=================================================
abc = abc & brr(i) & vbCrLf & "'"
Next
fanyizi = "'翻译结果" & vbCrLf & vbCrLf & "'" & abc
Application.VBE.SelectedVBComponent.CodeModule.InsertLines 行, fanyizi
End Sub
代码写入立即窗口
fanyizi = "'翻译结果" & vbCrLf & vbCrLf & "'" & f1
With ThisWorkbook.VBProject.VBE.Windows("立即窗口")
.Visible = True
.SetFocus
SendKeys "^a"
SendKeys "{DEL}"
DoEvents
Debug.Print fanyizi
End With

复制代码

win2009 · 发表于 2014-4-25 23:14

六：使用方法，在vbe 代码窗口，点击“代码翻译”直接在代码下面显示翻译内容
注意：翻译内容显示在光标闪动处。
七：不足之处：模块内代码都翻译了，所以，一定要把想看的放到一个单独模块中
测试，这个东西只能到此，不再深究。不支持 sql 翻译，这个谁都知道
代码需要调用“拼音输入法”类模块，把类模块顶部的注释部分删除。
[2014-04-25 17:21:58]

592rmb · 发表于 2014-4-25 23:30

好东西，感谢楼主

453563050 · 发表于 2014-4-25 23:32

感觉这个翻译的功能很牛

latexboy · 发表于 2014-4-25 23:36

有空拜读一下

win2009 · 发表于 2014-4-27 23:37

vb工程树状查看器，可以查看其他文件和本地文件
InkEdit，要引用这个控件

VB工程查看.rar (3.13 KB, 下载次数: 58)

smz2002 · 发表于 2014-4-28 08:59

这是新人最渴望的功能

ivccav · 发表于 2017-11-12 21:00

不需要这些吧？计算机语言就那么点单词还记不住？根本不需要英语四级啊。VBA都是自带提示的，输入点号加开头字母，根本不需要记住单词

		自动登录	找回密码
密码			免费注册