[[20040918113934]]　『エラー 424 オブジェクトが必要です』（VB初心者）　ページの最後に飛ぶ

『エラー 424 オブジェクトが必要です』（VB初心者）

[VBの勉強をはじめたばかりのものです。今、整数の受け渡しをするプロシジャーを次の様につくりましたが、エラー'424'オブジェクトが必要ですと出ます。どこを直せばよいのかご指導ください。テキストボックス(TxtIn）で受け渡す値をいれ、コマンドボタン１をクリックして実行、その値をテキストボックス(TxtOut)に渡すという単純なものです。デバッグを押すと”i = Val(txtIn.Text)”の部分がハイライトされます。

Private Sub Command1_Click()

    Dim i As Integer

    i = Val(txtIn.Text)

    dspPint i

End Sub

Private Sub Command2_Click()

End

End Sub

Sub dspPint(i As Integer)

    txtOut.Text = Str$(i)

End Sub

 txtInというオブジェクト（物体）は作ったのかな？
 （ramrun）お昼～

ramrunさん、今日のお昼はなんでしたか（余計なことですみません）私はカップラーメンしか食べれませんでした。ご返事ありがとうございます。よく分からないのですがtxtIn.Text = Str$(i)と言うものをi = Val(txtIn.Text)の次に入れましたがうまくいきません。どこにどのようにいれればよろしいのでしょうか？お願いします。

 お昼は和風？カレーです。

 >よく分からないのですが
 それではこちらもよくわかりません（笑）。

 >txtIn.Text = Str$(i)と言うものをi = Val(txtIn.Text)の次に入れました
 上のコードではそうなっていないようですが...？

 ユーザーフォーム上にテキストボックスを配置しているということでいいのかな？
 テキストボックスは配置したときのオブジェクト名としてTextBox1などとなっている
 はずです。
 それをtxtInと改名してあげないと、txtInなんてオブジェクト（物体）は無いですよ
 とエラー表示されます。
 そこはもう改名してあるのでしょうか?（ramrun）

解明しました。初心者なものでうまく質問できませんでした。すみませんでした。全くの基本的なものを勉強できました。ありがとうございました。

 解明？改名？　解明ならすでに解決していて必要ないかもしれませんが、
 私はシート上に配置してあるテキストボックスだと判断しました(^_^A;
 なぜだか理由はわかりませんが、一度セレクトしてあげれば上手くいきました。

 Private Sub Command1_Click()
    Dim i As Integer
    ActiveSheet.Shapes("TxtIn").Select
    i = Val(Selection.Text)
    dspPint i
 End Sub

 Sub dspPint(i As Integer)
    ActiveSheet.Shapes("TxtOut").Select
    Selection.Characters.Text = Str$(i)
 End Sub
 （川野鮎太郎）

川野鮎太郎様　一応ユーザーフォーム上にテキストボックスを配置しているということでうまくいきました。これですとエクセルのシート上で使えて大変参考になります。ありがとうございました。（VB初心者）

コメント返信：

[ 一覧(最新更新順) ]

[[20040918113934]] 『エラー 424 オブジェクトが必要です』（VB初心者） ページの最後に飛ぶ

[[20040918113934]]　『エラー 424 オブジェクトが必要です』（VB初心者）　ページの最後に飛ぶ