PowerShellも同じやり方。渡すテキスト変えるだけ。 コマンドにオプション付けたり、Splitなどを使って結果を取捨選択してください。 Sub コマンドプロンプト() Dim WSH, wshExec, sCmd As String, sResult As String Set WSH = CreateObject("WScript.Shell…

Sub セルの幅と高さサイズ指定() With ActiveSheet '自動調整確認用テスト文字 '.Range("A1:G10").Value = "aaaaaaaa" 'サイズ一括指定 .Cells.RowHeight = 30 .Cells.ColumnWidth = 5 '基準値に戻す .Rows("2").UseStandardHeight = True .Columns("A").Use…