|
▼ichinose さん:
ありがとうございました。
一点目の半角、全角入力について、ichinoseさんのコードを利用させていただきたいと思います。
二点目の年月日についてですが、ユーザーフォームのテキストボックスに入力された数値をフォーム上のボタンにより、「受付一覧シート」と「処理カードシート」の2種類のシートに年月日として転記します。
コードは、
Private Sub CommandButton1_Click()
Dim lastRow As Integer
Worksheets("受付一覧").Activate
lastRow=Worksheets("受付一覧").range("A65536").End(xlUp).Row
'年月日の転記
'受付一覧シートへ
Worksheets("受付一覧").Cells(lastRow,8).Value=Me.TextBox1.Value
'処理カードシートへ
Worksheets("処理カード").Range ("C19").Value=Me.TextBox1.Value
End Sub
としておりますが、年月日として転記はされていません。
ご教授願った下記のコードなのですが、ボタンにより、フォームに入力した他の事項と一緒に転記するにはどこに記入すれば良いのでしょうか。
分かりにくい質問で申し訳ありません。
>Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
|
|