ユーザーフォームで3択するためのオプションボタンの使い方は?

Question 83.7 Excel VBA Borad (掲示板)より Previous Next
はじめまして、初心者です。お世話になります。
セルの値を取得して、その値を名前として保存したいのですが、どうしてよいのかうまく動作しません。
Sub 保存()
    ActiveWorkbook.Close SaveChanges:=True
    File Name = Range("F3").Value
後、保存するフォルダを3択したいのですが...どうかご教授願います。
保存ボタンをクリックすると、アクティブシートのF3の値をブック名にして、3つあるフォルダのひとつを選択して保存する感じです。
選択となるとユーザーフォームに3つのフォルダ名があって、チェックをいれOKすると選んだフォルダに 保存される...
ユーザーフォームが勉強不足でわかりません。 お手数ですがどうぞおねがいします。 はやくなにも頼らないでVBA使いこなしたいです。
Answer   2007.8.4 永井善王
フォルダ名選択用ユーザーフォーム F3セルには拡張子付きのブック名が入力されるとします。
ユーザーフォームは右図のように、下記要領で作成してください。
  OptionButton1のCaption ・・・ C:\フォルダA
  OptionButton2のCaption ・・・ C:\フォルダB
  OptionButton3のCaption ・・・ C:\フォルダC
  CommandButton1のCaption ・・・ OK

標準モジュールのコード
Public フォルダ名 As String

Sub 選択されたフォルダへ保存する()
    UserForm1.Show
    ブック名 = Range("F3").Value
    フルパス = フォルダ名 & "\" & ブック名
    ActiveWorkbook.SaveAs フルパス
End Sub
UserForm1のコード
Private Sub OptionButton1_Click()
    フォルダ名 = OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
    フォルダ名 = OptionButton2.Caption
End Sub

Private Sub OptionButton3_Click()
    フォルダ名 = OptionButton3.Caption
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub
成功を祈ります。

サンプルブックのダウンロードは ここをクリック  (YNxv9g064_OptionButton.xls 49KB)
※ 一旦、ブックをハードディスクに保存し、後で改めて開いてから実行してください。
ありがとうございます
できました。この考え方がでてきません。すごい感激です。
すべてエクセルで作成したブックなので、フルパスの最後に&".xls"を追記しました。
このパターンはいろいろ応用ができそうです。 ありがとうございました。

 

Excel VBA Macro