Excel VBA質問箱 IV

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

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


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

【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.はオプションボタンで4名分作成し、okボタンで転送できる様にしたいのですが、シート数が32シートあり各シートを開けた時もしくはボタンを作成してマクロが実行出来る様なものを作りたいのですが・・・宜しくお願いします。

【28638】Re:ユーザーフォームに入力した値をセル...
発言  かみちゃん  - 05/9/10(土) 22:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

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

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

こちらも今ひとつ、どういうことがしたいのかがよくわかりませんので、もう少し
具体的に、どういうことほしたいのか説明していただけませんか?

【28649】Re:ユーザーフォームに入力した値をセル...
質問  超超初心者  - 05/9/11(日) 18:59 -

引用なし
パスワード
   ありがとうございました。
ほぼ理想どおりに出来ました。あとはマクロを自動実行させたいのですが、
シート数が32シートあり各シートを開けた時(例えばシート1が開いていてシート3をクリックして切り替えた時にユーザーフォームが開くようにしたいのですが・・・)
Bookをあけた時しか実行出来なくて困っています。
                                   

宜しくお願いします。



【28651】Re:ユーザーフォームに入力した値をセル...
発言  りん E-MAIL  - 05/9/11(日) 19:41 -

引用なし
パスワード
   超超初心者 さん、こんばんわ。

> シート数が32シートあり各シートを開けた時(例えばシート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 -

引用なし
パスワード
   出来ました!かみちゃん、りんさんありがとうございました。勉強になりました。

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