過去ログ

                                Page      41
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼シート名の取得について  123 02/9/6(金) 13:00
   ┣Re:シート名の取得について  コロスケ 02/9/6(金) 13:06
   ┣Re:シート名の取得について  つん 02/9/6(金) 13:08
   ┗早々にありがとうございました。  123 02/9/6(金) 14:00

 ───────────────────────────────────────
 ■題名 : シート名の取得について
 ■名前 : 123
 ■日付 : 02/9/6(金) 13:00
 -------------------------------------------------------------------------
   みなさん はじめまして

初歩的な質問で恐縮なのですが、
ユーザーフォームでアクティブなシート名の名前を取得して
テキストボックスに表示するコードを
どなたか 教えてください。
宜しくお願いいたします。
 ───────────────────────────────────────  ■題名 : Re:シート名の取得について  ■名前 : コロスケ <corosuke@chan.co.jp>  ■日付 : 02/9/6(金) 13:06  -------------------------------------------------------------------------
   ▼123 さん:
Activeなシート名の取得はActiveSheet.Nameで可能です。
UserForm1にTextBox1があると仮定した場合こんな感じです。
ではー♪


Sub test()
  With UserForm1
    .TextBox1.Text = ActiveSheet.Name
    .Show
  End With
End Sub
 ───────────────────────────────────────  ■題名 : Re:シート名の取得について  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 02/9/6(金) 13:08  -------------------------------------------------------------------------
   こんにちは、はじめまして

>ユーザーフォームでアクティブなシート名の名前を取得して
>テキストボックスに表示するコードを

 TextBox1.Value = ActiveSheet.Name

こんな感じですけど、これでいいですかー?
 ───────────────────────────────────────  ■題名 : 早々にありがとうございました。  ■名前 : 123  ■日付 : 02/9/6(金) 14:00  -------------------------------------------------------------------------
   ▼コロスケさん、つんさん へ

早々にありがとうございました。
できました。できました。

今後とも宜しくお願い痛いします。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 41