[[20110810131308]]　『性別欄「男・女」に〇印をつける』（はなちゃん）　ページの最後に飛ぶ

『性別欄「男・女」に〇印をつける』（はなちゃん）

差込機能を用いて、sheet1の名簿から男女別の文字を参照して、
別のシート（sheet2）の個人票の性別欄「男・女」に丸印を付けるためのマクロを教えてください。

 差込機能って何ですか？(ROUGE)

名簿一覧のデータベースから名前、性別等の情報を一人ひとりの個人票に差し込み印刷をしたいと思います。
その際に、個人票の性別欄には既に「男・女」の欄を設けてあり、○印を振り分けたいのです。（はなちゃん）

 横から失礼します。
 はなちゃんへ
 差し込み機能って何ですかと(ROUGE)さんが尋ねていますよ。
 まずそれから答えていかないと答えは出ないと思いますよ。
 (kk)

（ROUGE)さん、(kk)さんへ

 大変失礼しました。
 「差込機能」と書いたのは、sheet１のデータを参照して、sheet2でVLOOKUP関数を用いて、各項目にデータを入れて、印刷することを言いました。
 （表現が間違いであれば、失礼しました。）
 ＜具体的には＞
 shhet1には、
 　　　　名前　　　性別　　年齢　　・・・・・・
 1　　山田　一郎　　男　　　20　　　・・・・
 2　　山本　花子　　女　　　17　　　・・・・
 ・
 ・

 shhet2には、個人の票として

 名前　　山田　一郎
 性別　　男　　・　　女　（この欄に、sheet1のデータを参照して、図形で○を付ける。）
 年齢　　20
 ・
 ・
 （個人票を印刷する。）

 このように、sheet1の性別（男又は女）のデータを読んで、所定の位置の性別欄に
図形としての「○」印を付けたいと思います。
 尚、sheet2の名前等の各項目へは、VLOOKUP関数でデータをsheet1から参照してデータを
入れています。そして、マクロを使って、個人票を印刷します。

 宜しくお願いします。
 （はなちゃん）

 どこかのセル（セル1）に、男だったら　○　を表示する関数を入力。
 もう一つ他のセル（セル２）に、女だったら　○　を表示する関数を入力。

 テキストボックスを二つ作製し、
 　一つを選択した状態で　数式バーに =セル1 を入力
 　もう一方も　選択して　数式バーに =セル2 を入力

 印を付けたい場所に配置すると、似た感じに出来ると思います。

 フォントを大きくすると線が太く成ると思いますので、気になる様であれば
 細い書体のフォントを使ってみて下さい。

 また、「男　・　女」が一つのセルに書かれている場合は特に
 画面の表示と印刷結果がずれる可能性が有りますので
 テキストボックスの位置は、実際に印刷して調整して下さい。

 (HANA)

 男・女それぞれのときの位置にオートシェイプで○をつけたセルを用意します。
それぞれのセルを名前ボックスなどで　男　女　と名前をつけます。
未入力セルをコピーし、Sheet2の性別欄に、Shiftを押しながら編集を押すと出てくる図のリンク貼り付けをします。
すると数式バーに　=$A$1　などと記入されていますが、それを　=性別　などと変更します。
名前の定義で、性別　を　=INDIRECT(VLOOKUPで性別を検索する式) と入力します。
マクロじゃないけど。。。
(かなれっと)

 参考までに。
シート構成が分からないので、応用してください。
　
Sub test()
Dim ov As Shape, i As Long
With Sheets("Sheet2").Range("B2")
    .Value = "男・女"
    .HorizontalAlignment = xlDistributed
    Set ov = .Parent.Shapes.AddShape(msoShapeOval, .Left, .Top, .Height, .Height)
    ov.Fill.Visible = msoFalse
    ov.Line.Weight = 0.5
    If MsgBox("男？", vbYesNo) = vbNo Then     'この部分は
        ov.Left = .Offset(, 1).Left - .Height 'おまけですので、
    End If                                    '不要です。
End With
                                              'ここでVLookUpの検索値を入れるループ処理を入れておき、
                                              '性別を判定して、オブジェクト「ov」のLeftプロパティ
                                              'を設定してください。
End Sub
　
(ROUGE)

(HANA)さん、（かれっと）さん、(ROUGE)さんへ

 皆さん、ご指導有り難うございます。参考にして応用させて貰います。

特に、(ROUGE)さんから教えて頂いたマクロを、
自作の印刷マクロに組み込むようにトライしてみます。

有り難うございました。

（はなちゃん）

コメント返信：

[ 一覧(最新更新順) ]

[[20110810131308]] 『性別欄「男・女」に〇印をつける』（はなちゃん） ページの最後に飛ぶ

[[20110810131308]]　『性別欄「男・女」に〇印をつける』（はなちゃん）　ページの最後に飛ぶ