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