データの並び順を調査 : Excel(エクセル)

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

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

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

Excel Tipsメニューに戻る

スポンサードリンク





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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved