Excel中利用宏编辑的VBA提取有用数据并对数据自动处理和制图Word文档格式.docx
- 文档编号:7180894
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:9
- 大小:15.31KB
Excel中利用宏编辑的VBA提取有用数据并对数据自动处理和制图Word文档格式.docx
《Excel中利用宏编辑的VBA提取有用数据并对数据自动处理和制图Word文档格式.docx》由会员分享,可在线阅读,更多相关《Excel中利用宏编辑的VBA提取有用数据并对数据自动处理和制图Word文档格式.docx(9页珍藏版)》请在冰点文库上搜索。
),Type:
=xlFillDefault
Selection.NumberFormatLocal="
0.00_);
[红色](0.00)"
F2"
=INT(RC[-1])"
F2:
F2100"
G2"
=INT((RC[-2]-RC[-1])*100)"
G2:
G2100"
DimiAsInteger
Fori=Range("
g65536"
).End(xlUp).RowTo2Step-1
IfRange("
g"
&
i).Value<
>
35Then
Rows(i).Deleteshift:
=xlUp
EndIf
Next
Columns("
E:
G"
Selection.ClearContents
‘工作表“HistroryData
(2)”提取12:
HistroryData
(2)"
E2100"
DimjAsInteger
Forj=Range("
j).Value<
52Then
Rows(j).Deleteshift:
‘工作表“HistroryData(3)”提取4:
1
HistroryData(3)"
DimkAsInteger
Fork=Range("
k).Value<
68Then
Rows(k).Deleteshift:
‘数据汇总到工作表“数据处理”上
C2:
C34"
Selection.Copy
数据处理"
C4"
ActiveSheet.Paste
c2:
c34"
D4"
E4"
C2"
液位状态"
Selection.Merge
2
WithSelection.Font
.Size=14
EndWith
C3"
8:
30AM"
D3"
12:
E3"
4:
30PM"
B3"
距今天天数"
B4"
1"
B5"
2"
B4:
B150"
‘调整表格边框
B2:
E150"
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.IndentLevel=0
.ShrinkToFit=False
.ReadingOrder=xlContext
Selection.Borders(xlDiagonalDown).LineStyle=xlNone
Selection.Borders(xlDiagonalUp).LineStyle=xlNone
WithSelection.Borders(xlEdgeLeft)
.LineStyle=xlContinuous
.Weight=xlThin
.ColorIndex=xlAutomatic
WithSelection.Borders(xlEdgeTop)
WithSelection.Borders(xlEdgeBottom)
3
WithSelection.Borders(xlEdgeRight)
WithSelection.Borders(xlInsideVertical)
WithSelection.Borders(xlInsideHorizontal)
B:
B"
).ColumnWidth=15.71
‘用量计算
用量(mm)"
H2"
F3"
G3"
H3"
‘8:
30AM用量计算
F4"
=R[1]C[-3]-RC[-3]"
F5"
F4:
4
F150"
‘12:
G4"
G5"
G4:
G150"
‘4:
30PM用量计算
H4"
H5"
H4:
H150"
‘画日用量图
F3:
H34"
Charts.Add
ActiveChart.ChartType=xlLineMarkers
ActiveChart.SetSourceDataSource:
=Sheets("
).Range("
H20"
)
ActiveChart.LocationWhere:
=xlLocationAsObject,Name:
="
ActiveChart.HasTitle=True
ActiveChart.ChartTitle.Text="
XX"
EndSub
5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 利用 编辑 VBA 提取 有用 数据 自动 处理 制图