Excel VBAで右クリックメニューを追加する

2020年4月22日

はじめに Excel VBAではなんと、作成したマクロを、Excelの右クリックメニューに追加することまでできてしまう。といっても私も、そんなにそれを活用してるわけでもない。普通は、個人用マクロブックのマクロだったら、…

Excel 「ウインドウ枠の固定」で気配りしよう。手間を掛けないように。

2020年3月22日

はじめに Excelでは、縦や横に長い資料を作ることがよくある(横に長くするのは基本的にNGだが)。そういうとき、タイトル部分などは、縦横にスクロールしても常に見えるようにしておくのが配慮というもので、それが「ウインド…

Excel VBA ゴールシーク機能を縦に一括で連続実行できるマクロ個人用マクロブックに組み込めるよ

2022年4月6日

前回の記事では、Excelで逆算を行う機能である「ゴールシーク」について紹介した。今回は、そこで紹介したゴールシークのデメリットの解消にチャレンジしたマクロを作成してみた。おさらいだが、ゴールシーク機能のデメリットは…

Excel VBA 全てのシート名を一括で変更しまくれるマクロ個人用マクロブックに組み込めるよ

2021年12月1日

はじめに Excelで、「1日」～「31日」の名前のシートを作らないといけない既に何十個ものシートを設置してるけど、それらのシート名を全部変えていかないといけないといったように、多数のシート名を設定しないといけない…

Excel オートフィルタをもうちょっと改良するマクロ個人用マクロブック用

2022年4月6日

以前の記事で、Excelのオートフィルタについて、難しいが役立つショートカットキーというのを紹介した。これに書いてる内容自体に誤りはないと思うが、「まだこんなんじゃ面倒が全然解決されたうちに入らんよ。まだもっと改善でき…

Excel VBA フォルダを複数一括新規作成する手抜きマクロ個人用マクロブックに組み込めるよ

2022年4月6日

はじめにご存じない方も多いと思うが、Excelのマクロ・VBAでは、ファイルのコピー、フォルダの新規作成などといった、ファイルやフォルダの操作もできる。今回はExcel VBAで、Excelの選択セル範囲からフォルダ…

Excel VBA シート目次を作成するマクロクリックすれば各シートにジャンプできる個人用マクロブックに組み込めるよ

2019年3月24日

Excelで多くのシートがあるとき、その目次となるページのシートを作るマクロを、下記に示す。似たようなのはあちこちで公開されてるだろうけどね。

Sub makeSheetsContent()
'シート目次を作る
    Dim arr As Variant
    Dim ws As Worksheet
    Dim rng As Range
    Dim buf As String
    Dim i As Integer
    Dim wsNum As Integer

    Call appSet
    wsNum = Worksheets.Count 'シートの数。見出しも作成するために1加えておく

    ReDim arr(1 To wsNum, 1 To 2)
    'まず見出しをセット
    For i = 1 To wsNum
        arr(i, 1) = i '番号
        arr(i, 2) = Worksheets(i).Name 'シート名
    Next i
    
    Worksheets.Add before:=Worksheets(1) 'シート名一覧のシート
    Set ws = ActiveSheet
    
    ws.Cells(1, 1).Value = "№"
    ws.Cells(1, 2).Value = "シート名"
    ws.Cells(2, 1).Resize(wsNum, 2).Value = arr

    For i = 1 To wsNum
        Set rng = ws.Cells(i + 1, 2) 'シート名を書いたセル
        buf = arr(i, 2) 'シート名
        ws.Hyperlinks.Add Anchor:=rng, Address:="", _
                   SubAddress:="'" & buf & "'" & "!$A$1", TextToDisplay:=buf 'リンクも追加
    Next i
    
    Rows(1).HorizontalAlignment = xlCenter '横方向は中央揃え
    Cells(1, 1).Resize(1, 2).EntireColumn.AutoFit '列幅の自動調整

    Call appReset
End Sub

Sub appSet()
'マクロ処理中に、描画など余計なものを省略して高速化
    With Application
        .ScreenUpdating = False '描画を省略
        .Calculation = xlCalculationManual '手動計算
        .DisplayAlerts = False '警告を省略。
'        .EnableEvents = False 'DisplayAlertsよりこちらを設定した方が良いのかな？
    End With
End Sub

Sub appReset()
'描画などの設定をリセット
    With Application
        .ScreenUpdating = True '描画する
        .Calculation = xlCalculationAutomatic '自動計算
        .DisplayAlerts = True '警告を行う
    End With
End Sub

Sub makeSheetsContent()

wsNum = Worksheets.Count 'シートの数。見出しも作成するために1加えておく

ReDim arr(1 To wsNum, 1 To 2)

'まず見出しをセット

For i = 1 To wsNum

arr(i, 1) = i '番号

arr(i, 2) = Worksheets(i).Name 'シート名

Next i

Worksheets.Add before:=Worksheets(1) 'シート名一覧のシート

Set ws = ActiveSheet

ws.Cells(1, 1).Value = "№"

ws.Cells(1, 2).Value = "シート名"

ws.Cells(2, 1).Resize(wsNum, 2).Value = arr

For i = 1 To wsNum

Set rng = ws.Cells(i + 1, 2) 'シート名を書いたセル

buf = arr(i, 2) 'シート名

ws.Hyperlinks.Add Anchor:=rng, Address:="", _

SubAddress:="'" & buf & "'" & "!$A$1", TextToDisplay:=buf 'リンクも追加

Next i

Rows(1).HorizontalAlignment = xlCenter '横方向は中央揃え

Cells(1, 1).Resize(1, 2).EntireColumn.AutoFit '列幅の自動調整

Call appReset

End Sub

Sub appSet()

'マクロ処理中に、描画など余計なものを省略して高速化

With Application

.ScreenUpdating = False '描画を省略

.Calculation = xlCalculationManual '手動計算

.DisplayAlerts = False '警告を省略。

' .EnableEvents = False 'DisplayAlertsよりこちらを設定した方が良いのかな？

.ScreenUpdating = True '描画する

.Calculation = xlCalculationAutomatic '自動計算

.DisplayAlerts = True '警告を行う

End With

End Sub

途中に「…

Excel VBA シートの見出し色を他のシートからコピーするマクロ個人用マクロブックに組み込める

2020年3月21日

Excelで、シートの見出し色を他のシートと同じものにするマクロを示す。内容の説明は後で書きます。

Sub copySheetTabColor()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ActiveSheet

    On Error GoTo myErr
    '***Application.InputBoxのType:=8は、セル範囲を選択させるものです。***
    Set rng = Application.InputBox("シート見出し色をコピーしたいシートのセルをどこか選択してください", Type:=8)

    ws.Tab.Color = rng.Parent.Tab.Color'シート見出し色をコピー

myErr: Exit Sub
End Sub