Excel VBA質問箱 IV

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

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


58975 / 76732 ←次へ | 前へ→

【22473】Re:文字のみ削除するにはどうしたらよいのでしょうか?
お礼   E-MAIL  - 05/2/22(火) 11:20 -

引用なし
パスワード
   ▼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)」
>
>とユーザー定義関数として指定してもよいと思います。
>確認してみて下さい。

0 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 お礼

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