[[20091111154351]]　『文字を表示させない方法』（みかん）　ページの最後に飛ぶ

『文字を表示させない方法』（みかん）

こんにちは、色々と調べたのですがやはりわからなかったので質問させて頂きます。

エクセルで、
ＡＨ5に名前を入力すると名簿マスターというシートに表になった人の名前が
それぞれの位置に反映されるものを作りました。
=IF($AF$5="","",VLOOKUP($AF$5,名簿マスター!$A$3:$T$1000,12,FALSE))
↑
例

年賀状印刷をかける為に、
名簿マスターというシートに住所録
年賀状印刷というシートに年賀状印刷のシートを作成しました。

・住所
・会社名
・部署名
・氏名

が反映されるようになっているのですが、
部署名がない人の部署名のランクが「0」と表記されてしまいます。
データは100枚以上あるので一枚一枚に0を消す作業をする時間がありません。
（連続印刷をかけるので）

そこで、部署名等の表記が無い方の時に「0」が表記されない
マクロ等はありますでしょうか？

初心者なので質問の仕方がめちゃくちゃになってしまいましたが、
どなたかおわかりになる方がいましたらご指導お願い致します。

 ・表示形式 ;;;@
 ・オプションで「ゼロ値非表示」
 ・=IF($AF$5="","",VLOOKUP($AF$5,名簿マスター!$A$3:$T$1000,12,FALSE)&"")
                                                                    ^^^^
  とか？

  (gobgob)

「0」を非表示にするのはだめですか？

 ツール　→　オプション　→　表示方法　→　ゼロ値チェックをはずす。

 （AA）

gobgobさんＡＡさん、コメントありがとう御座いました。
どちらのやり方でも出来ました！！感激です！
本当にありがとうございました。

度々申し訳ありません。

名簿マスターに新規登録のマクロボタンを作成しました。

押すとコンボボックスが出てきて氏名等を入力できる様にしました。

今現在は登録ボタンを押すと、

入力済みの行の下にデータが反映される様になっているのですが、

新規登録というシートを作成し、そこに移行したいのですが

こういった事は可能なのでしょうか？

Private Sub CommandButton1_Click()

    Dim 選択行 As Integer
    Dim 参照範囲行 As Integer
    Dim 参照番号 As Variant
    Dim 参照元 As Variant

        If TextBox1 = "" Then

            Label16.Caption = "氏名を入力してください。"

            TextBox1.SetFocus

        Else

            Label16.Caption = ""

            Label17.Caption = "検索中です。"
            DoEvents

            参照番号 = TextBox1.Value

            For 参照範囲行 = 3 To 1000
            参照元 = Cells(参照範囲行, 2).Text

                If 参照元 = 参照番号 Then
                    選択行 = 参照範囲行
                End If

            Next 参照範囲行

            If 選択行 <> 0 Then

' TextBox1.Text = Cells(選択行, 2).Value '氏名

                TextBox4.Text = Cells(選択行, 3).Value  'フリガナ
                ComboBox1.Text = Cells(選択行, 4).Value '敬称
                ComboBox2.Text = Cells(選択行, 5).Value '分類１
                ComboBox3.Text = Cells(選択行, 6).Value '分類２
                TextBox6.Text = Cells(選択行, 7).Value '会社名
                TextBox7.Text = Cells(選択行, 8).Value '部署名１
                TextBox8.Text = Cells(選択行, 9).Value '部署名２
                TextBox9.Text = Cells(選択行, 10).Value '役職名
                TextBox10.Text = Cells(選択行, 11).Value '郵便番号１
'                TextBox11.Text = Cells(選択行, 12).Value '郵便番号２
                TextBox12.Text = Cells(選択行, 13).Value '住所１
                TextBox13.Text = Cells(選択行, 14).Value '住所２
                TextBox14.Text = Cells(選択行, 15).Value '電話番号
                TextBox15.Text = Cells(選択行, 16).Value 'ファックス

                TextBox16.Text = Cells(選択行, 17).Value '携帯電話
                TextBox17.Text = Cells(選択行, 1).Value '行番号
                TextBox18.Text = Cells(選択行, 12).Value 'E-Mail

                Label17.Caption = ""
                     DoEvents

            Else

                Label16.Caption = "その氏名は存在しません。"

                Label17.Caption = ""

            End If

        End If

    End Sub

ご指導お願いします！！

 ↓の方と同じ方かと思いまして
[[20091112112240]]『VBAの機能追加について』
 「先に↑を済ませてから」と思っていたのですが
 もしかして、違う方でしたか？

 違う方でしたら、もう少しお伺いしたい事がありますので
 ご返信頂ければと思います。

 同じ方でしたら、あちらで続けたいと思いますので
 あちらへ移動して頂ければと思います。
 　（向こうへご返信下さい。）

 (HANA)

 マルチポストでしたか　(mitsu)
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=63502;id=excel

コメント返信：

[ 一覧(最新更新順) ]

[[20091111154351]] 『文字を表示させない方法』（みかん） ページの最後に飛ぶ

[[20091111154351]]　『文字を表示させない方法』（みかん）　ページの最後に飛ぶ