説明(2017年3月24日):
各変更、および変更時間内の1レコードのSheet1!
2.変更の広い範囲が「種類不一致」を促すメッセージが表示されます記録は削除しないでください
1プライベートサブWorksheet_Change(ByValのターゲットとしてレンジ) 2つのワークシート(2).Cells(ワークシート(2)[A65536] .END(xlUp).Row + 1、1)= Target.Address& " - >" &ターゲット。値 3ワークシート(2).Cells(ワークシート(2)。[A65536] .END(xlUp).Row + 1、2)= NOW() 4 End Subの
説明(2017年3月24日):
各変更、および変更時間内の1レコードのSheet1!
2.変更の広い範囲が「種類不一致」を促すメッセージが表示されます記録は削除しないでください
1プライベートサブWorksheet_Change(ByValのターゲットとしてレンジ) 2つのワークシート(2).Cells(ワークシート(2)[A65536] .END(xlUp).Row + 1、1)= Target.Address& " - >" &ターゲット。値 3ワークシート(2).Cells(ワークシート(2)。[A65536] .END(xlUp).Row + 1、2)= NOW() 4 End Subの