Excel VBA ブック内のすべてのシートに対して、処理をする
ブック内のすべてのシートに対して、処理をするSub 複数シートでの項目名確認()Dim i, sht '全シートに対しての処理 For Each sht In Worksheets sht.Select '>>>>>>>>>>>>>>>>>...
Excel VBA Excel VBA 最初に設定したいコード
Application.DisplayAlerts = False 'アラートや警告を表示しないApplication.ScreenUpdating = False '画面を表示しないApplication.WindowState = xl...
Excel VBA デスクトップに名前を付けて保存する
デスクトップに名前を付けて保存するDim AAA As StringDim BBB As VariantSet BBB = CreateObject("WScript.Shell")----- べんりあつめ。-----AAA = BBB.S...
Excel VBA 途中に空白行があっても、最終行を選択する。取得する。最終行列の取得（入力値のみ、書式有り空白セル含まず）最終行列の取得（入力値有無関係なく、書式有り空白セル含む）
途中に空白行があっても、最終行を選択する。Dim maxrowWith ActiveSheet.UsedRange maxrow = .Rows(.Rows.Count).SelectEnd With----- べんりあつめ。-----途中...
Excel VBA A列の書式設定を変更する。
A列の書式設定を「整数の数値」にする。Range("A:A").NumberFormatLocal = "0"A列の書式設定を「標準」にする。Range("A:A").NumberFormatLocal = "標準"----- べんりあつめ...
Excel VBA vbaで関数を連続コピーする。vbaでオートフィル機能を使う方法。
A列に空白がない行が連続入力されていることが前提で、B列の2行目に関数を設定し、A列の最終行まで、連続コピーする。vbaでオートフィル機能を使う方法。Range("B2").Value = "= A2 & A2"----- べんりあつめ。-...
Excel VBA 処理前チェック（マクロを走らせていいかを確認する）
AU1のセルに何も入力されていなければ、マクロを進める。なにか入力されていれば中止する。If Range("AU1").Value = "" Then'ここにマクロを入れるか、end ifの後にマクロを書く。Else----- べんりあつめ...
Excel VBA ブック名を取得 ⇒ 不要文字列削除 ⇒ 取得文字列分割AB ⇒ ABを特定セルに最終行まで繰り返し入力
20170101_サンプル不要文字列.csvというブック名取得して、特定セルに、「20170101」と、「サンプル」という文字を最終行まで入力する。Sub bookname()Dim i, ii, iiiDim maxrow i = Act...
Excel VBA アクティブなブック名を取得して、ブック名に含まれる特定の記号で文字列を分ける
例えば、20170305_日本.csvってファイル名をエクセルで開いて、A2に、20170305。 B2に、日本と入れたい場合。.csvが邪魔なので、これは置換で対応----- べんりあつめ。-----Dim i, ii, iii i = ...
日記 なんだかんだで、一番使いやすいのは、Appleのキーボードだね。
世の中いろいろキーボードは出回っているけど、やっぱり、安心して使っていけるのは、Apple製のキーボード。長くは使えるけど、消耗品としてみたときに、キー配列やサイズ感が変わらないのは、Appleだけだよね。今は、magickeyboardに...