エクセルのマクロ(データベースの登録フォーム)について 削除
Message#4 2014年12月16日(火)14時09分 From: ちゃーちゃー |
Sub 累積保存() Dim lRow As Long lRow = Worksheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row + 1 If lRow < 5 Then lRow = 5 With Worksheets("Sheet1") Worksheets("Sheet2").Cells(lRow, 3).Value = .Cells(1, 2).Value Worksheets("Sheet2").Cells(lRow, 4).Value = .Cells(2, 2).Value Worksheets("Sheet2").Cells(lRow, 5).Value = .Cells(3, 2).Value End With End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。