【excelのユーザーフォームを使った連番取得について】

ユーザーフォームを使用して番号を取得できるマクロを組みたいです。
エクセルのシートには
A B C・・・
番号 年月日(西暦) 担当・・・と続いていきます。
A2以降にユーザーフォームから入力した内容をシートへ反映させます。
番号は西暦で入れた日付から和暦を読み取り1年を通して連番にしたいです。
例:2014/1/6→25001,以後25002,3,4,5・・・・

①和暦+連番の取得方法を教えてください
②登録ボタンを押した際「番号○○○○○を取得しました」とメッセージBOXを表示することは可能ですか?
③ユーザーフォーム以外からのセル編集を防ぐことはできますか?
 (他の使用者がエクセルを直接編集することを防ぎたい。)

以上、教えていただけますと助かります。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2014/01/05 18:10:47
  • 終了:2014/01/12 18:15:03
id:pcbenkyochu

以下、自身で作成しているコードです。

Private Sub cmd登録_Click()
Dim 番号取得 As String
If IsDate(txt年月日.Value) = False Then
MsgBox "登録日を入力してください"
Exit Sub
End If
(中略)
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
   .Value = "=CONCATENATE(TEXT($B2,""ee""),TEXT(SUMPRODUCT*1*1),""000""))"
.Value = .Value
.Offset(, 1).Value = txt年月日.Value
(後略)

*1:LEFT(TEXT($B$1:$B2,""ggge""),6)=LEFT(TEXT($B2,""ggge""),6

回答(0件)

回答はまだありません

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

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

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

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

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