機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAの関数

IMEStatus関数



構文
IMEStatus
引数はありません。

解説
IMEの現在の状況を示す整数値を返します。
IMEStatus関数の戻り値は次のとおりです。
定数  値  内容
 vbIMEModeNoControl   0   IMEはインストールされていません 
 vbIMEModeOn   1   IMEはオンの状態です 
 vbIMEModeOff   2   IMEはオフの状態です 
 vbIMEModeDisable   3   IMEは利用禁止状態です 
 vbIMEModeHiragana   4   IMEは全角ひらがな入力モードです 
 vbIMEModeKatakana   5   IMEは全角カタカナ入力モードです 
 vbIMEModeKatakanaHalf   6   IMEは半角カタカナ入力モードです 
 vbIMEModeAlphaFull   7   IMEは全角英数入力モードです 
 vbIMEModeAlpha   8   IMEは半角英数入力モードです 

サンプル
次の例は、現在のIMEの状況を表示します。

Sub Sample()
    Dim msg As String
    Select Case IMEStatus
    Case vbIMEModeNoControl
        msg = "IMEはインストールされていません"
    Case vbIMEModeOn
        msg = "IMEはオンの状態です"
    Case vbIMEModeOff
        msg = "IMEはオフの状態です"
    Case vbIMEModeDisable
        msg = "IMEは利用禁止状態です"
    Case vbIMEModeHiragana
        msg = "IMEは全角ひらがな入力モードです"
    Case vbIMEModeKatakana
        msg = "IMEは全角カタカナ入力モードです"
    Case vbIMEModeKatakanaHalf
        msg = "IMEは半角カタカナ入力モードです"
    Case vbIMEModeAlphaFull
        msg = "IMEは全角英数入力モードです"
    Case vbIMEModeAlpha
        msg = "IMEは半角英数入力モードです"
    End Select
    MsgBox msg
End Sub



このエントリーをはてなブックマークに追加