| |
マクロを実行した日を入力するマクロが実行できなくて困っています。
シート１（台帳）に以下のような帳票があります。
Ａ列 Ｂ列 Ｃ列 Ｄ列
１
２ 販売数 販売先 品 名 在庫数
--------------------------------------------
３ １ Ａ社 ＡＡＡ １０
--------------------------------------------
４ ＢＢＢ ８
--------------------------------------------
５ ２ Ｂ社 ＣＣＣ ７
--------------------------------------------
以下 続く
１行目にはコマンドボタンがあります。
ボタンでこの表の販売数に数を入力した行をシート１から削除します。
が、念のためシート２（削除一覧）にマクロ実行日とともに残そうと思っています。
シート２はこんな感じです。
Ａ列 Ｂ列 Ｃ列 Ｄ列
１ 販売日 販売先 品 名 販売数
-------------------------------------------------
２ マクロ実行日 Ａ社 ＡＡＡ １
-------------------------------------------------
３ マクロ実行日 Ｂ社 ＣＣＣ ２
-------------------------------------------------
これより下は過去の削除データが記録されている。
考えたマクロは以下のとおりです。
Private Sub CommandButton1_Click()
Dim Choice As Integer
Dim Msg1 As String
Dim Msg2 As String
Dim Msg3 As String
Dim i As Long
Dim j As Long
Msg1 = "販売数に入力された数が台帳より削減されます。"
Msg2 = "数量がゼロになった物品は行ごと削除されます。"
Msg3 = "処理を続けますか？"
Choice = MsgBox((Msg1 & vbCrLf & Msg2 & vbCrLf & "" & vbCrLf & Msg3), vbYesNo + vbExclamation, ("注意"))
Select Case Choice
Case vbYes
With Sheets("台帳")
.Select
On Error Resume Next
Range("A3:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Copy
End With
With Sheets("削除一覧")
.Range("2:2").Insert
.Columns("A:D").EntireColumn.AutoFit
End With
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("削除一覧").Cells(i, 4) = Sheets("削除一覧").Cells(i, 1)
Sheets("削除一覧").Cells(i, 1) = Format(Now(),"yyyy/mm/dd)
Next
With Sheets("台帳")
.Select
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 4) = Cells(i, 4) - Cells(i, 1)
Next
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 2)).ClearContents
Next
For j = Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
If Cells(j, 4).Value = 0 Then Cells(j, 4).EntireRow.Delete
Next
End With
Case vbNo
Sheets("台帳").Select
End Select
End Sub
このマクロの
「Sheets("削除一覧").Cells(i, 1) = Format(Now(),"yyyy/mm/dd)」
の部分が上手くできず止まってしまいます。
よろしくお願いします。
あわせて、Ａ列に何も入力しない状況でボタンをおすと、
シート２に空白行が挿入されてしまいます。
こうならない方法もあわせて教えてください。
|
|
どじょりん
- 12/2/28(火) 5:40 -
