回答編集履歴
2
追記
test
CHANGED
@@ -41,3 +41,7 @@
|
|
41
41
|
ActiveCell.Resize(, 5).Value
|
42
42
|
End Sub
|
43
43
|
```
|
44
|
+
|
45
|
+
上記でうまくいかないようなら、下記に公式のフォーラムがあるので、そこで質問した方がいいかも。
|
46
|
+
|
47
|
+
[フォーラム | MANICA Community Site](https://manica.jp/?page_id=10)
|
1
説明追記
test
CHANGED
@@ -21,3 +21,23 @@
|
|
21
21
|
|
22
22
|
上記のコードだけだと、ユーザーがA列のセルを選択してもコピーされてしまいますので、他になんらかの条件を追加した方がいいと思います。例えば、「MANICA TOOLS が「検索モード」になっているか」という条件。
|
23
23
|
MANICA TOOLS はエクセルのアドインのようなので、何か方法はあると思います。
|
24
|
+
|
25
|
+
追記
|
26
|
+
---
|
27
|
+
上記、回答記述後、MANICA TOOLS について検索してみたら、ツールの各動作後にマクロを実行できるようです。
|
28
|
+
|
29
|
+
[マクロを利用するまでの流れ | MANICA Community Site](https://manica.jp/?page_id=130)
|
30
|
+
|
31
|
+
コード例
|
32
|
+
[「セルを探す」でIDに対応したファイルやURLを開く | MANICA Community Site](https://manica.jp/?p=150)
|
33
|
+
|
34
|
+
上記を参考にすると下記のコードを標準モジュールに記述して、「セル発見時にマクロを実行する」に下記のマクロを選択すればよさそうです。
|
35
|
+
|
36
|
+
**標準モジュール**
|
37
|
+
```vba
|
38
|
+
Sub CopyTo(TagID As String, TimeStamp As String)
|
39
|
+
'選択セルの行データを、Sheet2の最終行の次行に転記
|
40
|
+
Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _
|
41
|
+
ActiveCell.Resize(, 5).Value
|
42
|
+
End Sub
|
43
|
+
```
|