[技术]VBA钢铁企业权威库存数据自动取数与分析报表程序分享(行数变量库存物料大类)

文章目录 [+]

PrivateSub CommandButton6_Click() '库存执行按钮

'删除库存数据中得空行及空列

Dim LastRow As Long, 空行 As Long

[技术]VBA钢铁企业权威库存数据自动取数与分析报表程序分享(行数变量库存物料大类) 软件开发

（图片来自网络侵删）

Dim LastColumn As Long, 空列 As Long

Application.DisplayAlerts = False

Application.ScreenUpdating = False

LastRow = ActiveSheet.UsedRange.Rows.Count

LastRow = LastRow + ActiveSheet.UsedRange.Row - 1

For 空行 = LastRow To 1 Step -1

If WorksheetFunction.CountA(Rows(空行)) = 0 Then Rows(空行).Delete

Next 空行

LastColumn = ActiveSheet.UsedRange.Columns.Count

LastColumn = LastColumn + ActiveSheet.UsedRange.Column

For 空列 = LastColumn To 1 Step -1

If WorksheetFunction.CountA(Columns(空列)) = 0 Then Columns(空列).Delete

Next 空列

'将库存数据第一行所有空格去掉！

Rows("1:1").Select

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

'判断有效数据的行数及列数，并把最后一行和前两列删除！

Dim 有效行数, 有效列数

有效行数 = Sheet1.UsedRange.Rows.Count '取数据的有效行数

有效列数 = Sheet1.UsedRange.Columns.Count '取数据有效列数

Rows(有效行数).EntireRow.Delete '删除库存临时表最后行

'Rows(有效行数 - 1).EntireRow.Delete

Range("A:A,B:B").Select '删除A、B两列

Selection.Delete Shift:=xlToLeft

'将物料编码列变成文本格式

Dim 文本格式&

'文本格式 = Application.ActiveSheet.UsedRange.Rows.Count

'Rows(i).Delete

Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 2), TrailingMinusNumbers:=True

'在库存表增加3列，用存放“物料编码大类”、“计划员”、“备件类别”三列数据！

Columns("B:D").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("B1").Select

ActiveCell.FormulaR1C1 = "物料编码大类"

Range("C1").Select

ActiveCell.FormulaR1C1 = "计划员"

Range("D1").Select

ActiveCell.FormulaR1C1 = "备件类别"

Range("B1:D1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Range("B8").Select

Columns("B:B").ColumnWidth = 6.13

Columns("C:C").ColumnWidth = 5.88

Columns("D:D").ColumnWidth = 8.13

Columns("G:G").ColumnWidth = 6.25

Columns("H:H").ColumnWidth = 5.75

Columns("D:D").ColumnWidth = 5.75

'取物料编码大类：若物料编码为10位数，则取该编码的前四位数；若物料编码13位且为开头为B0—B6位数，则取该编码的前两位数；

'若物料编码为13位数且为B999开头，则取该编码的前五位数；

有效行数 = Sheet1.UsedRange.Rows.Count

Dim 行数变量 As Long

'插入进度条

For 行数变量 = 2 To 有效行数 Step 1

DoEvents

ProgressBar1.Value = 行数变量 '进度条步行

ProgressBar1.Max = 有效行数 '进度条最大值设置

Label2.Caption = "正在进行物料大类码处理，请稍后..........."

'取物料大类码程序

If Len(Range("A" & 行数变量)) = 10 Then

Range("B" & 行数变量) = Mid(Range("A" & 行数变量), 1, 4)

ElseIf Len(Range("A" & 行数变量)) = 13 And Left(Range("A" & 行数变量), 2) = "B0" Then