teratail
回答率
85.48%
質問するログイン新規登録
トップVBAに関する質問VBAでアンケート結果を振り分けたい

編集履歴

回答編集履歴

3

コード修正

2016/11/06 05:11

投稿

ynakano
ynakano

スコア1894

test CHANGED
@@ -16,7 +16,7 @@
16
16
 
17
17
 
18
18
 
19
- その前提でコードを書いてみました。
19
+ その前提でコードを書いてみました。**(2016/11/6 14:10編集)**
20
20
 
21
21
  ```ここに言語を入力
22
22
 
@@ -30,9 +30,9 @@
30
30
 
31
31
 
32
32
 
33
- For i = 1 To Worksheets("入力").Range("C1").CurrentRegion.Rows.Count
33
+ For i = 1 To Sheets("入力").Range("C1").CurrentRegion.Rows.Count
34
34
 
35
- Select Case Worksheets("入力").Cells(i, 3).Value
35
+ Select Case Sheets("入力").Cells(i, 3).Value
36
36
 
37
37
  Case "1.Aチーム"
38
38
 
@@ -52,15 +52,15 @@
52
52
 
53
53
  Case "5.Eチーム"
54
54
 
55
- DstSheet = "Aチーム"
55
+ DstSheet = "Eチーム"
56
56
 
57
57
  End Select
58
58
 
59
59
 
60
60
 
61
- DstRows = Worksheets(DstSheet).Range("A1").CurrentRegion.Rows.Count + 1
61
+ DstRows = Sheets(DstSheet).Range("A1").CurrentRegion.Rows.Count + 1
62
62
 
63
- Worksheets("入力").Range(Cells(i, 3), Cells(i, 33)).Copy Destination:=Worksheets(DstSheet).Cells(DstRows, 1)
63
+ Sheets("入力").Range(Cells(i, 3), Cells(i, 33)).Copy Destination:=Sheets(DstSheet).Cells(DstRows, 1)
64
64
 
65
65
  Next
66
66
 

2

誤字修正

2016/11/06 05:11

投稿

ynakano
ynakano

スコア1894

test CHANGED
@@ -96,4 +96,4 @@
96
96
 
97
97
  ※レコードはC列からAG列のようですが、転記は本当にD列からAG列なのでしょうか？(私のコードはC列からコピーする書き方にしています)
98
98
 
99
- ※Office365ではテストしていないです。済みません。Excel2013で確認してます。」
99
+ ※Office365ではテストしていないです。済みません。Excel2013で確認してます。

1

疑問点追記

2016/11/05 12:33

投稿

ynakano
ynakano

スコア1894

test CHANGED
@@ -94,4 +94,6 @@
94
94
 
95
95
 
96
96
 
97
+ ※レコードはC列からAG列のようですが、転記は本当にD列からAG列なのでしょうか？(私のコードはC列からコピーする書き方にしています)
98
+
97
99
  ※Office365ではテストしていないです。済みません。Excel2013で確認してます。」