人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのマクロについての質問です。
public Hoge As String
と宣言された変数があります。
Hogeは半角スペース区切りの数値
又は空です。

Hoge内の半角スペースを半角カンマに置換したいのですが
どのようにすればいいでしょうか?

●質問者: masashi0316
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:as hoge String エクセル マクロ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● rafile
●100ポイント

for i=1 to len(hoge)

if instr(mid(hoge,i,1)=" ") then

mid(hoge,i,1)=","

end if

next

動かなかったら

for i=1 to len(hoge)

if instr(mid(hoge,i,1)=" ") then

if i=1 then

hoge=","+right(hoge,len(Hoge)-1)

elseif i=len(hoge) then

hoge=left(hoge,i-1)+","

else

hoge=left(hoge,i-1)+","+right(hoge,len(hoge)-i)

end if

next

◎質問者からの返答

KUROX さんの方がカンタンそうなので

そっちでやってみます。

ありがとうございました。


2 ● KUROX
●100ポイント

Hoge = Replace(Hoge," ",",")

http://www.geocities.jp/cbc_vbnet/function/mojireyu_function.htm...

Replace関数がサポートされていたら、これでいけると思います。

◎質問者からの返答

ばっちりです。どうもでした?


3 ● robbie21
●10ポイント
Sub SpaceToComma()
 Dim Hoge As String
 Hoge = "hoge hage hige"
 
 
 'Replaceで置換
 Dim Hoge2 As String
 Hoge2 = Replace(Hoge, " ", ",")
 Debug.Print Hoge2
 
 'とか
 
 'Splitで空白で分割してJoinでつなげるとか
 Dim Hoge3 As String
 Hoge3 = Join(Split(Hoge, " "), ",")
 Debug.Print Hoge3
 
End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ