[[20060306085255]]　『並び替えについて』（きき）　ページの最後に飛ぶ

『並び替えについて』（きき）

 お世話になります。よろしくお願いします。
 A列に会員番号、B列に氏名が入っている表があります。
 この表にユーザーフォームを使用しデータを追加しているのですが、ユーザーフォーム
 のテキストボックスから氏名を登録すると読み情報が消されてしまうらしく、追加した 
 データが五十音順に並び替えられません。
 コマンドボタンでB列のデータを五十音順に並び替えをさせたいのですが、どんなマクロ
 にすればよいでしょうか？

 フリガナをつけてしまってはいかがですか？(chao)
以下、ヘルプより
 *****
SetPhonetic メソッド
指定された範囲内のすべてのセルに Phonetic オブジェクトを作成します。
構文
expression.SetPhonetic
expression   Range オブジェクトを表すオブジェクト式を指定します。
解説
指定した範囲に既存の Phonetic オブジェクトが含まれている場合、このメソッドを使用して追加される、
新しい Phonetic オブジェクトに自動的に上書き (既存は削除) されます。

 ありがとうございます。やはりふりがなをつけるのがいいですかね。
 「SetPhonetic メソッド」これはworksheetにコードを書けばいいのですか？
 初歩的なですいませんが教えてください。
（きき）

 氏名をシートに入力するとき使っているRangeオブジェクトに付けてしまえばよいのではないでしょうか？
(chao)

 例えば
With Range("A1")
.Value = TextBox1.Value
.SetPhonetic
End With
のような感じで。
(chao)

 A,B列の上から順に登録するため下のようにしています

 If TextBox2 = "" Then Exit Sub
 Range("a1").Select
 Do
 ActiveCell.Offset(1, 0).Select
 Loop Until ActiveCell = ""
 ActiveCell.Value = TextBox1.Value
 ActiveCell.Offset(0, 1).Select
 ActiveCell.Value = TextBox2.Value
 chaoさんのを参考に

 With Activecell.Value=Textbox2.Value.Setphonetic
 End With
 としたら出来ませんでした。この場合はどうしたらいいですか？
 何度も聞いてしまいすいません。
 （きき）

 ???
ActiveCell.Value = TextBox2.Value
ActiveCell.SetPhonetic
では？
(chao)

なるほど。難しく考えすぎていました。

 おかげさまできちんとできました。ありがとうございます。
 ・・・またお世話になるとおもいますがよろしくお願いします。
 （きき）

コメント返信：

[ 一覧(最新更新順) ]

[[20060306085255]] 『並び替えについて』（きき） ページの最後に飛ぶ

[[20060306085255]]　『並び替えについて』（きき）　ページの最後に飛ぶ