|
▼ichinose さん:
こんにちわ!
確認してみたところ・・・
『出来ました。』
謎が解けてうれしいです。
本当にありがとうございました。
これからもよろしくお願いします。!!
>▼吉 さん:
>こんばんは。
>
>>はじめまして、よろしくお願いします。
>>
>>A1のセルに、幅0.25*長さ2.0*高さ0.5
>> ↓
>>B1のセルに、0.25*2.0*0.5
>>
>>A2のセルに、(上幅0.2+下幅0.2)*0.5*長さ2.5
>> ↓
>>B2のセルに、(0.2+0.2)*0.5*2.5
>>
>>と言うように『全角文字列のみを削除』して表示させたいのですが、
>>本を読んでも、どう処理させて良いか分かりません。
>>どなたか教えて下さい。
>標準モジュールに以下のコードを記述して下さい。
>
>'==================================================
>Sub main()
> Range("b1").Value = del_wide(Range("a1").Value)
>End Sub
>'===============================================================
>Function del_wide(in_str) As String
> For idx = 1 To Len(in_str)
> If LenB(StrConv(Mid(in_str, idx, 1), vbFromUnicode)) = 1 Then
> del_wide = del_wide & Mid(in_str, idx, 1)
> End If
> Next idx
>End Function
>これでmainを実行してみてください。
>
>又は、セルB1に
>
>「=del_wide(a1)」
>
>とユーザー定義関数として指定してもよいと思います。
>確認してみて下さい。
|
|