| 1変量 | 2変量 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
| 生徒 | 身長 | 座高 |
|---|---|---|
| 1 | 160 | 88 |
| 2 | 150 | 84 |
| 3 | 158 | 86 |
| 4 | 154 | 81 |
| 5 | 158 | 83 |
| 6 | 152 | 85 |
| 7 | 156 | 83 |
| 8 | 158 | 83 |
| 9 | 146 | 76 |
| 10 | 178 | 85 |
| 11 | 182 | 85 |
| 12 | 150 | 83 |
| 13 | 148 | 79 |
| 14 | 154 | 84 |
| 15 | 154 | 85 |
| 16 | 160 | 85 |
| 17 | 150 | 83 |
| 18 | 156 | 86 |
| 19 | 154 | 84 |
| 20 | 160 | 88 |
au walletなどのVISA/Masterデビットカードを使っても大丈夫なのは、店頭での購入のようにその場で決済が完了する場合だけです。オンラインでの支払いに使ってはいけません。
既にクレジットカードを持っている人は、au walletの5%ボーナスのような余程のメリットがない限り、デビットカードを使う意味はありません。
「使ってはいけません」では乱暴なので、理由、使っても構わない例外など詳しく書きます。
au walletだけに問題があるのではなく、VISA/Masterデビットカードの仕組みそのものの問題です。
また、オンラインで使ってしまったからと言って即座に大問題が発生するわけではありません。もしそうならとっくに禁止されています。
ただちょっとだけ面倒なことになるかも知れません。
au walletは今年中はじぶん銀行からチャージすると5%のボーナスがつくのでお得です。
10,000円チャージすると10,500円使えます。
但し、1回の利用で2重に引き落とされたことがありました。
au walletに連絡したところ、1回目の引き落とし分は戻ってくるけれど、いつになるかは分からない、ということでしたので、原因を調べてみました。
引き落としのギモン｜Visaデビット｜ジャパンネット銀行と同じで、クレジットカードのシステムを利用するデビットカードの場合はau walletに限らず発生する問題のようです。
「二重引き落とし」の問題だが、VISAやMasterのデビット・プリペイドの類は、「オ... - Yahoo!知恵袋
二重請求されているのが明細で確認できてい… │ au Q&Aプラス
利用可能かどうか確認する時と実際に決済する時で金額が変更になった場合、
クレジットカードの場合は、利用限度枠が2重に減らされるだけですが(例えば30万円使えるクレジットカードで5万円買い物しただけなのに、残りの利用可能額が25万円ではなく20万円に減っている。請求額は5万円だけ)、
デビットカードの場合は残額が2重に減ります。
最初の、確認時に引き落とされた分は、購入店側がキャンセルするか、最長75日で自動的にキャンセルになって戻ってくるそうです。
このような、クレジットカードのシステムを使ったデビットカードやプリペイドカードを使う時に、2重引き落としが発生する条件、発生しない条件としては
店頭での買い物、食事の支払いなど、その場で購入と支払いが完結する場合は発生しません。
ホテルの宿泊でも、前払い制でチェックイン時に払ってしまうホテルなら発生しません。
一方、通信販売で、注文時にクレジットカードの情報を入力するけれど、商品が届いてから決済される場合は2重引き落としが発生しやすくなります。
「決済は商品が届いてから」であっても、発送前に確認はされますし(そうしないと今度はお店側が踏み倒される危険がある)、デビットカードだとこの確認の時点で引き落とされてしまいます。
この後、金額が変更されたりすると商品が届いてからの決済が、発送前確認時の引き落としとは別件だと扱われてまず間違いなく2重引き落としになります。
また、注文をキャンセルすると、2重引き落としの1回目だけは引き落とされた状態になります。
通信販売ではありませんが、楽天トラベルのオンライン決済でも同じことが起こります。
クレジットカードでのお支払いについて【楽天トラベル】から該当箇所を引用します。
楽天トラベル経由以外のホテルの宿泊でも、チェックイン時はカードの確認だけで、チェックアウト時に決済するホテルだと同じことが起こります。
それに、不正利用時の保険の有無も分からないので、来年になって5%のボーナスが無くなったら使う意味は無いと思います。
カード会社からすれば貸し倒れの危険が無い分、クレジットカードより儲かるわけですが、利用者にとってはメリットがないですから。
特に海外(正確には外貨)では、au walletの場合、外貨決済手数料が4%かかりますし、確認時と決済時で為替が違っていると今回のような2重引き落としになりますので、マスターカードのシステムを使うことで海外でも使えることになってはいますが国内でしか使わない方が良いです。海外では素直に普通のクレジットカードを使いましょう。
デビットカードが必要なのは…
国によってはローンを組んで返済暦を積まないとクレジットカードを作れない国があります。
また、転勤や留学で住み始めたばかりの国でもクレジットカードが作れないことはあります。
デビットカードはそのような国では役に立ちますが、既にクレジットカードを持っている人がデビットカードを作る必要はありません。
まだクレジットカードを作れる年齢に達していないお子さんとか、クレジットカードを持っていると使いすぎて返済に追われるから作らない、という人には良いかもしれません。
こんな計算をする意味をいくつか挙げておきます。
絞りの選択の幅が広いことが明るいレンズの長所ですので、絞り優先にしてボケの大きさを自分で決めましょう。
1. Adblock Edge
Adblock Plusの代わりに使います。
フィルターには、最初から入っている
Disable Tracking
Disable Malware Domain
Disable Social Media
の他に、fanboy-annoyances
https://secure.fanboy.co.nz/fanboy-addon.txt
を使うとfacebookの広告も消すことができ、日本独自の広告を消すにはABP Japanese Filtersの他に
fanboy-Japanese
https://secure.fanboy.co.nz/fanboy-japanese.txt
を使います。
さらに豆腐フィルタも使います。
2.Disconnect
3.FlashBlock
4.RequestPolicy
高木浩光＠自宅の日記 - 「NoScript」をやめて「RequestPolicy」にしたによると
> YouTubeなどを埋め込んだページや、はてなブックマークの「○○ users」の画像なども、デフォルトでは全てのサイトでブロックされてしまうが、ステータスバーのメニューから「Allow requests to hatena.ne.jp」を選ぶことで、信用性の高い（はずの）サイトについて全サイトからの参照を許可してしまえば、その後はそのまま使うことができる。これを必要とするサイトは、そう多くはない。
> 一方、「Allow requests from example.jp」は滅多に使わない方がよい。これを許可してしまうと、そのサイトが改竄されたときに対策がパアになる。面倒でも、個別に「Allow requests from example.jp to example.com」でひとつひとつ許可して使う。そうすれば、攻撃者がexample.jpを改竄したとしても、example.comも同時に改竄しない限りこの対策はパアにならない。
Firefoxを便利に - RequestPolicyの設定例
5.Privacy Badger
関係ないですが、最近のThinkPadを買った人のブログ
espresso3389の日記
100円グリス
小型SSDの規格がmSATAからm.2というものに変わっていました。
ThinkStation E31 システム リカバリ ディスクを複数回作成する
Sub 連立一次方程式(係数行列(), r)
Rem (c) 2014 Kaoru Fueda
Dim 最大値()
ReDim 最大値(r)
For i = 1 To r
If i < r Then
最大比 = 0
最大行 = i
For j = i To r
最大値(j) = 0
For k = i To r + 1
If Abs(係数行列(j, k)) > 最大値(j) Then
最大値(j) = Abs(係数行列(j, k))
End If
Next k
If 最大値(j) > 0 Then
If 最大比 < Abs(係数行列(j, i) / 最大値(j)) Then
最大比 = Abs(係数行列(j, i) / 最大値(j))
最大行 = j
End If
End If
Next j
If 最大行 > i Then
For k = 1 To r + 1
temp = 係数行列(i, k)
係数行列(i, k) = 係数行列(最大行, k)
係数行列(最大行, k) = temp
Next k
End If
Rem ここは講義では説明していません。
Rem ピボットが0の場合は最も0=0に近い行を第i行に移動して、後に無視する
If 最大比 = 0 Then
最小値 = 最大値(i)
最小行 = i
For j = i + 1 To r
If 最小値 > 最大値(j) Then
最小値 = 最大値(j)
最小行 = j
End If
Next j
If 最小行 > i Then
For k = 1 To r + 1
temp = 係数行列(i, k)
係数行列(i, k) = 係数行列(最小行, k)
係数行列(最小行, k) = temp
Next k
End If
End If
End If
Rem ピボットを1に
If 係数行列(i, i) <> 0 Then
For k = i + 1 To r + 1
係数行列(i, k) = 係数行列(i, k) / 係数行列(i, i)
Next k
Else
Rem ここは講義では説明していません。
MsgBox ("解けないので解の一つを0とします。")
For k = i + 1 To r + 1
係数行列(i, k) = 0
Next k
End If
係数行列(i, i) = 1
Rem ピボット以外を0に
For j = 1 To r
If j <> i Then
For k = i + 1 To r + 1
係数行列(j, k) = 係数行列(j, k) - 係数行列(i, k) * 係数行列(j, i)
Next k
係数行列(j, i) = 0
End If
Next j
Next i
End Sub
今日使うデータです。
|
このブログでは長辺1600画素までしか載せられませんが、例えば広角側で
このような写真を撮れる時、望遠にすると
このように、広角で撮った場合と同じくらいシャープな写真が撮れます。
普通のスマホで拡大して撮るとぼやけますが、Lumia1020なら元の画素数が多いのでぼやけません。
パソコンでDxOやLightroomを使って現像すると元の3800万画素のファイルが作れるので、上の写真の一部分を見てみます。
まず中央部は
このように写っていて、これで約11倍のズーム相当です。
ここまで拡大すればぼやけてきますが、それでも塔の瓦、手前の樹木の葉は一枚一枚写ってます。
端の方の写り方は、左下隅は
これくらい写っていてまだ悪くないのですが、右下隅だと
このように流れています。ZEISS銘であっても、こんな小さなレンズですから仕方ないでしょう。
広角側では縮小されますので、このようのなボケは分からなくなりますし、望遠側では中央部を切り抜きますので周辺は使いません。
DxOで現像する時の注意点として、このカメラ固有の情報が正しく設定されていないようで、ホワイトバランスのプリセットは使えません。
撮影時のオートホワイトバランスのままで現像すると
このようになる写真を、昼光プリセットで現像すると
このような色になってしまいます。
撮影時のオートホワイトバランスは色温度5780K、色相-29で、この写真の雲の白い部分で色を合わせても同じような値になります。
ホワイトバランスは撮影時の値を使うか、手動で合わせる必要があります。
2/3インチセンサーで4000万画素前後ですから、画素の大きさは1/3インチセンサーの約1000万画素と同じで、高感度ノイズは多いです。
でもDxOのノイズリダクションPrimeを使ってから縮小すれば、何せ元の画素数が大きく縮小率が高いので、ノイズは潰れてしまって分からなくなります。
この写真は感度オートの上限ISO400で撮りました。
夜空の部分にも街燈の光芒にもノイズは無く、それでいてビルの窓灯りはぼやけていません。
手動ではISO4000まで上げられます。
DxOには歪曲収差の自動補正機能がありますが、既に補正情報がDNGに書き込まれているのか良く分かりませんが、歪曲収差補正を切った方が直線が直線として写ります。
周辺光量落ちは大きいですが、DxOで補正量をAUTOにすると正しく補正されます。
トータルで見て、スマートフォンなのに望遠にしてもぼやけないのは凄いです。
ただ、センサーの大きさを、デジタルズームのための画素数の多さに使っているので、2/3インチで約1200万画素センサーのデジカメ(フジのX20など)と比べれば色、諧調の豊かさで負けます。
高感度ノイズは、等倍で見れば多いですが、他のデジカメと同じ大きさに縮小してしまえばノイズは潰れてしまうので、2/3インチセンサーのコンパクトデジカメに負けません。
個人的には縦横比3:2で撮りたいのにその設定がないのが残念ですが、周辺は流れるので4:3で撮って上下を切って7136x4758にすれば良いかなと思います。
Sub 連立一次方程式(係数(), 定数(), 解(), r)
Rem (c) 2014 Kaoru Fueda
Dim 係数行列() As Double, 最大値() As Double
Dim i As Integer, j As Integer, k As Integer, 最大行 As Integer, 最小行 As Integer
Dim temp As Double, 最大比 As Double, 最小値 As Double
ReDim 係数行列(r, r + 1), 最大値(r)
For i = 1 To r
For j = 1 To r
係数行列(i, j) = 係数(i, j)
Next j
係数行列(i, r + 1) = 定数(i)
Next i
Rem iはピボット
For i = 1 To r
Rem ピボット選択
If i < r Then
最大比 = 0
最大行 = i
For j = i To r
最大値(j) = 0
For k = i To r + 1
If Abs(係数行列(j, k)) > 最大値(j) Then
最大値(j) = Abs(係数行列(j, k))
End If
Next k
If 最大値(j) > 0 Then
If 最大比 < Abs(係数行列(j, i) / 最大値(j)) Then
最大比 = Abs(係数行列(j, i) / 最大値(j))
最大行 = j
End If
End If
Next j
If 最大行 > i Then
For k = 1 To r + 1
temp = 係数行列(i, k)
係数行列(i, k) = 係数行列(最大行, k)
係数行列(最大行, k) = temp
Next k
End If
Rem ピボットが0の場合は最も0=0に近い行を第i行に移動して、後に無視する
If 最大比 = 0 Then
最小値 = 最大値(i)
最小行 = i
For j = i + 1 To r
If 最小値 > 最大値(j) Then
最小値 = 最大値(j)
最小行 = j
End If
Next j
If 最小行 > i Then
For k = 1 To r + 1
temp = 係数行列(i, k)
係数行列(i, k) = 係数行列(最小行, k)
係数行列(最小行, k) = temp
Next k
End If
End If
End If
Rem ピボットを1に
If 係数行列(i, i) <> 0 Then
For k = i + 1 To r + 1
係数行列(i, k) = 係数行列(i, k) / 係数行列(i, i)
Next k
Else
MsgBox ("解けないので解の一つを0とします。")
Rem 本来は解ベクトルの長さが最小とすべき。
For k = i + 1 To r + 1
係数行列(i, k) = 0
Next k
End If
係数行列(i, i) = 1
Rem ピボット以外を0に
For j = 1 To r
If j <> i Then
For k = i + 1 To r + 1
係数行列(j, k) = 係数行列(j, k) - 係数行列(i, k) * 係数行列(j, i)
Next k
係数行列(j, i) = 0
End If
Next j
Next i
For i = 1 To r
解(i) = 係数行列(i, r + 1)
Next i
End Sub
中央部の2/3×√(1200/1450)≒1/1.65インチ部分しか使っていないのかな？と思い、実焦点距離と35mm判換算焦点距離の換算倍率を見てみました。
参考として1インチセンサーのソニーのRX100とも比べました。
| 機種 | 実焦点距離 | 換算焦点距離 | 換算倍率 |
|---|---|---|---|
| XQ1 | 6.4 | 25 | 3.91 |
| XQ1 | 25.6 | 100 | 3.91 |
| X20 | 7.1 | 28 | 3.94 |
| X20 | 28.4 | 112 | 3.94 |
| RX100 | 10.4 | 28 | 2.69 |
| RX100 | 37.1 | 100 | 2.70 |
色々試してみたところ
fanboy-annoyances
https://secure.fanboy.co.nz/fanboy-addon.txt
を使うとfacebookの広告も消すことができ、日本独自の広告を消すにはABP Japanese Filtersの代わりに
fanboy-Japanese
https://secure.fanboy.co.nz/fanboy-japanese.txt
を使えばgoogle検索窓が消えないことが分かりました。
携帯電話会社の国際ローミングにはバルセロナでiPhone盗難にあう→悪用され９９万を支払わねばならなくなった件のような心配もあるので、出来れば使いたくありません。
携帯電話会社よりは安く、現地でSIMを買うよりは手軽な方法として、モバイルWiFiルーターのレンタルがあります。
海外で使える海外Wi-Fiルーターレンタル徹底比較！
現地の業者から借りることも出来ますが、貴重な滞在時間をルーター探しに使うより(ルーター探しが目的の人も居ますが)、日本で出発前に借りた方が良いでしょう。
ただ、ルーターのレンタル代は1日単位でかかりますから、例えば旅行日程の1日目の夜に出発して、2日目に現地に着く場合、日本でルーターを借りると1日目のレンタル代が無駄になります。
現地での時間節約とのトレードオフですね。
注意点
データ通信ではないですが、バルセロナでiPhone盗難にあう→悪用され９９万を支払わねばならなくなった件
私の研究室の学生も数年前同様の被害に遭いました。
恐らく、かけられた相手に通話料の一部が入るダイヤルQ2にかけられたのでしょう。
対策としては
KIX-ITMカード免税店で見せれば5%割引など、特典の多い無料のポイントカードです。
関係ないですが
SugarSyncから意味の分からないメールが来たよ
結局 SugarSync のアカウントがロックされた件
> 使ってないと確証が取れたから消すんじゃなくて、罰ゲーム感覚で消されるんだったらたまらないんですが・ω・
Capture NX-Dのベータ版をインストールしてみましたが、画面が何となくSilkypixっぽいです。
ファイルを調べた人の話では、Ichikawa Soft LaboratoryとかSILKYPIXという文字列が入っているそうです。
Silkypixはバージョン4の頃に使っていてハイライト処理が気に入らなかったのでその後はバージョンアップしていません。
Capture NX-Dの画像がSilkypixのようになっては嫌ですが、ニコン純正ソフトですからカメラ撮って出しJPEGと同じ画像になってくれるかも知れないと思い、比較してみました。
以前比較した記事に載せた、CaptureNX2で現像した写真です。
同じ記事でSilkypix4で現像した写真です。
青い点光源のボケが、輪郭が妙にくっきりして、まるで青いスタンプを押したようになっています。
同じRAWファイルを今回Capture NX-Dで現像して、同じ場所をトリミングしました。
但しトリミングした座標を記録してなかったので、トリミングした場所が若干ずれていますが、元のRAWファイルは同じです。
点光源のボケは、以前の記事の、Silkypixの写真よりCapture NX2の写真に近いです。
Silkypixの最近のバージョンでは、私が以前好きになれなかった点光源のボケの処理が改善したのか、
あるいはCapture NX-DではNikonのデジタルカメラやCapture NX2に似た画像になるようにSilkypixのパラメータが調整されていて、点光源のボケもCapture NX2に似たのでしょう。
この点光源のボケ具合なら大丈夫だと思います。他の色もCapture NX2に近いです。
普段使っているDxO Optics Proで現像した写真です。
どの写真も、ホワイトバランスは撮影時のままに設定して現像したのですが、ソフトによって色が若干異なります。
DxOは青い点光源が少し紫っぽくなっています。元の色がどっちだったか覚えていませんが。
関係ないですが
空の輝き
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
が実行されるようにしてください。
また、終了のボタンが押されたら
Unload Me
が実行されるようにしてください。
実行して、左側と真ん中のテキストボックスに適当な数字を書いて＋のボタンを押すと右側のテキストボックスに答えが表示されます。
練習:
＋のボタンの下に－、×、÷のボタンを作って、それぞれのボタンを押したら引き算、掛け算、割り算が計算できるようにしてください。
TextBox3.Text = TextBox2.Text / TextBox1.Text
が実行され、終了のボタンが押されたら終わるようにしてください。
実行したら、現在の為替1ドル=の欄に90、下の段の円のところに10000と書いて、円→ドルのボタンを押すと、1万円をドルに両替すると幾らになるか表示されます。
練習:
ドル→円のボタンを押したら、ドルを円に両替すると幾らになるか表示するようにしてください。
そして今度は、下の段の円とドルの両方の欄に金額を書いて円、ドル→為替のボタンを押したら、現在の為替1ドル=の欄に為替が表示されるようにしてください。
それをExcelに見に行かせて取得したいので、Webクエリを使います。
データタブのWebクエリをクリックしてください。
アドレスの欄に http://stocks.finance.yahoo.co.jp/stocks/detail/?code=USDJPY=X を書いて、左上のチェックをクリックします。
(去年の画像を使いまわしているので1ドル約90円です。今は105円から101円になって大騒ぎしています)
するとそのページがエクセルに貼り付けられます。
どのセルから貼り付けるか尋ねられるので、A1を指定します。
このように貼り付けられて、為替を取得できました。
以上の操作を、VBAを最初に紹介した時の方法で自動化します。
開発タブの「マクロの記録」をクリックします。
名前は何でもいいのでこのままOKをクリックします。
ここで先ほどの操作を行って、記録終了をクリックします。
これで、Webから為替のページを取得するマクロが記録されたので、"アメリカ ドル / 日本 円"の右隣のセルの数字を為替として使います。
挿入から「ユーザーフォーム」を選びます。
するとこのような画面が開きますので、ここを自分でデザインします。
このフォームにはUserForm1という名前がついています。これは変更する必要がないのですが、画面に表示されるタイトルを変更しましょう。
画面の左下のプロパティの中のCaption欄がこのウィンドゥのタイトルですので、ここを「休講診断」に変更します。
すると画面のタイトルが「休講診断」に変更されました。
次にボタンを設置します。
休講診断のウィンドゥをクリックすると、「ツールボックス」が表示されます。
この中の「コマンドボタン」をクリックしてください。
するとボタンが表示されます。表示されている文字の変更もCaptionを書きかえればできます。
ここを「気象情報を確認」に書き換えてください。
次に、「気象情報を確認」をクリックしたときに開く2番目のウィンドゥを用意します。
先ほどと同じように挿入から「ユーザーフォーム」を選びます。
これにはUserForm2という名前がついています。
今度はこのウィンドゥのタイトルを「午前6時」にしてください。
次に、単に文字を表示する「ラベル」を入れます。
ツールボックスからラベルを選んでください。
UserForm2にラベルを置いて、Captionを「警報は発表されていますか？」に書き換えます。
さらに、先ほど同様にボタンを二つ置いて「はい」「いいえ」にします。
これらのボタンをクリックして、左側のプロパティのところを見てください。
CommandButton1というのがこのボタンの名前、CommandButtonというのがこのボタンの種類です。
ここに
UserForm2.Show
Unload Me
と書きます。
最初のUserForm2.Showは、UserForm2を表示しなさい、という意味で、
次のUnload Meは自分自身(UserForm1)の表示を止めなさい、という意味です。
最後に、UserForm1を表示するマクロを書いて、実行してみましょう。
例1
If x > 0 Then
Msgbox ("こんにちは")
If y > 0 Then
Msgbox ("ありがとう")
Else
Msgbox ("こんばんは")
End If
Else
Msgbox ("さようなら")
If y > 0 Then
Msgbox ("おはよう")
Else
Msgbox ("いただきます")
End If
End If
例2:
If x > 0 Then
Msgbox ("こんにちは")
If y > 0 Then
Msgbox ("ありがとう")
Else
Msgbox ("こんばんは")
End If
Else
Msgbox ("さようなら")
End If
If y > 0 Then
Msgbox ("おはよう")
Else
Msgbox ("いただきます")
End If
このままでは、書いた私自身でも理解するのが大変難しいです。
そこで、If~Else~End Ifで囲まれた部分を少し右にずらします。
例1
If x > 0 Then
Msgbox ("こんにちは")
If y > 0 Then
Msgbox ("ありがとう")
Else
Msgbox ("こんばんは")
End If
Else
Msgbox ("さようなら")
If y > 0 Then
Msgbox ("おはよう")
Else
Msgbox ("いただきます")
End If
End If
例2:
If x > 0 Then
Msgbox ("こんにちは")
If y > 0 Then
Msgbox ("ありがとう")
Else
Msgbox ("こんばんは")
End If
Else
Msgbox ("さようなら")
End If
If y > 0 Then
Msgbox ("おはよう")
Else
Msgbox ("いただきます")
End If
右にずらすのは人間が読みやすくするためであり、Excelの動作には関係ありません。
IfとEnd IFの対応が合わなくなるのを防ぐには、Ifを書いた時に中身を書く前にElseやEnd Ifを一緒に書いておくのが良いです。
挿入から「ユーザーフォーム」を選びます。
するとこのような画面が開きますので、ここを自分でデザインします。
このフォームにはUserForm1という名前がついています。これは変更する必要がないのですが、画面に表示されるタイトルを変更しましょう。
画面の左下のプロパティの中のCaption欄がこのウィンドゥのタイトルですので、ここを「休講診断」に変更します。
すると画面のタイトルが「休講診断」に変更されました。
次にボタンを設置します。
休講診断のウィンドゥをクリックすると、「ツールボックス」が表示されます。
この中の「コマンドボタン」をクリックしてください。
するとボタンが表示されます。表示されている文字の変更もCaptionを書きかえればできます。
ここを「気象情報を確認」に書き換えてください。
次に、「気象情報を確認」をクリックしたときに開く2番目のウィンドゥを用意します。
先ほどと同じように挿入から「ユーザーフォーム」を選びます。
これにはUserForm2という名前がついています。
今度はこのウィンドゥのタイトルを「午前6時」にしてください。
次に、単に文字を表示する「ラベル」を入れます。
ツールボックスからラベルを選んでください。
UserForm2にラベルを置いて、Captionを「警報は発表されていますか？」に書き換えます。
さらに、先ほど同様にボタンを二つ置いて「はい」「いいえ」にします。
これらのボタンをクリックして、左側のプロパティのところを見てください。
CommandButton1というのがこのボタンの名前、CommandButtonというのがこのボタンの種類です。
ここに
UserForm2.Show
Unload Me
と書きます。
最初のUserForm2.Showは、UserForm2を表示しなさい、という意味で、
次のUnload Meは自分自身(UserForm1)の表示を止めなさい、という意味です。
最後に、UserForm1を表示するマクロを書いて、実行してみましょう。
