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

【RemoveDuplicates】重複削除する

VBA

・サンプル Range("A1:B" & .Cells(1, 1).End(xlDown).Row).RemoveDuplicates Columns:=Array(1, 2),Header:=xlYes このサンプルはA1からの連続最終行を求め、A1:B最終行の範囲を指定。重複判定Columnsに1列目(A列),2列目(B列)を指定しヘッダー(範囲内の1行…

【AdvancedFilter】テーブルからデータ抽出

テーブルから条件を指定して抽出する Worksheets("").Range("").AdvancedFilter _'テーブルを指定 Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("").Range(""), _'抽出条件がある範囲を指定 CopyToRange:=Worksheets("").Range(""), _'抽出先を指定 U…

【VBA】便利コード集

VBA

実行中の表示を更新するかしないか (Trueにするのを忘れずに) Application.ScreenUpdating = False 実行中のアラートを無視するかしないか (Trueにするのを忘れずに)※無視した場合Yesで処理されるので注意 Application.DisplayAlerts = False

特定のブックを開く(既に開いていたらActivateする)

VBA

Dim WB As WorkbookDim fl As Booleanfl = FalseFor Each WB In Workbooks If WB.Name = "ブック名" Then fl = TrueNext WBIf fl Then Workbooks("ブック名").ActivateElse Workbooks.Open ("ディレクトリ+ブック名")End IfNext

フォルダ内にある全ファイル名取得

VBS

VBSでファイルを取得してMsgを表示する Dim objFileSysDim objFolderDim objFile Set objFileSys = CreateObject("Scripting.FileSystemObject") 'フォルダオブジェクトを取得Set objFolder = objFileSys.GetFolder("ディレクトリ名") 'Folderオブジェクトの…

ログファイル作成 & 追記

VBS

VBSでログファイルを作成する Dim objFSO,objLogSet objFSO = WScript.CreateObject("Scripting.FileSystemObject")Set objLog = objFSO.OpenTextFile("ファイル名",8,True)objLog.WriteLine("任意の文字列")objLog.CloseSet objLog = Nothing Set objFSO = …

【RegExp】文字列比較

VBS

VBSで文字列を比較する Dim objRESet objRE = CreateObject("VBScript.RegExp")objRE.Pattern = "比較したい文字列"If objRE.Test("比較する文字列") Then 一致したときの動作Else 一致しないときの動作End IfSet objRE = Nothing 正規表現 文字列の先頭を指…

アクティブプリンター名を表示させる

VBA

VBAでアクティブのプリンター名(とポート名)を取得する。 Sub ShowCurrentPrinterName()MsgBox "現在使用しているプリンターは、" & _ Application.ActivePrinter _ & " です。", Title:="現在使用しているプリンターの表示"End Sub

【メール自動作成&送信】CDO.Messageによるメール送信

VBScriptでメールを送信する。 Set objMail = CreateObject("CDO.Message") objMail.From = "username@gmail.com" objMail.To = "username@gmail.com" objMail.Subject = "SMTP認証、SSL通信によるメール送信テスト" objMail.TextBody = "CDO.Messageを利用…