菜鸟谈VBA最最基础入门《原创》

ahpyapple

向老大的学习精神致敬，向老大是奉献精神致敬！

an-song

学习一下！感谢作者！

liushenglly

Private Sub CommandButton1_Click()
Application.Dialogs(525).Show
End Sub
这样能调出数据对话框吗

huang1he

上学的是很学过vb 语言 不晓得和VBA是不是一样的

zznjcs

好几天没来了,透口气.

jmshen

以下代码是统计word中出现2次或2次以上的字词，现现在想把出现1次的字词也统计列出，应怎样修改？
Sub WordsCountThree()
    Dim i As Range, aVar As Variable, aString As String, MyString As String, BS As String
    On Error Resume Next
    '友情提示
    MsgBox "受文档字数和可用内存以及WORD自身限制,您的操作可能会需要一段时间!", _
           vbOKOnly + vbExclamation, "Warnning"
    Select Case MsgBox("按YES统计字的出现频次,按NO统计词的出现频次,按CANCEL统计字与词!", _
                       vbYesNoCancel + vbInformation + vbDefaultButton2)
    Case vbYes
        BS = "字数频次统计列表"
        For Each i In Me.Characters    '字中循环
            If Asc(i) < -2050 And Asc(i) > -20319 Then
                If MyString = "" Then GoTo GNY
                If InStr(MyString, i.Text & ",") = 0 Then
GNY:                     aString = i.Text & ","
                    MyString = MyString & aString
                Else
                    On Error Resume Next    '忽略错误
                    Me.Variables.Add Name:=i.Text    '添加文档变量
                    If Err.Number <> 0 Then    '设置错误陷阱
                        Err.Clear    '清除错误
                        '将次数累加写入
                        Me.Variables(i.Text).Value = Me.Variables(i.Text).Value + 1
                    Else
                        '首次写入文档变量时,其初始值为2
                        Me.Variables(i.Text).Value = 2
                    End If
                End If
            End If
        Next
    Case vbNo
        BS = "词数频次统计列表"
        For Each i In Me.Words    '词中循环
            If i.Characters.Count > 1 Then    '按照中文习惯为二个以上为词组
                '判断是否为中文字符
                If Asc(i.Characters(1)) < -2050 And Asc(i.Characters(1)) > -20319 Then
                    If MyString = "" Then GoTo GNN    '循环初始阶段跳至GX行标签
                    If InStr(MyString, i.Text & ",") = 0 Then
GNN:                         aString = i.Text & ","    '加入","分隔符以便精确定位
                        MyString = MyString & aString
                    Else
                        On Error Resume Next    '忽略错误
                        Me.Variables.Add Name:=i.Text    '添加文档变量
                        If Err.Number <> 0 Then    '设置错误陷阱
                            Err.Clear    '清除错误
                            '将次数累加写入
                            Me.Variables(i.Text).Value = Me.Variables(i.Text).Value + 1
                        Else
                            '首次写入文档变量时,其初始值为2
                            Me.Variables(i.Text).Value = 2
                        End If
                    End If
                End If
            End If
        Next
    Case vbCancel
        BS = "字词数频次统计列表"
        For Each i In Me.Words    '词中循环
            '判断是否为中文字符
            If Asc(i.Characters(1)) < -2050 And Asc(i.Characters(1)) > -20319 Then
                If MyString = "" Then GoTo GNC    '循环初始阶段跳至GX行标签
                If InStr(MyString, i.Text & ",") = 0 Then
GNC:                     aString = i.Text & ","    '加入","分隔符以便精确定位
                    MyString = MyString & aString
                Else
                    On Error Resume Next    '忽略错误
                    Me.Variables.Add Name:=i.Text    '添加文档变量
                    If Err.Number <> 0 Then    '设置错误陷阱
                        Err.Clear    '清除错误
                        '将次数累加写入
                        Me.Variables(i.Text).Value = Me.Variables(i.Text).Value + 1
                    Else
                        '首次写入文档变量时,其初始值为2
                        Me.Variables(i.Text).Value = 2
                    End If
                End If
            End If
        Next
    End Select
    aString = "": MyString = ""    '重新初始化变量
    Application.ScreenUpdating = False    '关闭屏幕更新
    With Selection
        .EndKey unit:=wdStory    '移到文档末尾
        '作一个区分标记
        .InsertAfter vbCrLf & "------------------------------------" & BS & " ------------------------------------" & vbCrLf
        .EndKey unit:=wdStory    '移到文档末尾
        For Each aVar In Me.Variables    '在文档变量中循环
            '插入文档中
            aString = """" & aVar.Name & """出现频次:" & vbTab & aVar.Value & vbCrLf
            MyString = MyString & aString    '文本累加写入内存变量中,以加速运行
        Next
        .InsertAfter MyString
        '根据出现频次排序
        .Sort FieldNumber:="域 1", SortFieldType:= _
              wdSortFieldNumeric, SortOrder:=wdSortOrderDescending
    End With
    VarClear    '清空文档变量
    Me.UndoClear    '清空撤消
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub

liushenglly

我是菜鸟，想制作一个按钮，目的：先选中工作表中的任意单元格，按命令按钮，执行宏，粘贴b2单元格的全部。
不知代码如何写，请版主赐教

gaojian1968

这么好的学习资料，一定要学习学习。谢谢楼主无私奉献

hanyangming

太感谢了啊

zhkjtax

通俗易懂，已经学习了。谢谢