Sub direct_Price()
''定义变量
Dim cRows As Integer '总行数
Dim cColumns As Integer '总列数
Dim HEADERCOLORINDEX As Integer '表头的背景
Dim cTemp As Integer '临时计数
Dim sTempString As String '临时字符串变量
Dim i As Integer '临时计数
Dim j As Integer '临时计数
Dim rowIndex As Integer '临时指示处理到哪里
Dim colIndex As Integer '临时指示处理到哪里
Dim tempRndColor As Integer '临时生成的颜
Dim TABLENAME As String '待处理的表名
Dim colorIndex As String '颜索引名字
'表头的背景
HEADERCOLORINDEX = 15
colorIndex = 36 '颜从33开始是比较浅的颜
TABLENAME = "direct_Price"
'关闭所有弹出的警告消息
Application.DisplayAlerts = False
'设置需要处理的单元表
Sheets(TABLENAME).Select
'取单元表的总列数与总行数
cRows = Sheets(TABLENAME).UsedRange.Rows.Count cColumns = Sheets(TABLENAME).UsedRange.Columns.Count ''''
'选择所有的单元格
Range(Cells(1, 1), Cells(cRows, cColumns)).Select
'设置该表中所有单元行高为11.25
Selection.RowHeight = 11.25
'设置该表中所有单元行高为11.25
Selection.RowHeight = 11.25
'设置所有的边框
Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.colorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.colorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.
LineStyle = xlContinuous
.Weight = xlThin
.colorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.colorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.
Weight = xlThin
.colorIndex = xlAutomatic
End With
'并且拆分所有的单元格
With Selection
.MergeCells = False '拆分单格
End With
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
'删除第一列，注意这里必须先拆分单格，再删除第一列，否则一次就会把合并单元格所在列全部删除
Range(Cells(1, 1), Cells(1, 1)).Select
Selection.EntireColumn.Delete
'Selection.EntireColumn.Delete
'向表头添加一行
Rows("1:1").Select
Selection.Insert
Columns("A:A").Select
Selection.ColumnWidth = 9.29
Columns("B:B").Select
Selection.ColumnWidth = 6.71
Columns("C:C").Select
Selection.ColumnWidth = 15.29
Columns("D:D").Select
Selection.ColumnWidth = 29.86
Columns("E:E").Select
Selection.ColumnWidth = 12.29
Columns("F:F").Select
Selection.ColumnWidth = 12.29
'''''设定单元格A1:A2''
'合并A1:A2单元格
Range("A1:A2").Select
'将数据写回
With Selection
.
HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
'往该单元格中写入Usage_Var
ActiveCell.FormulaR1C1 = "Price"
'设置该单元格字体格式
With ActiveCell.Characters(Start:=1, Length:=5).Font  .Name = "Arial"
.FontStyle = "加粗倾斜"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.colorIndex = 2
End With
'单元格设定边框
Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.colorIndex = 56
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With Selection.Interior
.colorIndex = 5
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
'''''设定头两行的内部样式'''''
Range("B1:B2").Select
Selection.Merge
Range("C1:C2").Select
Selection.Merge
Range("D1:D2").Select
Selection.Merge
Range("B1:D2").Select
'设置头两行行高为11.25
Selection.RowHeight = 14.25
With Selection.Font
.Name = "Arial"
.FontStyle = "加粗"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.
colorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
vba做excel窗体录入教程
End With
With Selection.Interior
.colorIndex = HEADERCOLORINDEX
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("B1:B2").Select
ActiveCell.FormulaR1C1 = "Type"
With ActiveCell.Characters(Start:=1, Length:=4).Font  .Name = "Arial"
.FontStyle = "加粗"
.Size = 8
.
Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.colorIndex = 5
End With
Range("E1:F1").Select
With Selection.Font

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。