|
こんにちは。かみちゃん です。
横レスで失礼します。
>としておりますが、年月日として転記はされていません。
>
>
>ご教授願った下記のコードなのですが、ボタンにより、フォームに入力した他の事項と一緒に転記するにはどこに記入すれば良いのでしょうか。
ichinoseさんが、ご説明されている、下記のコメントをヒントにします。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=14660;id=excel
以下のようにするとできます。(動作確認済み)
Private Sub CommandButton1_Click()
Dim lastRow As Integer
Worksheets("受付一覧").Activate
lastRow = Worksheets("受付一覧").Range("A65536").End(xlUp).Row
'年月日の転記
'受付一覧シートへ
Worksheets("受付一覧").Cells(lastRow, 8).Value = Format$(Me.TextBox1.Value, "0000""/""00""/""00")
Worksheets("受付一覧").Cells(lastRow, 8).NumberFormatLocal = "ggge""年""m""月""d""日"""
'処理カードシートへ
Worksheets("処理カード").Range("C19").Value = Format$(Me.TextBox1.Value, "0000""/""00""/""00")
Worksheets("処理カード").Range("C19").NumberFormatLocal = "ggge""年""m""月""d""日"""
End Sub
|
|