エクセルのマクロを使って計算してみましょう
箱の重さの計算結果をエクセル上に表示させるマクロを作成したいのですが、イメージ的には材料を数種類オプションボタンにて画面上で選択をさせて重さを計算させて表示させるということです。
材料の単位あたりの重さはエクセルの別の表に入力してあります。
重さは、高さ×幅×奥行きで計算させる予定です。
こういう計算式って簡単にエクセルのマクロで作成できるものなのでしょうか？
単純にエクセルの表にして計算結果を出そうとすると、材料全ての重さが表示されてしまうし余計なものが表示されてしまって、表示結果を見ている方としては分からなくなるんじゃないかと思っています。
このような事象を回避するためにはどのようなマクロを組んだらよいのでしょうか？
というような問題があるとします。この問題を解決するためにマクロを以下のように作成してみました。
材料は数種類ということでしたが、ここでは３つ選択できるようにしてみました。
エクセルの表上には、高さをＡ２のセルにいれ、幅をＢ２、奥行きをＣ２セルに入力するようにします。
また、オプションボタンのリンク先をＤ１セル、単位たたりの重量をＥ１?３に設定・入力するようにしてみます。
Sub 重量計算()
Dim H As Variant
W As Variant
L As Variant
H = Range("A2").Value '高さ
W = Range("B2").Value '幅
L = Range("C2").Value '奥行き
Select Case Range("D1").Value
Case 1
MsgBox "箱の重さは" & H * W * L * Range("E1").Value & "です。", , "計算結果です。"
Case 2
MsgBox "箱の重さは" & H * W * L * Range("E2").Value & "です。", , "計算結果です。"
Case 3
MsgBox "箱の重さは" & H * W * L * Range("E3").Value & "です。", , "計算結果です。"
End Select
End Sub
以上、参考にしてみてくださいね。
auでの料金節約
携帯電話は便利だけれど、毎月の料金が心配ですよね。また、節約したくても料金体系が複雑でよくわからないという方も多いと思います。でも、携帯電話の料金を節約する方法があるんですよ。
まず、長い間料金プランの変更をしていない方は、自分の使い方をよく考えて料金プランを見直してみることをオススメします。手元に、最近数ヶ月～半年分程度の明細書を用意したら、さっそく始めましょう。携帯電話の料金は、基本料金＋通話料＋通信料（パケット使用料）＋付加サービス利用料という内容が一般的です。基本料金の中には、無料通話料などが含まれています。通話料や通信料は、使った分だけの料金が請求されます。付加サービス利用料は、パケット割引サービスや、留守番電話やかかってきた電話を転送するなどのサービスで、利用すると毎月一定額の利用料金がかかるもののことです。
通話が多いなら、無料通話分の多い料金プランを選びましょう。無料通話の多い料金プランは基本料金が高めになりますが、トータルで見ると意外とお得なんですよ。たとえば、auのCDMA 1X WIN用の「プランM」は、基本使用料は 6,930円ですが、この額には無料通話が 4,252円分含まれますから、実質の基本料金は、 2,678円です。同じくauの「プランSS」の基本使用料は 3,780円ですけれど、無料通話は 1,050円分なので、実質の基本料金は、2,730円となり、プランMよりお高くなってしまうのです。しかも、プランMの通話料は30秒14.7円、プランSSの通話料は30秒21円となりますから、たくさんかける人ほどプランMの方が割安になる、というわけです。
携帯電話を買ったときに、ショップですすめられた料金プランや割引サービスのままで、変えたことがないという方は、見直してみるといいですね。auには、他にもさまざまな割引サービスがあるので、調べてみてください。さらにお得になるかもしれません。
アロマテラピー
アロマテラピーというと、香りを楽しむもので、色々なシーンで活用されていますが、アロマテラピーの効果を、中性脂肪減少に活用する事も可能だと言う事が分かっているようです。
今回は中性脂肪減少に効果的なアロマテラピーについて見て行きたいと思います。
グレープフルーツとはミカン科の植物で、アロマオイルは果皮を圧搾し採油するそうです。
実が枝にぶどうのような房状でなることから「グレープ」フルーツと呼ばれ、苦味と甘さのバランスの良い味わいを持っています。
また皮に含まれる香りに調和もあり、人気のあるアロマオイルだそうです。
原産地はアジアですが、現在グレープフルーツの栽培を代表するのはアメリカだそうです。
グレープフルーツオイルのアロマ効果は、リンパ系の良い刺激剤となる事だそうです。
リンパの流れを良くして、むくみを解消、利尿作用もあり体内浄化の働きもします。
そして、グレープフルーツの香りは中性脂肪を燃焼する働きをする事も分かっています。
そして心への働きとしては、自信を与え、軽いうつ状態を改善させる効果がみられるそうです。
グレープフルーツの香りをハンカチなどに落として携帯するというのも良い方法だそうです。
嫌味の無い香りで気分も良くなり、心の強さも引き出してくれるそうです。
またグレープフルーツなど柑橘類の香りには食欲を抑える働きもあると聞いた事があります。
生活の中などで、色々な香りも上手に活用したいものだと思います。
auのポイント
auで貯めたポイントはどうやって使うか知っていますか？auショップでは、移動機価格から1ポイント＝１円（税抜き）、500ポイント単位で値引きいたします。機種変更時のや移動機購入、新たにauを契約されるご家族の移動機購入、一時休止後、回線再利用時の新品移動機購入などに使えます。また、オプション品（電池パック・共通ACアダプタ）購入や、故障修理時の修理代金にもポイントが使えます。
パソコンからは au online shopでのオプション品との交換することができます。さらに、auプレミアメンバーズにと登録すれば、EZwebでゲームや待ち受け画像などデジタルコンテンツの購入もできてしまいましす。またauプレミアメンバーズ は、au電話の毎月のご利用額に応じたポイントが付与されます。一年で最大３６００ポイント付与も可能です。
「ポイント移行」を利用すれば、ショッピングや食事でためた複数のクレジットカードなどのポイントを、auポイントに移行できてとても便利です。クレジット会社にポイント移行を申し込めば、毎月のau電話の利用額が「100円 (税抜)」ごとに「2ポイント」を加算されます。たくさん使うほどに、ポイントがアップされていきます。また、一定期間を経過するごとにauポイントが加算されていきます。長く使うほどにお得ですね。
また、今どれだけポイントがたまったか確認したいときは、パソコン・電話・EZwebから、ポイントの照会が簡単にできます。
ＢＭＸをヴァーチャル体験
ＢＭＸには興味があるけど、でも運動神経に自信がないし自転車を買う資金もないし．．．。という方にオススメの情報があります。ＢＭＸは無料ゲームでヴァーチャル体験をすることもできるんです。ＢＭＸの無料ゲームはいくつかありますので、代表的なものをご紹介してみたいと思います。
◆ 無料オンラインゲーム王様々なオンラインゲームが無料で楽しめます。ゲームジャンルも幅広くカテゴリごとのゲームの数も多くオススメだと思います。ＢＭＸの無料ゲームは、ペダルやブレーキなどを上手く使ってジャンプなどのトリックを華麗にキメてポイントを上げるというものです。
◆ＳＷＥＥＴ ＤＲＯＰこのサイトのゲームコンテンツもなじみのあるものからそうでないものまでとても幅広くそろっています。ＢＭＸの無料ゲームは好きなプレーヤーを選択してカッコよくトリックをキメるゲームです。
◆ＣＢＣ.ｃａ/Ｋｉｄｓ海外の無料オンラインゲームのサイトです。ＢＭＸの無料ゲームは「ＢＭＸ Ｐａｒｋ」と「ＢＭＸ」の２種類です。「ＢＭＸ Ｐａｒｋ」はコース内で様々なワザをキメていくことでポイントを稼いでいくゲームです。
パソコンで楽しむオンラインゲームなら運動神経に自信がなくてもＢＭＸを楽しむことができます。自転車やパーツがなくてもＢＭＸの華麗なワザの数々をキメていきながら一流ライダーの気分をヴァーチャル体験することができます。お休みの日に一度これらのサイトをのぞいてみてはいかがでしょうか？