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

質問

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

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

宜しくお願い致します。

回答No.1

hakone

こんにちは。

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

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

・・・わからん

お礼

ありがとうございます。