Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13254 / 76734

←次へ　｜　前へ→


	【68986】Re:テキストボックスの値取得

kanabun - 11/5/5(木) 17:50 -


	引用なし

	パスワード

▼komarinko さん：

>このコードから、シート「グラフ」のシェイプス「buf」のCharacters.Textを
> 拾えばいいのだと考え、aという変数に、シェイプス「buf」の値を代入する
> という以下のコードを作ってみました。
>
>Sub test()
>Dim a
>a = Sheets("グラフ").Shapes("buf").Characters.Text = "+10000000"
>End Sub
取得ですから、
>a = Sheets("グラフ").Shapes("buf").Characters.Text
と書こうとしたのでしょうね？

>ところが、「インデックスが有効範囲にありません」というエラーが出ました。

INDEXエラーなら、bufという名前のTextBoxがなかったとか？

こちらでは、
-----------------------------
実行時エラー '438':
オブジェクトは､このプロパティまたはメソッドをサポートしていません
-----------------------------
というえらーになります。

以下のようにしてみてください。

Sub test2()　'ShapesクラスのTextFrameプロパティから取得
　Dim ss As String
　ss = Sheets("グラフ").Shapes("buf").TextFrame.Characters.Text
End Sub

もっと簡単なのは、以下です

Sub test3()　　　'TextBoxesコレクションの Characters.Text として取得
　Dim ss As String
　ss = Sheets("グラフ").TextBoxes("buf").Characters.Text
End Sub

5 hits

▼

【68984】テキストボックスの値取得 komarinko 11/5/5(木) 17:35