回答編集履歴
2
追記
answer
CHANGED
|
@@ -40,4 +40,8 @@
|
|
|
40
40
|
Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _
|
|
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
説明追記
answer
CHANGED
|
@@ -20,4 +20,24 @@
|
|
|
20
20
|
上記はSheet1の表範囲が５列までの例です。`Resize(, 5)` の部分の`5`を実際の列数に変更してください。
|
|
21
21
|
|
|
22
22
|
上記のコードだけだと、ユーザーがA列のセルを選択してもコピーされてしまいますので、他になんらかの条件を追加した方がいいと思います。例えば、「MANICA TOOLS が「検索モード」になっているか」という条件。
|
|
23
|
-
MANICA TOOLS はエクセルのアドインのようなので、何か方法はあると思います。
|
|
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
|
+
```
|