Excel VBA質問箱 IV

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

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


1639 / 13646 ツリー ←次へ | 前へ→

【72951】文字列の置換について まい 12/10/16(火) 12:59 質問[未読]
【72952】Re:文字列の置換について ウッシ 12/10/16(火) 13:13 回答[未読]
【72953】Re:文字列の置換について まい 12/10/16(火) 16:10 発言[未読]
【72954】Re:文字列の置換について UO3 12/10/16(火) 16:25 発言[未読]
【72960】Re:文字列の置換について まい 12/10/17(水) 15:57 お礼[未読]

【72951】文字列の置換について
質問  まい  - 12/10/16(火) 12:59 -

引用なし
パスワード
   初めまして。
文字の置換についてご質問させて頂きます。

ExcelブックAからExcelブックBへコピー貼り付けをします。
ブックAにあるのは「11110002222」の状態で、
ブックBに貼り付けるときに「1111-000-2222」のように
間にハイフンを入れたいです。

コピー貼り付けする数字は毎回異なるのですが、
どのように記述すればよいのでしょうか。

ご指導宜しくお願い致します。

【72952】Re:文字列の置換について
回答  ウッシ  - 12/10/16(火) 13:13 -

引用なし
パスワード
   こんにちは

桁数はいつも11桁ですか?

コピー貼り付けのコードはどうなっていますか?
そこに処理を追記すればいいと思います。


▼まい さん:
>初めまして。
>文字の置換についてご質問させて頂きます。
>
>ExcelブックAからExcelブックBへコピー貼り付けをします。
>ブックAにあるのは「11110002222」の状態で、
>ブックBに貼り付けるときに「1111-000-2222」のように
>間にハイフンを入れたいです。
>
>コピー貼り付けする数字は毎回異なるのですが、
>どのように記述すればよいのでしょうか。
>
>ご指導宜しくお願い致します。

【72953】Re:文字列の置換について
発言  まい  - 12/10/16(火) 16:10 -

引用なし
パスワード
   ウッシさん

お返事ありがとうございます。

すみません、桁を間違えていました。
正しくは「1111100022222」を「11111-000-22222」に置換したいです。
桁は毎回13桁です。

コピー貼り付けのコードは下記です。

With c.EntireRow
 sheeto.Cells(i, "C").Value = .Range("AK1").Value
 sheet.Cells(i, "D").Value = .Range("C1").Value
 sheet.Cells(i, "E").Value = .Range("AJ1").Value
 sheetCells(i, "F").Value = .Range("AC1").Value
 sheet.Cells(i, "G").Value = .Range("AF1").Value
 sheet.Cells(i, "L").Value = .Range("F1").Value
 sheet.Cells(i, "M").Value = .Range("AV1").Value
 sheet.Cells(i, "Q").Value = .Range("AY1").Value
 i = i + 1
              
End With

sheeto.Cells(i, "C").Value = .Range("AK1").Value
の部分が置換したい文字をコピー貼り付けするところです。

どのように記述すればよいでしょうか?
宜しくお願い致します。

▼ウッシ さん:
>こんにちは
>
>桁数はいつも11桁ですか?
>
>コピー貼り付けのコードはどうなっていますか?
>そこに処理を追記すればいいと思います。

【72954】Re:文字列の置換について
発言  UO3  - 12/10/16(火) 16:25 -

引用なし
パスワード
   ▼まい さん:

こんにちは
以下はヒントコードです、
A1に 1111100022222 をいれて実行してみてください

Sub Hint()
  
  MsgBox Format(Range("A1").Value, "00000-000-00000")
  
End Sub

【72960】Re:文字列の置換について
お礼  まい  - 12/10/17(水) 15:57 -

引用なし
パスワード
   回答ありがとうございます。
ヒントコードを使用したらできました。

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


▼UO3 さん:
>▼まい さん:
>
>こんにちは
>以下はヒントコードです、
>A1に 1111100022222 をいれて実行してみてください
>
>Sub Hint()
>  
>  MsgBox Format(Range("A1").Value, "00000-000-00000")
>  
>End Sub

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