关于VBA的一些简单的编程问题

1、上面程序只循环一次；

step不写默认1，上面的程序循环变量与循环体中的变量一样，n在循环中被赋值为1，循环体中更新为5，next后等于6

2、变量名必须以字母开头，不可以是关键字，不能超出长度255，不能含有特殊符号（如@#&）

3、上面2个DO循环最大的区别是：前者先判断条件，满足时才执行循环体，后者先执行一次循环体在判断条件。

用代码实现自动化，界面就是一个按钮，点一下就完成了工资表的计算，或者自动生成工资条等。

这就是 *** 作界面。

Private Sub CommandButton3_Click() '检查填充

 Dim skUArr(1 To 1000, 1 To 3)

 Dim skUGs As Integer

 Dim hH As Integer

 Dim zlHH As Integer

 CellsFind(What:="Weight of box", After:=ActiveCell, LookIn:=xlFormulas _

      , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

      MatchCase:=False, MatchByte:=False, SearchFormat:=False)Activate

 zlHH = ActiveCellRow '重量所在行号

 skmGs = 0

 hH = 5

 Do While Trim(Cells(hH, 1)Text) <> ""

    skUGs = skUGs + 1

    skUArr(skUGs, 1) = Trim(Cells(hH, 1)Text)

    skUArr(skUGs, 2) = Trim(Cells(hH, 4)Text)

    skUArr(skUGs, 3) = Cells(hH, 10)Value

    hH = hH + 1

 Loop

 Dim fName As String

 Dim SBook As Workbook

 Call SelectFile(fName)

 Set SBook = WorkbooksOpen(fName)

 Dim M_sku As String, M_fnSku As String, M_qty As Integer

 With SBookSheets(1)

    For I = 1 To skUGs

       M_sku = Trim(Cells(5 + I - 1, 1)Text)

       M_fnSku = Trim(Cells(5 + I - 1, 4)Text)

       M_qty = Cells(5 + I - 1, 9)Value

       If skUArr(I, 1) <> M_sku Then

          MsgBox ("第" & I & "条记录的SKU不一致！")

          Exit Sub

       End If

       If skUArr(I, 2) <> M_fnSku Then

          MsgBox ("第" & I & "条记录的FNSKU不一致！")

          Exit Sub

       End If

       If skUArr(I, 3) <> M_qty Then

          MsgBox ("第" & I & "条记录的QTY不一致！")

          Exit Sub

       End If

    Next I

 End With

 Dim qtyArr() As Integer

 Dim boxGs As Integer

 Dim boxArr()

 With ThisWorkbookSheets(1)

    boxGs = Cells(4, 200)End(xlToLeft)Column

    ReDim qtyArr(1 To skUGs, 1 To boxGs)

    ReDim boxArr(1 To 4, 1 To boxGs)

    '读取数量

    For I = 1 To skUGs

       For J = 1 To boxGs

          qtyArr(I, J) = Cells(5 + I - 1, 12 + J - 1)Value

       Next J

    Next I

   '读取box

    For I = 1 To 4

       For J = 1 To boxGs

          boxArr(I, J) = Cells(zlHH + I - 1, 12 + J - 1)Value

       Next J

    Next I

 End With

 '填充

 With SBookSheets(1)

    'Cells(5, 12)Resize(skUGs, boxGs) = qtyArr

    'Cells(zlHH, 12)Resize(4, boxGs) = boxArr

    For I = 1 To skUGs

       For J = 1 To boxGs

          If qtyArr(I, J) > 0 Then

             Cells(5 + I - 1, 12 + J - 1) = qtyArr(I, J)

          End If

       Next J

    Next I

    For I = 1 To 4

       For J = 1 To boxGs

          Cells(zlHH + I - 1, 12 + J - 1) = boxArr(I, J)

       Next J

    Next I

 End With

 SBookSave

 MsgBox ("检查结果OK,填充完成！")

End Sub

这是其中一个按钮的代码，供参考。

这个非要编程吗？条件格式可以不？

VBA代码如下：

Sub AAA()

If (ActiveSheetRange("B2") = ActiveSheetRange("B1")) Or (ActiveSheetRange("B2") = ActiveSheetRange("B3")) _

Or (ActiveSheetRange("B2") = ActiveSheetRange("A2")) Or (ActiveSheetRange("B2") = ActiveSheetRange("C2")) Then

ActiveSheetRange("B2")InteriorColorIndex = 3

End If

End Sub

相比之下，条件格式更简单，如果用VBA就必须执行宏

以上就是关于关于VBA的一些简单的编程问题全部的内容，包括:关于VBA的一些简单的编程问题、vba程序是什么、excel vba编程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！