VBA学习中的一些小经验

最近因为项目的原因必须要用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"