Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29658 / 76738

←次へ　｜　前へ→


	【52357】結合セル

ウッシー - 07/11/10(土) 20:30 -


	引用なし

	パスワード

Worksheets("名簿")のＢ列に入力した値とWorksheets("データ")のＡ列の値を比較
して、Worksheets("名簿")にコピーし作業員名簿を作成しています。

Worksheets("名簿")
　 A　 B　C　D　　 E　　　　 F
1　　　　　　　雇入年月日
2　　氏名　　　経験年数
3
4
5
6

結合セル
　Ｂ列　B3.B4.B5.B6
　Ｅ列　E3.E4 と E5.E6
以下同様のパターンで繰り返します。

Worksheets("データ")
　 A　 B　 C　 D　　　E　　　　　F
1　　氏名　　　　雇入年月日　経験年数
2
3

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim x As Variant
　　Dim Ws As Variant
　　
　　Set Ws = Worksheets("データ")
　　With Target
　　　　If .Column <> 2 Then Exit Sub
　　　　If .Row < 3 Then Exit Sub
　　　　If .Count > 1 Then Exit Sub
　　End With
　　With Application
　　　　.EnableEvents = False
　　　　x = .Match(Target.Value, Ws.Range("A:A"), 0)
　　End With
　　With Target
　　　　On Error Resume Next
　　　　.Resize(, 4).Value = Ws.Cells(x, 2).Resize(, 4).Value
　　　　.Offset(2, 3).Value = Ws.Cells(x, 6).Value
　　　　On Error GoTo 0
　　End With
　　Application.EnableEvents = True
End Sub

上記のマクロを実行した所、E5.E6結合セルに経験年数がコピーされません。
作業員名簿の表は業界統一様式の為変更も出来ず、苦慮しております。
宜しくお願いいたします。

0 hits

▼

【52357】結合セル ウッシー 07/11/10(土) 20:30

≪