エクセルのシートで、改行された文字データのセルを上手に置換できるVBAのプログラムを書いたのでござる － ＶＢＡマクロ（そのほか）

　　
最近、社内で使われるプロトコルのマニュアルを、英語に翻訳して疲れました。
プロトコルは通信制御手段とも言われますが、分かったようで分からない言葉。

仮に身近にある道具を使って説明するなら、USBでデータのやり取りでしょう。
USBメモリーを、パソコンに指してデータを移動させるのは、当たり前なんだ。

それで、ソケットを見ると四つの接続端子しかなくて、しかも二つは電源供給。
となると、データ通信はたったの線二本でしか行われていないことになります。

そうなると、この二本でデータを上手く受け流すには、制御ルールが必要なの。
これが通信制御手段で、英語で格好良くプロトコルって言うだけの話なのです。

ユニバーサル・シリアル・バスは頭文字からUSBなんだけど、通信規格の一つ。
コンピュータの内外から、各回路がデータ交換で共通の経路を使うのに必要だ。

コンピュータ用語ですが、有線だろうが無線の５Gだろうが通信は規格が重要。
このコミュニケーションのしきたりがちゃんとできないと、機械は村八分状態。

勤務する会社が扱う製品も、サーバーと通信できなければ、ただのハコ扱いよ。
だから、システム開発をする上で、きちんとプロトコルを理解してもらいます。

お客さんに提供するマニュアルも揃えますが、海外の顧客が出始めてきました。
このため、是が非にでも英語化する必要に迫られたのか、支援を頼まれました。

　　　　
それで、上記のようなマニュアルに訳しましたが、技術用語の繰り返しが多い。
エクセルで作られているので”置換”の操作もできますが、一つ困りごとが発生。

それは、一つのセルの中でAlt+Enterキーで改行したフレーズを書いた時です。
これって、画面上では改行コードが見えないのですが、Chr(10)が含まれます。

そんな時、置換コマンドでも出来るんですが、検索に貼る文字画面が一行だけ。
入力しながらCtrl+Ｊキーを押すと改行できるけど、文字が見えなくなりました。

特にカナや漢字へ変換が必要な時に、隠れた字句が変換できたのか分からない。
ならば、該当する字句にセルを当てて、置換を呼び出して改行するとします。

やってみたんだけど、改行が二つ以上になると、かなりやりづらいんだよなあ。
つまり、セル内で改行してある文言が素早く置換できたら迅速に仕上がるんだ。

　　　　
なら、VBAでプログラムを作ってみるしかないと思って、挑戦してみましたよ。
何とかできましたが、プログラミングのミソは、配列のアイデアを活用した点。

セル内の、改行コードのChr(10)で区切られる字句を要素の配列に見立てます。
この配列内容が、指定した範囲内で各セルの内容と合致しているか確認します。

もし合致していれば、置換で指定した字区を、該当セルに書き込んで行きます。
そして、置換で指定された字句は一行から四行までに対応するようにしました。

まあ、コードの特長では、ループ処理と条件分岐式（複数）を活用した分けよ。
ループ処理のFor～Nextに、For Each～Nextを使い、他には条件分岐（複数）。

Select Caseですが、置換の字句も改行コードから要素の配列に分解しています。
それから、この要素数で判断し、改行コードを含む字句に再構成して書き込む。

このため、置換されたセルは、元の字句が三行でも、置換で四行にもできます。
まあ、セル一つで改行コードで四行以上にする人もいないと思って止めました。

というわけで、画面を操作するイベントプロシージャまで組み込んでみました。
他に開いたブックのシート画面から、置換したいセルをコピーしておき、貼り付けるセルをダブルクリックしてデータのみを張り付けるアイデアで、書式までコピペしてしまうのを防いでいるのですが、この他、セルを置換する対象になるブックと、このプログラムのブック以上にブックが開かれていると、置換が実行されないなど、それなりに実用性を意識して作ったのでした。
　　　
★参考までにコード記述：
※ThisWorkbookのコーディング
Private Sub Workbook_Open()

    With Application
        .WindowState = xlNormal   '標準
        .Width = 200
        .Height = 200
    End With
 
'枠線を残す・消す
    ActiveWindow.DisplayGridlines = False 'True
'行列番号を残す・消す
    ActiveWindow.DisplayHeadings = False 'True
'シート見出しの表示 / 非表示
    ActiveWindow.DisplayWorkbookTabs = False 'True
'スクロールバーを残す・消す
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
 
Cells(3, 2).Value = ""
Cells(3, 4).Value = ""
ActiveCell = Cells(1, 1)
Worksheets(1).Activate

End Sub
-------------------------------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal

Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Target.Value = "" Then GoTo EndTsk
    If Target.Value = "" Then Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
EndTsk:

End Sub
--------------------------------------------------------------------------
※モジュール1のコーディング
Sub Button1_Click()

 Dim Orgnl As Variant
 Dim Trgt As Variant
 Dim Rvsd As Variant
 Dim Cll As Range
 Dim i As Long
 Dim tmp As String

 For i = 1 To Workbooks.Count
  If Workbooks.Count > 2 Then GoTo Finish
  If Not ActiveWorkbook.Name = Workbooks(i).Name Then tmp =

Workbooks(i).Name
 Next i

Orgnl = Split(ActiveSheet.Cells(3, 2).Value, Chr(10))
Rvsd = Split(ActiveSheet.Cells(3, 4).Value, Chr(10))

Workbooks(tmp).Activate

For Each Cll In Range("A1:AQ1000")

If Cll.Value = "" Then GoTo TskEnd

Trgt = Split(Cll.Value, Chr(10))

If Not UBound(Orgnl) = UBound(Trgt) Then GoTo TskEnd

For i = 0 To UBound(Trgt)
If Not Orgnl(i) = Trgt(i) Then GoTo TskEnd
Next i

Select Case UBound(Rvsd)
Case 0
Cll.Value = Rvsd(0)
Case 1
Cll.Value = Rvsd(0) & Chr(10) & Rvsd(1)
Case 2
Cll.Value = Rvsd(0) & Chr(10) & Rvsd(1) & Chr(10) & Rvsd(2)
Case 3
Cll.Value = Rvsd(0) & Chr(10) & Rvsd(1) & Chr(10) & Rvsd(2) & Chr(10) &

Rvsd(3)
End Select

TskEnd:

Next Cll

Finish:

ThisWorkbook.Activate
Cells(3, 2).Value = ""
Cells(3, 4).Value = ""

End Sub

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

日本だと、横浜、神戸、長崎に三大中華街があるのですが、その土地に親しんだ雰囲気を味わうなら、神戸の中華街がお勧めだと思います － 神戸南京町（神戸市・中央区）

神戸南京町長安門

正直、横浜市民であっても、わざわざ中華街へ出かけることもなくなりました。
いつの頃からかは覚えていませんが、上さんと結婚した年あたりだったかなあ。

だから、十数年以上が経っているはずで、今や中華料理は日本の料理の一分野。
日本人の口に馴染んだ料理になってしまって、中華街で食べる必要も無いよね。

なので、酢豚など日本で命名した料理で、ありえないトマトケチャップを使う。
パイナップルまで入ったりして、中国人にも想定外の料理なのかもしれません。

餃子だと、中国ではゆでるもので焼かないし、拉麺（ラーメン）は日本生まれ。
回鍋肉（ホイコーロウ）、マーボー豆腐もそうで、本場からかけ離れています。

まあ、自分の身近にある中華街は、月並みに地盤沈下して観光地の一つぐらい。
だから、興味の対象ですらなくなってしまったけれど、神戸の中華街は違った。

横浜に比べると、街区自体が小さくて、ローカル感が漂うほど異国情緒がある。
神戸の街に移り住んだ華僑が、この南京町で連綿と商売を続けている雰囲気だ。

　　
横浜の方はと言うと、商店街が、どんどん新しく豪華な建物に代って行きます。
代替わりで経営者も代って、新陳代謝の激しい活気ある町だとうは思うのです。

でも、そんな賑やかで派手な町並みより、生活感のある商店街の方が良いんだ。
代々、華僑が、自分達の生業をしながら暮らし続けている雰囲気が、心地よい。

今回の大阪旅行では、ちょっと神戸まで足を伸ばしてみましたが生憎の雨です。
そんな天気ですら、観光客はことのほか多くて、傘を指し列をなして歩きます。

とぼとぼ歩いて、北京ダックを買い食いしたり、湯葉入りの肉まんを食べたり。
ちょっと、小腹が空いたら小銭を払って買い食いしつつ、通りをぶらつくんだ。

レストランの店先には、買い食いできる露店の出店がたくさん並んでいるのよ。
傘を差した立ち食いなのですが、店の軒先を借りると注意されたりしましたな。

ある意味では、面白い体験にもなったし、続けて中華食材の店も立ち寄ります。
上さんが色々物色していましたが、豆腐を干した豆干（トウガン）も安いんだ。

まあ、雨がひどくなれば、横に並んで走る元町のアーケード街に逃げればいい。
そう思いつつ、ブラブラした分けですが、ふと思い出したのは別の中華街です。

それは、世界一小さなチャイナタウンを、キューバのハバナで見たときのこと。
当時、海外営業をしており、売り込みもあり専門商社の人と出張いたしました。

商談もありますが、途中、ハバナ旧市街とその要塞群を案内してくれたりする。
後にユネスコ世界遺産に登録されましたが、宗主国スペイン時代の名残なんだ。

GSで見たクラシックカー

ハバナのチャイナタウン

街中には、革命以前に使われていたクラシックカーが走ったり、異国情緒満載。
タイムスリップした感覚でしたが、その時、ここが中華街と教えてくれました。

通りの入り口から奥に向かって、赤い中華灯篭が吊り下げられ、確かに中華街。
車窓からちら見した程度でしたが、通りの距離が５０メーターと説明されます。

世界一小さいのだと言っていましたが、ネットは別の場所も紹介していました。
それは、カナダでブリテイッシュ・コロンビア州のビクトリアにあるらしい。

現在、世界最大の中華街はバンクーバーにあるのですが、両方がカナダなのか。
最近では、中華系移民も増えすぎで、カナダ政府も締め出すようになりました。

だって、移民と同時にマフィアやら犯罪まで持ち込まれたんじゃ、たまらない。
昔の華僑と違って、中共の赤化人種は、金に物言わせてモラルも低そうだしね。

というわけで、少し脱線してしまいましたが、神戸の中華街は一見の価値あり。
この後、市内を循環する観光バスに乗って、北野異人街の風見鶏の居宅を三十年ぶりに見に行ったりしまして、横浜とは一味も二味も違う貿易都市の観光を楽しんだのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

北海道の米って、昔は猫も食べないから「猫またぎ米」とか、北海道の地名にかけて「厄介どう米」などと、ありがたくない名前だったのよ － カリフォルニアローズ米（業務スーパー笠間店・横浜市）

　　　
我が家では、食材の買出しが、歩ける範囲にある業務スーパーがルーチンです。
マイカーを止めてからは、買い出したものを大きなデイバッグに詰め込むんだ。

よっこらしょと背に負って歩いて帰るわけですが、お米を買うと重くなります。
夫婦だから、一月でそんなに食べないけど、５キロパックでもズシリと来るの。

ただ、業務スーパーと近場のスーパーで特売される価格の差がなくなりました。
まあ、そんな時はスーパーで買ったりしますが、ここにしかない米もあるんだ。

それがカリフォルニアローズと言うお米で、アメリカ産のジャポニカ種です。
これまでは１０キロ入りの袋の販売でしたが、最近５キロが売り出されました。

１０キロは重すぎで持ち帰るのも難儀ですが、５キロ袋は背にして帰られます。
なので、このお米を買おうと言ったんだけど、上さんが上手くないと言い張る。

でも、自分はこれが五つ星の”ななつぼし”の親戚みたい品種と知っていました。
実際、カリフォルニアでコメの種籾を農林試験場の職員が持ち帰ったのですな。

研修による出張の旅先だったそうですが、この米は移住した日本人が育てた米。
それで実際に持ち帰ったのは、国府田さんが生産に成功した国寶ローズなんだ。

国府田敬三郎

日本のお米ジャポニカ種は短粒米ですが、このローズは中粒米で少し長めです。
多分、現地の陸稲栽培に適した長粒種、インディカとの掛け合わせでしょうか。

なので短粒種よりパサパサしやすいと思いましたが、食べて差が分かりません。
それだけ、カリフォルニアの気候に適合した上手な品種改良だったのでしょう。

５キロで千二百円と言う安さにもびっくりしましたが、たまに食してもいいな。
我が家で食べるお米の価格レンジは、５キロで二千円以内が多いのも事実です。

この辺りだと、あきたこまち、きらら397、はえぬき、ぐらいかと思います。
北海道、秋田、山形のお米ですが、これらに比べてモチモチ感が少ないかもな。

ネットを見ると、安さに負けて買ったが、まずくて二度と買わないという人も。
カルローズと言っていましたが、国寶ローズよりグレードが低いとありました。

北緯４４度北限の”ななつぼし”

でも、食べてみて差が感じられず、遜色が無いような気がしたんだけどなあ。
ただ、上さんが雑穀を加えて炊いたりしたから、味が分からなかったのかも。

というわけで、最近では、オーストラリア産米も業務スーパーで買えるのです。
コシヒカリの”開拓の稔り”と言いますが、５キロで若干お高く１、４５０円になり、大規模生産のためか、白く濁った白濁米も入っているとかで、やはり日本のお米と比べると品質的には劣るようですが、たまには世界のお米事情に興味を持って食べてみても良いではと思ったのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

百数十年前、英国から来日して江戸を訪れた植物学者が、"世界一の園芸都市”と息をのんだほどに賞賛したのも、日本人が園芸好きだったからだよ － 朝顔初開花（横浜市・そのほか）

　　　
驚いたのは、こぼれ種の朝顔が、未だ五月なのに見事な花を付けてくれました。
四月初め、百均でよく見る樹脂製の縦長ポットの角隅から、芽を出したんだよ。

同じ頃に別の鉢でも、一株が芽吹きだしましたが、どちらもこぼれ種なのです。
早咲きを意識したのではなく、冬の頃、シーズンに向けて土造りをしています。

もっとも、秋口から準備を始めていて、最初に枯葉を表土に敷き詰めました。
後々、土と混ぜ合わせて腐葉土が作られやすように、園芸バサミで切刻みます。

晩秋になっても、まだ朝顔は咲き続けていましが、落ち葉のじゅうたんなんだ。
これに、枯葉を発酵させたらどうかと思って、毎日、水やりもしていました。

こうして、冬になって朝顔も枯れてしまいましたが、何となく散水はしました。
冬になって二月の頃でしたか、そろそろ土造りだと思って、混ぜ返しをします。

まあ、土中に残った根っこも掘り起こし、園芸バサミで切り刻んで混ぜました。
特に、イモネノホシアサガオ（芋根星朝顔）の根が長大で、繁殖力が強そうだ。

サツマイモの仲間なので、ちょうど牛蒡みたいな太さで芋根の名前の通りです。
切って見ると断面がほのかなクリーム色で、食べようと思えば食べられるかも。

そんなことを思いながら作業して、土を混ぜ返したら、鉢の表面を密封します。
たっぷり水を含ませてから、サランラップで鉢の表面を覆ってテープで止める。

　　　　
これで一工程が終わりまして、後は、陽だまりのある冬の日差しに晒しました。
透明なフィルムですから、陽を浴びた表土は気温がかなり上昇するのでしょう。

フィルムに水滴が溜まるのが観察できたりして、これなら土作りはできそうだ。
時々、水滴がどこからか蒸発するのか無くなっていきますので、水を加えます。

そして、改めてフィルムを貼り直したりして、一ヶ月以上放置しておきました。
そうしたら、ある時、小さな双葉が表土から顔をのぞかせていて、発見なんだ。

もちろん、朝顔の仲間の特有な形の双葉だったので、こぼれ種と分かりました。
こうして、紙製の種まきポットにまいた種より早く、発芽し開花したのは驚き。

思った以上に大振りなピンクの花が咲いてくれ、この系統は良く生育するかも。
一方、他は五月になって種まきしたばかりですが、双葉が顔を覗かせています。

マメアサガオ、マルバルコウ、ヘクソカズラなど、園芸植物にはほど遠い品種。
ご近所で繁茂して雑草なのかもしれませんが、種子だけは採取しておきました。

　　　
しかも、マメアサガオは二年前の古い種でも発芽にほとんど影響はありません。
この他、豆苗の豆根の部分を植えまして、エンドウになるとかで移植しました。

これは、食べる目的より、マメ科植物の根粒菌で土中に窒素を固定する目論見。
そうすれば土壌の改良にもつながって、来年の土作りに向けて役立ちそうです。

というわけで、マンションだからガーデニングをするには少しベランダが狭い。
まあ、江戸時代の昔、狭苦しい長屋に住んでいた住人ですら、朝顔などの苗を、天秤棒からぶら下げて売り歩く行商人や露店から購入しては、軒先で育てて季節ごとに咲かせて楽しんだのだそうで、瓜二つだなと一人笑いしてしまい、自分にも日本人のＤＮＡが反映しているのだと思わず、得心が行くのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村