過去ログ

                                Page     739
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼フォームの自動起動  Taka 03/1/23(木) 21:04
   ┣Re:フォームの自動起動  conan 03/1/23(木) 23:05
   ┃  ┗Re:フォームの自動起動  Jun 03/2/13(木) 1:42
   ┃     ┣Re:フォームの自動起動  こうちゃん 03/2/13(木) 9:19
   ┃     ┗Re:フォームの自動起動  杏酒 03/2/13(木) 9:21
   ┃        ┗Re:フォームの自動起動  Jun 03/2/14(金) 0:06
   ┗Re:フォームの自動起動  コロスケ 03/1/24(金) 12:11

 ───────────────────────────────────────
 ■題名 : フォームの自動起動
 ■名前 : Taka
 ■日付 : 03/1/23(木) 21:04
 -------------------------------------------------------------------------
   エクセルファイルをダブルクリックして開いたときにフォームを自動的に起動させるにはどうすればよいのでしょうか? 
Sub Auto_Open()
  UserForm1.Show
End Sub
なんて書いてみたのですが、これだけじゃアイコンのダブルクリックでフォームが現れたりはしませんでした。教えてください。よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : conan  ■日付 : 03/1/23(木) 23:05  -------------------------------------------------------------------------
   This Workbookをダブルクリックして
そこにUseForm1.showと記入すればできると思います。
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : Jun <j_manabe@bea.hi-ho.ne.jp>  ■日付 : 03/2/13(木) 1:42  -------------------------------------------------------------------------
   横から申し訳ないのですが、
「フォームの自動起動」させたいと考えているのですが、
conanさんの方法でうまくいきません。
なぜなのでしょう?


▼conan さん:
>This Workbookをダブルクリックして
>そこにUseForm1.showと記入すればできると思います。
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : こうちゃん <nakajima19@hotmail.com>  ■日付 : 03/2/13(木) 9:19  -------------------------------------------------------------------------
   みなさん、おはようございます。

横レスしつれいしますね。

ブックを開いたときフォームを起動させるのなら、Workbook_OpenイベントでOKです。
こんな感じですね・・

Private Sub Workbook_Open()
  Call Form1.Show
End Sub
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : 杏酒  ■日付 : 03/2/13(木) 9:21  -------------------------------------------------------------------------
   横槍失礼致します 

ツール⇒マクロ⇒セキュリティ⇒低 に設定して
 
Private Sub Workbook_Open()
  
  UserForm1.Show
End Sub
が簡単です


rが抜けてるので> そこにUseForm1.showと記入すればできると思います。
そのままコピペだとErrorが出ます
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : Jun <j_manabe@bea.hi-ho.ne.jp>  ■日付 : 03/2/14(金) 0:06  -------------------------------------------------------------------------
   できたっ!
みなさんありがとうございます!
ちょっとまえからVBAを勉強し始めたんですが、VBAっておもしろいっ!(^o^)


▼杏酒 さん:
>横槍失礼致します 
>
>ツール⇒マクロ⇒セキュリティ⇒低 に設定して
> 
>Private Sub Workbook_Open()
>  
>  UserForm1.Show
>End Sub
>が簡単です
>
>
>rが抜けてるので> そこにUseForm1.showと記入すればできると思います。
>そのままコピペだとErrorが出ます
 ───────────────────────────────────────  ■題名 : Re:フォームの自動起動  ■名前 : コロスケ <colo_jpn@hotmail.com>  ■日付 : 03/1/24(金) 12:11  ■Web : http://www.interq.or.jp/sun/puremis/colo/indexJ.htm  -------------------------------------------------------------------------
   Taka さん こんにちは。
>なんて書いてみたのですが、これだけじゃアイコンのダブルクリックでフォームが現れたりはしませんでした。教えてください。よろしくお願いします。
出てこない環境を知っておきたいので、OSとエクセルのバージョンを教えていただけませんか?
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 739