Excel 数値のオートフィルタについてオートフィルタ機能はもっと改良が必要ですねコレ

2020年3月16日

こんにちは。最近は、Excelの新バージョン・2019にはかなりの機能追加がされるってことで話題になっていますが、私にはそれをテストできる環境がないので、当サイトは通常運転でいきます。通常運転って何かって、特に断りな…

Excel 文字列を結合するのは「＆」で。それだけだ。

2020年3月22日

今回の記事では、Excelで知らなければ恥ずかしいレベルといえる、文字列を結合する方法について述べていく。算数とか足し算とかの超基礎だし、最低限のことは1分も読めば分かるはずなので、理解していこう。文字列を結合するの…

Excel VBA 計算式中の自シートを参照する部分を削除するマクロ個人用マクロブックに組み込める

2022年4月6日

上図のようなExcelで、「集計」シートのC2セルに「売上」シートのB列:担当者が＜加藤＞の売上金額をSUMIF関数で求めようとした場合(今回の例題では、求め方そのものに大した意味はなくて、別シートを参照することだけ何と…

Excel 1つ左のセルや、1つ上のセルを簡単コピーする技意識的に多用するようにしてみよう

2019年4月11日

はじめに：Ctrl+RとCtrl+Dで簡単コピペ Excelでセルのコピペをするとき、1つ左のセルや、1つ上のセルだったら、1回1回「Ctrl+C」「Ctrl+V」とか面倒なことをせず簡単にできるコマンドがある。という…

こんな時代に今さら、Excel97について語る(2)今では当たり前の機能も、改善を重ねた結果のものだ

2020年3月22日

前回の記事で、Excel97の話から始まって色々と私の前職についての愚痴を書き連ねた。さて今回は本題に入って、今のExcelでなら当たり前にできるこんな機能もExcel97ではできなかったんだという事例を、色々と書いてい…

こんな時代に今さら、Excel97について語る(1)その前に、前職の愚痴をば。

2020年3月22日

信じられない話だろうと思うし自分でも信じたくないのだが、私は2014年から約1年間、前の職場の仕事でExcel97を使わされていた。別に私一人が罰とかで使わされていたわけではなく、職場の大半の人間に支給されていたPCの…

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

2022年4月6日

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

Excel マクロ、VBA

Excel VBA 色の付いていないセルだけを選択するマクロ個人用マクロブックに組み込める

2020年3月22日

マクロのソースコード今回はExcelで、いくつかセルを選択しているときに、その中で色の付いていないセルだけを選択し直すマクロを紹介する。「そんなことをして何の役に立つんだ」とか「どうして色の付いていないセルなんだ。色…

あまりに突っ込みどころ満載なExcelテクニックの記事があったので、我慢しきれず突っ込みます

2019年3月16日

私はわざわざこのブログで、他所様のサイトの記事にケチをつける記事を書く気はないし、個人でやっているようなブログに対しては多少の間違いがあったりしても別に突っ込んだりする気は無い。しかし、個人でやってるようではないサイト…

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