Excel Maniacs

表計算一筆書き・・・便利ツール

sakudaさんより、一筆書きの関係者のみなさんにということで

便利なツールを頂きました。このアドインをExcelに組み込んで

ポップアップメニューを表示させると････････

*

*

*

*

*

*

*

*

*

*

・・・「一筆書き」「一筆書き修正」「一筆書き準備」が追加されます。

以下、sakudaさんより、説明です。

****************************************************************************************

★アドインのインストール
　　（１）　ツール⇒アドイン⇒参照　から　Hitofude.xla　をインストールします。
　　（２）　↑の手順が面倒くさい方はExcelが起動していない状態で
　　　　　　Hitofude.xla　を同封の"アドイン関係\アドインインストーラ(含む再）1．1.vbs"
　　　　　　にドラッグ＆ドロップしてください。

２．使用法
　　（１）このアドインをインストールすると、セルのコンテキストメニュー（右クリックメニュー）に
　　　　一筆書き、一筆書き修正、一筆書き準備　が現れます。
　　（２）式を最初に試す場合
　　　　A．くまぷーさんのサイトで、試したい式をドラッグして選択状態にして⇒コピー
　　　　B．Excleに戻って、現シートの任意のセルを右クリック⇒一筆書き
　　　　C．ブックの最後に新規のシートが追加され次のように処理されます
　　　　　*　A1:K1に式がコピー
　　　　　*　A～K列は幅２に調整されます。
　　　　　*　A14にA1の式がテキストとして入ります
　　　　　*　A16:B16　に＝LEN（A14)が入り、式の長さが表示されます
　　（３）式を修正する場合
　　　　A．A1セルの式を修正します
　　　　B．任意のセルを右クリック⇒一筆書き修正
　　　　C．A1セルが全体にコピーされ、A14の文字列化した式も修正されます
　　（４）自分で式を作成する場合
　　　　A．白紙のシートで任意のセルを右クリック⇒一筆書き準備
　　　　B．列幅が調整され、A:16B16に＝LEN(A14)が入ります
　　　　C．A1に式を入れ、右クリック⇒一筆書き修正
　　　　　　これで、A1の式が展開され、A14にA1の式がテキストとして入ります。

★選択部分取り出し

１．ツールの使用目的
　　くまぷーさんのブログから式をコピーする際、式全体をコピーし損ねる場合があります。
　　このツールは式の一部をドラッグして選択状態にしておけば、式全体をコピーしてクリップボードに
　　格納します。
　（たまに失敗することもありえますが・・・・）

２．ツールのインストールと使用法
　A．選択部分の取り出し.htm　を同封の　選択部分取り出し登録.vbs　のアイコンに
　　　ドラッグ＆ドロップします。
　B．この後立ち上げたIEで、テキストを一文字でも選択状態にして、右クリックすると、
　　　メニューに　"選択部分の取り出し"　が登場します。
　C．右クリックメニューで　"選択部分の取り出し"　を選択すると、一部選択されている
　　　式の全体がクリップボードに入ります。
     (例えば、　＞　=LEFT("*",(ROW()-6)^3*(COLUMN()-6)=(ROW()-6)*(COLUMN()-6)^3)　のような引用された部分でもOKです）

　D．選択部分の取り出し.htm　が登録されている状態で、再度ファイルを　選択部分取り出し登録.vbs
　　　にドラッグ＆ドロップすると、登録が削除されます。

　注．コンテキストメニューへの登録はレジストリの操作を伴いますので、使用は自己責任でお願いします。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

ダウンロードはこちら より。

トラブルの際の連絡先は
[email protected]

**************************************************************************************

sakudaさん、有り難うございました～(^.^/~~~

表計算一筆書き・・・女王陛下の旗、たなびく下に 【解答】

問題はこちらを参照。

【´･ω･`】:まず、基本解を示そう。文字数はそれほど短くはなっては

　　　　　　いないが、わかりやすくて上品な式であると思う。

【基本解・Excel】

=IF((ROW()-6)*(COLUMN()-6)*(ROW()-COLUMN())*(ROW()+COLUMN()-12),"","■")

（７１文字）

【基本解・三四郎】

=If(Row(A1)=6 OR Col(A1)=6 OR Row(A1)=Col(A1) OR Row(A1)+Col(A1)=12,"■","")

【´･ω･`】:基本技で解答を作ると７０文字強になるので初日の

　　　　　　文字数に関するコメントを実験的に「７０文字未満」と

　　　　　　「７０文字以上」に制限したというわけだ。

　　　　　　このことに関して悪児さんから・・・

＞問題提出の頃にちょうど仕事が忙しかった、という方も多いとおもいます。

＞ところが、１日もたたないうちに、６０切り、さらには、５０切りまで

＞飛び出しています。

＞２日ぐらいは、７０字切り程度で抑えておいた方が、いろいろな方の

＞解答が出るのではないでしょうか？

　　　　　・・・というご意見を頂戴している。その通りかもしれない。

　　　　　初日は文字数に関するコメントは一切禁止で、参加表明に

　　　　　止めておいた方がいいのかもしれない。この辺りのことを

　　　　　どうするかは解答を作るよりもはるかに難しい。

　　　　　幸い、次回の出題者は悪児さんなので、コメントに関する

　　　　　ルール（次回用）も提示していただけるとありがたい。m(__)m

【解答・Excel４９文字】

さて、Excel４９文字の解答を示そう。実は最初は５９文字であった・・・

・・・Modeを使った式・・・

=MODE(ROW(),COLUMN(),12-ROW(),12-COLUMN())

・・・は下図のようになる

*＝

*

*

*

*

*

よって・・・

=IF(ISNA(MODE(ROW(),COLUMN(),12-ROW(),12-COLUMN())),"","*")

これはこれできれいな式なのでもう減量の余地は無いかと思ったが・・・

やってみるとなんと12-ROW()か12-COLUMN()のどちらかを定数６と換えても

ちゃんと動くのだ！！

=IF(ISNA(MODE(ROW(),COLUMN(),12-ROW(),6)),"","*")

【解答・三四郎４３文字・・・ズル】

=If(Mode(Row(A1),Col(A1),12-Col(A1),6),"■")

上式を使うと下図のようになる。

*

*

*

*

*

三四郎はExcelと違い、エラーが赤で表示されるので

セルの背景を赤にして誤魔化したというわけだ。

表計算一筆書き・・・女王陛下の旗、たなびく下に 【問題】

【´･ω･`】:悪児さん、ジョー３さんと続いたあとでの出題は歌の上手な

　　　　　人のあとで歌うカラオケみたいなもんで、ちょっと気が引けるが

　　　　　つきあって欲しい。今回は単純な直線だけの図形だから

　　　　　割と考えやすいと思う・・・。それでも、どこからやればいいのか

　　　　　わからない方は以下を参考にして欲しい。必ず答が見つかるはずだ。

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

＊

＊

【問題】セルを利用して下のような図を描きたい。

　　　　一つのセルに入力した数式を他のセルにコピペすることで

　　　　図を描くにはどのセルにどのような数式を入力すればよいか？

*

*

*

*

*

*

*

（●｀ε´●）：集え、表計算フリーク達よ！！

　　　　　　　女王陛下の旗、たなびく下へ！！

＊

＊

※コメント即OK。ただし、本日中（10/30）、文字数に関しては

　７０文字以上、70文字未満という表現にとどめてください。

　例）

　９６文字→70文字以上

　５３文字→70文字未満

　明日（10/31）からは文字数に関するコメント、全面解禁。

※数式は11/3　（土）の午後８時までご遠慮を。

※セルの色は関係なし。

************************************************************************

三四郎で４３文字（ズル）・・・画像を追記　11/1午後８時

特殊フォントを使っているのではありません　(^^ゞ