| |
▼うくれれ さん：
おはようございます。
>こんにちは。
>帳票印刷のプログラムを作っています。
>
>リストボックスでMultiSelectプロパティで値を「２（拡張（連続）選択を許可する）」にしてます。
ユーザーフォームに貼り付けたリストボックスですか？
こういう説明を怠ってしまうと私にとっても うくれれさんにとっても
マイナスの要因ですよ！！
ユーザーフォームだと思って・・・、
>
>シート１に以下のような表があります（リストボックス上では5行目から表示）。
>またシート２に帳票があります。
> Ａ Ｂ Ｃ Ｄ Ｅ ・・・CX
>１
>２
>３
>４
>５ 氏名 登録番号 発効日 項目１ 項目２・・・項目ｎ
>６ あああ 1111 170516 １ ０ ０
>７ いいい 2222 170926 ０ １ ０
>８ ううう 3333 171020 ０ ０ １
> （以下随時追加される）
>
>リストボックスで選択して（例えばシート１の6行目）コマンドボタンをクリックしたときに、
>
>選択した行の
>１．Ａ６はシート２のＡ５
>２．Ｂ６はシート２のＢ２
>３．Ｄ６は値が１のときはシート２のH8〜J8の外枠に罫線を引く。
>４．Ｅ６はシート２のテキストボックス１に値を入れる。
>５．ｎ６はシート２のテキストボックス２に値を入れる。
>５．シート２の帳票を印刷
>以下選択した行について繰り返し。
>
>といったようなことはどのようにすれば出来ますでしょうか。
>よろしくおねがいします。
シート1というシート名を持つシートに上記のデータがあったとします。
ユーザーフォーム（Userform1）には、
リストボックス --- Listbox1
コマンドボタン----- Commandbutton1
が配置されています。
尚、最初は今抱えているブックにこれから提示するコードをいきなりコピー
するのはなく、新規ブックにサンプルシートとデータを作成し、
この新規ブックにユーザーフォームを作成して試してください。
標準モジュールには
'=============================================
sub main()
userform1,show
end sub
userform1のモジュールには
'==========================================================
Const Link_rw As Long = 6 'リストボックスとリンクするシート１の開始行
'===================================================================
Private Sub UserForm_Initialize()
Dim rng As Range
With Worksheets("シート1")
Set rng = .Range(.Cells(Link_rw, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3)
With ListBox1
.ColumnHeads = True '見出しも表示する設定
.ColumnCount = 3 'シート1の3列分表示
.RowSource = ""
If rng.Row > Link_rw - 1 Then 'データがあれば、リストボックスに登録
.RowSource = rng.Address(, , , True)
End If
End With
End With
Set rng = Nothing
End Sub
'================================================================
Private Sub CommandButton1_Click()
Dim rw As Long
With ListBox1
For idx = 0 To .ListCount - 1
If .Selected(idx) Then '選択されていたら？
rw = Link_rw + idx 'シート1での行番号をセット
Call pr_data(rw) '一行分の印刷処理
End If
Next idx
End With
End Sub
'==================================================================
Sub pr_data(rw As Long)
' 機能：シート1の指定された行のデータをシート2にレイアウトし、
' 印刷する
' 入力データ: rw---- シート1の印刷対象行
'
MsgBox Worksheets("シート1").Cells(rw, 1).Value
'今は、Ａ列のデータを表示しているだけです。
'ここにrwという行を表す変数を使用して印刷するシート１の行を
'シート2にレイアウトして印刷するコードを書きます
End Sub
これで試してください。
|
|
ichinose
- 05/10/26(水) 8:23 -
