Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66627 / 76734 ←次へ | 前へ→

【14670】Re:ユーザーフォームのテキストボックスにつ...
回答  かみちゃん  - 04/6/4(金) 7:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横レスで失礼します。

>としておりますが、年月日として転記はされていません。
>
>
>ご教授願った下記のコードなのですが、ボタンにより、フォームに入力した他の事項と一緒に転記するにはどこに記入すれば良いのでしょうか。

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

0 hits

【14653】ユーザーフォームのテキストボックスにつ... NAO 04/6/3(木) 21:38 質問
【14657】Re:ユーザーフォームのテキストボックスに... [名前なし] 04/6/3(木) 22:04 回答
【14658】Re:ユーザーフォームのテキストボックスに... ちゃっぴ 04/6/3(木) 22:13 回答
【14659】Re:ユーザーフォームのテキストボックスに... あわびが旬 04/6/3(木) 22:23 回答
【14666】Re:ユーザーフォームのテキストボックスに... NAO 04/6/4(金) 0:00 お礼
【14665】Re:ユーザーフォームのテキストボックスに... NAO 04/6/3(木) 23:58 お礼
【14664】Re:ユーザーフォームのテキストボックスに... NAO 04/6/3(木) 23:52 お礼
【14660】Re:ユーザーフォームのテキストボックスに... ichinose 04/6/3(木) 22:39 発言
【14661】Re:ユーザーフォームのテキストボックスに... ichinose 04/6/3(木) 22:59 発言
【14667】Re:ユーザーフォームのテキストボックスに... NAO 04/6/4(金) 0:08 お礼
【14668】Re:ユーザーフォームのテキストボックスに... NAO 04/6/4(金) 0:41 質問
【14670】Re:ユーザーフォームのテキストボックスに... かみちゃん 04/6/4(金) 7:07 回答
【14671】Re:ユーザーフォームのテキストボックスに... NAO 04/6/4(金) 7:27 お礼

66627 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free