VBA学习中的一些小经验
来源:互联网 发布:seo有哪些优化 编辑:程序博客网 时间:2024/04/30 02:28
最近因为项目的原因必须要用VBA做一个Tool,虽然很简单,但是因为以前从来没有用过VBA,还是觉得比较吃力,好在国内做VBA的人很多,一般的问题都可以百度出来,想着既然自己百度了这么多,还是整理一下,以便以后想不起来了到处找不到。
1.关于VBA字符串格式化
下面的博主写的很详细,我就直接贴过来就是了,非常感谢。
http://blog.csdn.net/jiumingmao11982/article/details/6976320
2.VBA对Cell赋值的几种方式
比如给 A1 赋值 5 ,有下面方法:
1、range("a1").value=5
2、cells(1,1)=5
3、[A1]=5
3.VBA字符串的拼接
字符串的拼接用&符号连接,如下
cTaxOut = "(消費税\" & cTax & ")"
4.Copy新建一个Sheet
Sheets("sheet1)").Copy After:=Sheets(i )
5.计算数据有多少行
endrow = Worksheets("Data sheet").[A100000].End(3).Row
//【】里面的数值一定要比预想的行数更大,比如这里的100000
6.设置文字的自适应显示
设置文字的字体大小以适应文本框的大小
对单元格进行缩小字体自动填充
Range("L19").ShrinkToFit = True
单元格 => 格式 => 自动填充
7.设置对齐方式
Public Sub 技巧4_151()
Dim myRange As Range
Set myRange = Range("A1") '指定任意单元格
With myRange
.Value = "ExcelVBA实用技巧大全"
.HorizontalAlignment = xlRight
MsgBox "水平右对齐。"
.HorizontalAlignment = xlLeft
MsgBox "水平左对齐。"
.HorizontalAlignment = xlCenter
MsgBox "水平居中。"
.HorizontalAlignment = xlDistributed
MsgBox "水平分散对齐。"
.VerticalAlignment = xlTop
MsgBox "垂直靠上。"
.VerticalAlignment = xlBottom
MsgBox "垂直靠下。"
.VerticalAlignment = xlCenter
MsgBox "垂直居中。"
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlGeneral
MsgBox "恢复默认。"
End With
Set myRange = Nothing
End Sub
来自以下博客,非常感谢
http://jenniferamanda.iteye.com/blog/1687994
8.Copy一个Worksheet并重新命名
Sheets("印刷仕様_通常用").Copy After:=Sheets(i + 2)
Set sh = ActiveSheet
sh.Name = "New Name"
- VBA学习中的一些小经验
- 项目中的一些小经验
- 一些工作中的小经验
- oracle学习中的一些经验
- 学习小波的一些经验
- UFT学习过程中一些小经验
- VBA中的一些代码
- vba的一些小陷阱
- VOA学习中的一些经验和体会
- 学习中的一些小知识
- 一些小经验
- 一些小经验
- 一些小经验
- 工作中的小经验
- Django学习中的一些小问题
- mmap学习过程中的一些小问题
- Java学习中的一些小问题
- 一些小的经验积累
- Phone List
- 笔记119--摘自爱哥06
- vsam
- Python 之 获取聚类中心与其支撑点的方法
- openwrt 学习总结二
- VBA学习中的一些小经验
- App上线流程全攻略(史上最详细步骤)
- 【二分图匹配】hdu2819Swap
- oc生成随机数
- jquery操作复选框(checkbox)的12个小技巧总结
- librtmp使用实例
- 关于伪类元素:before和:after
- 程序员分类(转)
- Oracle MapViewer11g安装与部署