Sub sheet_merge() Dim i As Integer Dim lRow As Long, lCol As Long, lRow2 As Long Dim newSh As String Dim Sh As Worksheet, myFlag As Boolean Application.ScreenUpdating = False newSh = "全データ" 'まとめ用のシート名です myFlag = False 'まと…

実行イメージ ＃使い方とかがかっこ悪いので時間はがある時に見直す予定。 Sub group_out_line() ' 使い方 ヘッダを除く表範囲(表範囲は最下行＋1行)を選択してこのマクロを動かす。 '表の対象範囲を取得する t = Selection.Address t = Replace(t, "$", "")…

実行イメージ(市を赤太文字に変更。) Sub font_color_change(a_sSearch, a_lColor, a_bBold) Dim f As Font 'Fontオブジェクト Dim i '引数文字列のセルの位置 Dim iLen '引数文字列の文字数 Dim r As Range 'セル範囲の１セル iLen = Len(a_sSearch) i = 1 …

■OS起動とOS停止の時間を知らべる 12が起動で13が停止のID $events = Get-EventLog System $events | ? { ($_.InstanceID -eq "12") -or ($_.InstanceID -eq "13") } | Out-GridView ■テキストファイルをtailしてgrep Get-Content [対象ファイルのフルパス] …