楽天モバイルにMNP乗り換えが出来ない!!

network.mobile.rakuten.co.jp

先日、現在利用しているIIJmioから楽天モバイルに、MNP乗り換えを試みたところ、「[楽天モバイル] 電話番号の引き継ぎ(MNP)申請のお願い」メールが来て、そこに書かれていたリンク先で手続きを進めましたが、運転免許証やクレジットカード番号等を教えたら音信不通となり、25時間以上経っても、何の状況変化もありません。

どうしても楽天モバイルを使いたい分けでもないので、サポートに連絡もせず、手続きをキャンセルしました。

網に掛かった魚も捕まえる事が出来ない様では、第4のキャリアへの道は、厳しいでしょうね。

 

来年からプラチナバンドが利用出来るようになるとの事で、期待したのですが、私は楽天モバイルとは、縁が無かったようです。

 

MNP予約番号を取得しているので、どこに乗り換えるか思案中。

 

【備忘録】Excel VBAのテキストボックスで数値入力範囲を設ける

ExcelVBAでテキストボックスに数値の入力範囲を設けるモジュール

  • 各テキストボックスの「KeyPress」イベントに、「数値」、「-」、「.」以外入力出来なくする。また、「-」は先頭のみ許可し、「.」は1個のみ許可する。
    テキストボックスが、空欄や「-」、「.」、「-.」の時は、「0」として扱う。
       
  • 各テキストボックスの「Exit」イベントに、最小値と最大値を設定し、範囲外だと、「Exit」出来なくし、最小値より小さい値の時は、最小値に、最大値より大きい値の時は、最大値を設定する。
         

※UserForm1に、TextBox1、TextBox2、TextBox3 を貼り付け、IMEModeを「fmIMEModeDisable」に設定し、半角文字しか入力出来なくする。

 

【UserForm1内のコード】

Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_Exit 1, Cancel, 0.25, 25
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox_KeyPress 1, KeyAscii
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_Exit 2, Cancel, -15, 15.7
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox_KeyPress 2, KeyAscii
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_Exit 3, Cancel, -5.6, 10.5
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox_KeyPress 3, KeyAscii
End Sub

 

【標準モジュールModule1内のコード】

Option Explicit

Sub TextBox_KeyPress(BoxNum As Integer, KeyAscii As MSForms.ReturnInteger)

Dim C As String

C = UserForm1.Controls("TextBox" & BoxNum).Text

'はてなブログでは、下の条件式の一番外の( )の表示が変になるので、( )を[ ]にしている。
If Not [(KeyAscii > 47 And KeyAscii < 58) Or _
        (KeyAscii = 46 And InStr(C, ".") = 0) Or _
        (KeyAscii = 45 And InStr(C, "-") = 0 And UserForm1.Controls("TextBox" & BoxNum).SelStart = 0)] Then
    KeyAscii = 0
End If

End Sub

 

Sub TextBox_Exit(BoxNum As Integer, Cancel As MSForms.ReturnBoolean, MinVal As Single, MaxVal As Single)

Dim C As String, T As String

C = UserForm1.Controls("TextBox" & BoxNum).Text
T = C

If C = "" Or C = "-" Or C = "." Then

    T = "0"

ElseIf Left(C, 2) = "-." Then
    T = IIf(C = "-.", "0", "-0." & Right(C, Len(C) - 2))

ElseIf InStr(C, ".") = 1 Then
    T = "0" & C

End If


If T <> C Then UserForm1.Controls("TextBox" & BoxNum).Text = T

If T < MinVal Then

    MsgBox MinVal & " ≦ 設定値 ≦ " & MaxVal & " の範囲で入力して下さい。", , "範囲外"
    UserForm1.Controls("TextBox" & BoxNum).Text = MinVal
    Cancel = True
ElseIf T > MaxVal Then

    MsgBox MinVal & " ≦ 設定値 ≦ " & MaxVal & " の範囲で入力して下さい。", , "範囲外"
    UserForm1.Controls("TextBox" & BoxNum).Text = MaxVal
    Cancel = True

End If

End Sub

Kensington SlimBlade K72327JP の使用感⑤

ケンジントン君で、ドラッグアンドドロップやコピペなど、親指で左ボタンを押しながらボールを精度よく操作するのはとても難しいです。

細かな作業を精度よくしようとすると、どうしても手のひらを浮かしてしまうので疲れます。

適当な操作で良い場面は、トラックボールマウスでも問題ないのですが・・・

残念ながら操作精度が要求されるような場面では、普通のマウスの方が遥に扱いやすいです。😢

 

防衛大学校と虐め?➀

初めにお断りしておきますが、

私自身 自衛隊防衛大学校とは縁も所縁もありません。

これは私一日本国民としての考えです。

 

昨今、防衛大学校でのシバキやら虐め?が取り沙汰されています。

裁判沙汰にもなりましたね。

特に、コロナ禍ではこれ見よがしに週刊誌が取り上げていました。

 

聞くところによると、防衛大学校では、1年生の間、正確に言えば2年生初めのカッター競技会が終わり、中隊学生長がシバキ終了を出した中隊から、理不尽なシバキや厳しい容儀点検や朝夕のベット荒らし等々が終るそうです。それまでの間に寮生活や校友会を通し、同期や上級生と人間関係を築けている人は、楽しい防大生活が始まります。

 

一旦、話を変え、この世の中の「理不尽」について考えようと思います。

 

「理不尽」とは、

www.weblio.jp

と言う事です。

 

現実の世界では、自然災害も理不尽ですが、もっと最悪な理不尽があります。

「戦争」です。

ウクライナを見れば分かるように、ある日突然ロシアがミサイルで街が破壊し、鬼畜兵が乗り込んできて、大勢の民間人拷問強姦した上で惨殺、子供は拉致し洗脳教育を行っています。

これ以上の理不尽がありますか?

 

日本は、中国、北朝鮮、韓国、ロシアと反日国家に囲まれています。

中国は、台湾、尖閣諸島、沖縄を虎視眈々と狙っているし、既に韓国は竹島を、ロシアは北方領土を不法占拠し続けています。

 

特に、今の中国は、経済も破綻しかかっている最悪の状態です。

いつ台湾、尖閣諸島に乗り込んできてもおかしくありません。

在日中国人救出の旗印を掲げ、日本本土に攻め込んで来るかも知れません。

国が定める学習指導要領の根底が反日教育である中国、北朝鮮、韓国では、いつでも導火線に点火出来る状態です。

 

日本有事になった時、誰が日本国民を守るのでしょうか?

憲法9条」でしょうか?

反日マスメディアでしょうか?

憲法9条」が大好きな左翼連中でしょうか?

いえ、違います。

彼らは真っ先に逃げるでしょう。

頼りになるのは、世界中から称賛される自衛隊です。

 

話を元に戻しますが、

防衛大学校を卒業し、任官すれば、自衛隊の指揮官になります。

小隊長になり部下を率いるのです。

 

防大のたかが1年間の理不尽な指導に耐えられない者が、戦争という最悪の理不尽に対処できると思いますか?

また、防大を卒業すれば、部下の命を預かるわけですから、指揮官としての資質に問題のある人は、当然、理不尽な指導も周りよりきつくなるでしょう。これは将来預かる部下の命を考えれば、当たり前の事ですね。

 

この理不尽な指導に対し、「パワハラだ!!」、「虐めだ!!」、「人権無視だ!!」、「人権侵害だ!!」、「人権蹂躙だ!!」と喚き散らす人間と、同期と支え合いながら「理性ある服従」が出来る人間なら、どちらの人間が鬼畜兵から日本国民を守れるでしょうか?

孤独な前者は、国民を見捨て、部下を残し、いの一番に逃げ出してしまうでしょう。

 

大東亜戦争を見ても、欧米の指揮官は、劣勢になると部下を残し、戦場から逃げだす有様。今の人民解放軍なんて民間人に化けてゲリラ戦を行う国際法違反の卑怯な戦術を取りました。

 

旧日本軍に、そのような指揮官がいたでしょうか?

極東裁判を持ち出す方がいるかも知れませんが、あれは戦勝国が事後法まで作って裁いた本当に卑劣で悪質な結論ありきの報復劇場ですから論外です。

 

旧日本軍(日本人)は、数百年の植民地支配からアジアを解放するために、欧米列強(白人)に立ち向かった世界に唯一無二の存在です。その血を引き継いでいるのが自衛隊です。

その自衛隊士官学校である防衛大学校における理不尽な指導は、おそらく戦前の士官学校からずっと行われて来たと思います。

この1年間の理不尽な指導を通し、理不尽に対する適応力・耐性、人間関係の築き方、仲間意識、他人への思いやり等を磨き上げる事が出来るのだと思います。

だからこそ自衛隊が世界に出て行けば、周りから信頼され賞賛されるのだと思います。

一方で、指揮官として向かない人は、早いうちに「違う人生を歩ませてあげる」という意図もあるでしょうね。

 

反日マスメディアは、自衛隊弱体化の為に、あの手この手で防衛大学校を批判していますが、臆することなく、惑わされる事なく、防衛大学校は、これまで通り我我が道を歩んで欲しいと願っております。

 

一国民として防衛大学校を応援しています。

 

剣道の賞金大会

賞金を懸けた剣道大会を開く為のクラウドファンディングを発見しました。

camp-fire.jp

オーマイガー!!

 

「プロの剣道家」とありますが、試合で賞金を稼ぐ事を生業とするのであれば、ハッキリ言って現状では絶対無理です。

 

剣道の試合において、最大の問題点は、「審判の公平性」が全く担保されていないという点です。

剣道の最高段位は現在八段ですが、八段の大先生が傍から見ても、試合場内にいる審判の一本の基準が分からない試合も多々あります。

 

また、「いちに会」という剣道のコミュニティサイトがありますが、

ここの掲示板には、大きな大会の後は、(管理人の方に即削除されるのですが、)必ずと言って良いほど審判批判で溢れ返ります。

 

昔、ある県の剣道連盟が、県高校総体前に「公平無私な審判を行うように!」と注意喚起した事もありました。

また、インターハイ個人戦という大舞台で、何本も取っていてもおかしくない方の選手が負け、勝った方の監督が、負けた方の監督と選手に謝りに来た事もありましたね。

 

今も昔も、審判の1本に対する判定は、後から文句を言われても絶対に覆る事なく、何の検証もされる事なく、何のペナルティもないので思うがままに旗上げが出来き、私情判定の温床になってしまうのです。

審判も人間ですから、忖度や嫉妬・妬みが出てしまうのも理解は出来ますが、本当に私情丸出しで審判するのが常になってしまっている方には困ったもんです。試合する前からどちらが勝つか分かりますからね・・・

このように試合そのものに、重大な問題を抱えている剣道で、「プロの剣道家」なんて申し訳ないのですが本当に笑ってしまいます。

 

でも、自己鍛錬や自己陶酔で剣道をするのもありだし、純粋に地稽古で剣道を楽しむのもありだと思います。

現状では、趣味の世界から抜け出す事は不可能だと言う事です。

 

本当に「プロの剣道家」の道を開きたいのであれば、「テレビで放送できる競技」に変えなければ絶対駄目です。解説者が「打突の機会が良ければ何でも1本です!!」とか「〇△選手は剣道界のサラブレッドだから旗が軽いんです!!」では視聴者は納得しませんからね。

 

しかし、この審判問題が解決出来れば、必ずテレビ局は飛び付きます!!

カーレースのようにドライバー目線の迫力ある映像を剣道に応用すれば、視聴者を釘付けにする事間違いなし!!

プロリーグだって夢ではない!!

 

老婆心ながら応援してます。

頑張れ!!

 

アームレストを買ってみた!!

最近、肩こりが酷い原因は、自分の腕も重さかと思いアームレストを買ってみました。

色々アマゾンで物色しましたが、私が選んだのは、

 

【サンワダイレクト限定品】リストレスト 肘置き台 アームレスト デスク取付 エルゴノミクス 幅75cm ブラック ワンタッチ取付 100-TOK005MBK 

楽天のサンワダイレクトで4,480円でした。

 アームレストの板厚は15mmとなっていましたが、実際には結構な厚みがあり、段差が付き過ぎて、そのままでは使いにくいので、ホームセンターで棚板を買って来ました。

この板を敷くと使いやすくなりました。

 

パソコンデスクの天板は18mmほどありますが、このアームレストには薄すぎるのでしょうか?右側がガタつきます。

当然ですが、構造上、水平に引っ張れば簡単に落ちます。

そこで、木の角材を天板の裏面に取り付けました。

これで簡単に外れる事はなさそうです。

 

しばらく使ってみて肩こりが解消される事を祈ります。

 

Kensington SlimBlade K72327JP の使用感④

Kensington SlimBlade K72327JP を使用していると、

 

「デスクトップのアイコンやエクスプローラーでファイルをダブルクリックすると、プロパティが表示され、その時は必ずキーボード入力が出来なくなっている。」

 

という症状が出る件ですが、

 

ケンジントンワークスをアンインストールし、K72327JP を使用して17日経ちましたが、症状が出ません。

 

恐らく、ケンジントンワークスの不具合だったと思われます。

 

トラックボールマウス自体 マイナーなデバイスですからケンジントンワークスが修正させる事もないでしょうね。

 

残念ながらKensington SlimBlade K72327JPは、「左・右クリック」と「ホイール機能」と「戻る」・「進む」の機能しかないトラックボールマウスとして使うしかなさそうです。