回答編集履歴
3
コメント修正
test
CHANGED
@@ -190,7 +190,7 @@
|
|
190
190
|
|
191
191
|
If IsNull(wsFrom.Cells(lngFromRowsNo, 3).Value) = False And wsFrom.Cells(lngFromRowsNo, 3).Value <> "" Then
|
192
192
|
|
193
|
-
'
|
193
|
+
' 5.1. C列に文字列が入っている場合、表の明細として[担当者][工数]の値をコピー先の行へ設定する。
|
194
194
|
|
195
195
|
|
196
196
|
|
2
訂正
test
CHANGED
@@ -204,7 +204,7 @@
|
|
204
204
|
|
205
205
|
Else
|
206
206
|
|
207
|
-
Select Case Left(wsFrom.Cells(lngFromRowsNo, 2).Value) 'B列=2 左から2文字を取得
|
207
|
+
Select Case Left(wsFrom.Cells(lngFromRowsNo, 2).Value, 2) 'B列=2 左から2文字を取得
|
208
208
|
|
209
209
|
Case "A1", "A2", "A3"
|
210
210
|
|
1
修正漏れ
test
CHANGED
@@ -48,6 +48,12 @@
|
|
48
48
|
|
49
49
|
|
50
50
|
|
51
|
+
追記
|
52
|
+
|
53
|
+
「セル結合」した場合例として"A1:B2"の4セル結合の場合、値が取得できるのは左上の"A1"が含まれている時のみとなります。("A2","B1","B2"では取得できない)
|
54
|
+
|
55
|
+
|
56
|
+
|
51
57
|
```VBA
|
52
58
|
|
53
59
|
Public Sub sample1()
|