VBScript vbsで日付時間の取得
vbsで、年日付を8桁、時間を6桁で取得するときに便利。Dim ymdhmsDim yyyyDim mmddDim hhmmss----- べんりあつめ。-----yyyy = Year(Now())mmdd = Right("0" & M...
アプリで便利！
VBScript 
日記 chromeのブックマークの整理
chromeのブックマーク。いつのまにか、たくさんブックマークしてて、定期的に整理しないと、見たいwebページのブックマークが埋もれてしまいがち。chrome（に限らないけど）は、ログインして使っていれば、会社のパソコン、家のパソコン、スマ...
Excel VBA ブック内の全シートの項目名が同じか調べる
ブック内の全シートの項目名が同じか調べるSub 複数シートでの項目名確認()Dim i, shtDim ks(1000) As StringDim j'基準になる1シート名の項目名の数および、シートの項目をすべて配列に入れるSheets(1...
Excel VBA 途中に空白列があっても、最終列を選択する。取得する。
途中に空白列があっても、最終列を選択する。Dim maxcolumnWith ActiveSheet.UsedRangemaxcolumn = .Columns(.Columns.Count).SelectEnd With----- べんり...
Excel VBA ブック内のすべてのシートに対して、処理をする
ブック内のすべてのシートに対して、処理をするSub 複数シートでの項目名確認()Dim i, sht '全シートに対しての処理 For Each sht In Worksheets sht.Select '>>>>>>>>>>>>>>>>>...
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"----- べんりあつめ。-...