Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9630 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26269】テキストボックスに値を入れる ヘボ 05/6/30(木) 0:21 質問[未読]
【26270】Re:テキストボックスに値を入れる ｍ2ｍ10 05/6/30(木) 8:10 質問[未読]
【26302】Re:テキストボックスに値を入れる ヘボ 05/6/30(木) 23:35 質問[未読]
【26306】Re:テキストボックスに値を入れる ｍ2ｍ10 05/7/1(金) 8:35 回答[未読]
【26312】Re:テキストボックスに値を入れる へぼ 05/7/1(金) 11:19 質問[未読]
【26315】Re:テキストボックスに値を入れる ｍ2ｍ10 05/7/1(金) 11:50 発言[未読]
【26318】Re:テキストボックスに値を入れる ichinose 05/7/1(金) 11:59 発言[未読]
【26303】Re:テキストボックスに値を入れる ヘボ 05/7/1(金) 0:01 質問[未読]
【26305】Re:テキストボックスに値を入れる ｍ2ｍ10 05/7/1(金) 8:26 発言[未読]
【26269】テキストボックスに値を入れる
質問  ヘボ  - 05/6/30(木) 0:21 -
引用なし
パスワード
   初心者です。

VBAで、エクセルのシートごとにページ番号をふりたいのですが
ページ番号を入れたい場所が、セルではなくテキストボックスになっています。
そのテキストボックスの指定の仕方がよくわかりません。

テキスト名．text = ページ番号　のように指定しても、オブジェクトが見つかりませんとエラーが出てしまします。

テキストボックスの指定の仕方を教えてください。お願いします。
【26270】Re:テキストボックスに値を入れる
質問  ｍ2ｍ10  - 05/6/30(木) 8:10 -
引用なし
パスワード
   こんちは

こんな感じですが、何処のシートか入れた方が良いと思います。

Sheets("Sheet1").TextBox1.Value = ページ番号
【26302】Re:テキストボックスに値を入れる
質問  ヘボ  - 05/6/30(木) 23:35 -
引用なし
パスワード
   ▼ｍ2ｍ10 さん：

> こんな感じですが、何処のシートか入れた方が良いと思います。
>
>Sheets("Sheet1").TextBox1.Value = ページ番号


シート数が多数あるのですが、シートの名前を持ってくる書き方を
お願いします。
【26303】Re:テキストボックスに値を入れる
質問  ヘボ  - 05/7/1(金) 0:01 -
引用なし
パスワード
   ▼ｍ2ｍ10 さん：
>こんちは
>
> こんな感じですが、何処のシートか入れた方が良いと思います。
>
>Sheets("Sheet1").TextBox1.Value = ページ番号

dim A as String

A In Worksheets

A.nameでシートの名前にできますか？
【26305】Re:テキストボックスに値を入れる
発言  ｍ2ｍ10  - 05/7/1(金) 8:26 -
引用なし
パスワード
   　質問が解りませんが、

　変数に入れるでしたら、Objectを使います。


　 Public sh1 As Object
　 Public sh2 As Object

Sub test001()

　 Set sh1 = Sheets("Sheet1")
　 Set sh2 = Sheets("Sheet2")
　
　 sh1.Range("a1").Value = sh2.Range("a1").Value

　 sh1.TextBox1.Value = ページ番号

End Sub
【26306】Re:テキストボックスに値を入れる
回答  ｍ2ｍ10  - 05/7/1(金) 8:35 -
引用なし
パスワード
   >シート数が多数あるのですが、シートの名前を持ってくる書き方を
>お願いします。

　名前以外に表示している順番でも　OK　です。

for　cnt = 1　to　5
　Sheets(cnt).Range("a1").Value = 1
next cnt


　
【26312】Re:テキストボックスに値を入れる
質問  へぼ  - 05/7/1(金) 11:19 -
引用なし
パスワード
   ▼ｍ2ｍ10 さん：

>　名前以外に表示している順番でも　OK　です。
>
> for　cnt = 1　to　5
>　Sheets(cnt).Range("a1").Value = 1
> next cnt

セルではなくテキスト32というテキストボックスに
値を入れたいのですが、

Sheets(シート名).テキスト32.value = 1で
オブジェクトがありませんとエラーです。

シートの中のテキストボックスの指定が間違っているでしょうか?
お願いします。
【26315】Re:テキストボックスに値を入れる
発言  ｍ2ｍ10  - 05/7/1(金) 11:50 -
引用なし
パスワード
   テキスト32 が　有りますか。


　テキスト32　を作成し、動きますが。

　Dim シート名 As String
　　シート名 = "Sheet1"
　Sheets(シート名).テキスト32.Value = 1


　
【26318】Re:テキストボックスに値を入れる
発言  ichinose  - 05/7/1(金) 11:59 -
引用なし
パスワード
   ▼ヘボ さん、ｍ2ｍ10 さん、こんにちは。

>テキスト32 が　有りますか。
>
>
>　テキスト32　を作成し、動きますが。
>
>　Dim シート名 As String
>　　シート名 = "Sheet1"
>　Sheets(シート名).テキスト32.Value = 1
これ、図形のテキストボックスではありませんか？

Sheets(シート名).TextBoxes("テキスト32").text = 1

として
確認して下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9630 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free