Excel VBA質問箱 IV

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

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


18300 / 76732 ←次へ | 前へ→

【63875】テキストボックスへの入力情報を即座にシートに反映させたい
質問  ビギナー E-MAIL  - 09/12/25(金) 12:10 -

引用なし
パスワード
   初めて投稿させて頂きます。

入力フォーム上にあるテキストボックスへ入力された情報を、入力後に即座にシートに反映させる動きをさせたいと思っています。
しかし、実際に動作させた際に、入力情報が反映される場合とされない場合があり、その違いが当方では判別出来ません。

私のプログラムの作り方に問題があるのでしょうか?
それとも、Excelの仕様等で、そのような事が起こるのでしょうか?

以下にコードを記載します。
お気付きの点等ありましたら、ご指摘頂ければと思います。
宜しくお願い致します。


Private Sub TextBoxA_AfterUpdate()
  If 数値入力チェック(TextBoxA.Value, itemName) = False Then
    '入力チェックエラーの場合
    '入力情報をクリアする
    TextBoxA.Value = ""
    'フォーカスを元に戻す
    Cancel = True
  Else
    '入力情報をシートに設定する
    Worksheets(sheetName).Range(inputCell).Value = TextBoxA.Value
  End If
End Sub

Function 数値入力チェック(target As String, itemName As String) As Boolean
  '数値以外が入力されている場合はメッセージを表示する
  
  If IsNull(target) = False And target <> "" And IsNumeric(target) = False Then
    '数値以外が入力されている場合
    'メッセージを表示する
    MsgBox (itemName & "には数値を入力して下さい。")
    '戻り値をFalseに設定する
    数値入力チェック = False
    Exit Function
  End If
  '戻り値をTrueに設定する
  数値入力チェック = True
End Function
0 hits

【63875】テキストボックスへの入力情報を即座にシートに反映させたい ビギナー 09/12/25(金) 12:10 質問
【63876】Re:テキストボックスへの入力情報を即座に... seg 09/12/25(金) 12:26 発言
【63878】Re:テキストボックスへの入力情報を即座に... ビギナー 09/12/25(金) 13:54 回答
【63882】Re:テキストボックスへの入力情報を即座に... seg 09/12/25(金) 16:48 発言
【63883】Re:テキストボックスへの入力情報を即座に... seg 09/12/25(金) 17:10 発言
【63877】Re:テキストボックスへの入力情報を即座に... Jaka 09/12/25(金) 12:38 発言
【63879】Re:テキストボックスへの入力情報を即座に... ビギナー 09/12/25(金) 14:00 回答
【63892】Re:テキストボックスへの入力情報を即座に... ビギナー 09/12/27(日) 14:30 発言
【63946】Re:テキストボックスへの入力情報を即座に... UO3 10/1/2(土) 20:26 回答
【63947】Re:テキストボックスへの入力情報を即座に... UO3 10/1/2(土) 21:23 発言
【63963】Re:テキストボックスへの入力情報を即座に... seg 10/1/5(火) 11:24 発言
【63964】Re:テキストボックスへの入力情報を即座に... Yuki 10/1/5(火) 14:14 発言
【63973】Re:テキストボックスへの入力情報を即座に... ビギナー 10/1/6(水) 10:52 お礼

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