0

測定ハードウェアからエクスポートするスプレッドシートでこのマクロを自動的に使用するために、特定のマクロを使用してExcelテンプレートを作成することが可能かどうか（およびその方法）を知りたいです。

測定値をハードウェアからExcelスプレッドシートにエクスポートします。次に、必要な特定の基準をフィルタリングするために、すべてのスプレッドシートに同じマクロを記述する必要があります。

したがって、このマクロが保存された1つのExcelテンプレートを用意し、ハードウェアからExcelスプレッドシートをインポートして、毎回自動的に条件をフィルタリングし、すぐに使用できるようにします。

これをどのように手配できますか？

4

1 に答える 1

0

測定ハードウェアが常に同じ出力ファイル名を生成すると仮定すると...

  • 1 - データ ファイルをインポートしてフィルター処理するマクロを含むテンプレートを作成できます。このシナリオでは、マクロを含むファイルはテンプレートとしてサーバーに表示されません。

サブ LoadDataSheet()

Dim sWbkPath As String
sWbkPath = "PATH_TO_FILE\" & "FILE_NAME"

Dim wbkData As Workbook
Set wbkData = Workbooks.Open(sWbkPath)

DataFilteringMacro wbkData 'or sheet

サブ終了

  • 2 - データ ファイルが開いているときにのみリボンを表示するアドインを使用できます。

「ThisWorkbook」モジュールでは...

Dim WithEvents アプリをアプリケーションとして

プライベート サブ Workbook_Open()

Set App = Application

サブ終了

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)

'...
'if using a ribbon, you could put the code in the "GetVisible" callback
'and invalidate the ribbon in the App_WorkbookActivate()
'bVisible is the value set in the ribbon callback

Dim wbk As Workbook
Set wbk = ActiveWorkbook

If wbk.Name = "FILE_NAME" Then

    'bVisible = True 'the data file was loaded

Else

    'bVisible = False 'another file was loaded

End If

サブ終了

于 2013-02-28T23:10:38.883 に答える