このスレ面白いのになかなか伸びないね。 Public Function GetLupin(DT As String) Dim Buff As String
For i = 1 To Len(DT) Buff = StrConv(Mid(DT, i, 1), vbFromUnicode) If LenB(Buff) = 1 Then GetLupin = GetLupin & "%" & Trim(Hex$(AscB(Buff))) Else Buff = Format$(Hex$(AscW(Buff)), "@@@@") GetLupin = GetLupin & "%" & Right$(Buff, 2) GetLupin = GetLupin & "%" & Left$(Buff, 2) End If Next i End Function これをExcelVBAに貼り付けてもりあがろ。 http://www.oak.dti.ne.jp/~niku/R3_temp.swf?inputStr=%82%B2%82%DF%82%F1%82%CB%82%C4%82%AB%82%C6%81%5B%82%C5