質問編集履歴

2

構文修正

2021/08/19 07:51

投稿

SatokoH
SatokoH

スコア9

test CHANGED
File without changes
test CHANGED
@@ -30,15 +30,19 @@
30
30
 
31
31
 
32
32
 
33
-
34
-
35
33
  <入力シート>
36
34
 
37
35
  ![![イメージ説明](c01daecfae23e5f5d4d1b6b67389eca0.jpeg)](0bb60248479035620ff6e1cb48c6c9f5.jpeg)
38
36
 
39
37
  <転記シート>
40
38
 
41
- ![イメージ説明](7b550ab938b52d813b952f855a35131a.jpeg)
39
+ ![イメージ説明](4971eb51898de4783d05dbc8b0a7c8aa.jpeg)
40
+
41
+
42
+
43
+
44
+
45
+ 下記構文の場合、転記行がずれてしまう。またIF文が正しくないため、エラーになっております
42
46
 
43
47
 
44
48
 

1

構文修正

2021/08/19 07:51

投稿

SatokoH
SatokoH

スコア9

test CHANGED
File without changes
test CHANGED
@@ -22,7 +22,7 @@
22
22
 
23
23
  大変恐縮ですが上記2つにつき教えてください。
24
24
 
25
- どうぞよろしくお願いいたしま
25
+ どうぞよろしくお願いいたしま
26
26
 
27
27
 
28
28
 
@@ -39,3 +39,53 @@
39
39
  <転記シート>
40
40
 
41
41
  ![イメージ説明](7b550ab938b52d813b952f855a35131a.jpeg)
42
+
43
+
44
+
45
+ ```ここに言語を入力
46
+
47
+ Sub 起票シートに転記()
48
+
49
+ Dim ws As Worksheet
50
+
51
+ Set ws = Worksheets("起票")
52
+
53
+ With Worksheets("入力シート")
54
+
55
+ ws.Cells(Rows.Count, 2).End(xlUp).Offset(1) = .Range("D5")
56
+
57
+ ws.Cells(Rows.Count, 4).End(xlUp).Offset(1) = .Range("D4")
58
+
59
+ ws.Cells(Rows.Count, 5).End(xlUp).Offset(1) = .Range("D6")
60
+
61
+ ws.Cells(Rows.Count, 6).End(xlUp).Offset(1) = .Range("D7")
62
+
63
+ ws.Cells(Rows.Count, 7).End(xlUp).Offset(1) = if(range("D8")="中国"or"ベトナム" then
64
+
65
+ Application.WorksheetFunction.Concat(.Range("F8"), Range("D10"))
66
+
67
+ Else
68
+
69
+ .Range ("D10")
70
+
71
+ End If
72
+
73
+ ws.Cells(Rows.Count, 8).End(xlUp).Offset(1) = .Range("D11")
74
+
75
+ .Range("F9").Copy
76
+
77
+ ws.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
78
+
79
+
80
+
81
+
82
+
83
+ .PrintOut
84
+
85
+ .Range("D4:D11") = ""
86
+
87
+ End With
88
+
89
+ End Sub
90
+
91
+ ```