人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

1362206265
●拡大する


●質問者: japan-nan
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●500ポイント ベストアンサー
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

japan-nanさんのコメント
大変ありがとうございました! おかげさまで希望通りのツールとなりました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ