注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

vba 自动获取表的行  

2008-01-24 18:14:58|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
x = Range("b65536").End(xlUp).Row
当前表的行数

工作表行和列的操作
[示例01]隐藏行
Sub HideRow()
   Dim iRow As Long
   MsgBox "隐藏当前单元格所在的行"
   iRow = ActiveCell.Row
   ActiveSheet.Rows(iRow).Hidden = True
   MsgBox "取消隐藏"
   ActiveSheet.Rows(iRow).Hidden = False
End Sub

[示例02]隐藏列
Sub HideColumn()
   Dim iColumn As Long
   MsgBox "隐藏当前单元格所在列"
   iColumn = ActiveCell.Column
   ActiveSheet.Columns(iColumn).Hidden = True
   MsgBox "取消隐藏"
   ActiveSheet.Columns(iColumn).Hidden = False
End Sub

[示例03]插入行
Sub InsertRow()
   Dim rRow As Long
   MsgBox "在当前单元格上方插入一行"
   rRow = Selection.Row
   ActiveSheet.Rows(rRow).Insert
End Sub

[示例04]插入列
Sub InsertColumn()
   Dim cColumn As Long
   MsgBox "在当前单元格所在行的左边插入一行"
   cColumn = Selection.Column
   ActiveSheet.Columns(cColumn).Insert
End Sub

[示例05]插入多行
Sub InsertManyRow()
   MsgBox "在当前单元格所在行上方插入三行"
   Dim rRow As Long, i As Long
   For i = 1 To 3
     rRow = Selection.Row
     ActiveSheet.Rows(rRow).Insert
   Next i
End Sub

[示例06]设置行高
Sub SetRowHeight()
   MsgBox "将当前单元格所在的行高设置为25"
   Dim rRow As Long, iRow As Long
   rRow = ActiveCell.Row
   iRow = ActiveSheet.Rows(rRow).RowHeight
   ActiveSheet.Rows(rRow).RowHeight = 25
   MsgBox "恢复到原来的行高"
   ActiveSheet.Rows(rRow).RowHeight = iRow
End Sub

[示例07]设置列宽
Sub SetColumnWidth()
   MsgBox "将当前单元格所在列的列宽设置为20"
   Dim cColumn As Long, iColumn As Long
   cColumn = ActiveCell.Column
   iColumn = ActiveSheet.Columns(cColumn).ColumnWidth
   ActiveSheet.Columns(cColumn).ColumnWidth = 20
   MsgBox "恢复至原来的列宽"
   ActiveSheet.Columns(cColumn).ColumnWidth = iColumn
End Sub

[示例08]恢复行高列宽至标准值
Sub ReSetRowHeightAndColumnWidth()
   MsgBox "将当前单元格所在的行高和列宽恢复为标准值"
   Selection.UseStandardHeight = True
   Selection.UseStandardWidth = True
End Sub
  评论这张
 
阅读(998)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017