[[20020828164313]]　『支店番号を支店名に変換したい』（名無し２１）　ページの最後に飛ぶ

『支店番号を支店名に変換したい』（名無し２１）

ピポットテーブルで表を作り、その中で支店番号（数字）をひとつひとつ支店名（漢字）に変換しています。マクロや関数を使って一度で変換する事はできるのでしょうか？？

 マクロであれば 容易でしょう。例
Sub test()
For Each c In Worksheets(1).UsedRange
Select Case c.Value
Case "1"
   c.Value = "東京支店"
Case "2"
    c.Value = "大阪支店"
Case "3"
   c.Value = "名古屋支店"
Case "4"
    c.Value = "新潟支店"
End Select
Next
End Sub

   （なお）

 2002/08/28のログですが、マクロを使わない別案。
ピボットテーブルを利用ということで、データベースとなる支店番号を含んだリストは
存在していると推測。また、支店番号に対応する支店名も決まっているでしょうから、
関数でリストに支店名のフィールドを作成して、それを含んだリストからピボットテー
ブルを作成。
　
具体的手順としては・・・
支店番号と支店名のリストを作成
　　＞リストに支店名表示のフィールド追加
　　　　＞検索関数で各レコードの支店番号に対応する支店名表示
　　　　　　＞ピボットテーブル作成時に支店番号の変わりに支店名を利用して作成
　
検索関数に関しては一例として下記を参照のこと。
[エクセルの学校・ライブラリ:VLOOKUP関数 Win]
http://www.excel.studio-kazu.jp/lib/e1tw/e1tw.html
　
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20020828164313]] 『支店番号を支店名に変換したい』（名無し２１） ページの最後に飛ぶ

[[20020828164313]]　『支店番号を支店名に変換したい』（名無し２１）　ページの最後に飛ぶ