回答編集履歴
3
コメント修正
answer
CHANGED
@@ -94,7 +94,7 @@
|
|
94
94
|
Case 2
|
95
95
|
' 5. C列が2セル結合している場合(.MergeCellsがTrueの時に.MergeArea.Count = 2 の場合)
|
96
96
|
If IsNull(wsFrom.Cells(lngFromRowsNo, 3).Value) = False And wsFrom.Cells(lngFromRowsNo, 3).Value <> "" Then
|
97
|
-
'
|
97
|
+
' 5.1. C列に文字列が入っている場合、表の明細として[担当者][工数]の値をコピー先の行へ設定する。
|
98
98
|
|
99
99
|
' ※コピー先の行へ設定した場合追加なので、コピー先は次の行へ移動
|
100
100
|
lngToRowsNo = lngToRowsNo + 1
|
2
訂正
answer
CHANGED
@@ -101,7 +101,7 @@
|
|
101
101
|
End If
|
102
102
|
End Select
|
103
103
|
Else
|
104
|
-
Select Case Left(wsFrom.Cells(lngFromRowsNo, 2).Value) 'B列=2 左から2文字を取得
|
104
|
+
Select Case Left(wsFrom.Cells(lngFromRowsNo, 2).Value, 2) 'B列=2 左から2文字を取得
|
105
105
|
Case "A1", "A2", "A3"
|
106
106
|
' 3. B列に"A1"or"B1"or"C1"で始まる文字列がある場合、[開発]の値として変数に代入しておく。
|
107
107
|
varKaihatsu = wsFrom.Cells(lngFromRowsNo, 2).Value ' [開発]の値
|
1
修正漏れ
answer
CHANGED
@@ -23,6 +23,9 @@
|
|
23
23
|
|
24
24
|
確認のほどよろしくお願いします。
|
25
25
|
|
26
|
+
追記
|
27
|
+
「セル結合」した場合例として"A1:B2"の4セル結合の場合、値が取得できるのは左上の"A1"が含まれている時のみとなります。("A2","B1","B2"では取得できない)
|
28
|
+
|
26
29
|
```VBA
|
27
30
|
Public Sub sample1()
|
28
31
|
'-------------------------------------------------------------------------------
|