データの並び順を調査 ： Excel
Excel VBAで２つの文字列を比較するには、StrComp関数を使います。
・StrCompの構文
StrComp(string1, string2[, compare])
並び順として戻り値をみると、下のようになります。
-1 ： 昇順
0 ： 同じ
1 ： 降順
・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
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