Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59006 / 76732 ←次へ | 前へ→

【22440】Re:文字のみ削除するにはどうしたらよいのでしょうか?
回答  ichinose  - 05/2/21(月) 0:11 -

引用なし
パスワード
   ▼吉 さん:
こんばんは。

>はじめまして、よろしくお願いします。
>
>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)」

とユーザー定義関数として指定してもよいと思います。
確認してみて下さい。
2 hits

【22439】文字のみ削除するにはどうしたらよいのでしょうか? 05/2/20(日) 23:30 質問
【22440】Re:文字のみ削除するにはどうしたらよいの... ichinose 05/2/21(月) 0:11 回答
【22473】Re:文字のみ削除するにはどうしたらよいの... 05/2/22(火) 11:20 お礼
【22486】ichinose さん お願いします 05/2/22(火) 19:22 質問
【22506】評価式の値を算出 ichinose 05/2/23(水) 0:23 発言
【22509】Re:評価式の値を算出 05/2/23(水) 8:59 お礼

59006 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free