第3回 WordPress カスタマイザー 作成方法 _01

ボンジュール。 今回は、WordPressのオリジナルテーマを作成したら、多分多くの人がやりたくなることを作っていきたいと思います。 オリジナルテーマを作成したら、そのテーマを販売したり、無料で配布したり、仕事で使ったりと、色んな選択肢があります。 …

PHP 残数管理 師匠からの教え SQLぶっ叩け

ど〜もです! GW最高ですね。 GWが1年間続いて、お金が月30万くらい入ってくれば。。。 最高ですね。 引き寄せよ法則ーーー>働け!!!GW!GW!GW! !!--------- fuck -------------!! っていう事で、 今日は、僕のプログラミングのお師匠さんのお言葉で、教…

C言語 勝手に学び舎 開校 第2回 なんと・・・・ おみくじ ^-^  です。

開発環境 Windows用 C言語ツールWindows用 C言語ツール ダウンロード ↓ https://forest.watch.impress.co.jp/library/software/gakucgengo/ Mac: C言語コンパイル方法(X-code)グーグルで 「x-code C言語 コンパイル方法」と検索すると出てきます。 /*----…

JavaScript 勝手に学び舎 開校 第2回 なんと・・・・ おみくじ ^-^  です。

こんにちは。どうもです。 学び舎の第二回は、ま~つかい古された、おみくじをやりたいと思います。 完成形URL http://tokotoko6667777.hippy.jp/omikuzi-blog/ 今回の大事な要点は、 自分で、確率を決める。 これは、改めて自分でコーディングしてみて、奥…

楽天 作業 fa??k バナー追加作業

Sub add() Dim i As Long For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 24).Value = Cells(i, 24).Value & "<p style=""margin:25px 0 25px 0px;""><img src=""https://image.rakuten.co.jp/gift-concierge/cabinet/b-nn/recycling.jpg"" width=""418"" height=""236""></p>" Cells(i, 25).Value = Cells(i, …

PHP 管理カレンダー weekly-manager.php ソース システム部分完成しました。

・完成の日付はバレンタインにさせて頂きました。。。。。 コード

(プログラミグの学び舎 01 VBA)楽天ECサイトへのCSV商品登録。

・初めましてtossyです。 来年からプログラミングも義務化されるということで、僕も、何か感化されまして、プログラミング学習中の方や、プログラミングをこれから勉強する方は、または業務を短縮して良い世界を作りたい方へ、少しでも役に立てればと思い、…

PHP 管理カレンダー weekly-manager.php ソース

↑ 現在の作業画面です。 ソースコード ---------------

Ajax 基本

kanri-top.php ------- // ボタン <li class="target" id="button01"><a href="" class="navi">メニュー</a></li> // 呼び出す箇所 <div id="sample01"></div> <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.4/jquery.min.js"></script> <script type="text/javascript"> $(function(){ $('#button01').click(functio…

PHP MySQL JOIN

// plan_tableのid に ユーザーが選択した、user_f01テーブルの$plan_loom_type で、 pan_table の中身を表示する。 $re=$s->query("SELECT * from plan_table join user_f01 on plan_table.id = $plan_loom_type;");

VBA イベントWorksheet_Change 数値入力判別チェック フィルドラッグ対応

Private Sub Worksheet_Change(ByVal Target As Range) ' イベント 値が変わったら フィルドラッグ対応 '範囲が1と複数を分岐させて、複数のtarget = コピペや フィルドラッグなどには foreach で回す Dim c As Object If Target.Column = 8 Then ' H列 If …

VBA イベントWorksheet_Change 数値入力判別チェック

'シートモジュールに記述 シートモジュール出し方 シートタブの上で「右クリック」→「コードの表示」に記述 Private Sub Worksheet_Change(ByVal Target As Range) ' イベント 値が変わったら If Target.Column = 8 Then ' H列 If Target.Value = "" Then Ta…

VBA 作業済み チェック 判定

VBA

Sub colorCheck() ' ・値が入っていなかったら 塗りつぶしなし ・入っていたら 「黄色」 Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Range("H" & i).Value = "" Then Range("B" & i).Interior.ColorIndex = 0 ' 塗りつぶしなし Else…

PHP mysql ユーザー画面 sabmit.php

VBA 文字列 チェック 色を付ける

VBA

Sub color() 'D列に 文字列 男の子 => 隣のC列を「青」 女の子だったら 「赤」 Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Range("D" & i).Value = "男の子" Then Range("C" & i).Interior.ColorIndex = 5 '青 ElseIf Range("D" & i…

PHP clone 日付オブジェクト 作成

/*------- 当月のクローンオブジェクト 作成 ---------*/ /*---- 当月 タイトル表示 -----*/$dt = clone $thisMonth;$yy_m = $dt->format('Y年m月'); /*---- 翌月 タイトル表示 -----*/$dt = clone $thisMonth;$next_t = $dt->modify('+1 month')->format('Y…

PHP mysql 日付検索 $_GET

PHP

/*----------- パラメータを GET する ---------------*/ if(isset($_GET["t"])) { $ymd = basename($_GET["t"]); // URL パラメーター t 以降の日付の数値が入る $year = substr($ymd, 0,4); $month = substr($ymd,4, 2); $day = substr($ymd,6, 2); $disp_…

PHP mysql 日付分割 フォーマット(Ymd)$_GET パラメータ

PHP

/*----------- パラメータを GET する ---------------*/ if(isset($_GET["t"])) { $ymd = basename($_GET["t"]); // パラメーター t 以降の日付の数値が入る $year = substr($ymd, 0,4); $month = substr($ymd,4, 2); $day = substr($ymd,6, 2); $disp_ymd …

php html if文 埋め込み テンプレ : をつける

PHP

<p class="f-01-box"> <span>お部屋のタイプ</span> <span>シングル</span> <span>ダブル</span> <span>ツイン</span> <span>和室</span> <span>お部屋のタイプが選択され…</span></p>

paiza 入力値 取得 メモ

// 自分の得意な言語で // Let's チャレンジ!! // 標準入力からの入力値を変数に代入します$single_line_input = trim(fgets(STDIN)); $second_line_input = trim(fgets(STDIN)); // 取得した入力値を半角スペースで分解します$array = explode(" ", $sing…

jQuery タブメニュー メモ

HTML ---------- <div class="container"> <div class="inner"> <div class="ChangeElem_Btn_Content"> <button class="ChangeElem_Btn">厳選ご当地</button> <button class="ChangeElem_Btn">カタログギフト</button> <button class="ChangeElem_Btn">スイーツ・食品</button> <button class="ChangeElem_Btn">アレルギー対応食品</button> </div></div></div>

VBA 空のセルがあったら その 行を削除 メモ

Sub kuuhaku_sakuzyo() Dim i As Long For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "" Then 'セルが空なら Range(i & ":" & i).Delete '行を削除 End If Next i End Sub

jQUery 画像 拡大 メモ

HTML ---------- <div> <img src="img/g-housoushi-03-thumb.jpg" alt="" class="thumbnail-3"> <span class="noshi-title">01 水玉(赤色系)</span> <div id="largeImg-3"><img width="800" src="img/g-housoushi-03.jpg"></div> </div> ----------- CSS .thumbnail-3 {width:80%;} #largeImg-3 {display: none;} .l…

VBA 特定の文字列の下に空白行を入れる

Sub add() Dim rNum As Long For rNum = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1If Cells(rNum, 5).Value = "挨拶状希望" Then Rows(rNum + 1).InsertNext rNum End Sub

VBA 空白行の削除 メモ

Sub Delete_Rows_w_Blank() Dim GYO As Long Dim KuhakuGyo As Range Dim r As Long ' A列をみて表の最終行を取得する ------ ※1 GYO = Cells(Rows.Count, 1).End(xlUp).Row '2行目から最終行までB列のセルをチェックします With ActiveSheet For r = 2 To G…

VBA  置換 最終行までループ メモ

Sub cut() Dim i As Long Dim str As String For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row Cells(i, 5).Value = Replace(Cells(i, 5).Value, "▼挨拶状(仏事用)の種類をお選びください", "▼挨拶状の種類をお選びください") Next i End Sub ------------…

VBA メモ 2018 11 07

Sub add() '18行 空ける Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 16 Step -1 Rows(i & ":" & i + 16).Insert Next i End Sub ----------------------------- '項目選択肢コピー ペースト Sub addcopy() Range("D1:E18").SelectSelecti…

VBA 判定 チェック メモ

VBA

Sub checkd() 'セル i が 空だったら セル AEに 1をいれる それ以外は 0Dim i As Integer For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 9).Value = "" Then Cells(i, 32).Value = "1" Else Cells(i, 32).Value = "0" End If Next i End Sub

Google Apps Script (GAS)スクリプト

●高速 ループ処理 function initSheet() { var sheet = SpreadsheetApp.getActiveSheet(); var names = ['natu', 'ko', 'toshi', 'sushi','jjd']; var i; var starttime = new Date(); var scores = []; sheet.clear(); // 2825.0 // for(i = 1; i <= 1000; …

VBA ECサイトに使える_001

●CSVなどで、文字列を足すときに便利。 Sub addtext() Dim i As Integer For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 3).Value = Cells(i, 3).Value & " 安い のし・包装紙無料 出産内祝い 内祝い 引き出物 香典返し 快気祝い 結婚 引出物 ギ…