基础 API 及使用

---

Sub 提示()

    MsgBox "认识你很高兴"

End Sub

Sub 赋值()

    Range("D3").Value = "赋值"

End Sub

Sub 多个区域赋值()
    ' 确保指定工作表，例如 ActiveSheet、ThisWorkbook.Worksheets("Sheet1") 等
    Dim ws As Worksheet
    Set ws = ActiveSheet '

    ws.Range("A1:B10").Value = 300

End Sub

Sub 不连续区域赋值()

    Range("E3,F3").Value = 666

End Sub

Sub cells引用()

    Cells(5, 6).Value = 666

End Sub

Sub 中括号引用()

    [B2].Value = 300

End Sub

Sub 行引用()

    Rows("4:6").Select

End Sub

Sub 行引用多层()

    Rows("3:10").Rows(1).Select

End Sub

Sub 列引用()

    ' Columns("B:F").Select
    ' Columns(4).Select

    ' B-G中的 第二列
    Columns("B:G").Columns(2).Select

End Sub

Sub 列偏移()

    'Range("B1").Offset(5, 0).Select
    Range("B4").Offset(-3, -1).Select

End Sub

Sub 行和列首末端()

    Dim lastRow As Long
    lastRow = Range("A1").End(xlUp).Row + 1  ' 找到最后一行下一行的行号

    Cells(lastRow, 1).Value = 9
    Cells(lastRow, 2).Value = "小美"
    Cells(lastRow, 3).Value = "财务部"
    Cells(lastRow, 4).Value = 345
    Cells(lastRow, 5).Value = 5353
    Cells(lastRow, 6).Value = 5353
    Cells(lastRow, 7).Value = 7896

End Sub

Sub 窗体练习()

    Dim gonghao As String
    Dim xingming As String
    Dim bumen As String
    Dim lastRow As Long

    ' 弹出输入框获取信息
    gonghao = InputBox("请输入工号")
    xingming = InputBox("请输入姓名")
    bumen = InputBox("请输入部门")

    ' 找到A列最后一行 + 1（即新数据写入行）
    If IsEmpty(Range("A1")) Then
        lastRow = 1
    Else
        lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    End If

    ' 写入数据
    Cells(lastRow, 1).Value = gonghao
    Cells(lastRow, 2).Value = xingming
    Cells(lastRow, 3).Value = bumen

End Sub