Excel VBA質問箱 IV

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

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


49504 / 76732 ←次へ | 前へ→

【32138】Re:8桁の文字を1個ずつ抽出
回答  bykin  - 05/12/6(火) 22:38 -

引用なし
パスワード
   こんばんわ。

差込印刷したいってことやね?
こういうのはワークシート関数と組み合わせたら簡単になるんですわ。

↓こんなんでどーでっか?

【名簿シートの事前準備】
1.A列に1列挿入する。
2.A2から最終データ行まで 1,2,3,4・・・n と、連続データ(数値)を入れる。

【はがきシートの事前準備】
1.検索値用のセルを用意(今回はAA1)し、数値の1を入れておく。
2.E1に =MID(VLOOKUP($AA$1,名簿!$A:$H,5),COLUMN(A1),1)
  と入れ、L1までコピーする。
3.住所氏名のセルに数式を入れる。
  E4:=VLOOKUP($AA$1,名簿!$A:$H,6)
  F5:=VLOOKUP($AA$1,名簿!$A:$H,7)
  G6:=VLOOKUP($AA$1,名簿!$A:$H,8)
  F9:=VLOOKUP($AA$1,名簿!$A:$H,3)
  H9:=VLOOKUP($AA$1,名簿!$A:$H,4)
4.印刷範囲をはがき部分のみにする。(AA1は範囲外とする)
  (対象範囲を選択して、メニューの[ファイル]-[印刷範囲]-[印刷範囲の設定]を実行)

【マクロコード】
Sub test()
  Dim LastRow As Long
  Dim i As Long
  
  With Worksheets("名簿")
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
      If .Cells(i, 2).Value = "レ" Then
        Worksheets("はがき縦").Range("AA1").Value = .Cells(i, 1).Value
        Worksheets("はがき縦").PrintOut
      End If
    Next
  End With
End Sub

郵便番号のハイフンが不要なんやったら、I1:L1を切り取って
H1:K1に貼り付けてください。
それと、名簿シートのendという文字列の入ってるセルは不要です。

試してみてな。
ほな。
0 hits

【32099】8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 14:54 質問
【32101】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 15:08 発言
【32106】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 15:36 発言
【32108】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 15:45 発言
【32112】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 16:02 回答
【32111】Re:8桁の文字を1個ずつ抽出 awu 05/12/6(火) 15:56 回答
【32114】Re:8桁の文字を1個ずつ抽出 awu 05/12/6(火) 16:05 発言
【32116】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 16:08 発言
【32117】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 16:21 回答
【32138】Re:8桁の文字を1個ずつ抽出 bykin 05/12/6(火) 22:38 回答
【32157】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/7(水) 16:03 お礼
【32115】Re:8桁の文字を1個ずつ抽出 Kein 05/12/6(火) 16:05 回答

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