保存した画像：「Pictures」→「NAVER_LINE」
保存した動画：「Pictures」→「LINE_MOVIE」
日本IBM出身「L-SMASH Works」というプラグインをインストールし、プラグインの優先度を最上位にする
詳しくはこちら
日本IBM出身無料の動画編集ソフトAviUtlを導入しました。
使い方参考サイト使い方
WP-Tilesワードプレス・プラグインの設定画面から、Image settingsタブを開き、 Image Selectionのプルダウンメニューから Any を選択する。
タイトル昇順
[wp-tiles category=”news” grids=”Plain” small_screen_grid=”Plain” orderby=”title” order=”ASC”]
タイトル降順
[wp-tiles category=”news” grids=”Plain” small_screen_grid=”Plain” orderby=”title” order=”DESC”]
投稿日昇順
[wp-tiles category=”news” grids=”Plain” small_screen_grid=”Plain” orderby=”date” order=”ASC”]
投稿日降順
[wp-tiles category=”news” grids=”Plain” small_screen_grid=”Plain” orderby=”date” order=”DESC”] PostGridの場合はQueryPostタブでそれぞれ設定する Post query order 並び替え順番（Ascending昇順Descending降順） Post query orderby 並び替えのキー 複数キーは調査中 タイトル・日付の場合は日付が優先
【フロントページと固定ページのデザインを変更する】
今回のテーマはfront-page.phpがなかったため、今までのpage.phpをコピーし作成。
子テーマのpage.phpからサイドバーを削除、クラスcol-md-8はサイドバー対応用のスタイルだったので、 col-md-12（幅100%）に変更
【検索ボックスのプレースホルダーを無効・検索ボタンを日本語にする】
searchform.phpのinput type=”text”のplaceholder=”<?php esc_attr_e(‘Search’,’childcare’ ); ?>”を削除
input type=”submit”の value=”<?php echo esc_attr(__(‘検索’, ‘childcare’) ); ?>” （検索の部分）を日本語化
【パンくずリストを削除】
childcare_breadcrumbs.phpでパンくずリストを作成しているので、<div class=” col-md-6～の行の下からコメントアウト。
functions.phpでchildcare_breadcrumbs.phpを読み込まないと適用されない。読み込みを行う場合はパスを子テーマに変える（get_stylesheet_directory() を使用）
Option Explicit
Sub macro_loop2()
Dim i As Integer
i = 2
Do While (Cells(i, 2).Value <> “”)
‘ If i > 50 Then
‘ MsgBox (Cells(i, 2).Value)
‘End If
If Cells(i, 1).Value = 1 Then
MsgBox (Cells(i, 2).Value)
End If
i = i + 1
Loop
End Sub
Sub paste_record_rows()
Dim i As Integer
Dim k As Integer
i = 2 ‘残のレコードへのインデックス
k = 2 ‘パソコン教室フォームのレコードコピー先のインデックス
Do While (Worksheets(“残”).Cells(i, “b”).Value <> “”) ‘発注番号が空でないときに次のブロックを実行＝発注番号が空のときはLoopを抜ける
If (Worksheets(“残”).Cells(i, “a”).Value <> “”) Then ‘チェックがたっていたら次の処理をEnd Ifまで実行
Worksheets(“パソコン教室フォーム”).Cells(k, “a”).Value = Worksheets(“残”).Cells(i, “b”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “b”).Value = Worksheets(“残”).Cells(i, “i”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “c”).Value = Worksheets(“残”).Cells(i, “l”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “d”).Value = Worksheets(“残”).Cells(i, “m”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “e”).Value = Worksheets(“残”).Cells(i, “h”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “f”).Value = Worksheets(“残”).Cells(i, “n”).Value
Worksheets(“パソコン教室フォーム”).Cells(k, “g”).Value = Worksheets(“残”).Cells(i, “q”).Value
k = k + 1
End If
i = i + 1
Loop
End Sub
Sub all_clear()
Dim i As Integer
i = 2
Do While (Cells(i, 2).Value <> “”)
Cells(i, 1).Value = “”
i = i + 1
Loop
End Sub
日本IBM出身