SSDに換装したの。

バックアップ取って、Win10をクリーンインストール
すっきりした!

参考にしたところと使ったURLをメモメモ。

  • PCリカバリー、これはバックアップしておけ!という項目一覧 - 知らなきゃ絶対損するPCマル秘ワザ

http://daredemopc.blog51.fc2.com/blog-entry-703.html

https://www.microsoft.com/ja-jp/software-download/windows10

http://www.atmarkit.co.jp/ait/spv/0812/26/news119.html

http://torano-maki.net/capture/custom/partition_division.html

  • Windows10でSSDの寿命を延ばす対策【第一回】 - ZAKKINKS

http://zakkinks.com/windows10_ssd_optimization/

Windowsのbatファイルで、大量リネーム。

【楽々一括リネーム!】バッチファイルでファイル名の先頭・末尾に文字を追記する - Qiita
http://qiita.com/mitsuru793/items/0c03bd18439c5b7ef026

@echo off

echo バッチファイルと同じディレクトのすべてのファイルをリネームします。
echo (拡張子を含まない)ファイル名のどの位置に文字を挿入しますか?
echo;
echo 0:先頭
echo 1:末尾

set /p select="数字で選択して下さい:"
set /p add="追記する文字を入力して下さい:"

if %select%==0 (
for %%i in (*) do (
rem 実行バッチファイル自身以外に実行
if not %%i==%~n0%~x0 (
rem 先頭に追記
ren %%i %add%%%~ni%%~xi
)
)
) else (
for %%i in (*) do (
rem 実行バッチファイル自身以外に実行
if not %%i==%~n0%~x0 (
rem 末尾に追記
ren %%i %%~ni%add%%%~xi
)
)
)

らっくちーん。

一行ごとに1テキストファイルに書き出す。

https://tamakisono.blogspot.jp/2010/12/11.html
フォルダは作っておく。

Sub ColumnOut2Text()
Dim i As Long
Dim j As Long
Dim Fno As Integer
Dim OutColumn As String
  Const myPath As String = "C:\txt\"
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
 Fno = FreeFile()
 Open myPath & .Cells(i, 1).Value & ".txt" For Output As #Fno
 For j = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
  OutColumn = .Cells(1, j).Value & Chr(13) & .Cells(i, j).Value & Chr(13)
  Print #Fno, OutColumn
 Next j
 OutColumn = Empty
 Close #Fno
Next i
End With
 Beep
End Sub

windows10でスタートメニューにインターネットショートカットを作成したい

[ツール] → [サイトをアプリビューに追加] → [追加] の順にクリックしてサイトをアプリビュー ([すべてのアプリ] の一覧) に追加します。
次にスタート画面の [すべてのアプリ] の中に追加されたサイトを右クリック → [スタート画面にピン留めする] をクリックしてみてください。

http://answers.microsoft.com/ja-jp/insider/forum/insider_internet-insider_ie/windows10%E3%81%A7%E3%81%8A%E6%B0%97%E3%81%AB/a63696ff-ac9e-4047-b680-128beb44ba29?auth=1

レスポンシブデザイン memo

レスポンシブデザイン CSS
https://webdesignerwork.jp/web/responsivewebdesign/

モバイルフレンドリーな画像サイズ
googleアドセンスが300*250

画像の伸縮設定
img{
max-width: 100%;
height: auto;
width /***/:auto; 
}

クリッカブルマップをスマホでも使えるようにしたい

  1. 普通にクリッカブルマップを作成する
  2. jQuery RWD Image MapsからJSファイルをDL
  3. コードを記入
<script type="text/javascript" src="jquery-1.11.0.min.js"></script>
<script type="text/javascript" src="jquery.rwdImageMaps.js"></script>
<script>
$(function(){
  $('img[usemap]').rwdImageMaps();
});
</script>

※function()が2個になるなど複数記入したい場合は以下で

<script type="text/javascript">
window.onload = function () { // ページ読み込み時
    funcAdd1(); // 他のコード
    funcAdd2(); // イメージマップ
}
function funcAdd1() {
    他のコード
function funcAdd2(){
  $(document).ready(function(e) {
	$('img[usemap]').rwdImageMaps();
	$('area').on('click', function() {
		alert($(this).attr('alt') + ' clicked');
	});
});
}
</script>