2020-06-30から1日間の記事一覧

ExcelVBAでファイル追記

Dim fso As FileSystemObject Set fso = New FileSystemObject Dim ts As TextStream Set ts = fso.OpenTextFile("D:\Tips.txt", ForAppending, True, TristateTrue) ' ファイルを UTF-16 で開く Set ts = fso.OpenTextFile("D:\Tips.txt", ForAppending, Tr…

VBAでユーザーフォームの表示を確認

Visible で判断 If (UserForm1.Visible = True) Then '表示されている Else '表示されていない End If ネタ元 https://oshiete.goo.ne.jp/qa/7846020.html

ExcelVBA Application.OnTimeで呼び出す関数に引数渡す

OnTimeで呼び出すプロシージャーに引数を渡しています。 全体をシングルクォーテーション(')で囲み、引数をダブルクォーテーション(")で囲みます。 Sub sample1() Application.OnTime Now + TimeValue("00:00:05"), "'sample2 ""時間ですよ""'" End Sub Sub …

Excelブック単体でExcelVBAを疑似マルチスレッド化

ここ参照 https://www.excel-chunchun.com/entry/2019/03/27/005233 Option Explicit '親部分 Sub Main() Const MAX_PROCESS = 10 Dim Apps As Collection: Set Apps = New Collection Dim i As Long '下準備 Dim App As Excel.Application Dim Wb As Workbo…

Excel関数のMAXを使って、指定列の最大値を取得

MAX値 = Application.WorksheetFunction.Max(Range("A:A")) ネタ元 https://uxmilk.jp/50111

Excelで区切り記号を挿入しながら複数の文字列を連結する TEXTJOIN

TEXTJOIN テキストジョイン (区切り記号, 空の文字列を無視, 文字列1, 文字列2, ..., 文字列252) 例えば別シートのA列にある文字を/で連結したい場合は =TEXTJOIN("/",,シート名!A:A) ネタ元 https://dekiru.net/article/14504/