質問編集履歴
2
プライバシーのため変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,18 +1,15 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
|
|
4
|
-
|
|
5
|
-
|
|
6
3
|
|
|
7
4
|
VBA初心者です。
|
|
8
|
-
今回、【計算
|
|
5
|
+
今回、【計算】というシートを基に別シートへ値をコピペするというVBAを作成したいです。
|
|
9
|
-
【計算用】のC列[利用
|
|
6
|
+
【計算用】のC列[利用場所]もしくはD列[会場]を絞り、その絞った単語のシートにコピペします。
|
|
10
7
|
|
|
11
|
-
例えば、C列［利用
|
|
8
|
+
例えば、C列［利用場所］の「新宿」でC列を絞り、その絞った名前のシート
|
|
12
9
|
(この場合は【新宿】というシート)にその決まった各項目ごとを各場所へコピペしたいのです。
|
|
13
10
|
（コピー先のシートは合間にチェックという項目が入っていたり、利用スポットの項目が
|
|
14
11
|
なくなっていたりと、絞った後の行をそのまま全コピーできません、、）
|
|
15
|
-
逆にD列［会場
|
|
12
|
+
逆にD列［会場］で「東京」を絞るとまた少しコピー先の項目が少し変わるのでその項目通りに入れていきたいです。
|
|
16
13
|
この【計算用】シートの内容は各都市各県庁所在地5件以上入ることもあり、
|
|
17
14
|
もし5件以上であればコピー先のシートの枠もその分増えるようにできるのであればそうしたいです。
|
|
18
15
|
また、フォントはMeiryo UIでサイズ11で上下左右中央揃えになるとうれしいです。
|
|
@@ -34,7 +31,7 @@
|
|
|
34
31
|
Dim J As Long
|
|
35
32
|
Dim SearchWord As String
|
|
36
33
|
|
|
37
|
-
Set Sht1 = Sheets("計算
|
|
34
|
+
Set Sht1 = Sheets("計算")
|
|
38
35
|
Set Sht2 = Sheets("新宿")
|
|
39
36
|
|
|
40
37
|
SearchWord = "新宿"
|
|
@@ -53,7 +50,4 @@
|
|
|
53
50
|
|
|
54
51
|
### 補足情報（FW/ツールのバージョンなど）
|
|
55
52
|
|
|
56
|
-
使用しているのはExcel2013です。
|
|
53
|
+
使用しているのはExcel2013です。
|
|
57
|
-
|
|
58
|
-
実行後の写真です↓
|
|
59
|
-
|
1
写真の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -53,4 +53,7 @@
|
|
|
53
53
|
|
|
54
54
|
### 補足情報（FW/ツールのバージョンなど）
|
|
55
55
|
|
|
56
|
-
使用しているのはExcel2013です。
|
|
56
|
+
使用しているのはExcel2013です。
|
|
57
|
+
|
|
58
|
+
実行後の写真です↓
|
|
59
|
+
|