2016-10-14

honor 8 の液晶フィルムは本命不在

＜2016/11/26更新＞

晴れてぼくは honor 8 を手にしました。

yt4u.hatenablog.com

で、次の悩みは honor 8 を保護するアイテムをどうするかです。

でも、ぼくはスマホ裸派です。
手帳型も含めてケースは一切つけません。

作り手の不断の努力によりより薄く、より軽くなってきているのに、カバーを付けてわざわざ厚く、重くすることに抵抗があるんです。

とはいえ、iPhoneなど1桁後半万円するとなればカバーのひとつでも付けたくなる気持ちもわかります。

なので、ぼくはカバーを付けなかった結果、落として壊れたり液晶が割れたりしても心理的なダメージが小さい価格帯のスマホを重宝しているのです。

そういった意味で honor 8 は抜群にちょうどいいと言えます。

honor 8 の液晶保護フィルムにはまだ本命がいない

ぼくはスマホにケースは付けませんが液晶保護フィルムは付けます。

如何せんぼくはピカピカしてる状態が大好き。
車でも「鏡面」とか「ガラスコーティング」とかのワードを目にするとウズウズするタイプです。

スマホを落として壊したときは仕方がないにしても、普段使いのなかで液晶などに筋傷が入ったりすると一気にテンションが下がります。

なので、液晶保護フィルムは必須。

それで、Amazonや楽天で液晶保護フィルムを探し始めたわけですが、ちょうどいいのがなかなか無いんですね。

本命不在です。

現時点で候補に挙がる honor 8 の液晶保護フィルムは3つです

そもそも honor 8 が登場してから日が経ってないので、アクセサリーはあまり充実していません。
これがiPhoneとかXperiaだったらどんどんアクセサリーが増えていくのでしょうが、素晴らしい機体とはいえ honor 8 はどちらかというとマイナー部類。そもそも2.5D液晶に対応してるフィルムが少ないという宿命も負っているなかで、アクセサリーメーカーもパイが小さいところにそれほど労力を割いてくれません。

そんな中で、本命がいませんが消去法的に選択肢に残る honor 8 の液晶保護フィルムは次の3つになります。

レイ・アウト HUAWEI honor 8 液晶保護フィルム指紋防止反射防止 RT-HH8F/B1

出版社/メーカー: レイ・アウト
メディア: エレクトロニクス
この商品を含むブログを見る

ひとまずぼくがチョイスしたフィルムです。

2.5D対応ではないため左右の湾曲部にフィルムが掛からないようにしているため液晶の左右それぞれ1mm程度はカバーできていません。

脂質度高めのぼくでも指紋防止効果がキッチリと発揮されていてスワイプも引っ掛かることなくスムーズに指が動きます。

本命がいない中、フィルムなしで過ごすのは精神衛生上よろしくないので当面を凌ぐものとしてチョイスしました。
値段も安いので失敗しても痛手が少ないですからね。

実際に装着しましたが「当面を凌ぐ」という目的は十分に果たしてくれそうです。

次に全面保護タイプです。

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

HUAWEI honor8 全面保護ガラスフィルム強化ガラスフィルム honor8 フルカバーファーウェイガラスフィルム楽天モバイルスマホ液晶保護隙間無全4色
価格：980円（税込、送料無料) (2016/10/14時点)

液晶の上下部分も含め、2.5D対応で全面保護するタイプです。
全面フルカバーなので安心感はありそうです。

ただ、まだレビューが少なく評価が出来ないため現時点では購入見送りとなりました。

次も全面保護タイプでベゼル部もクリアなものです。

Nillkin®　HUAWEI　honor 8 強化ガラスフィルム　液晶保護フィルム　日本製旭硝子素材　高透過性　耐衝撃　硬度9Ｈ　極薄0.2ｍｍ　2.5D ラウンドエッジ加工　汚れ防止　飛散防止　気泡セロ　取り付け簡単

出版社/メーカー: Nillkin
メディア: エレクトロニクス
この商品を含むブログを見る

2.5D対応を謳っておりますがレビューを見る限り1mm程度の液晶を覆えていないようです。

とはいえ評価自体は高め。

当初はこのフィルムにしようかどうかと結構悩みましたが、レビュー数がまだまだ少なく判断が難しいため見送りとなりました。

honor 8 のアクセサリーの充実はこれから

液晶保護フィルムや手帳型カバーなど、honor 8 のアクセサリーの充実はまだまだこれからです。

充実するためには honor 8 のユーザーが伸びていく必要があります。アクセサリー数はユーザー数に比例しますからね。

ただ、ユーザーが伸びない心配はしていません。
この値段でこのパフォーマンス、満足度を得られるスマホがほかにないからです。

とはいえ販路が楽天モバイルにほぼ限定されているため急激なユーザー増加は期待しにくいのかもしれませんね。

是非とも楽天モバイルに頑張ってもらってユーザーを増やしてほしいものです。

あ、でもぼくは7,000円割引キャンペーンで買ったので、それ以上の割引キャンペーンされると、ぼくの割安感がなくなってしまうのでやらないで欲しいかな（汗

＜2016/11/26追記＞液晶保護フィルムを強化ガラスタイプに替えてみました

前述のとおり、レイ・アウトの防指紋液晶保護フィルムを使っていたのですが、いつの間にか表面に傷が入っていました。どうもバッグから取り出すときにチャックに引っ掛けてしまっていたようです。

そのまま使い続けようと思えば使えたのですが、そのフィルムの「当面を凌ぐ」という役割は終えたという認識から買い替えることにしました。

で、アマゾンを物色。honor 8 が発売されて間もないころと比べると、honor 8 に適合したフィルムも拡充されてきましたね。

そんなことを思いながらポチっとしたのがコチラ。

【2枚入り】Huawei honor 8 強化ガラスフィルム(Glass 0.26 mm 硬度 9H) 液晶保護フィルム耐指紋耐衝撃耐久性撥油性柔軟性高透過率超薄 HD画面-EasyULT

出版社/メーカー: EasyULT
メディア: エレクトロニクス
この商品を含むブログを見る

先に挙げていたフィルム候補とは違うものを買ってしまいまた（汗

ぼくにとっては初ガラスフィルム。
2枚入りで約800円と非常にお安い。安かろう×××の部類と認識しつつも、初ガラスフィルムの完全お試しです。

で、さくっと配送されてきて、ちゃちゃっと貼り付けてみました。

f:id:yt4u:20161127002315j:plain

分かります？？この画像だと液晶の両サイドに帯状の線が見えますよね。

せーの、浮いとるやないかーい

そうなんです。液晶の両サイドでフィルムが浮いちゃってるんですよ。なんということでしょう。これでは見た目がちょっと△です。×じゃなくて△なのは両サイドを除く中央部は非常にクリアに液晶の映像をぼくに届けてくれるからです。

綺麗だし指のすべりも上々だし感度も落ちてないしと良い点はあるものの、フィルムが浮いちゃうのは残念。

ちなみに浮いてる部分のタッチ感度は特に悪くなってる感はなし。そもそもそれほど使わないエリアなので大きな支障はないですね。

ま、お試しで買ったしこんなこともあるよね、ってことでひとまず使っていきたいと思います。次にファイルを買い替える頃にはもっと良いものがあることを願って。

しかし、2枚入りなので、どこかで見切りをつけないことには長いこと使い続けることになりそうです。

引き続き、honor 8 の液晶保護フィルムには本命不在なようです。

2016-10-11

honor 8 が快適過ぎる！

これまで ZenFone2 Lazer を1年ちょっと使ってきました。

いよいよ動きが悪くなってきたことと、バッテリーのヘタリを感じ始めてきたので、次のスマホをどうするか物色開始。
（動きが悪くなったとかバッテリーとか、ただ買い替えたいだけの言い訳なんですけどね）

ぼくは ZenFone2 Lazer、嫁は P8 Light という布陣を組んだのが1年ちょっと前。

当初は2機に大きな違いはないだろうとタカを括っていました。

でも、使ってみると何かと P8 Light の方がいい！
ということで、次は P9 Light にしようとほぼ気持ちが固まっていたんです。

そんな矢先に honor 8 登場。

脊髄反射で楽天モバイルでポチっとしちゃいました（汗

で、中2日で到着。

楽天は性悪説で臨むべしという自らの教訓上、1週間超待たされることを覚悟していましたがアっという間に届きました。

で、

honor8出してみました

f:id:yt4u:20161011215744j:plain

箱は縦型です。

すすすぅーっと、上箱をスライドさせると、自らの薄さを主張するようにそこに鎮座しています。

f:id:yt4u:20161011215748j:plain

さすがに最初は慎重に取り出します。

f:id:yt4u:20161011215752j:plain

結構ツルツルしてます。なので、しっかりと握っていないと手から滑り落ちそうな感覚に襲われます。

スタートガイドなどはhonor8の両脇を固めるように収まっています。

f:id:yt4u:20161011215756j:plain

はい、うしろ。

f:id:yt4u:20161011215759j:plain

指紋ベタベタが嫌でホワイトパールにしたので、15層の塗装が織りなす光のダンスは残念ながらお披露目なしですが、それでも艶やかな表情は垣間見せてくれます。

はい、ダブルレンズ。

f:id:yt4u:20161011215803j:plain

使用感は抜群！期待を遥かに上回っています

これまで使っていたZenFone2 Lazer のモッサリ感アピールが日に日に増していたこともあり、honor 8 のサクサク感に安息感を抱かずにいられません。

これはひとえにオクタコアと4GB-RAMの効用なのでしょうか。

写真もバッチリ

f:id:yt4u:20161011222839j:plain

敢えて言うとAUTOだとISOが高めに設定されているのでしょうか。
夕暮れでも結構明るく撮れますがノイズが目立っています。

画面は綺麗

これまでの ZenFone2 Lazer がHD画質だったからということもありますが、やっぱりFullHDは綺麗。

必要十分な画質レベルを40%程度上回る印象です。

指紋認証が快適すぎます

f:id:yt4u:20161011215759j:plain

この背面についている〇が指紋認証＋物理ボタンになっています。

0.4秒での認証を謳っていますが宣伝文句に偽りなし。
たまたま指が触れただけで即認証完了。その速さ、逆に焦ります。

また、この指紋センサーを上から下にスッとスライドすると通知パネルがニュルっと降りてきます。

これはこれで非常に便利なものの、指紋センサーが本当に絶妙に位置にあるんです。
絶妙な位置にあるがゆえに、ウェブサイトなどを閲覧しているときにちょうど人差し指が当たるんですよね。
人差し指が触れようものなら通知パネルがニュルっと降りてきてしまうんです。そのたび、ou... となるわけです。

指紋センサースライドで通知パネルを開くかどうかは設定で切り替えられますが、今のところベネフィット＞ou... なので設定ONで使い続けるつもりです。

ZenFone3はライバルにあらず

別にASUSが嫌いでもなんでもありません。

でも、ZenFone3は背面カメラ部分の凸がちょっとね。
honor8 を手にして改めてフラットな構造っていいなって感じています。

あと ZenFone2 Lazer を使っていて気になったのはASUS謹製のアプリがやたらと多いこと。

アプリの質は悪くないと思うのですが、ぼくにとって必要性を感じないアプリも多数あります。
それらはアンインストール可能ですが、気を抜いているとドンドンと自動的に再インストールされていきます。
これが地味にウザいんですよね。イラっとするんですよね。

ということで ZenFone に対する満足度がぼくの中で下降曲線を描いていたこともあり、同時期に出てきた ZenFone3 は全く眼中に入りませんでした。

honor 8 断然オススメです

もう一度言いますが honor 8 断然オススメです。最強です。

どんどんとスマホに新しい技術・概念が導入されていくなか、iPhoneや日系のスマホの10万ソコソコするものを数年使うくらいなら、3~4万円のものを毎年買い替える方が満足度高いですよね。

honor 8 は楽天モバイルで購入可能です

2016/12/1（木）9:59 までなら楽天モバイルのキャンペーンで販売予定価格の7,000円引きで35,800円で購入可能。

↓↓楽天モバイルはコチラ↓↓

ぼくはすでに IIJ mio を使っており解約する予定もないので、7,000円引きの恩恵を受けるべく honor 8 + データSIM で申し込みました。
（実際は申し込み時の事務手数料で割引額の半分は持っていかれます涙）

楽天モバイルはデータSIMに限らず月額基本料1か月無料というのをやっています。
加えて、データSIMであれば最低利用月数とか解約手数料がないので、データSIMセットプランで申し込んで月額基本料が発生する前に解約すれば、単純に端末を買うより多少は安上がりになります。

如何せん楽天性悪説を自戒としていますから、どうせ通信速度遅いんでしょという想定のもと楽天モバイルを使い続ける気なんて毛頭なかったんです。

でも、初月無料だからということで楽天モバイルのデータSIM使ってみたら、まぁ普通。
普通というのは特に遅いと感じることなく普通に使えるということでぼくのなかで高評価です。

普通に使えることで楽天性悪説に揺らぎが見え始めてきました（汗

楽天モバイルの解約はもう少し待ってみようかな。。。

楽天モバイルに関わりたくない、という場合は、楽天のHUAWEI公式ショップから端末のみの購入も可能です。

honor 8 （パールホワイト）　ダブルレンズ搭載 / 3D指紋認証【ファーウェイ公式】
価格：46224円（税込、送料無料) (2016/10/12時点)

2016-10-01

コールマンのキャリーワゴンでマンションライフを楽チンに

大量に買い物を車に詰め込んで帰宅したとき、マンション住まいだと車から部屋まで荷物を運ぶのって大変ですよね。

手で運ぶと重たいし、しかも1回で運びきれずに何往復かすることも。
高層マンションだと1往復にかかる時間もバカにできません。

コールマンのキャリーワゴンは大容量

そんなとき、ぼくのおうちで活躍してくれているアイテムはこいつです。

Coleman(コールマン) アウトドアワゴン 2000021989

出版社/メーカー: Coleman(コールマン)
メディア: スポーツ用品
この商品を含むブログ (1件) を見る

なんといっても大容量。

荷台の容積は約100L、耐荷重は約100kgです。

乗せられる荷物の量の目安としては、①一杯詰め込んだコストコの大きい保冷バッグ1つ、②水2リットル×6本のダンボールケース2つ、③ビール350ml×24本のダンボールケース1つ。
およそこれくらいがゆとりをもってカーゴ内に収まります。

さらに上に積み上げて運ぶことも可能ですが、段差などで荷物が滑り落ちないか注意して運ぶ必要があります。

5歳くらいまでのお子さんなら2人乗せて運ぶことも可能だったりします。

いくらでも荷物を運べるんじゃないかと錯覚さえ起こしてしまいます。

収納時はめちゃくちゃコンパクト！

しかも収納時のサイズは縦横が18×40cm、高さが77cmと、かなりコンパクト。

ぼくはシューズクローゼットに置いていますが全く場所を取りません。
このコンパクトさは車に積んだ時により威力を発揮します。
荷物運搬手段たるキャリーワゴンが車のラゲッジスペースを占拠してしまっては本末転倒感ハンパないですからね。

さらば台車

ぼくはこのキャリーワゴンに出会うまでは、巷でよく見る台車を使っていました。

こんなヤツです。

TRUSCO ドンキーカート折りたたみ式740×480 101N

出版社/メーカー: トラスコ中山(TRUSCO)
メディア: Tools & Hardware
この商品を含むブログを見る

これはこれで活躍してくれたのですが、やはり一度に運べる量が多くないため車から部屋まで2~3往復することもよくありました。

その当時は駐車場から部屋までものの数分で行くことができたので特に問題はなかったのです。
ただ、そこから引っ越すこととなり新天地では駐車場から部屋まで最低でも5分はかかるようになってしまった。さすがに複数回の往復はしんどい所要時間です。

そこで出会ったのがキャリーワゴンだったわけです。

買い物っていいんですよね

昨今は、ネットスーパーやアマゾンなど、時間をかけずにお手軽にお買い物が出来る環境が出来上がってきていますので、わざわざ毎週買い出しに行く必要もなくなってきています。

にも拘わらず、ぼくは毎週、嫁子どもと一緒に買い出しに行っています。

一緒に買い物をすることが一種のレクレーションになってるからです。
子どもがあのお菓子欲しいと駄々をこね、ぼくが理由を説明してでそれはダメだと諭す。
正直面倒なやり取りだったりもしますが、それはそれで楽しかったりもするわけです。

買い物をすべてネットで完結させてしまうと、そんなやり取りもできません。

一方で、ネットで買い物を完結させて、浮いた時間を他に回した方が有意義だと考えることも可能です。
可能なのですが、毎週のようにいろんなイベントを用意するのって大変(汗
だから、ぼくは買い物というイベントをできる限り有効活用しているわけです。

コールマンのキャリーワゴンの要改善点は

と、コールマンのキャリーワゴンが良いんだという話から逸れてしまいました(汗。

敢えてこのキャリーワゴンの悪い点を挙げるとすれば、折り畳んだ状態の時の持ち運びです。

折り畳んだ時につけられるカバーに取っ手がついており、キャリーバッグの如く引っ張れるような作りになっています。

ただそのように引っ張るとすぐに倒れます。
コンパクトであるが故にバランスがイマイチ取れないんですよね。

ちょっとコツは必要なのですが、固定輪を前側にした上で地面から離すように持ち上げ、可動輪である後輪のみを接地させて引っ張っていくと、キャリーワゴンをすべて持ち上げずとも運ぶことが可能になります。

ホント、持ち運びがもっと簡単にできるようになればパーフェクトなんですよね。おしい。

安心感はバツグン

コールマンのキャリーワゴンも良し悪しはあるわけですが、「良し」が完全に「悪し」を上回っていることは間違いありません。

「Coleman」というブランド力がぼくの評価を押し上げる可能性も否定はしませんが、実物を触ってみれば分かると思いますが、シッカリしていて安心感があります。

元がアウトドアで使うことを想定しているわけですから、これといった悪路もない日常使いではびくともしないわけです。

コールマンのキャリーワゴンのライバルはロゴス

コールマンのキャリーワゴンのライバルはコレです。

ロゴス(LOGOS) (悪路OK) ストライプキャリートラック(オレンジ) 84720711

出版社/メーカー: ロゴス(LOGOS)
メディア: スポーツ用品
この商品を含むブログを見る

ポップでいいカンジ！

車輪も大きいのでなんか安定しそう(笑。

しかも折り畳んだ時の持ち運びが、特にコツもいらずキャリーバッグの如く引っ張れます。
ただその分、収納時のコンパクトさを犠牲にしています。
あと耐荷重も80kgとコールマンのものよりやや少ないです。

実はぼく、キャリーワゴンを探しているとき、LOGOSのワゴンの存在を知らなかったんですよね。

もし知っていたらコールマンとロゴス、どちらのワゴンを選んでいたのか？？

うーん(汗
どっちを選んでいても後悔はしなかったハズ。

ただ、折り畳んで車に積むことを考えたら、よりコンパクトなコールマンかな。たぶん。

2016-09-22

エクセルの表が大きい時は行と列のハイライトで分かりやすくする｜エクセルVBA

エクセル VBA マクロ

エクセルで行方向、列方向に数多くのデータが並ぶ、とにかく大きな表に出くわした、もしくは作らざるを得なかったことはありませんか？

例えばこのような表です。

f:id:yt4u:20160913235214j:plain

大きな表になってしまうのは、諸事情があるのでそれ自体を否定するわけではありません。

ただそのような大きな表の中で、自分が何番目の行の、何番目の列にいるのか、分からなくなってしまうことが容易に想像できます。

そんなとき、表がハイライトされたらいいのにと思ったことはありませんか？

ということで、ハイライト機能を実装する方法を考えてみました。

完成形のイメージはこんなカンジです。

f:id:yt4u:20160917213728j:plain

先にコードを見てもらい、その後で内容について説明します。

ハイライト機能の構成
ハイライト機能は名脇役

ハイライト機能の構成

メイン部分をクラスモジュールで用意

クラスモジュール「blClsHighLight」

Option Explicit

Private WithEvents mwsTarget      As Worksheet
Private mrngHighLight             As Range  'ハイライト有効レンジ

Private mrngSelectedRow           As Range  'ハイライトされた行
Private mrngSelectedCol           As Range  'ハイライトされた列
Private mrngSelected              As Range  'ハイライトされたセル

'ハイライトカラーRGB指定(RGB文字列とそれを格納する配列を用意)
Private Const mcRowHLColor        As String = "255,230,153"     '行ハイライト色(R,G,B)
Private Const mcColHLColor        As String = "255,242,204"     '列ハイライト色(R,G,B)
Private Const mcCellHLColor       As String = "255,217,102"     'セルハイライト色(R,G,B)
Private mstrRowHLColor()          As String
Private mstrColHLColor()          As String
Private mstrCellHLColor()         As String


Private Sub Class_Initialize()

  'RGB文字列を配列に変換
  mstrRowHLColor = Split(mcRowHLColor, ",")
  mstrColHLColor = Split(mcColHLColor, ",")
  mstrCellHLColor = Split(mcCellHLColor, ",")

End Sub


Private Sub Class_Terminate()

  Set mwsTarget = Nothing
  Set mrngHighLight = Nothing
  Set mrngSelectedRow = Nothing
  Set mrngSelectedCol = Nothing
  Set mrngSelected = Nothing

End Sub


'==========================================================
'ハイライト機能を持たせるシートを取得
'==========================================================
Public Property Set TargetSheet(HighLightSheet As Worksheet)

  Set mwsTarget = HighLightSheet
  
End Property


'==========================================================
'ハイライト有効レンジを取得
'==========================================================
Public Property Set HighLightArea(HighLightRange As Range)

  Set mrngHighLight = HighLightRange
  
  'ハイライト有効レンジの色塗りをクリア
  mrngHighLight.Interior.Color = xlNone
  
End Property


'==========================================================
'mwsTargetのSelectionChangeイベント
'==========================================================
Private Sub mwsTarget_SelectionChange(ByVal Target As Range)

  On Error GoTo ERR_PROC
      
  'ハイライトのクリア
  Call clearHighLight(Target)
    
    
  'ハイライト実行
  Call doHighLight(Target)


  GoTo END_PROC
ERR_PROC:
  mrngHighLight.Interior.Color = xlNone

END_PROC:

End Sub


'==========================================================
'ハイライトのクリア
'==========================================================
Private Sub clearHighLight(Target As Range)


  With mwsTarget


    'ハイライトされた行とTarget行が一致しない場合は
    'ハイライトされた行の色塗りをクリア
    If Not mrngSelectedRow Is Nothing Then
    
      If Target.Row <> mrngSelectedRow.Row Then
      
        mrngSelectedRow.Interior.Color = xlNone
      
      End If
    
    End If
  
  
    
    'ハイライトされた列とTarget列が一致しない場合は
    'ハイライトされた列の色塗りをクリア
    If Not mrngSelectedCol Is Nothing Then
    
      If Target.Column <> mrngSelectedCol.Column Then
      
        mrngSelectedCol.Interior.Color = xlNone
        
      End If
    
    End If
    
  
    'ハイライトされたセルとTargetセルが一致しない場合は
    'ハイライトされたセルの色塗りをクリア
    If Not mrngSelected Is Nothing Then
    
      If Target.Address <> mrngSelected.Address Then
      
        mrngSelected.Interior.Color = xlNone
        
      End If
  
    End If
    
    
  End With
  
End Sub


'==========================================================
'ハイライト実行
'==========================================================
Private Sub doHighLight(Target As Range)

  With mwsTarget
    
    
    'Targetとハイライトエリアが重複していた場合
    If Not Application.Intersect(Target, mrngHighLight) Is Nothing Then
    
      '行のハイライト
      With Application.Intersect(.Rows(Target.Row), mrngHighLight)
      
        .Interior.Color = RGB(mstrRowHLColor(0), mstrRowHLColor(1), mstrRowHLColor(2))
        
        Set mrngSelectedRow = .Cells
        
      End With
    
    
      '列のハイライト
      With Application.Intersect(.Columns(Target.Column), mrngHighLight)
      
        .Interior.Color = RGB(mstrColHLColor(0), mstrColHLColor(1), mstrColHLColor(2))
        
        Set mrngSelectedCol = .Cells
        
      End With
      
        
      'セルのハイライト
      With Application.Intersect(Target, mrngHighLight)
      
        .Interior.Color = RGB(mstrCellHLColor(0), mstrCellHLColor(1), mstrCellHLColor(2))
        
        Set mrngSelected = .Cells
      
      End With
      
    
    Else 'Targetとハイライトエリアが重複していない場合
    
      mrngHighLight.Color = xlNone
    
    End If
  
  End With


End Sub

クラスモジュールを使わずにシートモジュールを使う方法も考えられます
ただ、ハイライト機能を持たせるシートが1つだけとは限りません。
ハイライトシートが複数あって、それぞれに同じコードを書くのは無駄ですよね。
コード修正が必要になった時なんてシートの数だけ同じ修正が必要で余計な労力がかかりますから尚更です。

ハイライトクラスを呼び出すSubプロシージャを用意

ハイライトさせるシートとレンジを設定します。
ここではハイライトさせるレンジに予め「rngHL_HighLight」と名前をつけています。

標準モジュール「blMdlHighLight」

Option Explicit

Public gclsHighLight              As blClsHighLight


Public Sub setHighLight()

  'ハイライトクラスのインスタンスを生成
  Set gclsHighLight = New blClsHighLight
  
  'ハイライトシートを設定
  Set gclsHighLight.TargetSheet = wsHighLight
  
  'ハイライトレンジを設定
  Set gclsHighLight.HighLightArea = wsHighLight.Range("rngHL_HighLight")

End Sub

Subプロシージャ「setHighLight」をWorkbook_Open時に実行

Workbookを開くと同時にハイライト機能を呼び出し、閉じるときに破棄するようにします。
上述のSubプロシージャを「ThisWorkbook」モジュール内で完結させることも可能ですが、分けておいた方がすっきりして見やすくなると思います。

「ThisWorkbook」モジュール

Option Explicit

Private Sub Workbook_Open()

  Call setHighLight
  
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Set gclsHighLight = Nothing

End Sub

ハイライト機能は名脇役

シート上に存在する表やデータをどう使うかが一番の目的であることは言うまでもありません。
なので、ハイライトは決して必須の機能ではなく、あくまで脇役。

とはいえ、自分が作ったちょっと大きな表を他の人も見ることになったとき、そこにハイライト機能があったら「コイツやるな」と思われること間違いなし！

ハイライト機能は、同じシートを複数人で共有するときに活きてくる名脇役なのです。

なお、自分以外の人が同じエクセルを弄ることになると予期せぬエラーはつきもの。
エラーが発生すると、ハイライトクラスが破棄されてハイライト機能も動かなくなる可能性があります。
そんなときのために次善の策を打っておいてもいいかもしれません。

例えば、ハイライト機能を持たせたシートのシートモジュールを使って、ハイライトクラスが破棄されていたら再度生成する方法が考えられます。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If gclsHighLight Is Nothing Then

    Call setHighLight

  End If

End Sub

シートモジュールを使うのは何かと面倒だからクラスモジュールを使って、、、
という方針とはやや矛盾している点は無視してください（汗

2016-08-18

沖縄旅行に持って行って良かったものを挙げていきます

沖縄旅行

f:id:yt4u:20160829203643j:plain

沖縄旅行に行くにあたって事前に用意していったものの備忘録です。

用意していって本当によかった～、というものを挙げていきます。

用意していって良かったもの
一番の収穫はフローティングベスト

用意していって良かったもの

フローティングベスト

まず子ども用がコレです。

エクセルジュニアフローティングベスト Mサイズグリーン NF-2360

出版社/メーカー: エクセル(Excel)
メディア: スポーツ用品
この商品を含むブログを見る

呼び名は、シュノーケリングベスト、シュノーケルジャケット、ライフジャケットなどさまざま。

今回の沖縄で子どもにシュノーケリングを初体験させるために用意しました。

ぼくの子どもは黄色や緑が好きなので、緑のフローティングベストをチョイス。
デザインはシンプルですが、胸のあたりのワッペンが子どもらしさを演出してくれています。
ベストの浮防止のための股下ベルトが2本あるのもいいですね。

ただし、沖縄本島のビーチの多くはシュノーケルが禁止されています。
シュノーケリングに夢中になり気付いたら沖に流され、、、という事故が絶えないため、こうした措置が取られることになったんですね。
そのため、シュノーケリングを楽しみたい場合はアクティビティツアーに申し込むことになります。
それらアクティビティツアーでは大体シュノーケリングセットが付いていて、このフローティングベストも含まれます。
したがって、ツアーでのみシュノーケリングをする場合は、フローティングベストを用意していく必要はありません。

それにも関わらず敢えて用意していったのか。

借り物のフローティングベストだとフィッティング(ベルトの締め具合調整)に手間取る
シュノーケリングせずともビーチでも活躍する
沖縄本島以外の慶良間諸島や宮古島などではツアーを利用せずにシュノーケリングが可能
沖縄旅行に限らず、川遊びや釣りなどで利用することが見込まれる

特に1はぼくの失敗経験に基づきます。
始めてシュノーケリングをやった際、フローティングベストのベルトの適正な締め具合が分からず、かつ途中で外れたらという不安もあってギッチギチに締めてました。そのせいでシュノーケリングの途中で息苦しくなるし胸周りも痛くなるしと苦い思い出です。
同じような思いを子どもにさせたくなかったのです。そのため事前にフローティングベストを用意し、家・お風呂で何度かベルトの調整をして、シュノーケリング本番に臨むことにしたのです。

ちなみに今回参加したのは、カヤックで無人島に渡り、そこでシュノーケリングをするというもの。
カヤックは片道20分弱。翌日見事に筋肉痛になったのは内緒ですが、カヤックを漕ぐというのはなかなか出来ない体験ですし、そして無人島の綺麗な海の中で見れた魚やサンゴは本当に綺麗でした。
ツアーについては、たびらい沖縄のサイトを参考にしてみてください。
普段は海とは無縁の生活をしていますから、海に関する知識と経験が全くないわけで、当然、潮の流れなんで分かりません。
そんなぼくにはツアーがぴったり。安心してシュノーケリングができます。

2に関しては、子どもにはシュノーケリングをしなくてもビーチではフローティングベストを着せていました。
これまでは二の腕にはめる腕輪タイプの浮き輪を使っていましたが、ちょっと邪魔に感じることもあるようで、子どもはよく外したがっていました。
一方で、フローティングベストは楽に浮けて腕も自由に動かせますので、子ども自ら進んで着ていました。
もっと早く買っておいても良かったかもしれません。

なお、ベストと共にシュノーケリングセットも用意していきました。