Excel插件--E达通工具箱（VB.net）

Excel插件--E达通工具箱（VB.net）

最近做了一个常用的Excel工具箱，在这里分享给大家

资源搜索 "E达通工具箱" 即可免费下载】

 

 

 

 

 

 

有需要的朋友可以下载使用哈，使用过程遇到啥问题可以找我哈！

sub 扩展区域()

    sheet1.range("A1").resize(10,8)="大表格牛逼"      '参照物K1，扩展1行，2列
    sheet1.range("A1").resize(10,8).interior.colorindex=8

end sub

sub 偏移区域()  
       
    sheet1.range("A1").offset(1,1)="单个单元格"                '参照物A1，向下偏移1行 向右偏移1列
    sheet1.range("A7").offset(1,1).resize(2,6)="resize"       '偏移一行一列，扩展2行6列
    
end sub

 

Sub 设置字体()
    Sheet1.Range("A1:E10") = "Font字体" '输入内容

    With Sheet1.Range("A1:E10").Font
       .Bold = True         '设置粗体
       .ColorIndex = 5      '设置字体颜色
       .Name = "华文行楷"   '设置字体名称
       .Size = 36           '设置字体大小
       .Underline = 2       '下划线
    End With

End Sub

Sub 设置字体()
    Sheet1.Range("A1:E10") = "Font字体" '输入内容

    With Sheet1.Range("A1:E10").Font
       .Bold = True         '设置粗体
       .ColorIndex = 5      '设置字体颜色
       .Name = "华文行楷"   '设置字体名称
       .Size = 36           '设置字体大小
       .Underline = 2       '下划线
    End With

End Sub