Archive for 8月 25th, 2019

robocopy 堅牢なコピー

日曜日, 8月 25th, 2019

/b BackupOperators権限でコピー

/r:0 再試行数

/e 空のディレクトリもコピーする

/fp 出力にフルパス表示

ログの見方
スキップ:既にあるからコピーせずにスキップした

オプション詳しい

変数 bat

日曜日, 8月 25th, 2019

set 変数名=代入値
変数名はアルファベットか数字(数字からは×

echo %a%,%b%,%c%,%d%,%e%,%f%
set /p num=""
echo %num%
pause >nul

/a
計算する
変数を%で囲わなくていいのは/aだけ

割り算は小数点以下切り捨て

/p
入力値を変数へ代入

choice 選択肢入力

日曜日, 8月 25th, 2019

choice:選択肢の中から一つを選択する

@echo off
echo バッチファイルの拡張子は?
echo.
echo  1. bat
echo  2. txt
echo  3. c
echo  4. zip
choice /c 1234 /t 5 /d 2 /n /m "答え…"
if %errorlevel% equ 1 goto ok
cls
echo 不正解。正解は1番のbatです。
pause >nul
exit

:ok
cls
echo 正解。正解は1番のbatです。
pause >nul
exit

/c 1234
選択肢1/2/3/4にする
デフォルト:y/n
選択肢として使えるのは一文字なので10/11/12といった選択肢は用意できない

/t 5
時間切れになるまでの秒数
デフォルト:入力されるまで待ち

/n
選択肢の一覧を表示しない
デフォルト:行の最後に [1,2,3,4]?を表示

/m “答え…”
選択肢を聞くときに表示する文字列

choiceの入力結果は変数%errorlevel%に回答の順番が代入される
x/y/zの三択ならそれぞれ1/2/3が代入される

goto ok
条件を満たせばokへ飛び、それ以外なら続行

cls
画面クリア

exit
バッチファイルを終了

pause キー入力まで停止

日曜日, 8月 25th, 2019

pause キー入力まで停止

続行するには何かキーを押してください
↑を非表示にするなら >nul

@echo off
echo Hello,world!
pause

echo Hello,world!
pause >nul
 

@echo off

日曜日, 8月 25th, 2019

プロンプトの左側のカレントパスを非表示

echo Hello,world!
@echo off
echo Hello,world!
pause

24時間テレビ 死ぬまで努力しろ!

日曜日, 8月 25th, 2019

徳島FC 高校サッカー 癌 死ぬまで努力 負けても立ち上がること 明日は来る

Excel 標準フォント Meiryo UI 9pt

日曜日, 8月 25th, 2019

標準フォント
2013:MS Pゴシック
2016:遊ゴシック

ブックで使われる標準フォントはブックごとに設定(記録)されているので新規作成分から反映

ファイル>オプション>基本設定>新しいブックの作成時
次を規定のフォントとして使用:Meiryo UI
フォントサイズ:9

ただしオートシェイプやグラフ内の文字には反映されない→テンプレートで対応?

ペイントを起動せずにプリントスクリーンを保存

日曜日, 8月 25th, 2019

Win+PrintScreen

ファイル形式:png
保存先:ピクチャフォルダ>スクリーンショット
※Altによるアクティブウィンドウのみが効かない

ちなペイント起動は
mspaint

Win+Shift+S:選択範囲をクリップボードへキャプチャ

Snipping Tool スクリーンショット

日曜日, 8月 25th, 2019

Windows Vista/7/8/8.1/10に標準搭載
スタートボタン>Windowアクセサリ>Snipping Tool

プルダウンを表示した状態を撮りたいときは【遅延】

オプション>
【OFF】終了する前に切り取り領域を保存するがどうかを確認する
【ON】切り取り領域をキャプチャした後、選択線を表示する

行全体EntireRow

日曜日, 8月 25th, 2019
Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub