2011-02-04から1日間の記事一覧
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i As Integer Dim lastRow As Long Dim res1 As String Dim res2 As String With Worksheets("E") lastRow = .UsedRange.Rows.Count For i = 2 To lastRow If .Cells(i, "A").Value = "買物" Or .C…