エクセルのマクロの使い方（Trim編）
エクセルでデータをソートして使おうと思ったのですが、文字列の先頭やいたるところに空白が入っていて正しくソートできません。正しくソートするためにTrimを使おうかと思ったのですが、使い方がよくわからなくてどうしたらいいか分からなくなってしまいました。
というような疑問をお持ちの方とかいると思います。ここでエクセルのマクロを使って空白セルを削除するプログラムを作ってみたいと思います。使う命令は「Trim」です。Trimは文字列中にある空白を取り除いた文字列を返してくれる関数です。
ここでちょっとしたエクセルの豆知識です。
エクセル上に文字列がたくさん記入されているとして、セルを選択したいときに使うキー操作ですが、「Ctrlキー」＋マウスでセルを飛び飛びに選択することが出来ます。
また「Shiftキー」＋「Ctrlキー」＋矢印キーで、連続するエリアを選択することが出来ます。用途に合わせて使用してみてくださいね。
では、話を戻しまして、文字列中の空白除去のマクロプログラムです。
Sub 空白除去プログラム()
Dim abc As Range 'セルを定義
For Each abc In Selection
abc = Trim(abc) '左右の空白を削除して、「abc」を置き換える
Next
End Sub
ね。こんなに簡単にTrimのプログラムが出来てしまいました。これを使って空白除去してみてください。
ちなみにですが、Trim関数には以下の種類がありますので、用途に応じて使用してください。
・Trim(abc) → 文字列の左右にある空白を削除します。
・RTrim(abc) → 文字列の右側にある空白を削除します。
・LTrim(abc) → 文字列の左側にある空白を削除します。
・Application.Trim(abc)→文字列の左右、または途中にある空白を削除します。
以上、Trimに関して分かりましたでしょうか？色々使ってみてくださいね。
オカムラの学習机その２
オカムラから発売されている学習机に「ピエルナコンパクト」というシリーズがあります。ピエルナコンパクトの特徴として、天板の高さが自由に変更できることと天板の奥行きの寸法が変更できることが挙げられます。最近の学習机では、ほとんどの製品が子供の成長に合わせて天板の高さを変更できます。ピエルナコンパクトでもその例外ではなく、天板の高さを自由に変更することができます。
もう1つの特徴、天板の奥行きの寸法が変更できることが、このシリーズの最大のポイントであるようです。子供が小さく、小学校に入学して間もないころは、宿題をするにしても勉強をするにしても親の目の届く範囲に子供が居てほしいものです。せっかく子供部屋があり、そこに学習机が置いてあったとしても、宿題をするのは食卓のテーブルやリビングのテーブルなどということは多いと聞きます。そのようなことになるのであれば、リビングの片隅に学習机があったらいいと思います。ピエルナコンパクトシリーズであれば、このようなことが可能となるのです。天板を小さくすることができるため、学習机をリビングの片隅にコンパクトに配置することが可能となります。子供が成長し、自分の部屋に学習机を移動するときは天板を広げ、通常のサイズに戻せばいいのです。ちなみに、天板のサイズは55センチから70センチ、つまり15センチ拡張できます。ピエルナコンパクトシリーズの外観デザインは、ピエルナシリーズと同様にシンプルであるため、リビングに置いたとしても違和感は無いと思います。
ＡＶＯＮメイクアップ
ＡＶＯＮエイボンとは、オルビス、ＤＨＣ、ファンケルなどのようにスキンケア化粧品からメイクアップ化粧品、健康食品などまで幅広いアイテムを取り扱うカタログ・インターネットの通信販売化粧品会社です。
オルビス、ＤＨＣなどの方が知名度はあるかもしれませんが、エイボンも取り扱っているアイテムやシリーズなどきちんと揃えられているという印象を受けるメーカーだと思います。
通信販売の場合気になる送料ですが、３０００円以上で無料、コンビニ後払いとなっているようです。
また商品到着までは２?３日で、返品・交換の保障もきちんとあるようです。
エイボンの取り扱いアイテムを詳しく見てみると、基礎化粧品も大きく宣伝されていますが、ベースメイク、カラーメイクなどの化粧品もきちんと揃えられているようです。
ベースメイクには乾き・キメの気になる肌用の「ネオナチューラ」、小じわなどを自然にカバーする「ルネッセージ」、肌に優しいノンケミカルで美白成分の入った「クレアホワイトＣ ＥＸ」、シミ・そばかすを繊細にカバーする「クレアホワイトＣ ＮＸ」、肌表面のテカリなどを防ぐ「ネオナチューラ（夏向け）」、自然な仕上がりで、日差しから肌を守る「ルネッセージ（夏向け）」、紫外線をカットし、汗、水、皮脂にも強い「アクティア」、年齢紫外線を防ぎ、肌へのトリートメント成分も配合された「ミッションリバイタライジング」、潤いながら透明肌を作る「エフエムジー」、ナチュラルで少しマットな仕上がりの「エイボントゥルールミナス」があり、種類も豊富なようです。
またエイボンには化粧下地や、コンシーラー、仕上げ用パウダー、化粧直しアイテムなども揃えられているようです。
価格は、「ネオナチューラ」のモイストパクトファンデーションのレフィルのみで３１５０円、「ミッションリバイタライジング」のトリートメントパクトのレフィルのみで５８８０円などとなっています。
またカラーメイクアイテムには、パーツごとにリップメイク、アイメイク、フェイス・チーク、ネイルなどのアイテムがあるようです。
基礎化粧品、メイクアップ化粧品共にシリーズも多く、アイテム数も多いエイボンですので、自分の肌質にあった化粧品がきっと見つかるのではと思います。
１度エイボンの通信販売サイトをのぞいてみるのも良いのではと思います。
アルコール依存症とは
アルコール依存症とは、心理的、身体的にアルコールに対する強い欲求と、絶つことによる禁断症状が出る、病的な症状です。
お酒を飲む場合、宴会の席や晩酌などで習慣化していても、毎日適切な量を飲んでいるのなら正常といえます。
アルコール依存症になると、１日のうち何度も何度もお酒を飲み、１度に飲む量や、頻度を自分でコントロールできなくなってしまいます。
アルコール依存症は、主婦など、お酒を飲む習慣が第三者の目につきにくい人に多く見られます。
男性がつきあいや宴会でお酒を飲む場合は、そのへんでやめておけよ、と忠告する人がいることで、コントロールできずに飲み続けるまで依存が進みにくくなります。
隠れ飲みや、飲酒のしすぎによる仕事のミス、遅刻、家事の滞り、家族や同僚など対人関係の悪化、病気と思われる症状はありませんか？
自分や知人、家族に思い至るふしがあれば、アルコール依存症ではないか、チェックしてみましょう。
もし、そういう人が入院まで至った場合は、アルコール依存症の可能性が非常に高いので、退院後に軽い気持ちでお酒を勧めないように注意しましょう。
アンチエイジングの基本的なこと
アンチエイジングにとっての基本的なこと、それは栄養素を身体の隅々にまでいきわたらせる事だと思います。どんなにキレイに着飾ったとしても身体そのものが不健康だとしたら若さは全然感じられないと思います。
それでは身体のどの部分が老化し、気になるところなのでしょうか？
肌にシワがでてきたら？たるみが感じられたら？白髪が出てきたら？
歯が弱くなってきたら？
老化現象というのは実に様々あるものだと思うし、その一つ一つを解消していくためにアンチエイジング用の化粧品だったりサプリメントだったりを使っていたら手間もかかる上にお金もかなりかかってくると思います。
では、老化を予防するためのアンチエイジングをするためにはどういうことをすればいいのでしょうか？
一番いいのは、血液の老化を予防する事が一番だと言われています。血液が老化しえしまうと、循環が悪くなるために肩や腰などのコリも悪化し、痛みやむくみ、しびれなどの症状が出てきます。また肌や髪の毛などの老化現象も現れてくることになります。
それでは、血液の老化を防ぐための血液循環をよくするためには以下の方法を実行する必要があります。
１．腎臓を温めます。（身体を冷やさないようにする。）
２．温かい飲み物、食べ物を摂取するようにする。
３．食べ物からカルシウムを摂取するようにする。（サプリメントに頼らない）
４．オイルマッサージなどをする。
５．爪をマッサージして自律神経のバランスなどを整える。