Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9282 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ある文字列の中に、他の文字を途中に挿入したい
実際に作ってみたのですが、他に簡単な式とかあるのでしょうか？

２文字目に[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でした訳ではないのでうち間違いです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9282 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free