|
▼吉 さん:
こんばんは。
>はじめまして、よろしくお願いします。
>
>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)」
とユーザー定義関数として指定してもよいと思います。
確認してみて下さい。
|
|