Excel ダッシュボードのご紹介株式会社アイエルアイ総合研究所内藤慶一

Size: px

Start display at page:

Download "Excel ダッシュボードのご紹介株式会社アイエルアイ総合研究所内藤慶一"

きみかずこびき
5 years ago
Views:

1 Excel ダッシュボードのご紹介株式会社アイエルアイ総合研究所内藤慶一

2 情報系システム開発メンテナンス開発イノベーションビジネスダッシュボード by Excel 概要実務業務マネジメントの知識技術経験のノウハウ + 業務データ分析の見える化共有化シミュレーションを可能としビジネスソリューションを推進する BI システムを実現します! Excel と StiLL + Xcelsius で開発するビジネスダッシュボードはコーディングをしないでそのプログラムを作成しますよって短期間低コスト作り直しやすいプログラムが開発可能です技術者でもエンドユーザーでもプログラム作成が可能です ( 勉強要 )

3 情報系システム開発メンテナンス開発イノベーションビジネスダッシュボード by Excel 特 1 短期間低コストでユーザーの望むダッシュボードが開発可能です従来の 1/2 1/5 の工数となります 2 DB Excel ファイル CSV TXT 等のデータを取り込み Excel ブック内にて処理するためデータの準備や整備が簡便になり準備開発がスムーズです 3 開発は要件定義から開発修正までユーザーと技術者両者がそれぞれの役割を発揮して開発可能のためスムーズに開発できます

4 基幹サーバー本番 DBサーバー情報分析 DB ダッシュボードネットワーク ERP MW CSV CSV リポジトリ DB 制御情報分析 DB データ連携ミドルウェアクライアント PC 事業部共有サーバーインターネットファイル EXE O D B C 事業部外部 DB Excel ダッシュボード

5 ビジネスダッシュボード by Excel のご紹介 Excel で実現しています!( 事業部編 )

6 事業部ダッシュボード

7 事業部ダッシュボード

8 事業部ダッシュボード

9 事業計画書

10 事業計画書

11 分析レポート

12 達成状況集計表

13 前年対比集計表

14 損益集計表

15 Excel ダッシュボード情報リンケージ例 Excel 書類システムブック

16 リンク事例数字も言葉も上からでも下からでも DB でもファイルでも情報リンク自由自在!! 元を直せばすべてのファイルが直りますその逆も大丈夫!! この構造が簡単!!

17 情報系システム開発メンテナンス開発イノベーション StiLL とは! StiLL はオブジェクト志向のプログラムですコーディングをしないでプログラムを作成しますよって短期間低コスト作り直しやすいプログラムが開発可能です技術者でもエンドユーザーでもプログラム作成が可能です ( 勉強要 ) Excel のいいところを活かして StiLL で補完 Excel プラットフォームにした時の問題点解消 1 処理速度読み込み書き込み再計算処理時間 2 集計アプリケーション事例と Excel の画面制御 3Excel と入力アプリケーション事例と Excel 分離独立 4 作り直しやすいプログラム & 上位互換 5LAN WAN Web クラウド環境システム構築 OK!

18 情報系プログラムツールに新開発手法 Excel+ StiLL 活用について本格開発ツール StiLL-Ⅹ 新開発手法! スパイラル型実現!! 納得のシステム使えるシステム実現!! インフラネットワークセキュリティデータベース IT ポリシー様々な技術開発コラボレーションを実現 Excelと StiLL がそれをコネクトします技術者責任者責任者ユーザーユーザーと技術者技術者の連携 Excel 中級必須です! ユーザー Excel 中級まで来てください! 方針知識技術経験ノウハウビジネスポリシー業務ノウハウ入りプログラム完成成果を生むシステム Excel で責任者ユーザーと技術者がコラボレーション

1 開発工数比較検索プログラム StiLL 作成サンプルステップ短く文法英語なし作りやすく直しやすい 2 プログラム比較 ' VBA 検索プログラム Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2" '

Value) メンテナンス 18 End With If SampleProgramDAOFunc(SheetName, 7, 2, _ "SELECT * FROM 商品テーブル WHERE 商品名 ='" & strname & "'", 0) = True Then ' 最後にメッセージボックスを表示します MsgBox strname & " のデータを抽出しました ",

SampleProgramDAOFunc(SheetName As String, Y As Long, X As Integer, _ SQL As String, Limit As Long) As Boolean Dim strname As String ' 商品名 Dim rngcell As Range, lngrow As Long, lngcol As Long Dim

19 1 開発工数比較検索プログラム StiLL 作成サンプルステップ短く文法英語なし作りやすく直しやすい 2 プログラム比較 ' VBA 検索プログラム Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2" ' コンボボックスの値から商品名を取得します With ThisWorkbook.Worksheets(SheetName).DropDowns(1) 検索プログラム VBA 作成サンプル strname =.List(.Value) メンテナンス 18 End With If SampleProgramDAOFunc(SheetName, 7, 2, _ "SELECT * FROM 商品テーブル WHERE 商品名 ='" & strname & "'", 0) = True Then ' 最後にメッセージボックスを表示します MsgBox strname & " のデータを抽出しました ", vbexclamation, " メッセージ " End If End Sub ' VBA 全抽出プログラム Public Sub SampleProgramDAO2() SampleProgramDAOFunc "Sheet2", 7, 2, "SELECT * FROM 商品テーブル ", 0 End Sub ' DAO 取得処理 Function SampleProgramDAOFunc(SheetName As String, Y As Long, X As Integer, _ SQL As String, Limit As Long) As Boolean Dim strname As String ' 商品名 Dim rngcell As Range, lngrow As Long, lngcol As Long Dim wrkodbc As DAO.Workspace Dim dbspubs As DAO.Database Dim rstpubs As DAO.Recordset Dim DataCount As Long ' On Error GoTo Sub_Err ' ゲージダイアログを0にして消去 ResetGuage UserForm1.Show DoEvents Application.ScreenUpdating = False データベースからデータを抽出します 'ODBCDirect Workspace オブジェクトを作成します Set wrkodbc = DAO.CreateWorkspace(" サンフルテータ ", "admin", "", dbuseodbc) 'Database オブジェクトを開きます Set dbspubs = wrkodbc.opendatabase(" サンフルテータ ", dbdrivercomplete, True) 'Recordset にデータを取得します Set rstpubs = dbspubs.openrecordset(sql, dbopensnapshot, dbrunasync) ' Set rstpubs = dbspubs.openrecordset(sql, dbopendynaset, dbrunasync) 'Set NewQRY = db.createquerydef("", QString) ' 件数を取得 rstpubs.movelast DataCount = rstpubs.recordcount rstpubs.movefirst ' 件数が多いときは RecordCountがうまくかえってこないため再カウントしてみる If DataCount = -1 Then DataCount = 0 Do While Not rstpubs.eof DataCount = DataCount + 1 rstpubs.movenext Loop rstpubs.movefirst End If ' Limitをこえる場合はLimit 件数のみを取得 (Limit =0 のときは全部 ) If Limit > 0 And DataCount > Limit Then DataCount = Limi VBAの場合 137 ステップとなります ' If DataCount > 0 Then ' セルに書き込みます With ThisWorkbook.Worksheets(SheetName) ' 既存データ消去.Range(.Cells(Y, X),.Cells(65535, X + rstpubs.fields.count - 1)).Value = "" With.Cells(Y, X) For lngcol = 0 To rstpubs.fields.count - 1.Offset(0, lngcol).value = rstpubs.fields(lngcol).name Next lngrow = 1 Do While (Not rstpubs.eof) And (lngrow <= DataCount) For lngcol = 0 To rstpubs.fields.count - 1.Offset(lngRow, lngcol).value = rstpubs.fields(lngcol).value Next SetGuage lngrow / DataCount * 15 lngrow = lngrow + 1 rstpubs.movenext Loop End With End With End If ' 各オブジェクトを開放します rstpubs.close dbspubs.close wrkodbc.close Set rstpubs = Nothing Set dbspubs = Nothing Set wrkodbc = Nothing ' ゲージダイアログを0にして消去 ResetGuage UserForm1.Hide Application.ScreenUpdating = True SampleProgramDAOFunc = True Exit Function Sub_Err: ' ゲージダイアログを0にして消去 ResetGuage UserForm1.Hide Application.ScreenUpdating = True MsgBox " データ取得中にエラーが発生しました " End Function ' ゲージ設定処理 Private Sub SetGuage(n As Integer) Dim i As Integer For i = 1 To n UserForm1.Controls("D" & Trim(i)).BackColor = &H DoEvents Next i End Sub ' ゲージリセット処理 Public Sub ResetGuage() Dim i As Integer For i = 1 To 15 UserForm1.Controls("D" & Trim(i)).BackColor = &HE0E0E0 おステップ以内 SQL 文もすべて記述可能ですパラメータ設定型変数処理順次処理例可視化されたプログラム仕様書不要

20 ソリューション実現!! システムの提案納得のシステム使えるシステム提案!! 新機軸ソリューション提案実現!! Excelと StiLL がリンケージしますインフラネットワークセキュリティデータベース技術者お客様お客様営業営業と技術者技術者の連携お客様も頑張ってください方針知識技術経験ノウハウビジネスポリシー営業 IT ポリシー様々な技術 Excel 中級必須です! Excel 中級まで来てください! 業務ノウハウ入りプログラム完成成果を生むシステム Excel でお客様営業と技術者がコラボレーション

untitled

untitled StiLL StiLL Excel VBA IT Excel2000 2003 StiLL StiLL! Excel2007 StiLL -- -- Excel!!!! DB CSV VBA VBA ' VBA Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2"

Excel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一

Excel ダッシュボードのご紹介株式会社アイエルアイ総合研究所内藤慶一