- <P>Messagebox.Show ("当前工作簿名称是" & AW.Name) '当前工作簿名称
- Messagebox.Show ("当前工作表名称是" & AW.ActiveWorksheet.Name) '当前工作表名称
- Messagebox.Show ("指定工作表名称是" & AW.Worksheets("Sheet2").Name) '指定工作表名称
- AW.Worksheets("Sheet2").Select '显示指定的工作表
- AW.Worksheets("Sheet2").Range("A1").ClearContents '清除sheet2 A1单元格的内容
- AW.Worksheets("Sheet2").Range("A1").Value = "给A1单元格赋值1" '在Sheet2 A1单元格填入值
- AW.Worksheets("Sheet2").Cells(1, 1).Value = "第二行第二列" '在Sheet2 B2单元格填入值 '
- AW.Worksheets("Sheet2").Range("C3:D4").Merge '合并Sheet2 C3:D4单元格
- AW.Worksheets("Sheet2").Range("C3:D4").UnMerge 'Sheet2 C3:D4单元格取消合并</P>
- <P>AW.ActiveWorksheet.WindowInfo.RangeSelection '活动单元格区域</P>
复制代码
|
|
hessen