Excel VBA質問箱 IV

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

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


9261 / 13644 ツリー ←次へ | 前へ→

【28350】文字列の挿入 あいんすと 05/9/3(土) 1:36 質問[未読]
【28355】Re:文字列の挿入 かみちゃん 05/9/3(土) 10:38 発言[未読]
【28363】Re:文字列の挿入 あいんすと 05/9/3(土) 21:21 お礼[未読]

【28350】文字列の挿入
質問  あいんすと  - 05/9/3(土) 1:36 -

引用なし
パスワード
   ある文字列の中に、他の文字を途中に挿入したい
実際に作ってみたのですが、他に簡単な式とかあるのでしょうか?

2文字目に[12]を入れ, ";[12][8][N]"

Dim A,B As Stirng

A = ";[8][N]" 
B = "[12]"

A = Left(A,1) & B & Mid(A,2)

【28355】Re:文字列の挿入
発言  かみちゃん  - 05/9/3(土) 10:38 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ある文字列の中に、他の文字を途中に挿入したい
>実際に作ってみたのですが、他に簡単な式とかあるのでしょうか?

ご提示のコードで十分簡単だと思いますが、あえて言うならば、次のような考え方もあるかと思います。
1文字目を「1文字目の文字+挿入したい文字列」に置き換える方法です。
A = Replace(A, Left(A, 1), Left(A, 1) & B)

>Dim A,B As Stirng

ちなみに Stirng ではなく、String ではないでしょうか?

【28363】Re:文字列の挿入
お礼  あいんすと  - 05/9/3(土) 21:21 -

引用なし
パスワード
   ▼かみちゃん さん:

ありがとうございます。

>ちなみに Stirng ではなく、String ではないでしょうか?

すいません。VBEでした訳ではないのでうち間違いです。

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