ThisWorkbook のコード 'アドイン登録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControl

Size: px

Start display at page:

Download "ThisWorkbook のコード 'アドイン登録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControl"

ちえこあきくぼ
7 years ago
Views:

1 テーマ使用機器概要 Application Note 資料作成資料番号 FTM-014 EXCEL アドインの作り方 MPC-816 (684) MBKComX MS-EXCEL MPC の点データを直接ワークシートに吸い上げグラフを描くまでのサンプルですこのサンプルは Microsoft(R) Excel2000 (SR-1) で作成しましたアドインとはアプリケーションソフトに追加される拡張機能です普通マクロ(プログラム)はそれを作成したワークシートでしか動きませんがこのアドインは EXCEL 本体に組み込まれるので新規のワークシートからでも起動します今回はワークシートに MPC から直接データを吸い上げてグラフ化するアドインを作ってみました (この方法は自己流です正式な手順は EXCEL マニュアル解説本等をご覧ください) プロジェクトを作成してメニュー登録 (Install)/ 解除 (Uninstall) 部分のコーディングをする EXCEL から Visual Basic Editor (VBE)を起動して (メニュー [ツール]>[マクロ]>[Visual Basic Editor]) プロジェクトエクスプローラの VBAProject(Book1) を逆クリック [プロジェクトプロパティ]で[プロジェクト名 ] を入力します逆クリックプロジェクトエクスプローラの ThisWorkbook をダブルクリックコードウィンドウの Workbook オブジェクトの AddinInstall プロシージャと AddinUninstall プロシージャにメニュー登録 / 解除時に関するコードを書きますまた標準モジュールを挿入して Module1 の General オブジェクトに formshow プロシージャを書きます

2 ThisWorkbook のコード 'アドイン登録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) Menu.Caption = "MPC" 'メニュー名 Set SubMenu1 = Menu.Controls.Add SubMenu1.Caption = "POINT" 'サブメニュー名 SubMenu1.OnAction = "formshow" 'アドイン登録解除 Private Sub Workbook_AddinUninstall() 'メニュー名を整合させないとエラーになる Application.CommandBars("Worksheet Menu Bar").Controls("MPC").Delete Module1 のコード 'フォーム表示 Sub formshow() UserForm1.Show プロジェクトの保存をするこの段階で一旦 EXCEL に戻りプロジェクトを保存しておきますフォルダはどこでも良いですが C:\Documents and Settings\username\Application Data\Microsoft\AddIns がデフォルトになっているようですファイル名は???.xla になりますアドインを指定

3 メインメニューにアドインを登録するここで EXCEL のメインメニューにアドインを登録してみますメインメニュー [ツール]>[アドイン] で登録画面を開き先に保存したアドイン名をチェックします( 無い場合は [ 参照 ]で探す) チェックする EXCEL のメインメニューに登録されました

4 フォームを挿入しコーディングするこのままでは使えないので再び VBE を開きフォームを挿入部品を配置してコードを書きます今回は通信コントロールとして MBKCommX コントロールを使いますデフォルトのツールボックスには MBKCommX コントロールはありませんツールボックスを逆クリックし[その他のコントロール]>[コントロールの追加 ] で MBKCommX をチェックします MBKCommX (ファイル名は MBKCom.ocx) は事前に Windows に登録しておきます登録方法と使い方は MBKCom.ocx マニュアルをご覧下さいフォームに部品を配置してコードを書きます MBKComX コントロールを配置 MBKComX コントロールこのサンプルでは USB/RS-232C コンバータ USB-RS2 で通信をする場合の COMM ポート番号検出に ftmcoms.exe を使用しています ftmcoms.exe は EXCEL と同じ C:\Program Files\Microsoft Office\Office にコピーしておきます

5 UserForm1 のコード 'READ ボタン Private Sub CommandButton1_Click() SpinButton1.Value = TextBox1.Text SpinButton2.Value = TextBox2.Text sc = True If MBKComX1.ComOpen Then Exit Sub ' 多重起動防止 MBKComX1.ComNum = TextBox3.Text 'COMM PORT 指定 " MBKComX1.ComBaud = "9600" 'ボーレート設定 MBKComX1.ComParity = "E" 'パリティー設定 MBKComX1.ComDataBits = "7" 'データ長設定 MBKComX1.ComOpen = True 'ポートオープン Range("A2", "E301").Select Selection.ClearContents ' 既存データクリア注意 :Clear は書式までクリアする Range("A2").Select Cells(1, 1).Value = "POINT" Cells(1, 2).Value = "X" Cells(1, 3).Value = "Y" Cells(1, 4).Value = "Z" Cells(1, 5).Value = "U" For i = TextBox1.Text To TextBox2.Text If getdt(i) = False Then sc = False Exit For Next i MBKComX1.ComOpen = False If sc Then graph 'データ読込 ' 失敗したら sc=false 'グラフ描画 ' 点データ読込 Function getdt(i) getdt = True If Not MBKComX1.ReadPoint(i) Then MsgBox (MBKComX1.ErrStat) getdt = False Exit Function Cells(i + 1, 1).Value = i Cells(i + 1, 2).Value = MBKComX1.PX Cells(i + 1, 3).Value = MBKComX1.PY Cells(i + 1, 4).Value = MBKComX1.PZ Cells(i + 1, 5).Value = MBKComX1.PU Label3.Caption = i ' 点データ P(i) 読み込み 'エラー内容表示 'X(i) 'Y(i) 'Z(i) 'U(i) End Function 'グラフ描画 Sub graph() xr = Str(TextBox2.Text + 1) For Each WS In ActiveWindow.SelectedSheets sn = WS.Name Next ' 現在のワークシート名取得 ' 既存のグラフを消す nchart = ActiveSheet.ChartObjects.Count ' 現在のワークシートのグラフ数 If nchart > 0 Then For cnt = 1 To nchart ActiveSheet.ChartObjects(cnt).Activate ActiveChart.ChartArea.Select ActiveWindow.Visible = False Selection.Delete Next If Not CheckBox1.Value Then Exit Sub Charts.Add ActiveChart.ChartType = xlline 'グラフを描く

6 ActiveChart.SetSourceData Source:=Sheets(sn).Range("A1:E" + Trim(xr)), PlotBy:=xlColumns ActiveChart.SeriesCollection(1).Delete ActiveChart.SeriesCollection(1).XValues = "=" + sn + "!R2C1:R" + Trim(xr) + "C1" ActiveChart.SeriesCollection(2).XValues = "=" + sn + "!R2C1:R" + Trim(xr) + "C1" ActiveChart.SeriesCollection(3).XValues = "=" + sn + "!R2C1:R" + Trim(xr) + "C1" ActiveChart.SeriesCollection(4).XValues = "=" + sn + "!R2C1:R" + Trim(xr) + "C1" ActiveChart.Location Where:=xlLocationAsObject, Name:=sn With ActiveChart.HasTitle = False.Axes(xlCategory, xlprimary).hastitle = True.Axes(xlCategory, xlprimary).axistitle.characters.text = "POINT".Axes(xlValue, xlprimary).hastitle = True.Axes(xlValue, xlprimary).axistitle.characters.text = "VALUE" End With ActiveChart.Axes(xlCategory).Select With Selection.TickLabels.Alignment = xlcenter.offset = 100.Orientation = xlupward End With Range("A2").Select 'Window を閉じる Private Sub CommandButton2_Click() UserForm1.Hide 'USB-RS2 ポート検出 Private Sub CommandButton3_Click() On Error GoTo Errhandler apl1 = Shell("C:\Program Files\Microsoft Office\Office\ftmcoms.exe /f", 1) 'USB-RS2 検出アプリ起動 If apl1 = 0 Then MsgBox "エラー発生 ", vbokonly, "アプリ起動エラー" Else MsgBox " 検出終了しました", vbokonly, " 終了 " Open "C:\Program Files\Microsoft Office\Office\ftmcoms.txt" For Input As #1 'COMMPORT の書かれた TXT Do Until EOF(1) Line Input #1, txt TextBox4.Text = txt Loop Close #1 If Left(TextBox4.Text, 3) = "COM" Then TextBox3.Text = Mid(TextBox4.Text, 4, 1) SpinButton3.Value = Mid(TextBox4.Text, 4, 1) 'COMMPORT 検出していれば反映 Exit Sub Errhandler: MsgBox "エラーが発生しました", vbokonly, " 終了します" ' 読込開始点番号 Private Sub SpinButton1_Change() TextBox1.Text = SpinButton1.Value ' 読込終了点番号 Private Sub SpinButton2_Change() TextBox2.Text = SpinButton2.Value 'CommPort 番号 Private Sub SpinButton3_Change() TextBox3.Text = SpinButton3.Value

7 アドイン実行 EXCEL メインメニュー [MPC]>[POINT] をクリックするとアドインが起動します MPC-816 プログラムポートと接続 COMM ポート番号を設定し [READ]ボタンを押すと MPC の点データを読み込みます [Graph]チェックボックスをチェックしておくと読込後にグラフを描画します

8 プロジェクトを保護しましょう完成後プロジェクトにパスワードを設定して保存すると不可視状態になり編集が出来なくなります EXCEL 再起動後再び VBE でアドインを開こうとすると... このグラフの MPC-816 プログラムです FOR I=1 TO 300 X(I)=I%2 Y(I)=I%3 Z(I)=I%4 U(I)=I%5 NEXT I 以上

<4D6963726F736F667420576F7264202D208DEC90AC837D836A83858341838B81698F4390B394C5816A2E646F63>

<4D6963726F736F667420576F7264202D208DEC90AC837D836A83858341838B81698F4390B394C5816A2E646F63> + = 付録 Ⅰ マクロのフローチャート開始キーワード数と文章数をカウントする Yes 全ての文章番号 (1 0) を照合したか No 全ての文章番号 (data) を照合したか Yes No 文章番号 (1 0) が文章番号 (data) と等しいか Yes No 値を一行全て 0にする値を一

ThisWorkbook のコード 'アドイン 登 録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControl

ThisWorkbook のコード 'アドイン登録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControl