１３マクロ館＋日光・自然＆フィギュアスケート 大好き！！

勝手なトラックバッグ

ブログの内容と関係ないところから、

トラックバッグのリクエストが来るんですね。(-_-;)(-_-;)

もちろんみんな拒否しますが。

春子

春子と書いて、
カスゴ
と読む。

真鯛の子で、軽く酢で締めたものが、寿司種となる。
昨日、行きつけの寿司屋で、頂いた。

おいしかったなぁ。
毎年今頃食べているんだけど、
今までで一番美味しかった。

オヤジに美味いね、と言ったら
待ってましたとばかり、
でしょ、
ときた。まぁ、美味いと思ったときは、
オヤジも自信を持っていることが多くて、
こういうときは、お互い幸せ。(^^)(^^)

他に、あおやぎも、美味かったなぁ。

一太郎マクロ「括弧内文字色変更」

昨日は、「一太郎何でも相談室」に寄せられた要望に応じて、
「（）内の文字の文字色を変更するマクロ」を作成した。
前にも作ったような気がするけど、探すのも面倒くさいし、
以前使ったものは多分正規表現を使わずに作ったと思われるので、
作ってしまった。
（）とそれに挟まれた１文字以上の任意の文字列を検索して、
見つかったら、（）の部分を除いた文字列だけを範囲指定して
文字色を変える。
範囲指定があったら範囲内で、なければ全文書を対象にするものを
作ろうと思ったけど、忙しいのと面倒なので、とりあえず、
全文書（だけ）を対象にするものを作って紹介したら、
「感激！　ばっちりでした」というレスが付いていた。
リクエストがあれば、改良するつもりだったけど、
まぁ、好いか。(^^;)(^^;)

ダウンロードはこちらから。

http://members2.jcom.home.ne.jp/r_watanabe/1mcr/046tmc.lzh

ごじら＆こﾞし゛ら08

さて、くまぷーさんの解答だが、
Shift-F2で１文字ずつ現れてくるのも面白いけど、
１度に表示させることができたら、それはそれで面白そう。

三四郎では(もちろんExcelでも)反復回数を指定できるから、
反復回数を複数回にするとできるのではないか、
ということで、「きんぐぎどら」は６文字なので、
反復回数を６回にして、やってみた。

すると・・・「らどぎぐんき」にならずに、
「きききききき」になってしまった・・・(^^;)(^^;)

要するに、反復計算では、１度、全部のセルを計算した後、
また最初のセルから２度目の計算をする、
というのではないらしい。このケースでは、どうみても、
A3を６回反復して計算し、その後B1の再計算にかかるらしい。
どうもこの辺が理解できなくて、
悪児は循環参照は苦手(というより非論理的で嫌い？）なのだが、

とすれば、B1だけで済ませてしまえばできるのではないか、
と考えて、B1の式をもう一度見てみた。

A3を参照しているのは、元文字列の切り取り始点を指定するとき。
その数字は、今までに切り取った回数＋１となっている。
だから、それを引いたあとで余計な＋１分を足し直しているのだが、
それなら最初から、切り取った回数分を引いてやれば良い。
そして、切り取った回数は、そのまま、B1セルに入力されている
文字数分だから、-A3+1を-Len(B1)に替えてやれば良い。

ということで、B1の数式を
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-Len(B1),1),B1))
に差し替え、A3を空白にし、反復回数を10回にして、
A2に一旦0を入れて、初期化してから、1を入れたら、
Shift-F2を押すまでもなく、「らどぎぐんき」が表示された。＼(^o^)／

これなら、99文字まで（三四郎の反復回数の最大値）
一発＆一セル変換ですね。(^^)(^^)

ごじら＆こﾞし゛ら07

くまぷーさんの解答の、解説の続きです。

そして、式Ｂ。
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

はじめのIf関数は、式Ａ同様初期化のための仕掛けだ。
A2がゼロ（空白でも数値以外の文字列でも可）だと、B1が空白にされる。

次のIf関数は、終了判定。
B1に入力された文字列が、A1と同じになると、もう変化させない。
（式では、B1がA1より小さい間は、B1の文字列にA1から切り取った
１文字を追加し、それ以外は、B1をそのままにする）

さて、その１文字の切り取りと追加が、この部分。
B1 & Mid(A1,Len(A1)-A3+1,1)

Mid関数の引数は、Mid（元文字列,始点,切り出し文字数）。
つまり、A1から、その、(Len(A1)-A3+1)番目の１文字を切り出して、
B1の文字列の末尾に連結する。

つまり、A3が1の時は、A1の文字数番目（つまり最後）の文字を切り出し、
A3が2の時は、その一つ前、というように、
「再計算」の度にA3の数字が１ずつ増えるから、それに応じて、
後ろから順に切り出して、逆順に連結していくわけだ。

Shift-F2を押す度に、ひとつずつ文字が繋がっていく・・・
見事なもんですねぇ～～(^_^)(^_^)/~

ごじら＆こﾞし゛ら06

くまぷーさんが、悪児の解答を解説してくれている。(^^)(^^)　。

http://kumapooh.justblog.jp/blog/2007/04/9_73fe.html

お礼に、こちらでも、くまぷーさんの解答の解説をしよう。

くまぷーさんの解答で、数式の入っているのは、次の２セルだ。

ひとつはA3で、式（以下式Ａ）は、
=If(A2=0,0,A3+1)

もうひとつは、B1で、式（以下式Ｂ）は、
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

これを見て、「あれ？」と思った方は、表計算をよく知っている方だ。
式Ａは、A3セルに入っているのに、式の中でA3セルを参照している。
つまり、
A3=A3+1
ということで、A3セルの値は、計算をし直す度に1ずつ増えてしまうことになる。
これは、普通の使用法では、避けるべきことなのだが、
くまぷーさんは、これを上手く利用して、
マクロを使わずに、シートを動かすのがお得意なのだ。

さて、式Ａの場合、単に数を増やすだけではなく、
A3の値を初期化する（０にする）ための仕掛けもされている。
それが、If関数だ。
A2セルが、ゼロなら、A3セルにゼロを代入し、
ゼロでなければ、A3セルの値を計算し直す度に１増加させる。
これで、最初に、A2にゼロを入力して初期化してから
A2に1を入力すると、A3が1になり、以下
計算し直すたびにA3の値が1ずつ増加することになる。

なお、計算をし直せ（「再計算」という）という命令は、
三四郎の場合、shift-F2で行われる。（続く）

ごじら＆こﾞし゛ら05

「ごじらを逆さまに」問題の、くまぷーさんの解答が紹介された。

http://kumapooh.justblog.jp/blog/2007/04/7_525a_1.html

くまぷーさんの得意技、循環参照を使った、見事な、「名人芸」。

さすがは、くまぷーさん。

対する、悪児版は、全くの「正攻法」。

基本的なワークシート関数だけで、（式はちょっと長いですが）解いています。

興味のある方は、こちら（↓）からＤＬして、ご覧下さい。(^^)ゞ

http://homepage3.nifty.com/r-watanabe/nani/akjRyu.htm

ほのぼの

電車が駅間で停まった。何だろう、と思っていると、
線路にものが置いてあるので、停車しました。
暫くお待ち下さい、とのアナウンス。
ものが置いてあるって、何なのか、どうするのか、
と思っていると、運転士が運転台の横のドアを開けて
線路に下りていくのが見えた。
何人か、席を立って、前に見にいったが、
悪児は、パソコンをいじっていたので、出遅れ。

そのうち、立って見ていた人が戻りはじめ、
運転士も戻ってきた。
お待たせしました、発車します、
とのアナウンスと共に発車。

そうそう、電車は２両編成でワンマン運転。
アナウンスもすべて運転士がしたのだった。
ＪＲだったら、運転士が下りるのでも、
危険を知らせる防護無線だったかな、
それを鳴らして周囲の電車を全部止めちゃって、
大事になったんじゃないかな。

それに比べると、のどかなことよ。
と、何かほのぼのとした気分になったのでした。

あじさい茶屋のラーメン

昨日のお昼は、時間がなくて、
駅の立ち食いそば、しかない、(;_;)(;_;)

ということで、亀戸駅のあじさい茶屋に入った。

いつもなら、無難なところで、
天ぷらそばか、カレーうどんなんだけど、
どっちも食べたくない気分。
で、まさか、美味しくないだろう、
と思っていた、ラーメンを試してみることにした。

結論から言うと、
結構、食べられるのである。
最近のラーメン専門店の、
「おいしすぎる」→「くどすぎる」
ものとは全然違った、あっさり＆素朴な味。
化学調味料も抑え気味で、
値段を考えると、大健闘。(^^)(^^)

ときどき、食べよ～～っと。(^^)(^^)

ナガミヒナゲシ

長実雛罌粟（ながみひなげし）  
　

　

　

　

　

隅田公園(07/4/15)

今、あちこちで咲いてますね。(^^)(^^)

－－－各種メニューはこちらから－－－
　　→花ＩＮＤＥＸ　　　　→ブログメニュー　
－－－－－－－－－－－－－－－－

日本でも銃撃

銃を持てないはずの日本社会で、
銃を持っている奴がいる。

銃を持っているだけで、
即実刑２年、
そんな重罰が必要なのでは？

そして、飲酒運転と、
政治家の脱税＆収賄、
弱者（年寄りやホームレス）を狙った犯罪。

これも、もっと、重罰化するべき。

まったく、腹立つなぁ・・・(-_-;)(-_-;)

銃乱射

相変わらず、
銃規制のできないアメリカ・・・

ここまで書いて、
もう言葉が出なくなった・・・(-_-;)(-_-;)

貴婦人（小田代ヶ原）

中央の白樺が、貴婦人と呼ばれている。

　

　

　

皆さんは、どの貴婦人が
一番素敵だと思いますか？　(^^)(^^)

左：夏(2006.08.10：小田代ヶ原<奥日光)
中：秋(2006.10.10：小田代ヶ原<奥日光)
右：冬(2006.02.22：小田代ヶ原<奥日光)

－－－－－各種メニュー－－－－
　　→　日光(等)の名所＆景勝地　　　　→ブログメニュー　
－－－－－－－－－－－－－－－

寒かった

今日は、寒かった。
もちろん、薄着をしているからだけど。

雨も降っていたし、
コートを着て出れば良かった。(^^;)(^^;)

ミヤビ（桜）

雅

色合いが良いなぁ。  

　

　

　

左と中：咲き始め　隅田公園(07.3.30)
２週間後に行ったら、
右：終わりでした　隅田公園(07.4.15)

来年は、満開を見るぞ　(^^)ゞ

→花ＩＮＤＥＸ

ハナミズキ（白）

白も咲いていました。
中は、つぼみ、なんでしょうか。(^^;)(^^;)

　

　

　

　

　

隅田公園付近(07.4.15)

－－－関連ページはこちらから－－－
　　→　ハナミズキ(赤)　　→　ハナミズキ(紅葉＆実)　　
－－－各種メニューはこちらから－－－
　　→　花ＩＮＤＥＸ　　→　ブログメニュー
－－－－－－－－－－－－－－－－

　

ハナミズキ（赤）

花水木が咲いていました。  

　

　

　

　

　

隅田公園(07.4.15)

－－－関連ページはこちらから－－－　
　　→　ハナミズキ(白)　　→　ハナミズキ(紅葉＆実)　　
－－－各種メニューはこちらから－－－
　　→　花ＩＮＤＥＸ　　→　ブログメニュー　
－－－－－－－－－－－－－－－－

ごじら＆こﾞし゛ら04

こんどは、次のような問題がだされた。

問題：A1に入力された「ごじら」をB1に「らじご」と表示させる。

　　　ただし、下のような決うちは不可。

　　　=Right(A1,1) & Mid(A1,2,1) & Left(A1,1)

　　　A1に入る文字数は不定。A1に「きんぐぎどら」とあれば

　　　　　　　B1に「らどぎぐんき」と表示させる。

これは、難問です。ただ、最大文字数が１０文字くらいなら、

簡単にできる。上限は、２０文字くらいかな・・・(^^;)(^^;)

風

ＪＲの電車が、２分ほど遅れて、
でも、接続する私鉄の電車は
待ってくれないから、
走ったけど、乗れなくて、
吹きっさらしのホームに立ったら、
急に風が強くなって、寒くなった。
乗れてれば、寒くなんかないのに、
と思うと、さらに腹が立つ。(-_-;)(-_-;)

何の天ぷら？

昨日、いつものおそば屋さんで、
いつも通り、せいろ２枚を食べていたら、
野菜の天ぷらがいくつか出てきた。

その１つに、
12cmくらいの細長いのがあったが、
これが食べてもなんだか分からない。
美味しくて独特の食感があって・・・

あとで、女将さんに聞いたら、
エリンギの天ぷらだそうな。

エリンギの天ぷらは、
初めて食べました。(^^)(^^)

ごじら＆こ゛し゛ら03

次は、

A1に全角カタカナの「ゴジラ」をバラバラにして逆さまにして欲しい。

だそうだ。

http://kumapooh.justblog.jp/blog/2007/04/4_476a.html

やってみました。

三四郎じゃあんまり簡単なので、Excelでも。(^^)ゞ

ごじら＆こ゛し゛ら02

こ゛し゛らを18文字以下で「ばらばら」にする、「方法」

１．「右詰」

A2に、

=Left($A1,Col(A1))

E2まで、右コピー。

A2:E2のセル書式－配置－横位置を右詰にし、セルの列幅を１文字分にすると・・・

２．さらに「ずる」

A2に

=Mid($A1,A8,1)

E2まで、右コピー。

A8からE8に、1,2,3,4,5を入力すると・・・

３．Mid以外。

Foldをつかう。

=Fold($A1,1,Col(A1))

これは、「ずる」じゃ、ありません。(^^)ゞ

ごじら＆こ゛し゛ら

くまぷーさんの
「教員のための三四郎活用講座」で、
A1セルに入っている「ごじら」をばらばらにせよ
という問題が提出された。
B1～B5に数式を入れて、
B1に「こ」、B2に「゛」、B3に「し」、B4に「゛」、B5に「ら」
と表示させるのである。

http://kumapooh.justblog.jp/blog/2007/04/3_2b1b.html

なお、式は、各セルに別々に入れるのではなく、
B1に入れた式をB5まで「右コピー」するのが「お約束」

もちろん、すぐに作った。

=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

当然といえば当然だが、
これは、べべちゃんの解答と全く同じ。

ところが、今度はそのべべちゃん、
「ごじら」ならぬ「こ゛し゛ら」なら、
三四郎で、「等号を含めて１８文字！！」でできる、
とおっしゃってるではないか。

やってみた。

=Mid($A1,Col(G1),1)

とこが、文字数を数えると、19文字！！
一文字多いではないか。
ううん、ちょっと困ったが、できない、じゃ、情けない。

ちょっと「ずる」しても、ってことで、考えた。

まずは、「右詰」を使った。これだと、ジャスト１８文字。
これかなぁ～～(^^;)(^^;)

それからもっと「ずる」をして、１４文字とか、
Midを使わずに、２０文字、なんていうのも考えた。

ところが、その後くまぷーさん曰く。
１８というのは数え間違えで、１９文字だった。
あちゃ～～　＿|￣|○

スキャナー故障？

スキャナーが、いやな音を立てている。

スキャン後、元に戻るときに、
カチンカチンという、
何かに引っかかるような音がする。

アーコレード（桜）

アーコレード（桜）

　

　

　

　

イギリス産の桜だそうです。春だけでなく秋にも咲くそうな。

2007.3.30（隅田公園）

→花ＩＮＤＥＸ

短期記憶が・・・

駅前に郵便ポストがある。
出がけに、郵便ポストに入れていこうと、
葉書を鞄に入れる。
駅まで３分。

ポストの前を素通りして、
電車に乗ってしまう。

気がついたのは、電車に乗ってから。(^^;)(^^;)

そんなことが、３回に１回はある。

なんで、覚えていないんだろう・・・(-_-;)(-_-;)

筍の味噌汁

昨日、前の家から、筍をたくさん頂いた。
ご主人の趣味が、「筍掘り」で、
毎年今頃になると、掘りたての筍を頂く。

小さいのを選んで、早速味噌汁にした。
おいしいねぇ。＼(^o^)／

あとは、ゆでで、煮物などに・・・(^^)(^^)

ブログ開始

悪児の「ちょっと独り言」をブログでやってみようと思います。

まだ、なにも分からない状態で、やっているので未定ですが、

カテゴリーでいろいろ分けることもできるようなので、

「ハイキング日記」や、マクロ解説なども、こちらでやれたら、

と思っています。

まずは、ぼちぼちと・・・(^^)ゞ

さて、過去に遡っての投稿もできるようですね。

他に書いていた日記を移植します。(^^)ゞ

シャガ

漢字では、著莪

　

　

　

　

アヤメの仲間だそうです。
井の頭公園（07.3.23）

→花ＩＮＤＥＸ

当選

昨日、
Just MyShopから荷物が届いた。
何も買った覚えがないのに・・・
と思いながら、開けてみると・・・
JUST Suite 2007の
購入者に当たるデジカメバッグに
当選したのだった。＼(^o^)／

この手のものには当たったことがなかったので、
プレゼントの存在自体すっかり忘れていたのだった。(^^;)(^^;)

悪児 / 2007年 4月 6日 17:44 [ 編集 ]

今日は、ウド

今日はウドを食べた。

献立は、

ウド、タラの芽、筍の天ぷら(*)
ウドの酢味噌和え(*)
ウドの皮のきんぴら(*)
サバの塩焼き(*)
ウドの吸い物(*)
ほうれん草のお浸し
ぬか漬け

天ぷらが、結構上手くできた。(^^)(^^)
吸い物はちょっとダシが利きすぎでくどかった。
でも、全体として、満足。

なお、(*)が悪児の作ったもの。(^^)ゞ

惜しかった・・・

千鳥ヶ淵でみぞれが降ったようですね。

こうなると惜しいのが、この前の初雪。
あれがなければ、
今冬の東京の初雪が４月という、
とんでもない珍記録が生まれたのに・・・(^^;)(^^;)

菜の花とアンチョビのソテー

今日は、イタリアンを食べたが、
一押しが、
菜の花とアンチョビのソテー

菜の花をアンチョビと微かなニンニクを加えて
オリーブオイルでさっと炒めたものだが、
菜の花の香りと苦みがほどよく残って、
とても美味しかった。

自分でも作れるかな？　(^^;)(^^;)

コート

昨日は、暖かくて、
コート無しで出勤したのに、
今日はまた、コートの出番。

昼間は、コート無しで外出してもOKだったけど、
夕方からは、コート無しじゃちょっと寒い。

寒い、暖かいを繰り返して、
だんだん暖かくなるのはいつものことだけど、
着るか、着ないか、
判断に迷う季節でもありますなぁ。(^^)ゞ

オオシマザクラ

言問団子のお店の前の大島桜  
　

　

　

まだちょっと早いようですが・・・

そのすぐそばの隅田川沿いの木は、満開でした。

　

　

　

左：薄いピンクのソメイヨシノの中に薄い緑
中：白い花と、緑の葉
右：清楚な白い花
07.3.30（隅田公園）

－－－－－各種メニュー－－－－
　　→花ＩＮＤＥＸ　　　　→ブログメニュー　
－－－－－－－－－－－－－－－

フォーラム@nifty終了

フォーラム@niftyが終了した。

パソコンを使い始めたのは、２０年以上前。
パソコン通信で、他の方とコミュニケーションが
できるようになったのが、十数年まえ。

もちろんINも普及せず、
mixiなんて、存在しなかった頃のことです。

時代の流れとはいえ、残念至極・・・(^^;)(^^;)