带你入门VBA系列之：不懂的代码快点贴过来

grryv

蓝版主的这个帖子太好了！真是我等菜鸟步入Excel这个神圣殿堂的.请答复上述帖子

grryv

蓝版主:请上线解答问题

╰⊙∧⊙╯

  

  For i = 1 To [a65536].End(xlUp).Row
    Rows(i).Sort Key1:=Range("A" & i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
        :=xlPinYin
    Next
请哪位注解一下“加粗”的代码，谢谢！

碧海晴天

下面这段代码是什么意思？  谢谢！

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Const MyPassword$ = ""
Public Const MyBookPassword$ = "A#?1&2E*E5R6*5@35453Q23865TYYRRTY435987-09=12@#$#@%^%&(&)(_+(%&^%@$%#@#$"

marshzlh

请老师帮注解下面语句，是用来取值的，刚学，只看到结果不知具体的过程。谢谢！

Sub cc()
    Dim arr1, arr2, arr3, i%, x%, m%
    With Sheets("班务时长")
        arr1 = .Range("a2:b" & .[a65536].End(xlUp).Row)
    End With
    With Sheets("员工列表")
        arr2 = .Range("a2:d" & .[a65536].End(xlUp).Row)
    End With
    ReDim arr3(1 To UBound(arr2), 1 To 3)
    For i = 1 To UBound(arr1)
        If arr1(i, 2) <> "休" Then
            For x = 1 To UBound(arr2)
                If arr2(x, 1) = arr1(i, 1) Then
                    k = k + 1
                    For m = 1 To 3
                        arr3(k, m) = arr2(x, m + 1)
                    Next
                End If
            Next
        End If
    Next
    [a3].Resize(UBound(arr3), 3) = arr3
End Sub

xieyun1130

Private Sub CommandButton1_Click()
   With Sheet1
       Set c = .[b:b].Find([h3], , , 1)
          If Not c Is Nothing Then MsgBox "单号重复!", 48, "提示": Exit Sub
              n = .Range("a65536").End(xlUp).Row + 1
          For i = 7 To 16
             If Cells(i, 2) <> "" Then
               .Cells(n, 1) = [c3]
               .Cells(n, 2) = [h3]
               .Cells(n, 3) = [c4]
               .Cells(n, 4) = [h4]
               .Range("d" & n & ":j" & n) = Range("b" & i & ":h" & i).Value
               n = n + 1
            End If
       Next
          [h3] = Format(Val(Cells(3, 5).Value) + 1, "00000000")
          Range("c3:C4,H4,b7:h16").ClearContents
          MsgBox "数据已保存！"
   End With
End Sub
有附件上传，哪位高人可以帮我，修改一下，入库单号可以自动生成，G例的可以自动计算，在采购入库数据库里加一列“日期”，我保存那数据库里没有日期那一列，查询的时候，入库日期变成了物料代码，很晕，求大家帮个忙，很急切。

mafutz

好消息,我终于有机会了.

geminikowui

Dim arr, d As Object
Columns(1).Interior.ColorIndex = xlNone
Set d = CreateObject("scripting.dictionary")

arr = Range("a2:c" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)

咨询一下，如何将Range("a2:c" & Range("a65536")修改为不从最后一行开始计算，而是从指定的变量的行进行计算呢，但这个从最后计算的行数要根据计算的变量，麻烦指导一下，谢谢

闻启学

请问各位高手！这个是什么意思，Range("a2:c" & Range("a65536").End(xlUp).Row)，我知道是知道取值到空白的单元格之前，具体什么意思我不了解！

Range("a65536‘)这个是什么意思
xlUp ，xlNone 什么意思？？？

请指教

yinhu11

中过宏病毒，已经删了病毒，但还带宏删不了，想删宏不删公式和格式。感染过很多文件，有没有批量处理？看附件的文件