使用している言語を取得 : Excel(エクセル)

日本語を使用している場合、「Japan」と表示されています。

Excel Tipsメニューに戻る

スポンサーリンク





Excel VBA コード

Option Explicit

'Excel API宣言 ロケールに関する情報を取得
Private Declare Function GetLocaleInfo Lib "kernel32" Alias _
    "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
    ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Const LOCALE_SYSTEM_DEFAULT = 2048
Private Const LOCALE_SENGCOUNTRY = &H1002


Private Sub CommandButton1_Click()
    Dim buf As String * 256

    'API
    GetLocaleInfo LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, buf, 256
    '取得した言語を表示
    Range("B10") = buf
End Sub

スポンサーリンク





Excel実行結果

■B10に使用されている言語、「Japan」と表示されています。

スポンサーリンク






Excel Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved