Excel VBA質問箱 IV

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

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


66629 / 76734 ←次へ | 前へ→

【14668】Re:ユーザーフォームのテキストボックスにつ...
質問  NAO  - 04/6/4(金) 0:41 -

引用なし
パスワード
   ▼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)
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 お礼

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