ネットとこのフォーラムで多くを検索しました。私は同様の質問を見つけましたが、私の質問には答えませんでした。 私がする必要があるのは、日付、月、そして新しい日付のたびにリセットする必要のあるシリアル番号を含む番号を生成する必要があるということです。 例：280901（28日09ヶ月01-シリアル番号）、280902,280903 ... 、次に290901、次の日付 私はVBを初めて使用しています。 助けてください！増分して各日付でリセットする番号
これは、数式を使用して行うことができます。あなたが列Aにあなたの日付を持っているとシリアル番号を作成するには、列Bにこの式を置く場合：
=TEXT(A1,"DDMM")&TEXT(COUNTIF($A$1:A1,A1),"0#")
次のようになります：
28/09/2016 280901
28/09/2016 280902
28/09/2016 280903
28/09/2016 280904
29/09/2016 290901
29/09/2016 290902
29/09/2016 290903
29/09/2016 290904
これはフリーコードの書き込みサービスではありませんしかし、あなたが次のようなものを試すことができるようにあなたを始めさせるために。
Dim iVal As Integer, tdate As String, serial as String
'sets todays date as string
tdate = Date
'counts how many serials there are for today and adds 1
iVal = Application.WorksheetFunction.CountIf(Range("A:A"), "*" & tdate & "*") + 1
'creates new serial
serial = Date & " 000" & iVal
'just for this example it will put the new serial in column A
Range("A" & iVal).Value = serial
こんにちは。日付の列はありません。マクロVBで行う必要があります – user5538704
異なる日付はどこに保存されていますか？あなたは単に今日の日付を使用していますか？ – Jordan
午前今日の日付を使用しています – user5538704