auの緊急通報位置通知

緊急通報位置通知とは、警察（110番）、海上保安庁（118番）、消防（119番）へ電話をかけたときに、発信者がどこにいるのか、その位置情報を自動的に通知するシステムです。これらの緊急電話には、たとえば事件・事故など速やかな対応が求められる場合もあります。通報者の発信位置の特定はきわめて重要な情報なのです。
従来の緊急電話では、通報者から住所などの情報の提供を口頭で受けていました。家庭や会社の固定電話であれば、電話番号などから市町村程度までは特定できることが多かったです。しかし近年では、携帯電話のように通報者自身が住所のわからない場所から通報していたり、あるいはIP電話のように電話番号から場所が推定できないこともあります。
そこで、これらの電話がどこから緊急通報をしているのか、通話と同時に現在位置のデータを通話先に通知するようにしたのが緊急通報位置通知システムです。日本では、総務省が関係法令の整備をすすめ、緊急通報の際に発信者の位置を通知することが2007年4月より義務化されることとなりました。
これに対応して、ドコモ、au、ソフトバンクモバイルの携帯電話で、緊急通報（110番、118番、119番）に発信した場合、通話が接続された緊急通報機関に対して、「緊急通報位置通知」が導入されることになりました。GPS機能を搭載した「緊急通報位置通知」対応端末では、GPS測位による位置情報が受付機関に提供されるようになっています。それ以外の端末では、基地局の場所や電波到達範囲などから算出される位置情報が、提供されるようになっています。
au携帯電話は、「ジュニアケータイ A5525SA」、「Sweets cute」、「A5523T」、そのほか、一部機種を除き今後発表される端末ではGPSによる「緊急通報位置通知」に対応し、現在稼働する全てのau端末では基地局ベースの位置通知に対応します。

FXブログランキング

FXは主婦やサラリーマンの副業としても注目されていることもあり、ブログにおいても、FXに関するものが注目を集めています。

FXブログとして有名なものは、ブログランキングなどで確認することができます。興味がある方は、例えば、

・為替ブログランキング - 外国為替・FXブログ村

http://fx.blogmura.com/

・FX初心者 - 為替ブログ村

http://fx.blogmura.com/beginnerfx/

・為替証拠金ブログランキング

http://7heaven.jp/fx/rank/index.html

・外国為替ブログナビ　FX-BLOG

http://fx-blog.jp/

・外国為替ブログランキング

http://rental-ranking.com/in.cgi?r=1263&c=1&id

・為替ブログランキング

http://blog.with2.net/rank1532-0.html

といったところなどでチェックするといいでしょう。

とはいえ、「アクセス数が多いブログ＝良いブログ」とは限りません。また、ブログの情報を信じて行った結果は、すべて自己責任です。それゆえ、ブログの内容の真偽の判別においては、常に慎重さが必要。くれぐれも損をしたからといってブログの管理人に苦情を言ったりブログを荒らしたりといった行為は慎みましょう。

エクセルのマクロで範囲を選択してみましょう。

毎日エクセル上にデータ入力などをしているとしたら、データって毎日毎日増えていっていますよね。そのデータから何かの条件を指定して検索するときに、毎日検索範囲が変わっていくとしたらその都度対象セルを修正するのは面倒ですよね。
これをマクロを使って解決はできないのでしょうか？

データは、１行に１データで入力されていっているものとします。

【範囲を選択する方法】
方法その１．アクティブセル領域を判断する方法
Sub kettei1()
　　Dim TBL As Range

　　Worksheets("Sheet1").Activate: Range("A1").Select
　　　'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択します
　　Set TBL = ActiveCell.CurrentRegion
　　TBL.Select
End Sub

方法その２．アクティブセル領域を判断する方法（表題などを除きます。）
Sub kettei2()
　　Dim TBL As Range

　　Worksheets("Sheet1").Activate: Range("A1").Select
　　　'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択　　Set TBL = ActiveCell.CurrentRegion
　　　'1行下の位置から1行少ないところをを設定している
　　Set TBL = TBL.Offset(1, 0).Resize(TBL.Rows.Count - 1, TBL.Columns.Count)
　　TBL.Select
End Sub

エクセルで印をつけるマクロを作成したい

エクセルのマクロを使ってある条件の時に「印」を設定してみましょう。

例題）エクセルシート上に「男」「女」「夫」「妻」など数箇所に選択欄があってそれぞれのいずれかに「○」を設定してください。

という例題があります。マクロじゃなくオートシェイプで「○」をつけていくと言う方法もあるのですが、件数が多いとその分時間も掛かってしまって面倒ですよね。間違うかもしれないし･･･

そこで、マクロを使って作成してみたいと思います。

以下のようなマクロをＶＢＥ上にコーディングしてみてください。
ＶＢＥの開き方は、「ＡＬＴ」＋「Ｆ１１」で開きます。

Sub sirusi()
Dim a As Range
　If TypeName(Selection) = "Range" Then
　　Set a = Selection
　　ActiveSheet.Shapes.AddShape(msoShapeOval, a.Left,　_
　　　　　 a.Top, a.Width, a.Height).Select
　　Selection.ShapeRange.Fill.Visible = msoFalse
　　a.Select
　End If
End Sub

以上です。これをＶＢＥ上に表記し、画面を閉じてください。

次に実行してみましょう。
ATL＋F8でマクロ一覧を開き、sirusiを選択します。この状態で「オプションボタン」などを選択し、ショートカットに任意の文字を入れておきます。ここでは「Y」あたりにしておきます。

エクセル上で適当にセルを選択してCtrl＋Yを押下してみてください。そのセルに「○」が表示されるようになっているのを確認してください。

アスベストとは

アスベストとは、石綿（せきめん、いしわた）とも呼ばれる天然に産する繊維状けい酸塩鉱物です。アスベストは熱や摩擦に強く、酸やアルカリといった薬品にも強く、耐久性もあり、さらに安価であることから、かつては建築材等に多く使われていました。

しかしアスベストは耐久性が強いがゆえに、また繊維がひじょうに細いということもあり、アスベストを吸入することで肺組織につき刺さり、15～40年の潜伏期間を経て、肺がん、悪性中皮腫などの病気を引き起こすことが現在ではわかっています。潜伏期間が長いため、発症しなかった間はアスベストは問題視されていなかったのです。

アスベスト被害で現在確認されているのは、作業現場における吸い込みです。アスベストで問題となるのは飛び散ること、吸い込むことなのです。解体・改修作業で古い建築物などはアスベストを使っているところもあるため、現場等での対策が義務付けられています。

FXブログランキング