思享工具箱

【VBA编程】15.WorkSheet对象常用属性

摘要：
Sub使用Columns属性()DimwkAsWorkbookDimwtAsWorksheetSetwk=Application.Workbookswk.ActivateSetwt=WorksheetsWithwt.Columns.Font.Bold=True.Size=15.ColorIndex=13EndWithMsgBox"设置完成",vbOKOnly,"使用Columns属性"Setwk=NothingSetwt=NothingEndSubNext属性用于返回表示下一个工作表的WorkSheet对象，如果引用此属性的对象为一个区域，则属性会模拟“TAB”,返回下一个单元格，而不选中下一个单元格Subnext属性()DimwkAsWorkbookDimwtAsWorksheetSetwk=Application.Workbookswk.ActivateSetwt=wk.Worksheetswt.Cells(2,2).Next="OLIVER"EndSubPrevious属性用于返回表示前一个工作表的Worksheet对象，如果使用此属性时，所使用的对象为区域对象，则此属性的作用将效仿“Shift+Table”快捷键，但此属性只是返回上一个单元格，不是选中。SubPrevious属性()DimwkAsWorkbookDimwtAsWorksheetSetwk=Application.Workbookswk.ActivateSetwt=wk.Worksheetswt.Cells(2,2).Previous="OLIVER"EndSubRange返回一个Range对象，表示一个单元格或者一个单元格区域。

【Cells属性】

Cells属性用于返回一个Range对象，表示工作表中所有的单元格，包括已经使用的单元格和未使用的单元格。

【代码区域】

Sub使用Cells属性()
    '声明变量
    Dim wk AsWorkbook
    Dim wt AsWorksheet
    '赋值
    Set wk = Application.Workbooks(1)
    wk.Activate  '激活工作簿
    Set wt = wk.Worksheets(1) '选择工作簿
    Withwt.Cells.Font
            .Bold = True
            .Italic = True
            .Size = 12
            .ColorIndex = 25
    End With
    MsgBox "设置完成", vbOKOnly, "使用Cells属性"
    Set wk = Nothing
    Set wt = Nothing
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第1张

【VBA编程】15.WorkSheet对象常用属性第2张

【Columns属性】

Columns用于返回一个Range对象，表示当前工作簿中指定区域的列。

【代码区域】

Sub使用Columns属性()
    Dim wk AsWorkbook
    Dim wt AsWorksheet
    Set wk = Application.Workbooks(1)
    wk.Activate
    Set wt = Worksheets(1)
    With wt.Columns(1).Font
            .Bold = True
            .Size = 15
            .ColorIndex = 13
    End With
     MsgBox "设置完成", vbOKOnly, "使用Columns属性"
    Set wk = Nothing
    Set wt = Nothing
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第3张

【VBA编程】15.WorkSheet对象常用属性第4张

【Next属性】

Next属性用于返回表示下一个工作表的WorkSheet对象，如果引用此属性的对象为一个区域，则属性会模拟“TAB”,返回下一个单元格，而不选中下一个单元格

【代码区域】

Subnext属性()
  Dim wk AsWorkbook
  Dim wt AsWorksheet
  Set wk = Application.Workbooks(1)
  wk.Activate
  Set wt = wk.Worksheets(1)
  wt.Cells(2, 2).Next = "OLIVER"
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第5张

【Previous属性】

Previous属性用于返回表示前一个工作表的Worksheet对象，如果使用此属性时，所使用的对象为区域对象，则此属性的作用将效仿“Shift+Table”快捷键，但此属性只是返回上一个单元格，不是选中。

【代码区域】

SubPrevious属性()
Dim wk AsWorkbook
  Dim wt AsWorksheet
  Set wk = Application.Workbooks(1)
  wk.Activate
  Set wt = wk.Worksheets(1)
  wt.Cells(2, 2).Previous = "OLIVER"
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第6张

【Range属性】

Range返回一个Range对象，表示一个单元格或者一个单元格区域。

【代码区域】

SubRange属性()
Dim wk AsWorkbook
  Dim wt AsWorksheet
  Set wk = Application.Workbooks(1)
  wk.Activate
  Set wt = wk.Worksheets(1)
  wt.Range(Cells(1, 1), Cells(5, 3)).Select
  WithSelection.Interior
    .Color = 65535
  End With
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第7张

更多Range资料：http://www.cnblogs.com/OliverQin/p/6198441.html

【Rows属性】

Rows属性是一个只读属性，用于返回一个Range对象，表示制定工作表中的所有行。

【代码区域】

Subrow应用()
    For Each rw In Rows("1:4") '第一行到第四行
    If rw.Row Mod 2 = 0 Then
    rw.RowHeight = 12
    rw.Value = "数据"
    End If
    Next
End Sub

【执行结果】

【VBA编程】15.WorkSheet对象常用属性第8张

标签：#单元格#vba#wt | 浏览：426 | 发布日期：

免责声明：文章转载自《【VBA编程】15.WorkSheet对象常用属性》仅用于学习参考。如对内容有疑问，请及时联系本站处理。

上篇javascript实现图片延迟加载方法汇总(三种方法)解决来QQ消息后歌曲音量降低问题下篇

宿迁高防，2C2G15M，22元/月；香港BGP，2C5G5M，25元/月 雨云优惠码：MjYwNzM=

相关文章

转载：winform的DataGridView中用C#实现按钮列置灰

DataGridView 控件包括 DataGridViewButtonCell 类，该类用于显示具有类似按钮的用户界面 (UI) 的单元格。但 DataGridViewButtonCell 不提供禁用由单元格显示的按钮外观的方式。下面的代码示例演示如何自定义 DataGridViewButtonCell 类来显示可以显示为禁用的按钮。本示例定义一个新的单...

提取PPT文件中的Vba ProjectStg Compressed Atom。Extract PPT VBA Compress Stream

http://msdn.microsoft.com/en-us/library/cc313106(v=office.12).aspx 微软文档 PartI ****************************************************************************** 简单讲一下如何找到VbaProjectStg...

用VBA去除Excel工作表保护密码

今天帮同事解决个EXCEL问题，现记在这，以作备忘 现象： 想要修改保护单元 格的内容，在使用“工具”菜单“保护”子菜单的“撤消工作表保护”命令，这时要求输入密码。 解决方案：网上找到一文http://www.excel123.cn/Article/excelvba/200812/126.html 1.按Alt+F11，打开VBA编辑器。...

VBA在32位下没问题，到64位异常报错

64 位 Visual Basic for Applications 概述Microsoft Visual Basic for Applications (VBA) 是 Microsoft Office 附带的 Visual Basic 版本。在 Microsoft Office 2010 中，VBA 包括可使 VBA 代码同时在 32 位和 64 位环境...

【转载】JExcelApi(JXL)学习笔记

在公司的项目中，有excel生成、导出的需求，因此学习了用JXL读写excel，做个简单的笔记，以供参考。      实现用java操作excel的工具，一般用的有两个：一个是JXL，另一个是apache的POI。JXL的功能不如POI强大，但是对中文的支持性好，因此在中文项目中用JXL的比较多。 源代码介绍     JXL的源代码有11个包：    ...

原创：用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板

原创：用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一、主要实现以下功能：1、用鼠标选择单元格（可谓连续单元格，也可为不连续的）后，按照要求格式“证件号码：+选定内容+“，”+”选定内容“等等进行合并2、合并后的内容，直接复制到剪切板二、代码示例： SubTestA() Set a = NewDataObject '情况存放合并结果的单...

最新文章

随机推荐

思享工具箱导航