Excel - 請求書の自動採番を実行するためのマクロ
問題
請求書はExcelで保存しますが、毎回手動で新しい番号を割り当てる必要があります。
マクロを使用して自動番号付けをすることは可能ですか?
溶液
これは、(たとえば)請求書番号を増やすことができるマクロです。 このマクロで、番号がセル「A1」に表示されます。ただし、必要に応じて変更できます。
Sub Increment_invoice()整数範囲としてのディム番号( "A1")num =範囲( "A1")を選択します値num = num + 1範囲( "A1")値= num End Sub
これらの行をマクロの最後に追加して、請求書を印刷するたびに次の行が自動的に次のように増分されるようにすることもできます。
Sub PRINT()ActiveWindow.SelectedSheets.PrintOutコピー:= 1、照合:= True Dim numを整数の範囲として指定( "A1")num = Range( "A1")を選択します。 .Value = num End Sub