Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9222 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28637】ユーザーフォーム 超超初心者 05/9/10(土) 22:15 質問[未読]
【28638】Re:ユーザーフォームに入力した値をセルに... かみちゃん 05/9/10(土) 22:43 発言[未読]
【28649】Re:ユーザーフォームに入力した値をセル... 超超初心者 05/9/11(日) 18:59 質問[未読]
【28651】Re:ユーザーフォームに入力した値をセル... りん 05/9/11(日) 19:41 発言[未読]
【28652】Re:ユーザーフォームに入力した値をセル... 超超初心者 05/9/11(日) 20:26 お礼[未読]
【28637】ユーザーフォーム
質問  超超初心者  - 05/9/10(土) 22:15 -
引用なし
パスワード
   ユーザーフォームを作成して1.西暦2.月3.日4.担当者をセルに転送出来る様な
マクロを作成したいのですがうまくできません。1.〜3.まではプルダウンで4.はオプションボタンで４名分作成し、okボタンで転送できる様にしたいのですが、シート数が３２シートあり各シートを開けた時もしくはボタンを作成してマクロが実行出来る様なものを作りたいのですが・・・宜しくお願いします。
【28638】Re:ユーザーフォームに入力した値をセル...
発言  かみちゃん  - 05/9/10(土) 22:43 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ユーザーフォームを作成して1.西暦2.月3.日4.担当者をセルに転送出来る様な
>マクロを作成したいのですがうまくできません。1.〜3.まではプルダウンで4.は
>オプションボタンで４名分作成し、okボタンで転送できる様にしたい

どのようにえまくできないのか、また、どこのセルに反映させたいのかもよくわ
からないのですが、たとえば、以下のような感じでできると思います。

Private Sub CommandButton1_Click()
　Range("A1").Value = Me.ComboBox1.Value
　Range("B1").Value = Me.ComboBox2.Value
　Range("C1").Value = Me.ComboBox3.Value
　If Me.OptionButton1 Then
　　Range("D1").Value = Me.OptionButton1.Caption
　End If
　If Me.OptionButton2 Then
　　Range("D1").Value = Me.OptionButton2.Caption
　End If
　If Me.OptionButton3 Then
　　Range("D1").Value = Me.OptionButton3.Caption
　End If
End Sub

>シート数が３２シートあり各シートを開けた時もしくはボタンを作成してマクロ
>が実行出来る様なものを作りたい

こちらも今ひとつ、どういうことがしたいのかがよくわかりませんので、もう少し
具体的に、どういうことほしたいのか説明していただけませんか？
【28649】Re:ユーザーフォームに入力した値をセル...
質問  超超初心者  - 05/9/11(日) 18:59 -
引用なし
パスワード
   ありがとうございました。
ほぼ理想どおりに出来ました。あとはﾏｸﾛを自動実行させたいのですが、
シート数が３２シートあり各シートを開けた時（例えばシート1が開いていてシート3をクリックして切り替えた時にユーザーフォームが開くようにしたいのですが・・・）
Bookをあけた時しか実行出来なくて困っています。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

宜しくお願いします。
【28651】Re:ユーザーフォームに入力した値をセル...
発言  りん E-MAIL  - 05/9/11(日) 19:41 -
引用なし
パスワード
   超超初心者 さん、こんばんわ。

> シート数が３２シートあり各シートを開けた時（例えばシート1が開いていてシート3をクリックして切り替えた時にユーザーフォームが開くようにしたいのですが・・・）
>Bookをあけた時しか実行出来なくて困っています。
Open時はそのままいくとして、シートを移動したときにマクロを実行したいならば、ThisworkbookのSheetActivateイベントを利用します。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　 'アクティブになったシートの名前を表示する
　 MsgBox ActiveSheet.Name, vbInformation, "Activate"
End Sub

こんな感じです。
【28652】Re:ユーザーフォームに入力した値をセル...
お礼  超超初心者  - 05/9/11(日) 20:26 -
引用なし
パスワード
   出来ました！かみちゃん、りんさんありがとうございました。勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9222 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free