No.7ベストアンサー
- 回答日時:
こんにちは。
Wendy02 です。>今はツール→マクロ→マクロという手順で行うしか
>私の知識不足でできません。
ツールバーを右クリックして、[コントロールツール]を出し、その中から、コマンドボタンを選んで、シートに貼り付けます。
そのボタンを右クリックすると、
コードの表示というのがあります。それをクリックします。
そうすると、Visual Basic Editor画面が現れその中には、以下のように出ているかと思います。
Private Sub CommandButton1_Click()
End Sub
そこで、その間に以下のように書き加えます。
(ただし、マクロ名は、FindFileName が、「標準モジュール」に登録されていることが条件です。)
↓
Private Sub CommandButton1_Click()
Call FindFileName '一行書き加えます。
End Sub
なお、ツール-マクロ-マクロという代わりに、Altを押しながら、F8 を押すとマクロ名の一覧が出ます。
No.6
- 回答日時:
再度のこんにちは。
No.3です。既にWendy02さんがフォローしてくださってますが、
開きたいファイル名が、例えば、"売上.xls"
それが、セルA1に入力されているとした場合
先のコードでは、セルA1には、"売上.xls"と拡張子(.xls)込みで入力されているものとしています。
もし、拡張子なしで、"売上" とだけ入力されているのであれば、
下記のように●のところに拡張子(.xls)を付加しましょう。
---------------------------------------------
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
Dim Fname As String
Fname = Range("A1").Value & ".xls" '●ここ
For Each Wbk In Workbooks
If Wbk.Name = Fname Then
MsgBox Fname & "は既にオープンされています"
Exit Sub
End If
Next Wbk
If Dir(Fname) = "" Then
MsgBox Fname & "はありません"
Else
Workbooks.Open Fname
End If
End Sub
-----------------------------------------
以上です。
No.5
- 回答日時:
こんにちは。
>シート内にある顧客マスターを電話番号やふりがなの一部から検索し、あるセルに表示させ、そのセル内の名前と同じブックを開かせたいのです。
これは、具体的なセル情報がないと、編集していただかなくてはなりません。また、ふりがな情報はセル上に出されているものとします。それは、書かれていないので、こちらかで作ったものをサンプルとさせていただきます。
なお、#3 のtaocat さんに関するものは、
>、「***はありません」となってしまいます。***は確かに同フォルダ内にあるのですが・・・。何か私のやり方が悪いんでしょうか?
これは、たぶん、セル上のリストにあるファイル名(Fname)に、.xls の拡張子がついていないからだと思います。
以下は、こちらで考えたサンプルです。
A B C D E
1 名前 ふりがな 住所 電話番号 ファイル名
2 朝日 アサヒ 東京 12-124 050821a
3 毎日 マイニチ 大阪 12-125 050822a
'<標準モジュール登録>
Option Explicit
Sub FindFileName()
Dim myFind As String, myFadd As String, rtn As Integer
Dim DataRng As Range
Dim c As Range
Set DataRng = Range("A1").CurrentRegion 'リストのある左端上を設定
myFind = Application.InputBox("検索値を入力してください。", Type:=2)
If myFind = "False" Or myFind = "" Then Exit Sub
Set c = DataRng.Find(What:=myFind, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
myFadd = c.Address
Do
rtn = MsgBox(DataRng.Cells(c.Row, 1) & "でよろしいですか?", _
vbYesNoCancel)
If rtn = vbYes Then
Call OpenFile(DataRng.Cells(c.Row, 5))
Exit Sub
ElseIf rtn = vbCancel Then
Exit Sub
End If
Set c = DataRng.FindNext(c)
Loop Until c Is Nothing Or c.Address = myFadd
End If
End Sub
Private Sub OpenFile(Fname As String)
Dim myFno As Integer
If InStr(Fname, ".xls") = 0 Then
Fname = Fname & ".xls"
End If
If Dir(Fname) <> "" Then
myFno = FreeFile
On Error Resume Next
Open Fname For Binary Lock Read Write As #myFno
Close #myFno
If Err.Number = 0 Then
Workbooks.Open Fname
ElseIf Err.Number = 70 Then
MsgBox Fname & "は開いています。", 64
Err.Clear
End If
Else
MsgBox Fname & "は存在しません。", 16
End If
End Sub
ほぼ私のやりたかったことができました。感激です。本当にありがとうございました。ついでにもう一つお聞きしたいのですが、このマクロをコマンドボタンから呼び出すのはできますか?今はツール→マクロ→マクロという手順で行うしか私の知識不足でできません。よろしくお願いします。
No.4
- 回答日時:
こんにちは。
>文字と同じ名前のファイル
がエクセルブックとは限らないかもしれないので、
Private Sub CommandButton1_Click()
Dim sPath As String
sPath = ThisWorkbook.Path & "\" & Range("A1").Value
If Dir(sPath) <> "" Then
With CreateObject("WScript.Shell")
.Run """" & sPath & """"
End With
End If
End Sub
としてみました。
(A1セルには、開きたいファイルの「ファイル名.拡張子」があるとします。)
関連付けされたファイルなら全て開きます。
ブックの場合、既に開いていたときはアクティブになります。
ありがとうございます。お礼が遅くなってごめんなさい。今回はエクセルブックのみですが、そうではない時の参考になりました。みなさん凄いですね。
No.3
- 回答日時:
こんばんは。
該当ブックが既にオープンされてる場合のチェックも入れたほうがベターですね。
-------------------------------------------------
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
Dim Fname As String
Fname = Range("A1").Value
For Each Wbk In Workbooks
If Wbk.Name = Fname Then
MsgBox Fname & "は既にオープンされています"
Exit Sub
End If
Next Wbk
If Dir(Fname) = "" Then
MsgBox Fname & "はありません"
Else
Workbooks.Open Fname
End If
End Sub
-------------------------------------------
以上です。
ありがとうございます。お礼が遅くなってごめんなさい。教えていただいたようにしたのですが、「***はありません」となってしまいます。***は確かに同フォルダ内にあるのですが・・・。何か私のやり方が悪いんでしょうか?
No.2
- 回答日時:
こんばんは。
>VLOOKUPなどで検索し、
この部分の意味がわかりませんが、こういうことでしょうか?
一応、カレントディレクトリのファイル名を検索して、その名前があれば、ブックを開くようにしています。
Private Sub CommandButton1_Click()
Dim Fname As String
Fname = Range("A1").Value
If Dir(Fname) <> "" Then
Workbooks.Open Fname
End If
End Sub
この回答への補足
ありがとうございます、説明不足ですみません。私がしたいのはこんなことです。シート内にある顧客マスターを電話番号やふりがなの一部から検索し、あるセルに表示させ、そのセル内の名前と同じブックを開かせたいのです。他に良さそうなやりかたがございましたらご教授下さい。
補足日時:2005/08/26 11:13お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Visual Basic(VBA) vbaサブフォルダーをワイルドカードで取得したい 2 2022/11/15 08:04
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
Excel VBA セルと同じ名前のブックを呼び出し、呼び出したシートをコピーする方法について こん
Excel(エクセル)
-
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
-
4
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
5
エクセルのセルに入力されているファイルを開く
Access(アクセス)
-
6
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
7
エクセルVBAで、PDFファイルを開きたい
Excel(エクセル)
-
8
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
9
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
10
VBAからファイルをセル入力から開く方法
Excel(エクセル)
-
11
サブフォルダから部分一致のエクセルファイルを検索、選択して開くマクロについて
Excel(エクセル)
-
12
エクセルで「特定の文字を含むファイルへのリンク」or「特定の文字を含むファイルの検索の実行」
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
マクロ セルに入力されたシートを選択する
Excel(エクセル)
-
15
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
16
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
17
フォルダ選択でなくフルパスをセルの値から取得したい
Excel(エクセル)
-
18
エクセルにクリックすると指定したPDFを開く様に
Windows 7
-
19
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
20
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
現在のセルの位置を返す関数は...
-
Excel内での検索結果をシート...
-
Excel ハイパーリンクのURLを別...
-
フォントの色を指定して削除出...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
Excelで挿入した図をセルの中央...
-
アポストロフィーの一括挿入 ...
-
エクセル 未入力セルがあると...
-
Excel 2010 プルダウンメニュー...
-
セル背景や文字を点滅させる方法
-
エクセルでの検索ボックスの作...
-
Excelで、図形内の文字をセルに...
-
【EXCEL】先週の月曜日の日付を...
-
VBA 見つからなかった時の処理
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
エクセルでPDFリンクを大量...
-
excelで セルの移動時に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
Excelで挿入した図をセルの中央...
-
VBA 見つからなかった時の処理
-
フォントの色を指定して削除出...
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
セルがクリックされた回数をカ...
おすすめ情報