お酒好きのおしりトラブル対策とは

Sheet(”体温”)のA3に
フォームのTextBox1の内容をボタンを押したら
挿入させたいです。!
下の記述では上手くいきません
教えて下さい!
Private Sub CommandButton1_Click()
With Worksheets("体温")
.Range(A3).Value = TextBox1.Value
End With
End Sub
お願いします!

A 回答 (3件)

>なぜ?と思い、解決されません!



あとは、シート名をきちんと変更したつもりでも「体温(計画) 」のように、スペースなどの余計な文字が付いて居る場合もあります。

シート名をコードに打ち込むのではなく、シートタブをダブルクリックして [Ctrl]+[C] でコピーして、ソースコードのシート名に貼り付けしてみてください。
    • good
    • 0
この回答へのお礼

ありがとうございます!
そういう方法もあるんですね!
解決できました。

お礼日時:2008/08/14 10:14

>Worksheets("体温(計画)")←だとエラー表示されます。



「体温(計画)」という名前のシートは存在しますか?
文字の全角と半角を間違えてもエラーになりますよ。

この回答への補足

ありがとうございます。
存在しています!
()←は関係ないのですね!
念のために全角・半角しましたが
やはりエラーになってしまいます。
なのでSheet名を変更しました。
だけど、なぜ?と思い、解決されません!

補足日時:2008/08/13 23:11
    • good
    • 0

質問に「うまくいきません」って書くのは簡単です。


どのような状態(エラー)でうまくいかないのでしょうか?

RANGEのセルの指定は
Range("A3") のようにセル位置は小文字で””で囲むのが基本ですが?

この回答への補足

ありがとうございます!
”インデックが有効範囲にありません”
と書かれます!エラー表示。
ちなみに記述間違えていました!
Worksheets("体温(計画)")←だとエラー表示されます。
Worksheets("体温")←だと大丈夫です。
()←は使ったらいけないのでしょうか?

補足日時:2008/08/13 22:08
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング