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

接続口は同一で互換性があります。除去物質数はTH634-2が12、UZC2000 が13です。

TOTO　TH634-2 浄水カートリッジ（交換用）

品番:TH634-2
浄水カートリッジ（交換用）
価格:19,100円（税込 21,010円）

商品		TH634-2
浄水性能
ろ材の種類		活性炭・不織布・中空糸膜
ろ過能力※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
希望販売価格 ￥15,500 (税込:￥17,050)

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

• 浄水器用カートリッジ「ＵＺＣ２０００」の発売について　─　2002年｜ニュース｜三菱レイヨン
• uzc2000 | 家庭用浄水器の三菱ケミカル・クリンスイ通販サイト

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

Call　や　Application.Run　で

Private Sub CommandButton1_Click()

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

End Sub

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

参考サイト様
【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 から

クリップボードを使わず、変数だけで書式をコピーする
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

参考リンク
クリップボードを使わないセルのCopy｜VBA技術解説

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

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

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);
}());

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

目次

1. 正規表現　空白行を削除
2. 正規表現　HTMLタグを削除
3. 正規表現　改行するHTMLタグを削除

正規表現　空白を削除

[\s\S]*?^

正規表現　HTMLタグを削除

<script.*?script>

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

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