|
8:58 2007/08/18
|
| Excel VBA Macro ・ オプションボタン・コントロール ・ FAQ |
|
ユーザーフォームで3択するためのオプションボタンの使い方は？
|
|
|
|
Question 83.7 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
はじめまして、初心者です。お世話になります。
セルの値を取得して、その値を名前として保存したいのですが、どうしてよいのかうまく動作しません。
Sub 保存()
ActiveWorkbook.Close SaveChanges:=True
File Name = Range("F3").Value
後、保存するフォルダを3択したいのですが...どうかご教授願います。
保存ボタンをクリックすると、アクティブシートのF3の値をブック名にして、3つあるフォルダのひとつを選択して保存する感じです。
選択となるとユーザーフォームに3つのフォルダ名があって、チェックをいれOKすると選んだフォルダに
保存される...
ユーザーフォームが勉強不足でわかりません。 お手数ですがどうぞおねがいします。 はやくなにも頼らないでVBA使いこなしたいです。
|
|
|
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"を追記しました。
このパターンはいろいろ応用ができそうです。 ありがとうございました。
|
|
|
|
|
