エクセルのマクロの使い方(Trim編)


Warning: include(http://45wy5.net/include/admachiko.inc) [function.include]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 30

Warning: include() [function.include]: Failed opening 'http://45wy5.net/include/admachiko.inc' for inclusion (include_path='.:/usr/local/lib/php') in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 30

オフィス家具の地震被害

日本は非常に地震の多い国です。いまこうしている時にも大きな地震が起こるかもしれません。
実際にオフィスが地震に見舞われたとしたら、オフィス家具はどのような被害を受けることになるのでしょうか?

オフィス家具のうち一番被害を受けやすいのが背の高い収納家具ではないでしょうか。その中に多くの書類などが入って重くなっていたら周りに大きな被害を与えてしまいます。デスクの上のパソコン等のOA機器の上に倒れたりとか、窓ガラスに当たって窓ガラスを割ってしまったりとか。
また、収納家具の上部だけに物や書類など重たい物を入れ過ぎていた場合には、重心が偏っているため、転倒し易いのではないでしょうか。
上下連結するタイプの収納庫がありますが、上下連結が十分ではない時は、地震時にずれが生じて上部の収納庫が転落してしまうかもしれません。
壁に固定する壁面収納家具も、壁に固定していなかった時には転倒してしまうでしょう。壁に固定してあったとしても、地震に対する耐力のない壁に固定してあったために地震対策とはならず、転倒してしまった例も多いようです。

オフィス家具が転倒して非常口を塞いでしまう可能性もあります。そんな時は非常口から敏速に非難できなくなってしまいます。

子供のころの避難訓練では、地震が起きたときにはデスクの下にもぐるように教えられました。デスクの下に書類やモノがあふれていたら、デスクの下には避難できないしょう。

そんなオフィスでは地震がこないのを祈るのみです。


Warning: include(http://45wy5.net/include/admachikobana.inc) [function.include]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 61

Warning: include() [function.include]: Failed opening 'http://45wy5.net/include/admachikobana.inc' for inclusion (include_path='.:/usr/local/lib/php') in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 61

エクセルのマクロの使い方(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に関して分かりましたでしょうか?色々使ってみてくださいね。


Warning: include(http://45wy5.net/include/admachikobana.inc) [function.include]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 105

Warning: include() [function.include]: Failed opening 'http://45wy5.net/include/admachikobana.inc' for inclusion (include_path='.:/usr/local/lib/php') in /virtual/toko72/public_html/yonyon.forus-net.com/z1z00698/index.php on line 105

オフィス家具のリサイクル

不要となったオフィス家具は、何らかの形で処分されます。

最近では、また十分に使えるオフィス家具を廃棄処分してしまうのは「もったいない」ということで、不要となったオフィス家具を買取り業者に買い取ってもらい、それらのオフィス家具は中古品として再利用されることも多いようです。

不要となったオフィス家具はどのくらいの値段で買取ってもらえるのでしょうか?
そのオフィス家具の色やデザイン、大きさや規格、新しいか古いか、汚れの状態によっても違いがありますが、大体の目安として片袖デスクであれば、200円くらいから、両袖デスクであれば500円くらいで買取ってくれるようです。
チェアーですと、肘付のチェアーで500円くらいで、キャスター機能のついていない会議用チェアーは300円くらいのようです。
また、両開き書庫ですと500円くらいで、上下のユニット書庫は2000円くらいで買取ってくれるようです。
スチール製のロッカーであれば、一人用ならば500円くらいで、二人用であれば1000円くらいです。

オフィス家具が不要となった場合、廃棄処分して捨ててしまうよりも、リサイクルを目的とした業者に買取ってもらうほうが良いことは明らかなようです。

インターネットを検索しても、そのような買取り業者は各地にあり、買取り値段もさまざまです。また、自分で業者にところに運ばなくても、不要となったオフィス家具をオフィスまで取りに来てくれる業者もあります。

いびきを家庭で治そう

いびきというのは、本人はもちろんですが一緒に寝ている人にとってもかなり迷惑な話ですよね。いびきは治せるなら治したほうがいいと思います。できれば耳鼻咽喉科などの専門医で診てもらったほうがいいとは思うのですが、そこまで大げさにしたくないという人の為に、前段階として家庭内でできる「いびきの治し方」があるので試してみてください。
実行してみて、だいたい一週間ほどでいびきが聞こえなくなったり、口呼吸から鼻呼吸に変わったりしたら、そのいびきは「大丈夫ないびき」と判断してよいと思います。
【横向きで寝かせる】いびきをかいている人は仰向けで寝ている人が多いです。だいたい60%位はいるんじゃないかと言われています。
何故仰向けで寝ている人にいびきをかく人が多いかというと、舌は口から咽頭部まで伸びていて、その咽頭の一番奥まで繋がっています。仰向けに寝ると、舌が重みで咽頭の奥に覆いかぶさるように下がってしまいます。
そうなると、上気道が狭くなりいびきをかきやすくなってしまうという事になる訳です。そういう状態にならないように、枕の下などに本を入れて傾斜をつけて頭や身体が横向きになるようにしたらどうでしょうか?
【枕や布団などを変えてみましょう】枕を違う枕に変えたり、布団を変えたりするのも良いでしょう。意外と今までと違ったイメージで寝ると安眠できたりするかもしれませんね。
他に、部屋の湿度を注意してみるとか、アルコールを控えるとか、ダイエットとかしてみるのもいびき解消に繋がるかもしれませんよ。

アバクロのジャケット

現在、ブラピやブリトニー・スピアーズをはじめとする世界中のセレブたちが愛用しているブランドにアバクロ(Abercrombie&Fitch)という大人気のアメカジ・ブランドがあります。しかし、アバクロの直営店や販売代理店は日本にない為アイテム自体入手困難なブランドとなっています。個人輸入とかで入手する人が後を絶たないほどの人気ぶりです。
その中でもジャケットはかなり人気のアイテムとなっています。日本でも有名人が着ていたり雑誌で紹介されたりしているほどです。
アバクロのナタリー/スーパーライトデストロイというのは、ジャケットの中でもレディースのデニムジャケットになります。デニム地にはアバクロ独自の加工であるビンテージデストロイドウォッシュという、こすれや破れなどのダメージ加工が施されています。そのためか新品でもごわつき感が無く、肌馴染みがよくて軽い着心地がなんとも言えずGOODな感じです。
インナーも何を合わせてもよく、物を選ばない感じで着こなせそうな感じのジャケットです。カラーも薄いデニムブルーで爽やかな感じの印象に仕上がっていてロングシーズン着回しが可能なジャケットです。
また、デザインもアウトドア&ミリタリーテイストな感じになっていてアバクロらしくカッコイイです。縫製技術も抜群によいので耐久性もよいです。一枚ゲットしていても損は無いアイテムとなっていますし、お値段もお手ごろなので買いやすいですよ。