次のコードを標準モジュールに記述し、エクセルツール設定画面の「セルを探す」の「セル発見時にマクロを実行する」で「CountUp」を選択すれば入力されたセルの右側のセルに入っている値を利用してタグを呼んだ回数をカウントアップします。
|
1 2 3 |
Sub CountUp(TagID As String, TimeStamp As String) Cells(ActiveCell.row, ActiveCell.column + 1).Value = Cells(ActiveCell.row, ActiveCell.column + 1).Value + 1 End Sub |
「セルを探す」機能を使うと、タグを読み込んだときにシートの中に同じIDがあるか探してくれます。これにマクロを連携させ、IDの右のセルに入っている値を利用してファイルを開いたりURLを開いたりできます。
次のコードを標準モジュールに記述し、エクセルツール設定画面の「セルを探す」の「セル発見時にマクロを実行する」で「WebTo」を選択すれば入力されたセルの右側のセルに入っている値を利用してファイルを開いたりURLを開いたりできます。
|
1 2 3 |
Sub WebTo(TagID As String, TimeStamp As String) CreateObject("wscript.shell").Run ActiveCell.Offset(0, 1).Value End Sub |
「セルを探す」のモードでは、設定で「右側に読取時刻を入力する」という設定があり、タグが読まれた時刻を自動で入力してくれます。この機能は「セルへ入力する」にはありませんが、マクロを使用することで簡単に実装できます。
次のコードを標準モジュールに記述し、エクセルツール設定画面の「セルへ入力する」の「セル入力時にマクロを実行する」で「InsertTime」を選択すれば入力されたセルの右側にタイムスタンプが入力されるようになります。
|
1 2 3 |
Sub InsertTime(TagID as String, TimeStamp as String) Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = TimeStamp End Sub |