パック十進数に変換するには？ (ID:90840)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 要するに表現できない文字ですね。 Dim s As String Dim i As Integer Dim ss As String s = ". ." For i = 1 To Len(s) ss = ss & " " & CStr(Asc(Mid(s, i, 1))) Next Debug.Print ss 「. .」の替わりに変換後の文字を入れて ssを教えてください。