Excel VBA質問箱 IV

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

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


29652 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   Worksheets("名簿")のB列に入力した値とWorksheets("データ")のA列の値を比較
して、Worksheets("名簿")にコピーし作業員名簿を作成しています。

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

結合セル
 B列 B3.B4.B5.B6
 E列 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 質問
【52359】Re:結合セル かみちゃん 07/11/10(土) 21:30 発言
【52360】Re:結合セル ウッシー 07/11/10(土) 21:57 質問
【52365】Re:結合セル かみちゃん 07/11/10(土) 23:56 発言
【52370】Re:結合セル ウッシー 07/11/11(日) 12:13 お礼

29652 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free