Private Sub Worksheet_Change(ByVal Target As Range) ' イベント 値が変わったら フィルドラッグ対応 '範囲が1と複数を分岐させて、複数のtarget = コピペや フィルドラッグなどには foreach で回す Dim c As Object If Target.Column = 8 Then ' H列 If …
'シートモジュールに記述 シートモジュール出し方 シートタブの上で「右クリック」→「コードの表示」に記述 Private Sub Worksheet_Change(ByVal Target As Range) ' イベント 値が変わったら If Target.Column = 8 Then ' H列 If Target.Value = "" Then Ta…
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…
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…
/*------- 当月のクローンオブジェクト 作成 ---------*/ /*---- 当月 タイトル表示 -----*/$dt = clone $thisMonth;$yy_m = $dt->format('Y年m月'); /*---- 翌月 タイトル表示 -----*/$dt = clone $thisMonth;$next_t = $dt->modify('+1 month')->format('Y…
/*----------- パラメータを 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_…
/*----------- パラメータを 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 …
<p class="f-01-box"> <span>お部屋のタイプ</span> <span>シングル</span> <span>ダブル</span> <span>ツイン</span> <span>和室</span> <span>お部屋のタイプが選択され…</span></p>
// 自分の得意な言語で // Let's チャレンジ!! // 標準入力からの入力値を変数に代入します$single_line_input = trim(fgets(STDIN)); $second_line_input = trim(fgets(STDIN)); // 取得した入力値を半角スペースで分解します$array = explode(" ", $sing…
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>
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
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…
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
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…
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 ------------…
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…
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
●高速 ループ処理 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; …
●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 & " 安い のし・包装紙無料 出産内祝い 内祝い 引き出物 香典返し 快気祝い 結婚 引出物 ギ…
動きはこんな感じです to 看護 jQueryのCDNは、 <script src="http://ajax.googleapis.com/ajax/libs/jquery/1.8.1/jquery.min.js"></script> か <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script> です。 ーーー html部分 <div id="contactWrap"> </div> に cssの 実際の動きはこちらで確認できます。 http://tokotoko66677…
<html lang="ja"> <head> <meta charset="utf-8"> <title></title> </head> <style type="text/css">body{font-family:"Yu Gothic Medium", "游ゴシック Medium", YuGothic, "游ゴシック体", "ヒラギノ角ゴ Pro W3", "メイリオ", sans-serif;} #baby-inner {display: grid; grid-template-columns:repeat(4, 3fr);} .baby-catarog…</html>
最近やっと気づいたんですが、本を読むということは作者の思考、体験、経験をトレースできる。 殆どの人が、トレースをして、ハイ終了。 これでは、例えば成功者のサクセスストーリーを読んだとする。 思考・体験をトレースする。 ↓ ・ここで、その本以上の…
例えば、 hello_world.py というスクリプトファイルがあるとして、 コマンドで $ python hello_world.py ↑ でOK! ーーー python対話モード コマンドで、 $ python
<div class="message"><a href="#" class="btn1">個人の方</a><a href="#" class="btn2">業者の方</a></div> <style> .message {color: #fff;padding: 20px;background: #b2946c;position: relative;z-index: 10;font-weight:bold;font-size:20px;text-align:center;width: 300px;height: auto;left:65%;}.message:before {content:…
MA.java package tossy.list_base_01;import android.os.StrictMode;import android.support.v7.app.AppCompatActivity;import android.os.Bundle;import android.widget.BaseAdapter;import android.widget.ListView;import java.util.Locale;public class …
xml list.xml
package tossy.list_t_01;import android.support.v7.app.AppCompatActivity;import android.os.Bundle;import android.widget.ArrayAdapter;import android.widget.ListView;public class MainActivity extends AppCompatActivity { private static final S…
/* ------------------オリジナル ウィジェット サイドバー お知らせ ------------------ ------------------------ ----------------*/class MyWidgetItem2 extends WP_Widget {function MyWidgetItem2() {parent::WP_Widget(false, $name = 'サイド お知ら…
<p class="form_p"><label id="lb_01">お名前 <span class="red">※</span></label><span class="text-box">[text* your-name]</span> </p><p class="form_p"><label id="lb_02">メールアドレス<span class="red">※</span></label><span class="text-box"> [email* your-email]</span></p><p class="form_p"><label id="lb_03">電話番号</label></p>