住所から県別に分割する方法

県別に分割

勉強会の終了時、途中で尻切れトンボになってしまった問題をwebで検索しながら解決しました。その際解決手段は千差万別と分かり、これ以上深入りしても無駄だと思い、辞めてよかったと安堵しました。一番分かりやすいコードを備忘録として残しました。

エクセルＶＢＡ勉強会終了

木瓜の花

バス停の掲示板に「市役所健康増進課」より「新型コロナウイルス感染症」について次のような掲示が載っていました。感染を防ぐためにとして文面は次のとうり。
リスクが高い環境とは、「換気が悪く、人が密に集まって過ごすような空間、閉鎖空間において至近距離で一定時間交わる環境、不特定多数が接触するおそれが高い環境」とありました。
四街道市は公民館すべてのサークル活動を3月いっぱい中止にしています。千葉市も家内が電車で通う集会は「電車の人はご遠慮」ということになりました。私も佐倉市への、電車で通う勉強会の辞退は、自分はもとより他の人に与える影響も考えた末の決断だったのです。これで楽しみがまた一つ消えました(^_^!)。

先輩の言葉：パソコンは壊れないよ！

寄り添う花（2月）

同じパソコンでwin７からwin１０へバージョンアップした場合、今まで繋がっていたwi-fiに繋がらなくなってしまって、右下のアンテナが表示されない事象にぶっつかってしまった。
ああでもないこうでもないと、恐らく20回ぐらいの操作を試みた結果、突然wi-fiの表示が現れた。
もう一度やってみぃと云われても、なんでこうなったのか分からない(^_^!)。

VBA、重大なポイント

寄り添う花（2月）

段々と難しくなってきた、と云うよりも関数を覚え、正確に入力を繰り返す作業が多い。今日はテキストにも説明がなく、エラーが解決できずに終わった。帰ってからも一生懸命考えた末に、解決策をパソコンでテストした結果、大成功！これで眠れる(^_^)。

”相川　誠”のスペースは日本語変換のスペースで、ローマ字変換のスペースだとエラーになる。

エクセルVBAの今日まで

＜入門の2単元目_備忘録＞
Sub 成績を求める（）　'マクロの題名（必須）
    Dim i As Long　'iをデータ型の変数宣言（必須）
    For i = 4 To Cells(Rows.Count,"A").End(xlUp).Row　'1000行でもループする
        If Cells(i, "B") >= 80 Then　'Thenは（必須）
            Cells(i, "C") = "優"　'列は " "でくくる
        ElseIf Cells(i, "B") >= 70 Then
            Cells(i, "C") = "可"
        Else
            Cells(i, "C") = "不可"
        End If'IFと対
    Next i'Forと対
End Sub

懐かしい講義

新人２名の手習塾サイトへの導入をご指導いただきました。
休憩も取らない先生の熱意でもって、３時間で完璧に終了いたしました。
厚く御礼申し上げます。

セキュリティ保護が必須条件となっていたため、私は途中から着いていけなくなりました。

手順

１、アカウント作成

２、セキュリティ保護

３、第３者の電話番号、コード番号

４、共有者に挨拶メール

５、共有者から招待メール

６、サイト作成

ちなみに「山本青陽」をテスト、参入成功

エクセルVBA

テキスト

19.7.10佐倉の商工会議所パソコン教室に入校。目的は講座内容にあるように「エクセルVBA」の内容を知るため。入口だけ分かれば辞めるつもりであったが、写真のような単元を踏まないと駄目みたい。乗り掛かった舟でワード、エクセルの初歩からスタートすることになった。早く最終目的のVBA講座に行きつくようにと自前のヘッドホン（難聴のため）をつけ、スピードを最速に上げながらクリアしていった。
令和２年１月ようやくにしてVBA入門のテキストをいただき、未知の世界へと希望と不安で胸がふくらむ思いである。