Excel VBA質問箱 IV

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

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


7065 / 76732 ←次へ | 前へ→

【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

こんな感じで、どうでしょうか。
1 hits

【75246】Excel2003で置換について教えて下さい。 sp 14/1/19(日) 11:42 質問
【75258】Re:Excel2003で置換について教えて下さい。 おじさん 14/1/22(水) 23:42 回答

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