Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1285 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75246】Excel2003で置換について教えて下さい。 sp 14/1/19(日) 11:42 質問[未読]
【75258】Re:Excel2003で置換について教えて下さい。 おじさん 14/1/22(水) 23:42 回答[未読]
【75246】Excel2003で置換について教えて下さい。
質問  sp E-MAIL  - 14/1/19(日) 11:42 -
引用なし
パスワード
   初めまして。お世話になります。

古いのですが、2003でのデータ置換について質問させて下さい。

伝票データをカンマ区切りのTXTで作成しています。（得意先コードでソートしています）
そのデータをエクセルに取り込んで
Ａ列（固定）をデータが有る限り例えば10を20に置換。

Ｂ列は伝票No.で重複しないようにマクロを実行した日付＋001に置換。得意先コードが変われば日付＋002に変更して置換。※重複しなければ日付じゃ無くてもＯＫです。

Ｃ列は行No.で得意先ごとに明細行が10件有れば01〜10、明細行が5件有れば01〜05に置換。得意先コードが変わればまた01〜明細行の数だけの数字を置換します。（最大999）

得意先コードはＤ列で、Ａ，Ｂ，Ｃ列はランダムな数値が入っています。
Ａ列は置換する数値が固定なのでコピー、ペーストでも対応できますが伝票No.と行No.がマクロで自動で置換したいです。

分かりにくい文で申し訳ないですが、よろしくお願いします。
【75258】Re:Excel2003で置換について教えて下さい...
回答  おじさん  - 14/1/22(水) 23:42 -
引用なし
パスワード
   ▼sp さん：
Sub Macro1()
'
' Macro1 Macro
'
'
Dim Tokuisaki As String
Dim Hizuke_Count As Integer
Dim Meisai_gyou As Integer

Tokuisaki = ""
Hizuke_Count = 0
Meisai_gyou = 0
Sheet1.Cells(1, 1).Select

For i = 1 To Sheet1.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
　If Sheet1.Cells(i, 4).Value = Tokuisaki Then
　　Meisai_gyou = Meisai_gyou + 1
　　Sheet1.Cells(i, 1).Value = Sheet1.Cells(i, 1).Value + 10
　　Sheet1.Cells(i, 2).Value = Format(Date, "yyyy/mm/dd") & Format(Hizuke_Count, "000")
　　Sheet1.Cells(i, 3).Value = "'" + Format(Meisai_gyou, "000")
　Else
　　Tokuisaki = Sheet1.Cells(i, 4).Value
　　Hizuke_Count = Hizuke_Count + 1
　　Meisai_gyou = 1
　　Sheet1.Cells(i, 1).Value = Sheet1.Cells(i, 1).Value + 10
　　Sheet1.Cells(i, 2).Value = Format(Date, "yyyy/mm/dd") & Format(Hizuke_Count, "000")
　　Sheet1.Cells(i, 3).Value = "'" + Format(Meisai_gyou, "000")
　End If
Next i

End Sub

こんな感じで、どうでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1285 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free