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

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

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

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

●質問者: pcbenkyochu
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

▽最新の回答へ

質問者から

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

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