掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メッセージボックスにハングル文字を表示するには？ (ID：80839)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Excel VBAのMsgBox関数は、Unicodeに対応していません。 WideバージョンのMessageBox APIで代用してみてください。 ====== 呼び出し側 ===== MsgBoxW ActiveWorkbook.ActiveSheet.Cells(1, 1).Value ====== 標準モジュール ===== Option Explicit Private Declare Function MessageBoxW Lib "User32" _ (ByVal hWnd As Long, _ ByRef lpText As Byte, _ ByRef lpCaption As Byte, _ ByVal uType As Long) As Long Public Function MsgBoxW( _ ByVal Prompt As String, _ Optional ByVal Button As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString) As VbMsgBoxResult Dim abytPrompt() As Byte Dim abytTitle() As Byte abytPrompt = Prompt & vbNullChar If StrPtr(Title) = 0 Then abytTitle = Application.Name & vbNullChar Else abytTitle = Title & vbNullChar End If MsgBoxW = MessageBoxW(Application.hWnd, abytPrompt(0), abytTitle(0), Button) End Function
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.