よろしくお願いします。
下記のようなExcelシートがあります。
ID 検索番号 順番 データ
1 44 9252 いわし
2 8 9256 えりんぎ
3 37 9258 おちゃづけ
4 37 9258 おにぎり
5 3 9284 まつたけ
6 44 9253 うに
検索番号フィールドとデータフィールドの関係は、別のテーブルで保持している検索番号に対応するデータと親子関係のようになっています。順番フィールドには、同じ検索番号のデータ間で優先順位を決めるためのフィールドにしたいと考えています。
順番フィールドには、ExcelのCODE関数で文字コードを取得し順番を決めようとしたのですが、先頭文字のみのコード化ですので、2文字目以降が異なる場合上記ケースではうまくいきませんでした。
長々と書いてしまいましたが、教えていただきたい事は下記の通りです。
・検索番号による結果に対し五十音順に数字をふる方法
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ユーザー定義関数(VBA)を使ってもいいなら
Alt+F11でVisual Basic Editor を開き、モジュール(なければ挿入メニューで追加)に
下記のコードを作成
Function BCODE(MOJI)
If Len(MOJI) = 0 Then GoTo BCODE_END
For I = 1 To Len(MOJI)
X = AscW(Mid(MOJI, I, 1))
BCODE = BCODE & X
Next I
BCODE_END:
End Function
セルに
=BCODE("いわし")
とすると123561243112375という文字(1文字が5桁のASCコード)が表示されます。
ちなみに他の文字でためすと
うに 1235812395
えりんぎ 12360124261243512366
おちゃづけ 1236212385124191238912369
おにぎり 12362123951236612426
まつたけ 12414123881238312369
うめぼし 12358124171241212375
ウメボシ 12454125131250812471
梅干 2675724178
No.2
- 回答日時:
要は、「おちゃづけ」と「おにぎり」が異なる「順番」になれば良いのなら、「先頭文字」と「末尾文字」のコードを組み合わせたら如何かと。
つまり、…C2: =CODE(D2)&CODE(RIGHT(D2,1))
A B C D
1 ID 検索番号 順番 データ
2 1 44 92529271 いわし
3 2 8 92569262 えりんぎ
4 3 37 92589265 おちゃづけ
5 4 37 92589322 おにぎり
6 5 3 93109265 まつたけ
7 6 44 92549291 うに
でも、この方法は「いわし」と「いためし」が同じ「順番」になる不具合がありますが…
No.1
- 回答日時:
◆これで、いかがでしょうか?
A B C D
1 ID 検索番号 順位 データ
2 1 44 1 いわし
3 2 8 3 えりんぎ
4 3 37 4 おちゃづけ
5 4 37 5 おにぎり
6 5 3 6 まつたけ
7 6 44 2 うに
C2=IF(COUNTA(D:D)<ROW(),"",COUNTIF($D$2:$D$10,"<="&$D$2:$D$10))
★下にコピー
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Oracle 質問です。 下記のテーブルとデータがあり、 取得想定結果のように出力したいです。 下記のsqlだと0 2 2023/05/23 19:10
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Excel(エクセル) エクセル 行番号を自動で振るには 3 2022/08/08 20:19
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
アクセスクエリの計算
-
エクセルのデータをアクセスに...
-
【至急・画像あり】建物or住所...
-
Accessのリンクテーブルのパス...
-
Accessのクエリで、replace関数...
-
日付のテキストボックスに(例...
-
Accessのスプレッドシートエク...
-
Access VBA を利用して、フォル...
-
Microsoft Accessをクレジット...
-
Accessのデータ型の日付/時刻型...
-
accessの代わりになるもの
-
ms access 2013で、チェックボ...
-
マイクロソフト アクセス2021の...
-
エクセルのマクロについて教え...
-
AccessVBAで任意の複数リンクテ...
-
Access Error3061 パラメータが...
-
Access VBA [リモートサーバー...
-
Accessのフォーム上のテキスト...
-
accessでlaccdbファイルが削除...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
Accessのリンクテーブルのパス...
-
Access VBA [リモートサーバー...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
CSVファイルの「0落ち」にVBA
-
【Access】Dcount関数の複数条...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
実行時エラー3131 FROM 句の構...
-
Vba Userformを前面に出すについて
-
Accessでフォームに自動入力し...
-
Accessレポートのチェックボッ...
-
Accessのテキストボックスの入...
-
Access 複数条件検索の設定が上...
-
accessのフォームに設置したボ...
おすすめ情報