Excelのファイルの保存ごとにカウントを増やす

Question

私は、同じExcelファイル内の他のシートにデータを生成して保存するExcel用のアプリケーションを1つ作成しています。

今、請求書の請求書番号の値を増やす必要があります。請求書を保存した後の請求書番号は2016-17/12345で、この値は2016-17/12346になります。

Dim CustomerInvoice As Long 
Range("H10").Value = Range("H10") + 1 
- 
- 
CustomerInvoice = Range("H10") 
- 
- 
ActiveCell.Value = CustomerInvoice 
ActiveCell.Offset(0, 1).Select 

Answer 1

この

Range("H10").Value = Split(Range("H10").Value, "/")(0) & _ 
        "/" & _ 
        Val(Split(Range("H10").Value, "/")(1)) + 1 

マイ昇天を試してみてください。Range("H10").Valueの現在値が2016-17/12345