Excel VBA質問箱 IV

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

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


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

49508 / 76736

←次へ　｜　前へ→


	【32138】Re:８桁の文字を１個ずつ抽出

ｂｙｋｉｎ - 05/12/6(火) 22:38 -


	引用なし

	パスワード

こんばんわ。

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

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

【名簿シートの事前準備】
１．Ａ列に１列挿入する。
２．Ａ２から最終データ行まで 1,2,3,4・・・n と、連続データ（数値）を入れる。

【はがきシートの事前準備】
１．検索値用のセルを用意（今回はＡＡ１）し、数値の１を入れておく。
２．Ｅ１に　=MID(VLOOKUP($AA$1,名簿!$A:$H,5),COLUMN(A1),1)
　　と入れ、Ｌ１までコピーする。
３．住所氏名のセルに数式を入れる。
　　Ｅ４：=VLOOKUP($AA$1,名簿!$A:$H,6)
　　Ｆ５：=VLOOKUP($AA$1,名簿!$A:$H,7)
　　Ｇ６：=VLOOKUP($AA$1,名簿!$A:$H,8)
　　Ｆ９：=VLOOKUP($AA$1,名簿!$A:$H,3)
　　Ｈ９：=VLOOKUP($AA$1,名簿!$A:$H,4)
４．印刷範囲をはがき部分のみにする。（ＡＡ１は範囲外とする）
　　（対象範囲を選択して、メニューの[ファイル]-[印刷範囲]-[印刷範囲の設定]を実行）

【マクロコード】
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

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

試してみてな。
ほな。

0 hits

▼

【32099】８桁の文字を１個ずつ抽出 ぼんぼん 05/12/6(火) 14:54