基于VBA技術的動態交互式Excel報表在海洋石油生產數據審核與分析中的應用

王渝鑫 杜虹

摘 要：隨著海洋石油的發展，海洋石油生產一線平臺所需要進行錄入、分析的報表數據日益增多。利用內嵌于Microsoft Office中的VBA程序語言，可以大量簡化數據錄入人員重復性工作，提高數據錄入準確性;Excel中的動態交互式圖表有助于提升數據分析人員判斷效率與準確性。本文主要介紹在Excel環境下VBA設計實例以解決在生產數據錄入過程中遇到的實際問題，同時利用動態交互式報表進行生產動態分析。

關鍵詞：VBA技術 Excel環境 動態交互式報表 動態分析

引言

在海洋石油生產平臺，中控人員需承擔各類數據的錄入，與此同時，還需承擔生產流程的日常監控與調整。繁重的工作量與每日超過5000個以上數據的錄入，不僅增加了勞動強度，而且容易發生數據錄入失準。

在提倡智能化革命的今天，數據錄入智能化已是大勢所趨。基于VBA技術的動態交互式Excel報表大幅降低了數據錄入人員的工作量，并提供了實時的生產動態分析功能。

一、VBA與動態交互式圖表概述

Visual Basic for Applications（VBA）是Visual Basic的一種宏程序設計語言，也是微軟公司開發出來的自動化、批處理任務程序，其可以有效地擴展Windows應用程序功能。隨著VBA宏編程的普及，用戶錄入Excel宏命令時更加簡單，可以采用交互模式錄制模式，提高了宏程序的可用性。[1，2]

交互式報表是相對于傳統靜態數據報表的一種智能化業務分析的報表解決方案，使靜態的報表盡可能動態化，即報表數據動態化和報表形式動態化。交互式報表可以為報表審閱者提供交互功能，審閱者可以在運行報表之前輸入或選擇值，從而決定報表數據的形式。[3]

二、應用實例

以渤海某油田中控數據錄入人員的生產日報為例，每日人工錄取數據超過2500個，不僅數據錄入量巨大，而且審核難度較高、周期性的數據搜集分析工作難度極大。

為減輕數據報表錄入的繁瑣性、提高數據錄入準確率，油田編制了基于VBA的Excel的智能審核報表，實現了宏程序自動采集各崗的基礎數據，并實現了以月單位的數據匯總，同時通過交互式圖表，實現了主要生產數據的可視化查詢，便于實時動態分析油田生產動態。

2.1基礎數據自動采集

對需要進行數據采集的單崗數據Excel報表與需匯總形成的生產日報，進行統一命名，如：井口參數.xlsx與生產數據智能審核報表.xlsm。

操作方法：

第一步：先錄制自動數據采集的宏

（1）打開生產數據智能審核報表，即搜集基礎生產數據的報表;（2）選擇菜單“工具→宏→錄制新宏”，點擊“確定”;（3）手動將需井口參數報表中需要進行粘貼的數據，逐一粘貼至生產數據智能審核報表中;（4）選擇菜單“工具→宏→停止錄制”。

第二步：用VBA編程實現觸發按鈕

（1）選擇菜單插入控件;（2）指定錄入完成的宏程序。

第三步：點擊制作完成的控件，完成數據采集。

2.2基礎數據月度累加匯總

第一步：用VBA編程，制作觸發按鈕;第二步：利用“do while ...else” 、“if...then...”、“loop”語句完成，數據的判斷、粘貼與循環復制的功能。

（1）選中控件，右鍵指定宏，選擇編輯;（2）編寫VB程序語句;

Sub 錄取當日水質（）

i = 3

Do While Range（"B36"） <> ""

If Cells（i， 20） <> "" Then

i = i + 1

Else：

Range（"B76：F76"）.Select

Selection.Copy

Cells（i， 19）.PasteSpecial xlPasteAll

Range（"I76：M76"）.Select

Selection.Copy

Cells（i， 24）.PasteSpecial xlPasteAll

Range（"B75：F75"）.Select

Selection.Copy

Cells（i， 31）.PasteSpecial xlPasteAll

Range（"I75：M75"）.Select

Selection.Copy

Cells（i， 36）.PasteSpecial xlPasteAll

Exit Do

End If

Loop

End Sub

（2）將上述宏制定至制作好的控件;

（3）點擊控件觸發程序，錄取每月中當日的數據至匯總表格。

2.3制作交互式圖表

使用Excel函數 index，制作交互式動態圖表。

以生產數據智能審核報表中，月度注水分析為例。

第一步 插入INDEX函數，對當月每日的數據在T36這個單元格進行絕對引用

第二步 插入控件窗體，并對數據源區域與單元格連接設置，將數據綁定至下拉控件中。

第三步 插入折線表，并將數據源設置為引用數據，完成交互式圖表設置。

三、應用效果及意義

基于VBA技術的動態交互式EXCEL報表已在渤海某油田中控報表數據錄入與審核進行了廣泛應用。在實際應用過程中，通過不同班組與中控錄入人員的反復使用，該表不斷優化，實現了生產核心數據變化趨勢的自動預警提示和生產數據越的趨勢可視化分析。提高了工作效率與數據錄入的準確性。

參考文獻：

[1]王春紅.基于VBA的財務報表系統分析[J].江蘇商論，2014，（33）：221-222.

[2]唐燕，韓愛慶，翟興.基于VBA技術實現調查問卷數據自動讀取[J].計算機與現代化，2004，（2）：226-228.

[3]潘曉蘋，莊禮杰.Microsoft Office 情景教學案例[M].北京：世界圖書出版公司，2004.