teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

3

コメント修正

2020/09/27 10:07

投稿

kuma_kuma_
kuma_kuma_

スコア2506

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
- ' 4.1. C列に"担当者"という文字列が入っている場合、表のヘッダーとして[年月]の値をコピー先の行へ設定する。
97
+ ' 5.1. C列に文字列が入っている場合、表の明細として[担当者][工数]の値をコピー先の行へ設定する。
98
98
 
99
99
  ' ※コピー先の行へ設定した場合追加なので、コピー先は次の行へ移動
100
100
  lngToRowsNo = lngToRowsNo + 1

2

訂正

2020/09/27 10:07

投稿

kuma_kuma_
kuma_kuma_

スコア2506

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

修正漏れ

2020/09/27 10:00

投稿

kuma_kuma_
kuma_kuma_

スコア2506

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
  '-------------------------------------------------------------------------------