vba代码_淘宝帖

win2009

不想记单词，其实也记不住，所以在书写代码时采用英文输入法。
现在发一个用类模块做的，拼音提示输入法，
好不好全看新手的需要，高手略过

把附件里的文本添加到“类模块”，按下面方法，即可得到提示
数据可以继续增加............
类的另类应用.rar (18.4 KB, 下载次数: 187)

2014-4-22 23:56 上传

点击文件名下载附件

用法：在模块声明 Public pp As New 拼音输入法 _
然后再代码窗口输入pp.之后，再输入拼音首字母 _
在提示框里选中需要的代码 , 之后删除不要的部分OK
Public hqwb_获取文本_Gettext
Public hddyg_活动单元格_Activecell
Public hdgzb_活动工作表_Activesheet
Public hdck_活动窗口_Activewindow
Public hdgzb_活动工作簿_Activeworkbook
Public tj_添加_Add
Public dz_地址_Address
Public tjtx_添加图形_Addshape
Public hmy_后面于_After
Public jglx_警告类型_Alertstyle
Public bq_并且_And
Public yy_应用_Apply

win2009

组合框右键菜单
尽管复合框已经提供右键菜单，但是他的  Change  事件不太好用
所以改制了这个

Public WithEvents cobox As MSForms.ComboBox
Public WithEvents frm As MSForms.UserForm
Private Sub cobox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        On Error Resume Next
        Dim Action As Variant
        With Application.CommandBars("ShortCut")
            .Controls(1).Enabled = cobox.SelLength > 0
            .Controls(2).Enabled = .Controls(1).Enabled
            .Controls(3).Enabled = cobox.CanPaste
            .Controls(4).Enabled = .Controls(1).Enabled
            .Controls(5).Enabled = True
            .ShowPopup
        End With
    End If
End Sub
'模块里的代码
'Public ActiveCT As Object
'Public Sub 生成右键菜单()
'    Dim ShortCutMenu As CommandBar
'    Dim ShortCutMenuItem As CommandBarButton
'    Dim sCaption As Variant
'    Dim iFaceId As Variant
'    Dim sAction As Variant
'    Dim i As Integer
'    sCaption = Array("剪切(&C)", "复制(&T)", "贴粘(&P)", "删除(&D)", "全选(&Q)")
'    iFaceId = Array(21, 19, 22, 1786, 25)
'    sAction = Array("COBOX_Cut", "COBOX_Copy", "COBOX_Paste", "COBOX_Delete", "COBOX_全选")
'    On Error Resume Next
'    Application.CommandBars("ShortCut").Delete
'    Set ShortCutMenu = Application.CommandBars.Add("ShortCut", msoBarPopup)
'    With ShortCutMenu
'        For i = 0 To 4
'            Set ShortCutMenuItem = .Controls.Add(msoControlButton)
'            With ShortCutMenuItem
'                .Caption = sCaption(i)
'                .FaceId = Val(iFaceId(i))
'                .OnAction = sAction(i)
'            End With
'        Next
'    End With
'End Sub
'Public Sub COBOX_Cut()
'    ActiveCT.ActiveControl.Cut
'End Sub
'Public Sub COBOX_Copy()
'    ActiveCT.ActiveControl.Copy
'End Sub
'Public Sub COBOX_Paste()
'    ActiveCT.ActiveControl.Paste
'End Sub
'Public Sub COBOX_Delete()
'    ActiveCT.ActiveControl.SelText = ""
'End Sub
'Sub COBOX_全选()
'    ActiveCT.ActiveControl.SetFocus    ' 文本框获得焦点
'    ActiveCT.ActiveControl.SelStart = 0    ' 从第一个字符之前开始
'    ActiveCT.ActiveControl.SelLength = Len(ActiveCT.ActiveControl.Text)    '突出显示
'End Sub
'Public Sub 删除右键菜单()
'    On Error Resume Next
'    Application.CommandBars("ShortCut").Delete
'End Sub
'''窗体里的代码
''Dim nrr(1 To 8) As 组合框右键
''Private Sub UserForm_Initialize()
''    Set ActiveCT = Me
''    删除右键菜单
''    生成右键菜单
''    For i = 1 To 8
''        Set nrr(i) = New 组合框右键        '创建新 "组合框右键" 对象
''        Set nrr(i).cobox = Controls("Combobox" & i)  '归类
''        Set nrr(i).frm = Me               '和类窗体关联
''    Next
''End Sub

百度不到去谷歌

技术高超! 不过个人觉得 既然选择了vba 就要适应它的规则 几个基本的英文单词都记不住 更别说vba还有自动提示
确却的说是只用记几个单词开头就行了  这都没法做到  怕是没法学好VBA吧
给新人用这个 怕是会惯坏了

liulang0808

有空拜读一下

VBA万岁

百度不到去谷歌 发表于 2014-4-23 07:57
技术高超! 不过个人觉得 既然选择了vba 就要适应它的规则 几个基本的英文单词都记不住 更别说vba还有自动提 ...

赞同3楼的观点。

liuyibull

看看，还是觉得应该掌握英语。

win2009

1. '代码缩进的学习
   
2. Sub miApplyIndent() '改制版，使中国人能看懂
   
3.     Dim 当前模块
   
4.     Dim i As Long, k As Long
   
5.     Dim 一行 As String, j As Integer, bool As Boolean
   
6.     Dim Tool As Boolean, d As Boolean
   
7.     Dim a As Boolean, Dool As Boolean
   
8.     Set 当前模块 = ActiveWorkbook.VBProject.VBE.ActiveCodePane
   
9.     k = ActiveWorkbook.VBProject.VBE.SelectedVBComponent.CodeModule.CountOfLines
   
10.     sr = 当前模块.CodeModule.Lines(1, k) ' 取出全部代码
    
11.     Srr = Split(sr, vbCrLf)
    
12.     '下面开始对文本处理
    
13.     For i = 0 To UBound(Srr)
    
14.         Srr(i) = Trim(Srr(i))
    
15.     Next i
    
16.     For i = 0 To UBound(Srr)
    
17.         一行 = Srr(i)
    
18.         Select Case Left(一行, IIf(InStr(一行, " ") = 0, 999, InStr(一行, " ") - 1))
    
19.         Case "Do", "For", "Private", "Select", "Sub", "While", "With", "Function"
    
20.             a = True
    
21.         Case "If"
    
22.             If Right(一行, 4) = "Then" Then a = True
    
23.         Case "Loop", "Next", "End"
    
24.             d = True
    
25.         Case "Case", "Else", "ElseIf"
    
26.             d = True
    
27.             a = True
    
28.         End Select
    
29.         If Right(一行, 2) = " _" And Not bool Then
    
30.             a = True
    
31.             bool = True
    
32.         ElseIf Right(一行, 2) <> " _" And bool Then
    
33.             Dool = True
    
34.             bool = False
    
35.         End If
    
36.         If Tool Then j = j + 1: Tool = False
    
37.         If d Then j = j - 1: d = False
    
38.         On Error GoTo lIndentError
    
39.         Srr(i) = Space$(j * 4) & 一行     '原来你在这里，哈哈
    
40.         On Error GoTo 0
    
41.         If a Then j = j + 1: a = False
    
42.         If Dool Then j = j - 1: Dool = False
    
43.         当前模块.CodeModule.ReplaceLine i + 1, Srr(i) ' 替换
    
44.     Next i
    
45.     Exit Sub
    
46. lIndentError:
    
47.     If j < 0 Then j = 0
    
48.     Resume Next
    
49. End Sub
    
50. 
    
51. [2014-04-24 12:34:06]
    
52. 
    
53. '翻译结果
    
54. 
    
55. 过程 miapplyindent()
    
56.     定义变量 当前模块
    
57.     定义变量 i 为 长整型值 ,k 为 长整型值
    
58.     定义变量 一行 为 字符串 ,j 为 整型值 ,bool 为 布尔值
    
59.     定义变量 tool 为 布尔值 ,d 为 布尔值
    
60.     定义变量 a 为 布尔值 ,dool 为 布尔值
    
61.     设置 当前模块 = 活动工作簿.VB工程.vbe.activecodepane
    
62.     k = 活动工作簿.VB工程.vbe.selectedvbcomponent.代码模块.countoflines
    
63.     sr = 当前模块.代码模块.行数值(1 ,k)
    
64.     srr = 分割字符串(sr ,回车换行符)
    
65.     循环范围 i = 0 到 数组上限(srr)
    
66.         srr(i) = 消除两端空格(srr(i))
    
67.     下一句 i
    
68.     循环范围 i = 0 到 数组上限(srr)
    
69.         一行 = srr(i)
    
70.         选定 条件情况 截取左侧(一行 ,如果(包含位置(一行 ," ") = 0 ,999 ,包含位置(一行 ," ") - 1))
    
71.         条件情况 "do" ,"for" ,"private" ,"select" ,"sub" ,"while" ,"with" ,"function"
    
72.             a = 真
    
73.         条件情况 "if"
    
74.             如果 截取右侧(一行 ,4) = "那么" 那么 a = 真
    
75.         条件情况 "loop" ,"next" ,"end"
    
76.             d = 真
    
77.         条件情况 "case" ,"else" ,"elseif"
    
78.             d = 真
    
79.             a = 真
    
80.         结束 选定
    
81.         如果 截取右侧(一行 ,2) = " _" 并且 非 bool 那么
    
82.             a = 真
    
83.             bool = 真
    
84.         否则如果 截取右侧(一行 ,2)<>" _" 并且 bool 那么
    
85.             dool = 真
    
86.             bool = 假
    
87.         结束 如果
    
88.         如果 tool 那么 j = j + 1: tool = 假
    
89.         如果 d 那么 j = j - 1: d = 假
    
90.         当 错误 跳至 lindenterror
    
91.         srr(i) = space$(j * 4) & 一行     
    
92.         当 错误 跳至 0
    
93.         如果 a 那么 j = j + 1: a = 假
    
94.         如果 dool 那么 j = j - 1: dool = 假
    
95.         当前模块.代码模块.替换行 i + 1 ,srr(i)
    
96.     下一句 i
    
97.     退出 过程
    
98. lindenterror:
    
99.     如果 j < 0 那么 j = 0
    
100.     转到 下一句
     
101. 结束 过程
     
102. 
     
103. 
     
104. 
     
105. 
     

复制代码

win2009

1. Public Sub 获取模块代码()
   
2.     With ThisWorkbook.VBProject.VBComponents("拼音输入法").CodeModule
   
3.         n = .CountOfLines
   
4.         tex = .lines(1, n)
   
5.     End With
   
6.     Debug.Print tex
   
7. End Sub
   
8. 
   
9. Public Sub 插入代码()
   
10.     With ActiveWorkbook.VBProject.VBComponents("xxxxxxxxxxxx").CodeModule
    
11.         n1 = .CountOfLines + 1
    
12.         .InsertLines n1, sr
    
13.     End With
    
14. End Sub
    

复制代码

liucqa

尽量用英文，否则操作系统换成其他语言版本会出问题

我看过繁体的、德文的、英文的，还有别的什么文的，反正只要不是英文的，就统统趴窝

win2009

翻译代码，准确的说是给代码加注释，这是新人最渴望的功能。
刚学时看到坛子里的一个帖子，大家讨论的热火朝天，当时真希望
那个程序能够不断更新，但是就是没有下文。
后来自己动手搞了个网页翻译的东西，总感觉不成熟，所以不敢拿出来
近日终于对那个东西进行了一番改造，并利用坛子里的一个程序，实现在
vbe 窗口翻译代码的功能，现在拿出来与新人们共享，高手们是不需要的
vba 几乎能够解决别人的所有难题，但是解释自己却总是十分吝啬
所以，很多的帮助方面的电子书铺天盖地。现在终于可以向耐心传授技艺
的老师们交上一份答卷了，这个小东西对如我一样的新手肯定会有所帮助。
坛子里“vba 常用代码快速输入”（以下简称“输入”） 这个程序
大家一定知道吧，我就是给这个程序打了个补丁。