高速・多機能・高安定レンタルサーバー『エックスサーバー』
─────────────────────────────────
・月額900円(税抜)から、大容量200GBからの高コストパフォーマンス
・安定のサーバー稼働率99.99％以上
・マルチドメイン・メールアドレス無制限！
・FastCGIに対応！PHP高速化や負荷軽減を図ることが可能！
・幅広いバージョンのPHPやSSHに対応！
・独自SSLを無料で利用可能！
─────────────────────────────────
https://px.a8.net/svt/ejp?a8mat=2NR2G3+DG1FLE+CO4+601S3
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
駐車区画に色付け
Dim m As Integer
m = Sheets("車庫証明").Range("n4") '変数mに駐車場番号を指定
Sheets("車庫図面").Select
Sheets("車庫図面").Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Find(what:=m).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
.PatternTintAndShade = 0
End With
上記のような記載をしました。
変数のところは分かりますね。
次の
Sheets("車庫図面").Select
Sheets("車庫図面").Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ここは車庫図面に前回の色が残っているという前提で、
シート全部の色の指定を解除しています。
Cells.Find(what:=m).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
.PatternTintAndShade = 0
End With
次にFind関数を用いて車庫番号のセルを探して、
色を付けています。
例）
１０５号室を選択して、このVBAを実行させると下記のようになります。
５番のところがピンクになりましたね。
これで指定の駐車場に色が付きました。
１００ＧＢ、マルチドメインやMySQLが無制限。CGI・PHP高速化機能搭載【Ｘ２】
