投稿

2月, 2021の投稿を表示しています

TOTO TH634-2 と三菱ケミカル・クリンスイ UZC2000 の比較

Quick Edit Pencil
TOTO TH634-2 浄水カートリッジ(交換用) 三菱ケミカル・クリンスイ UZC2000
接続口は同一で互換性があります。除去物質数はTH634-2が12、UZC2000 が13です。

TOTO TH634-2 浄水カートリッジ(交換用)

TOTO TH634-2 浄水カートリッジ(交換用)
品番:TH634-2
浄水カートリッジ(交換用)
価格:19,100円(税込 21,010円)
商品 TH634-2
浄水性能 12 物質除去
ろ材の種類 活性炭・不織布・中空糸膜
ろ過能力※1(JIS S 3201の試験結果) 濁り(表示流量の50%) 20000L
遊離残留塩素※3 40000L
総トリハロメタン※2※3 8000L
溶解性鉛※3 10000L
2-MIB(カビ臭)※3 20000L
クロロホルム※3 8000L
ブロモジクロロメタン※3 10000L
ジブロモクロロメタン※3 10000L
ブロモホルム※3 10000L
CAT(農薬)※3 20000L
テトラクロロエチレン※3 20000L
トリクロロエチレン※3 20000L
使用可能な最低使用水圧(流動時)※4 0.07MPa(ろ材の使用初期において流量0.5L/分以上)
吐水量(0.1MPa時) 3L/分
ろ過能力寿命の目安※1 約12ヵ月(1日20L使用時
表:浄水器機能付水栓(ビルトイン形)浄水器兼用混合水栓 | 機能から選ぶ |キッチン用水栓金具 | 商品を選ぶ | TOTO より

アンダーシンクタイプ浄水器用カートリッジ「UZC2000」 

三菱ケミカル・クリンスイ UZC2000
クリンスイ UZC2000
希望販売価格 ¥15,500 (税込:¥17,050)

三菱ケミカル・クリンスイ UZC2000の除去物質
UZC2000の除去物質 三菱ケミカル・クリンスイ通販サイトよりクリンスイ 

VBA 関数から関数を呼び出す

Quick Edit Pencil
Call や Application.Run で

Private Sub CommandButton1_Click()

Call Module4.test4
'Application.Run "'" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "'!Module4.test4"

End Sub

vba セル範囲を配列に格納してコピー

Quick Edit Pencil
参考サイト様
【VBA】セル範囲を配列に入力して出力【RangeとCellsの組み合わせ】
ポイントとなるVBAコード
初めに、ポイントとなるVBAコードを記載しておきます。

VBAコードだけ確認したい場合に、ご活用ください。

'配列に入力
a = Range("A1:C4")
a = Range(Cells(1, 1), Cells(4, 3))
a = Range("A1").CurrentRegion

'配列をセルに出力
Range("E1:G4") = a
Range(Cells(1, 5), Cells(4, 7)) = a
Range("E1").Resize(UBound(a, 1), UBound(a, 2)) = a

'セル範囲を転記
Range("E1:G4").Value = Range("A1:C4").Value
では、解説していきます。

VBA 書式コピー 変数 Range から

Quick Edit Pencil
クリップボードを使わず、変数だけで書式をコピーする
vba pastを使わず 書式 コピー
Range("C1:C3").Value(xlRangeValueXMLSpreadsheet) = Range("A1:A3").Value(xlRangeValueXMLSpreadsheet)

実装部分
    Set ★セル担当者範囲 = ★シート対象日.Range(i.Offset(-1, -1), i.Offset(100, 2))
    ■担当者データ二次元配列 = ★セル担当者範囲

    '担当者シートに■担当者データ二次元配列を出力(値と書式をコピー)
        With Sheets(tantou).Range("h3")
            'セル範囲の大きさを指定
                With .Resize(UBound(■担当者データ二次元配列, 1), UBound(■担当者データ二次元配列, 2))
                    '値を出力
                        .Value = ■担当者データ二次元配列
                    '書式を適用
                        .Value(xlRangeValueXMLSpreadsheet) = r.Value(xlRangeValueXMLSpreadsheet)
                End With
        End With

light-monochrome, light, dark, night-blue, vibrant-ink, wed, linenums, pre-wrap, pre-line, h-scrool

ブックマークレット DOM ソース変更

Quick Edit Pencil
javascript: (function() {
    /*https://www.atmarkit.co.jp/ait/articles/0808/04/news124.html*/
    /*https://into-the-program.com/removechild/*/
    /*ヘッダのタグを削除*/
    var scripts= document.head.getElementsByTagName('script');
    let len = scripts.length;
    for (var i = 0; i < len; i++) {
      document.head.removeChild(scripts[0]);
    }
    var links= document.head.getElementsByTagName('link');
    len = links.length;
    for (var i = 0; i < len; i++) {
      document.head.removeChild(links[0]);
    }
    var style= document.head.getElementsByTagName('style');
    len = style.length;
    for (var i = 0; i < len; i++) {
      document.head.removeChild(style[0]);
    }
    /*クリップボードに保存*/
    var clips = document.title;
    clips += '; ';
    clips +=  document.body.querySelector('p.size').textContent;
    clips += '; ';
    clips +=  document.URL;
    console.log(clips);
    /*イメージの集合要素を保存*/
    var images= document.body.querySelector('ul.item_pager');
    images.removeAttribute('class');
    images.removeAttribute('style');
    console.log(images);
    /*新たなBODYタグ要素のノードオブジェクト*/
    var targetNode = document.getElementsByTagName('body')[0];
    console.log(targetNode);
    /*新たなBODYタグを作成*/
    var newNode = document.createElement('body');
    newNode.appendChild(images);
    /*BODYタグを置き換える*/
    targetNode.parentNode.replaceChild(newNode, targetNode);
    /*クリップボードにコピー*/
    javascript:
    function copyTextToClipboard(textVal){
    var copyFrom = document.createElement("textarea");
    copyFrom.textContent = textVal;
    var bodyElm = document.getElementsByTagName("body")[0];
    bodyElm.appendChild(copyFrom);
    copyFrom.select();
    var retVal = document.execCommand('copy');
    return retVal;
    }
    copyTextToClipboard(clips);
}());

正規表現 空白を削除 改行するタグを削除

Quick Edit Pencil
目次



正規表現 空白を削除

[\s\S]*?^


正規表現 HTMLタグを削除

<script.*?script>


正規表現 改行するHTMLタグを削除

<script.*?[\s\S]*?script>