Excel VBA質問箱 IV

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

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


14862 / 76734 ←次へ | 前へ→

【67360】Re:5桁の数字の2番目と4番目に数字を入れる
発言  kanabun  - 10/11/27(土) 23:44 -

引用なし
パスワード
   ▼Yoshim さん:
こんにちは〜

>セル位置は随時選択で固定しておりません。
>その数字の2番目に自在の数字を、また4番目に自在の数字を入れたいのです

>元の数字
>23456
>
>変更後の数字
>2934586 ←9と8を入れた結果です。

ワークシート関数のReplaceを使った方法です。

Sub Try1()
 Const prompt = "挿入する数値を2つカンマで区切って入力してください"
 Dim i As Integer
 Dim Num
 Num = Application.InputBox(prompt, , "9,8", Type:=2)
 If InStr(Num, ",") = 0 Then Exit Sub
 
 Num = Split(Num, ",")
 With Selection
   .Value = Application.Replace( _
        Application.Replace(.Cells, 2, 0, Num(0)) _
        , 4 + Len(Num(0)), 0, Num(1))
 End With
End Sub

ワークシート関数のあるものは Applicationクラスのメソッドとして
使うと、複数セル範囲を一括処理することができます。

なお、InputBoxで [9,8] を指定したとき、
セルの値が  23456 であれば、
上の結果は 2934856 となります。
なので、
> 2934586 
としたいときは、
Application.Replaceメソッドの第2引数の値を調整してください。
2 hits

【67359】5桁の数字の2番目と4番目に数字を入れる Yoshim 10/11/27(土) 22:28 質問
【67360】Re:5桁の数字の2番目と4番目に数字を入れ... kanabun 10/11/27(土) 23:44 発言
【67369】Re:5桁の数字の2番目と4番目に数字を入れ... Yoshim 10/11/28(日) 13:58 お礼

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