読者です 読者をやめる 読者になる 読者になる

管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

可視シート名を列挙する(ExcelVBA)

Excelで、アクティブブックの可視シート名を列挙する方法。結構使うけど忘れがちなのでメモ。 Option Explicit Sub 可視シート名を列挙する() Dim sheetCnt As Integer Dim i As Integer Dim tmpSheet As Worksheet sheetCnt = ActiveWorkbook.Worksheets.Co…

Excel2003迄の印刷ダイアログを開く(Excel)

Excel2007あたりから、印刷ダイアログが変わり、特定シートのみの印刷や、ブック全体指定のショートカットキーが煩雑になりました。 そこで、ExcelVBAを使い、旧来の印刷ダイアログを出せるようにしたいと思います。 下記サブルーチンを「Ctrl-P」に割り当て…

ExcelファイルをPDF化する(ExcelVBA編)

Excel2007以降なら、VBAでPDF化できるようですね。 そんなわけで書いてみました。変換元Excelファイルと同じ場所にPDFが格納されます。 表示されたシート、印刷範囲が適用され、全シートが1PDFファイルになります。 https://msdn.microsoft.com/ja-jp/librar…

最下行アドレスを取得する(ExcelVBA)

カレントセルの列の、最下行アドレス(値の入力された最下行のアドレス)を取得する。 Option Explicit Sub カレントセル列の最後尾アドレスを取得する() Dim currentRange As Range Dim maxRowNum As Integer Dim tmpColumnName As String Dim columnName As …

任意の複数のExcelブックのセルの値を取得する(ExcelVBA)

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。 「の」が多いな。 Sub ボタン1_Click() Dim fileNames As Variant Dim fileName As Variant Dim tmpSheet As Worksheet fileNames = Application.GetOpenFilename(MultiSelect:=True) If IsA…

全シートA1セルを選択する(ExcelVBA)

掲題の通り、全シートA1セルを選択するExcelVBAコード。 非表示シートがあるとアレですが、まぁ。 最後1シート目に移るのは好みです、はい。 Sub 全シートA1選択() Dim loopCount As Integer Dim sheetCount As Integer Dim tmpSheet As Worksheet sheetCoun…

F1キーでヘルプを立ち上げない(ExcelVBA)

最近家PCにExcelを入れまして。 まずやることといえば、F1キーでヘルプを立ち上がらなくさせる、でしょう! セル編集のためにF2キーを押そうとして、ミスタッチでF1キーを押してしまったとき「あっ...」を防止したいじゃないですか... ということで、思い立っ…