Excel VBA質問箱 IV

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

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


9628 / 13644 ツリー ←次へ | 前へ→

【26269】テキストボックスに値を入れる ヘボ 05/6/30(木) 0:21 質問[未読]
【26270】Re:テキストボックスに値を入れる m2m10 05/6/30(木) 8:10 質問[未読]
【26302】Re:テキストボックスに値を入れる ヘボ 05/6/30(木) 23:35 質問[未読]
【26306】Re:テキストボックスに値を入れる m2m10 05/7/1(金) 8:35 回答[未読]
【26312】Re:テキストボックスに値を入れる へぼ 05/7/1(金) 11:19 質問[未読]
【26315】Re:テキストボックスに値を入れる m2m10 05/7/1(金) 11:50 発言[未読]
【26318】Re:テキストボックスに値を入れる ichinose 05/7/1(金) 11:59 発言[未読]
【26303】Re:テキストボックスに値を入れる ヘボ 05/7/1(金) 0:01 質問[未読]
【26305】Re:テキストボックスに値を入れる m2m10 05/7/1(金) 8:26 発言[未読]

【26269】テキストボックスに値を入れる
質問  ヘボ  - 05/6/30(木) 0:21 -

引用なし
パスワード
   初心者です。

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

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

テキストボックスの指定の仕方を教えてください。お願いします。

【26270】Re:テキストボックスに値を入れる
質問  m2m10  - 05/6/30(木) 8:10 -

引用なし
パスワード
   こんちは

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

Sheets("Sheet1").TextBox1.Value = ページ番号

【26302】Re:テキストボックスに値を入れる
質問  ヘボ  - 05/6/30(木) 23:35 -

引用なし
パスワード
   ▼m2m10 さん:

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


シート数が多数あるのですが、シートの名前を持ってくる書き方を
お願いします。

【26303】Re:テキストボックスに値を入れる
質問  ヘボ  - 05/7/1(金) 0:01 -

引用なし
パスワード
   ▼m2m10 さん:
>こんちは
>
> こんな感じですが、何処のシートか入れた方が良いと思います。
>
>Sheets("Sheet1").TextBox1.Value = ページ番号

dim A as String

A In Worksheets

A.nameでシートの名前にできますか?

【26305】Re:テキストボックスに値を入れる
発言  m2m10  - 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:テキストボックスに値を入れる
回答  m2m10  - 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 -

引用なし
パスワード
   ▼m2m10 さん:

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

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

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

シートの中のテキストボックスの指定が間違っているでしょうか?
お願いします。

【26315】Re:テキストボックスに値を入れる
発言  m2m10  - 05/7/1(金) 11:50 -

引用なし
パスワード
   テキスト32 が 有りますか。


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

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


 

【26318】Re:テキストボックスに値を入れる
発言  ichinose  - 05/7/1(金) 11:59 -

引用なし
パスワード
   ▼ヘボ さん、m2m10 さん、こんにちは。

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

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

として
確認して下さい。

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