VBAでアクティブなセルのシート名を取得する方法
- エクセル2010を使用している場合、VBAを使用してアクティブなセルのシート名を取得する方法を教えてください。
- マクロを実行して、アクティブなセルのシート名を取得する方法について質問です。
- VBAを使用して、エクセル2010でアクティブなセルのシート名を取得する方法を教えてください。
- ベストアンサー
VBA アクティブなセルのシート名を取得したい
エクセル2010使用です。 VBAで、アクティブなセルのあるシート名を取得する方法を教えてください。 マクロ.xls （マクロシートA1） ←今回のマクロを書き込んだファイル 参照.xls （参照シートA1） 入力.xls （入力シートF3） この3つのエクセルファイルを開きます。 （ ）内はそれぞれの前面にあるシート名と選択されたセルです。 入力シートのF3にカーソルをおいて下記マクロを実行すると MsgBox ActiveSheet.Name & ActiveCell.Address 「マクロシート F3」と返されます・・・ ほしい結果は「入力シート F3」なんです。 このような場合にアクティブセルのあるシート名を取得する方法があれば教えてください。 よろしくお願いいたします。
- kappa1203
- お礼率100% (4/4)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
kappa1203さん こんにちは 次のようにすればできると思います。 MsgBox ActiveCell.Worksheet.Name & ActiveCell.Address お試し下さい
関連するQ&A
- エクセルのシート名の取得方法
エクセルのファイルを２つ以上開いている場合、例えばAファイル上のシート１のセルにBファイルの全シート名を取得し、入力させることは可能でしょうか。アクティブファイルの全シート名取得のマクロはあるのですが、非アクティブファイルの全シート名をアクティブファイルのシートに入力させるという方法はなかなか参考になるものがありません。 わかる方教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCELのワークシート名とセルの値の取得に付いて
EXCEL2000を使用しておりますが、ワークシート名と、そのシート内の複数のセルの値を取得し、別シートにマトリックス表示出来るように 入力フォームを設計したいのですが、固定の名称を予め組み込むのではなくフォーム上で入力したテキストをワークシート名及び、セルの位置として扱えるようにするのには、どのようなマクロを書けばよいでしょうか？例えばシート名A～Fの各シートのA1～F1のセルに10～15の数値が 入っていて、Gのシートでマクロを動かすと、シート名とセルの位置を 入力するフォームが現れ、それぞれ入力すると、指定されたシート名と セルの中の値が、Gシートに、1行ずつ追加されて行く処理をイメージ しています。何卒、宜しくご指導の程、お願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA シート名とファイル名とフォルダ名を一度に変更したい
こんばんは。 現在のアクティブセルに入力された文字列「(例）0001」を入力するとシート名、ファイル名、フォルダ名が変更するVBAを作成しています。 シート名の変更は出来たのですが、ファイル名とフォルダ名の変更が上手くいきません。 大変恐れ入りますが、伝授いただけないでしょうか。 よろしくお願い致します。 Sub シート名変更() Dim シート名 As String シート名 = ActiveCell.Value If シート名 = "" Then MsgBox "文字列を含むセルを選択してください。" Exit Sub End If ActiveSheet.Name = シート名 End Sub
- ベストアンサー
- その他（プログラミング・開発）
- エクセルマクロで特定シートの特定セルの中身取得
エクセルのマクロで、ファイル選択(GetOpenFilename)で取得したファイルの特定のシート(sheet1等固定のシート名)とそのシートの特定のセル(A1等固定のセル)にある数値を取得し、マクロ起動したエクセルのあるセルに貼り付けたいのですが、どうすればよいでしょうか。 かなり略してますが、 nama=GetOpenFilename で選択したファイルのファイル名を Range("A1") = Dir(name) で貼り付け、その横のセル(A2)に name#sheet!A1を貼り付けたいのです。 ご存知な方、すみませんが教えていただけますでしょうか。 （エクセルは2003です。）
- ベストアンサー
- オフィス系ソフト
- EXCELのシート名自動入力
EXCELでシート名にセルA1の値を自動入力したいので、 下記のマクロを使いましたが、いちいちマクロを実行しないと自動入力できません。 Public Sub SheetName() ActiveSheet.Name = Range("A1").Value End Sub これを、マクロを実行しなくても、セルA1の値が変わった時点で 自動的にシート名も変わるようにできないでしょうか？
- 締切済み
- Excel（エクセル）
- Excelのシート名の取得について
Excelのシート名の取得について セルの式でシート名を取得することはできますか？ ページヘッダーやフッターでは &[シート名] を指定すると、シート名が取得できますが、 セルの式で =&[シート名] などと入れてもエラーになるのですが、マクロを使うなどしなければシート名は取得できませんか？
- ベストアンサー
- オフィス系ソフト
- VBAで、アクティブなBOOKのファイル名を取得し
エクセルのVBAを使用して、選択されている、ＢＯＯＫのファイル名を取得し、下記のように編集してＡ１セルに入れたいのですが、可能でしょうか？ BOOKのファイル名が「大阪_たこ焼き_1234.xls」の場合 大阪_と.xlsをは省いて、「たこ焼き_1234」がＡ１セルに入るようにしたい。
- ベストアンサー
- オフィス系ソフト
- エクセルのシート名をセルに入力
エクセルで、シートの名前をセルに入力するマクロを教えて下さい。 例えば、【05－1234】というシートのＡ１のセルにマクロで【05－1234】と入力したいのです。 お願いします。
- ベストアンサー
- Windows XP
- 複数ファイルの同じ位置のセル内容を、それぞれファイル名・シート名にして保存したい
VBA初心者ですが、いろいろなＱ＆Ａを検索して、やりたいことの解決方法を模索しているのですが、私の疑問にドンピシャの回答が見つからず悩んでいます。 目的は、あるフォルダ内の、複数のランダムなファイル名のエクセルファイルについて、それぞれのファイルを開き、アクティブシートのＡ１セルの入力内容に基づき、そのシートの名前を変更し、ファイル名も変更して保存するという作業です。（例えば、Ａ１に「山田」と入っていたら、シート名も「山田」にして、「山田.xls」で保存する。） マクロの自動作成で、例えば「Ａ」というファイルは開いてシート名を変え、ファイル名を付けて保存するくらいのことはできるのですが、ファイル名がランダムに代わったり、ファイル数が複数になるとできません。 このようなマクロを作ることは可能なのでしょうか？。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セル入力しているデータをシート名に一括変換する方法
エクセルにてセル入力しているデータをシート名にするためにネットで検索をかけ以下のマクロが掲載されていました。 Sub SheetName() ActiveSheet.Name = ActiveSheet.Range("B2") End Sub このマクロを全シート一括で行いたいのですが、どのようにすればよいのでしょうか？ お教え願います。
- ベストアンサー
- Excel（エクセル）
お礼
できました！ありがとうございます！