marikiro

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に...
日記

Creators Update で、icloud for windows を使っている outlook が使えなくなった!

うわーーーー!俺の環境だけかもしれないけど、icloud for windows がまだ対応してなくて、outlook連携が出来ないどころか、icloudの予定がoutlookで開けない。。。泣く泣く、creators update は、も...
スポンサーリンク