excel中宏简单应用

 
 1. Range("B27") 表示 第27行第2列的单元格的值
2. ActiveCell.Offset(1, 2)标识活动单元格的 下移一行两列
3. ActiveCell.Row获得活动单元的行数
4. Cells(1,3).Value 标识第一行第3列的单元格的值， 表示当前工作表
5. Worksheets("Sheet1")表示工作表Sheet1

 

 'Range("B27") = ActiveCell.Row  把当前单元格的**行数**赋值给“B27”单元格

 'Range("B27") = ActiveCell.Rows 把当前单元格的**值**赋值给“B27”单元格
 

   ' Dim mrow As Integer
   ' mrow = ActiveCell.row + 1
   ' Cells(1, 3).Value = 111
   
   ' Range("B28") = ActiveCell.Value  把活动单元格的值付给“B28”

复制当前活动单元格所在行数的值（前20列）到下一行
    Dim mrow As Integer
    Dim mcol As Integer   
    mrow = ActiveCell.row
    For mcol = 1 To 20
    Cells(mrow + 1, mcol).Value = Cells(mrow, mcol).Value
    Next mcol

获得每周周一日期，
Sub getdate()
ActiveCell.Value = Date - Weekday(Date, vbMonday) + 1
End Sub
'注释 Date 获得当前日期  Weekday(Date, vbMonday)获得对应时间的是周几

ActiveCell.Borders.Color = RGB(255, 0, 0)
ActiveCell.Font.Color = RGB(255, 0, 0)