データの並び順を調査 : Excel

Excel VBAで2つの文字列を比較するには、StrComp関数を使います。

・StrCompの構文
StrComp(string1, string2[, compare])
並び順として戻り値をみると、下のようになります。
-1 : 昇順
0 :  同じ
1 : 降順


Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

Excel実行画面

上の並び順ボタンで、Access と Excel を比較します。
下の並び順ボタンで、大木雄二 と 阿山佐知子 を比較します。
ふりがな並び順ボタンで、大木雄二のふりがな と 阿山佐知子のふりがな を比較します。
デバッガでみると、大木雄二は「オオキユウジ」、 阿山佐知子「アヤマサチコ」に変換し比較されています。
並び順の比較ソフト

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim n As Integer
    
    '文字列を比較する
    n = StrComp(Range("B2"), Range("B3"))
    '結果表示
    Select Case n
        Case -1:    MsgBox "昇順"
        Case 0:    MsgBox "同じ"
        Case 1:    MsgBox "降順"
    End Select
    
End Sub

Private Sub CommandButton2_Click()
    Dim n As Integer
    
    '文字列を比較する
    n = StrComp(Range("B7"), Range("B8"))
    '結果表示
    Select Case n
        Case -1:    MsgBox "昇順"
        Case 0:    MsgBox "同じ"
        Case 1:    MsgBox "降順"
    End Select

End Sub

'ふりがな並び順
Private Sub CommandButton3_Click()
    Dim n As Integer
    
    '文字列を比較する
    n = StrComp(Range("B7").Phonetic.Text, Range("B8").Phonetic.Text)
    '結果表示
    Select Case n
        Case -1:    MsgBox "昇順"
        Case 0:    MsgBox "同じ"
        Case 1:    MsgBox "降順"
    End Select

End Sub


Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved