1362206265 Excelについて質問です。

[受付番号]セルを選択して[ボタン1]を押下したとき、
[受付日]列の日付+01~99追番を[受付番号]に自動入力したい。

その場合の条件として、
・[発送状況]列が「発送前」の場合のみ
・[受付番号]の付番ルールは、左隣にある[受付日]+01~99を追番します。

ソース付きの回答でお願いします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/02 15:37:45
  • 終了:2013/03/03 00:55:51

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982013/03/02 15:56:47

ポイント500pt
Private Sub CommandButton1_Click()
Dim at As Date
Dim ar As Long
Dim b As Long

ar = ActiveCell.Row
ac = ActiveCell.Column

If ac <> 4 Then Exit Sub
If Cells(ar, "B") <> "発送前" Then Exit Sub
If Cells(ar, "C") = "" Then Exit Sub

at = Cells(ar, "C")
ats = Format$(at, "yyyyMMdd")

b = Cells(Rows.Count, "D").End(xlUp).Row
d = 0
For c = 3 To b
    If Left(Cells(c, "D"), 8) = ats Then
        d1 = Val(Right(Cells(c, "D"), 2))
        If d1 > d Then d = d1
    End If
Next c

d = d + 1
Cells(ar, "D") = ats & Right(Str(100 + d), 2)


End Sub
id:japan-nan

大変ありがとうございました!
おかげさまで希望通りのツールとなりました。

2013/03/03 00:55:35

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません