エクセルのシート名一覧をマクロを使わずに取得する
この記事をブックマークする : 備忘録です。 エクセルのシート名一覧は以下の手順で取得できます。 ALT+F11でVisual Basic Editorを起動する （Excel2007でリボンから起動したい場合→http://office.microsoft.com/ja-jp/excel-help/HP010014113.aspx?pid=CH101001571041） イミディエイトウインドウが表示されていない場合はCtrl+G For Each i In ThisWorkbook.Sheets: debug.print i.name : next iと入力し、Enter 下にシート名一覧が表示される 目次作成などに便利ですね。 ※この手順は昔どこかのサイトに書いてあったのをメモしておいたものです。 この記事をブックマークする :
エクセルでワークシートを縦に整理できますか？
mshr1962さんの回答を参考にしてマクロを組んでみました。 左端にシートを挿入して、A列にHYPERLINK関数をセットし各シートにジャンプするようにしてみました。 良ければ試してみてください。 Sub test() Dim ws As Worksheet Dim wsn As String Dim i As Long wsn = "シート一覧" ActiveWorkbook.Sheets.Add(Before:=Sheets(1)).Name = wsn For Each ws In ActiveWorkbook.Worksheets If ws.Name <> wsn Then i = i + 1 With Sheets(wsn).Cells(i, "A") .FormulaR1C1 = "=HYPERLINK(""#" & ws.Name & "!R1C1"",""" & ws.
『タイトルバーにフルパス表示』（kuzu） エクセル Excel [エクセルの学校]
[[20041121062759]] 『タイトルバーにフルパス表示』（kuzu） ページの最後に飛ぶ [ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ] 『タイトルバーにフルパス表示』（kuzu） おたずねします。Excelの問題ではないかもしれないのですが、 ウィンドウの最上段のタイトルには、 『 Microsoft Excel-Book1.xls 』 と表示されます。これがフルパスで表示されると便利が良いの ですが、方法をご存じの方はおしえて下さい。 よろしくお願いします。 おはようございます。 こんな感じでどうでしょうか？ v(=∩_∩=)v （SoulMan） Private Sub Workbook_Open() ' 'フルパスを表示する場合 ' Application.Caption = ThisWorkbook.FullName ' ActiveWind
404エラー(Not Found)｜Excelセミナー・効率化支援のすごい改善
404エラー(Not Found)｜Excelセミナー・効率化支援のすごい改善
Office TANAKA - Excel VBA Tips[他ブックのマクロを実行する]
Excel 上で 2 つのブックを開いていたとします。ここでは仮に「Book1.xlsm」と「Book2.xlsm」としましょうか。 「Book1.xlsm」には『Sub Test1』というマクロがあり、「Book2.xlsm」には『Sub Test2』というマクロがあったとします。 ここで、Test1 から Test2 を実行しようと次のように書くとエラーになります。 Sub Test1() Call Test2 End Sub Book1.xlsm には Sub Test2 がありませんので、Sub プロシージャが見つかりません というエラーです。本来のやり方は、Book1.xlsm から Book2.xlsm を参照設定すればよいのですが、これは面倒くさいです。 他ブックのプロシージャを実行するときは、Call メソッドではなく Run メソッドを使いましょう。 Sub Test1(
エクセルでシート名のCSV形式ファイルの一括複数保存 - OKWAVE
こんにちは。 マクロを使えばできます。 下記マクロを該当エクセルファイルか個人用マクロブックにコピペして実行してみてください。 エクセルファイルと同じフォルダにシート名＋".csv"という名前のCSVファイルを作成します。 （選択したシートのみ） Sub SaveCsv() Dim mySheet As Worksheet For Each mySheet In ActiveWindow.SelectedSheets ActiveWorkbook.SaveAs Filename:= _ ActiveWorkbook.Path & "\" & mySheet.Name & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False Next End Sub
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
アンドリューのエクセルTIPS:行の自動的ハイライト
