EXCELの関数でエンコードをしたい

ＭＳ－ＥＸＣＥＬの関数を使ってsjisに
エンコードすることはできますか？

参考：
ウエダ
をs-jisにエンコードすると、
%83E%83G%83_
となります。
エンコードフォーム（http://home.kendomo.net/board/decode/decode.php
）使用

宜しくお願い致します。

No.1 ベストアンサー 回答者： hakone 回答日時： 2004/07/31 22:05

こんにちは。

適当にユーザー定義関数を作ってみたけど、
ロジック自体に自信がないです。

Function S_JIS(s1 As String) As String
　　Dim b() As Byte
　　Dim s2 As String
　　Dim i As Long

　　b = StrConv(s1, vbFromUnicode)
　　s2 = ""
　　For i = 0 To UBound(b)
　　　　'A～Z、a～z、0～9、* - . @ _ はそのままに。
　　　　If b(i) = 42 Or b(i) = 45 Or _
　　　　　　b(i) = 46 Or b(i) = 64 Or b(i) = 95 Or _
　　　　　　(48 <= b(i) And b(i) <= 57) Or _
　　　　　　(65 <= b(i) And b(i) <= 90) Or _
　　　　　　(97 <= b(i) And b(i) <= 122) Then
　　　　　　s2 = s2 & Chr(b(i))
　　　　Else
　　　　　　s2 = s2 & "%" & Right$("00" & Hex$(b(i)), 2)
　　　　End If
　　　　
　　Next
　　'半角スペースは に変換。
　　S_JIS = Replace(s2, "%20", "+")
End Function

・・・わからん

この回答へのお礼

ありがとうございます。

お礼日時：2004/08/01 22:08