cellLine.bas

CellLine.bas は、枠線を書くためのサブルーチンが集められたサブルーチンライブラリです。

このライブラリは、以下のライブラリを必要とします。
strSpCut.bas
str_Split.bas
toStr.bas

• strSpCut.bas
• str_Split.bas

CellLine.bas には、現在以下のサブルーチンが組み込まれています。

指定範囲のセルの背景色/パターンをクリア

CellLine.Clearは、LastRange.bas の 縦方向、横方向の使用中セルを算出する MaxRowColPT と組み合わせて使うことが多くシートを使いまわすときに必要になるシートクリア時に使用します。

使用例、


Dim ssht<br /> Dim kc 'データ連続検査桁<br /> Dim sr, sc 'データ開始行、開始桁<br /> Dim er, ec<br /> Dim maxRow, maxCol '最大行、最大桁<br /> Dim filler '空セル許可数<br /> <br /> Set ssht = ActiveSheet<br /> sr = 3 'タイトル行を含ませる<br /> sc = 2<br /> kc = 3 '氏名欄が空欄でなければデータが入っていると考える<br /> filler = 1 '１行ぐらい空のセルがあっても気にしない<br /> <br /> Call LastRange.MaxRowColPT(ssht, kc, sr, sc, er, ec, filler)<br /> Call CellLine.Clear(sr, sc, er, ec)<br />

結果、
※３列目の色がクリアされています。

文字色、背景色、罫線、テキストをクリア

使用例、

Dim ssht<br /> Dim kc 'データ連続検査桁<br /> Dim sr, sc 'データ開始行、開始桁<br /> Dim er, ec<br /> Dim maxRow, maxCol '最大行、最大桁<br /> Dim filler '空セル許可数<br /> <br /> Set ssht = ActiveSheet<br /> sr = 3 'タイトル行を含ませる<br /> sc = 2<br /> kc = 3 '氏名欄が空欄でなければデータが入っていると考える<br /> filler = 1 '１行ぐらい空のセルがあっても気にしない<br /> <br /> Call LastRange.MaxRowColPT(ssht, kc, sr, sc, er, ec, filler)<br /> Call CellLine.CellClear(sr, sc, er, ec)<br />

結果、

別に範囲がわかれば、
Range(Cells(sr, sc), Cells(er, ec)).Clear
でもかまわないんですけど、ちょっとだけ文字数が少ないのと、自分で定義しておくことで記憶しやすいというメリットがあります。

セルのフォント色(文字色)指定

使用例,

Dim sr, sc 'データ開始行、開始桁<br /> Dim er, ec<br /> <br /> sr = 3<br /> er = 10<br /> sc = 4<br /> ec = 4<br /><br /> Call CellLine.FontColor(sr, sc, er, ec, Format(RGB(255, 0, 0), "0"))<br />

結果、

セルの背景色設定

使用例、

Dim sr, sc 'データ開始行、開始桁<br /> Dim er, ec<br /> <br /> sr = 3<br /> er = 10<br /> sc = 4<br /> ec = 4<br /><br /> Call CellLine.FontColor(sr, sc, er, ec, Format(RGB(255, 255, 255), "0"))<br /> sc = 4<br /> ec = 5<br /> Call CellLine.BackGround(sr, sc, er, ec, Format(RGB(255, 0, 0), "0"))<br />

結果、

セルの文字色を１６進コードで取得

使用例、

Dim sr, sc 'データ開始行、開始桁<br /> <br /> Dim ssht, HEX_STR<br /> Set ssht = ActiveSheet<br /> sr = 5<br /> sc = 4<br /> HEX_STR = CellLine.Get_ColorHEX(ssht, sr, sc)<br /> MsgBox ("sr=" + Format(sr, "0") + " sc=" + Format(sc, "0") + " hexcolor=" + HEX_STR)<br />

結果、

セルの文字色を取得

使用例、

Dim sr, sc 'データ開始行、開始桁<br /> <br /> Dim ssht, COLOR_CODE<br /> Set ssht = ActiveSheet<br /> sr = 5<br /> sc = 4<br /> COLOR_CODE = CellLine.Get_Color(ssht, sr, sc)<br /> MsgBox ("sr=" + Format(sr, "0") + " sc=" + Format(sc, "0") + " Color=" + Format(COLOR_CODE, "0"))<br />

結果、

セルの背景色を１６進コードで取得

使用例、

Dim sr, sc<br /> Dim ssht, HEX_STR<br /> Set ssht = ActiveSheet<br /> sr = 5<br /> sc = 3<br /> HEX_STR = CellLine.Get_BackGroundHEX(ssht, sr, sc) <br /> MsgBox ("sr=" + Format(sr, "0") + " sc=" + Format(sc, "0") + " Color=" + Format(HEX_STR, "0"))<br />

結果、

セルの背景色を取得

使用例、

Dim sr, sc<br /> Dim ssht, COLOR_CODE<br /> Set ssht = ActiveSheet<br /> sr = 5<br /> sc = 3<br /> COLOR_CODE = CellLine.Get_BackGround(ssht, sr, sc)<br /> MsgBox ("sr=" + Format(sr, "0") + " sc=" + Format(sc, "0") + " Color=" + Format(COLOR_CODE, "0"))<br />

結果、

文字色/背景色の設定

使用例、

Dim sr, sc<br /> Dim er, ec<br /><br /> Dim ssht, COLOR_VAL<br /> Set ssht = ActiveSheet<br /> sr = 5<br /> sc = 2<br /> er = 8<br /> ec = 7<br /> Call CellLine.FontStyle(sr, sc, er, ec, "color:" + Format(RGB(0, 0, 255), "0") + "," + "background:#ffff00")<br />

結果、

指定区切り文字で文字列を２分解する

使用例、
'Dim Simbol,smbl,value<br /> 'buff = "#NAME#=123<br /> 'Simbol = CellLine.Para2(buff,"=",smbl,value)<br />

１６進色コードを RGBに分解

罫線を消したり書いたりする CellLine ダウンロード