これだけ。 180秒ごとにNUMLOCK押してることになる。 Skype/Teamsの状態もずっと在籍中になるのでサボってるのばれたくないときにも使えるね。 a.bat powershell -ExecutionPolicy RemoteSigned -File a.ps1 pause a.ps1 $m = New-Object -ComObject WScript…

Sub □を作る() Shapeを作る (msoShapeRectangle)End Sub Sub DBを作る() Shapeを作る (msoShapeCan)End Sub Sub 帳票を作る() Shapeを作る (msoShapeFlowchartDocument)End Sub Private Sub Shapeを作る(shapeKind As Long) Dim activeCellText As String ac…

Sub 一番左のシート() ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets(1).SelectEnd Sub Sub 一番右のシート() ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Sheets.Count).SelectEnd Sub

Sub テーブルデータの整形() 'テーブルデータを張り付けた後に実行 '前提：セルのフォーマットが文字列 '格子 With Selection .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineSty…