wordpressで記事をコピー

プラグインDuplicate Postをインストール

記事一覧で記事を新規下書きをクリックすると同じ内容のものが作成される。

wordpressテーマの改造

【フロントページと固定ページのデザインを変更する】

今回のテーマは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() を使用）

VBA　Excel　実践授業　覚書

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