Excel Maniacs

表計算一筆書き・画像付き一覧

　表計算一筆書き・全５２作の画像付き一覧を作りました。

懐かしの一作・思い出の一作が蘇ります。

よかったらご覧下さい。

http://www.geocities.jp/kuma_pooh1958/sub7.html

エクセル・三四郎で方程式【問題】

【問題】

下図のようにA2にｘの1次方程式が入力されている。

この式の解をF２に表示したい。どのような式を

入力したらよいか？

＊

＊

＊

＊

＊

★補足

１．文字は全て半角で入力されている。

２．右辺は定数のみ（変数ｘがあるのは左辺だけ）

３．左辺・右辺ともにきちんと整理されている。

　　つまり、3x-2-3=5+1ならば3x-5=6　に整理済みとする。

三四郎2008で分数 （解答例）

問題はこちら

解答例：

約分処理をどうやるかがポイントになります。

約分するには分子・分母をこの二つの数の最大公約数で

わればよいので・・・・

E1:答えの分子：=(A1*C2-C1*A2)/GCD(A1*C2-C1*A2,A2*C2)

E1:答えの分母：=A2*C2/GCD(A1*C2-C1*A2,A2*C2)

ちなみにGCDが最大公約数を求める関数です。

三四郎２００９

　三四郎バージョンアップの案内メールが先ほど送られてきました。

　三四郎９から三四郎２００５にバージョンアップの時は

変わったのは名前だけと言ってもいいようなユーザーを

バカにしたものでした。（下記記事参照）

三四郎２００５の使用感（１）

三四郎２００５の使用感（２）

三四郎２００５の使用感（３）

はっきり言って三四郎２００７までは三四郎９とどこが

違うのかというような代物でしたが

２００８でやる気を見せてCountIf関数とSumIf関数を実装しました。

そして案内を見ると今度の２００９では

１．アンドゥー５０回まで可能

２．条件付き書式の実装（もし、斜線が引けるならExcelより上です）

３．セル内改行を実装

これならばExcel２００３と同等でしょう。（何でExcel２００７と

比べないかって？！おいら、Excel２００７のUIにいまいち

馴染めないから、持っているけどあんまり使っていないんです(^^ゞ）

三四郎２００９は３０００円以下で手に入るのですから、これは

買いです。おいらも一つ買いますよ。(^^ゞ

三四郎2008で分数

　ジョー３さんが某所で仰っていたことを頂きました。

【問題】

*

*

*

*

上図のように・・・

A1：引かれる数の分子

A2：引かれる数の分母

C1：引く数の分子

C2：引く数の分母・・・とすると

E1、E2にはそれぞれどんな数式を入れればよいか？

但し、答えが０になったり、負になる場合は

考えなくて良いものとする。

★解答例はこちら

一太郎２００９に望むこと

　今年は新一太郎の予約受付のメールが来ないので

来年の２月には一太郎はバージョンアップしないのだろうと

思っていたら、きっちーさんによると今、RC（発売前の評価版）を配っているらしい。

くまぷーのところにはRCが配られてこないので、ひとつ改良を

お願いしたいところをここに書いておこう・・・（どうせ、JustSystemの

人は見てはいないと思うけど・・・）

　改良を望む点は正規表現の機能である。現在は正規表現を

使って検索することはできるのだが、正規表現を使って置換することが

できない（ようだ、たぶん）。これではあまりにも中途半端なので

是非、正規表現を使って検索・置換ができるようにして欲しい。

これができればとても便利になると思うし、ワードにはない機能だけに

一太郎のセールスポイントになると思うのだが・・・

　ナレッジウインドウだの（編集画面を狭くするだけで邪魔）、

一太郎メイクだのリラックスビュウ（見かけはどうでもいい）だの

はいいから、本質的なところで勝負してもらいたいものだ。

一太郎２００９

　確か例年だと、この時期になるとJustSystemは

来年２月発売に向けて、一太郎や三四郎など、

バージョンアップの宣伝をしていたと思うのだが

今年はやらないようだ。一太郎２００９は出ないのかな？

整序問題作成マクロ一太郎版

【´･ω･`】:一太郎マクロで「整序問題作成」を作ってみたよ。

            ワードVBA版と同様に語句のグループ化をすることができる。

　　　　　システムマクロとして登録すると便利だよ。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このマクロの使用によっていかなる損害が生じようと、
　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「整序問題作成Ⅱ」（一太郎版）

使用ソフト一太郎２００８

機能　　英文など半角スペースで区切られた語句を選択すると、その語句の頭に記号を付けてをランダムに並べ替える。

グループ化したい語句を半角のかっこで囲むと

　　その語句はひとまとめにして扱われる。

   
実行法　

１．グループ化したい語句があれば半角のかっこで囲む
２．マクロを作用させたい範囲（並べ替えをしたい語句）を選択
３． 「ツール」「マクロ」「実行・編集」「整序問題作成」を実行

例１）
I've never seen such a beautiful lady as your sister.

                                       ↓
I've never 《 ｱ. seen  /ｲ. a  /ｳ. lady  /ｴ. such  /ｵ. beautiful  》 as your sister.

例２）
I've never seen such a (beautiful lady) as your sister.

　　　　　　　　　　　　　　　　　　　↓
I've never 《 ｱ. beautiful lady /ｲ. such  /ｳ. a  /ｴ. seen  》 as your sister.

TARO_Macro_Seijo01.lzhをダウンロード

★一太郎マクロ関連

一太郎マクロ初心者奮戦記

一太郎マクロ初心者奮戦記Ⅱ

一太郎マクロでゲーム作成

★ワードVBA版

整序問題作成マクロ

括弧穴埋め問題作成マクロ

整序問題作成マクロⅡ（２）

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このマクロの使用によっていかなる損害が生じようと、
　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「整序問題作成Ⅱ」

機能　　英文など半角スペースで区切られた語句を選択すると、その語句の頭に記号を付けてをランダムに並べ替える。

※「整序問題作成」からの改良点

　　グループ化したい語句を半角のかっこで囲むと

　　その語句はひとまとめにして扱われる。

   
実行法　

１．グループ化したい語句があれば半角のかっこで囲む
２．マクロを作用させたい範囲（並べ替えをしたい語句）を選択
３． 「ツール」「マクロ」「マクロ」「整序問題作成」を実行

整序問題作成ⅡWordMacro002_2009_06_22.lzhをダウンロード 

マクロはツールバーに登録すると便利です(^o^)

やりかたはこちら

ワード　Word VBA 教員用

整序問題作成マクロⅡ（１）

　以前、整序問題作成マクロをワードで作って

公開しましたところ、評判がかなりよくて作者としては

嬉しい限りです。

　さて、その際にある方から以下のようなご意見を頂きました。

（要約）整序問題を作る時に単語をグループ化出来るように

して欲しい。

　つまり、整序問題作成マクロでは

　下のような英文が・・・

＊

＊

１．範囲選択をする。

＊

＊

＊

２．メニューをツール、マクロ、マクロと辿りダイアログボックスを出しShuffle_Writeを実行すると以下のようになる。

＊

＊

・・・という機能だったのですが

例えば,全ての単語をばらばらにするのではなく a beautiful lady は

ひとまとめしておきたいならば下図のようにその語句を

半角のかっこで囲む・・・

＊

*

*

*

・・・そして範囲選択してマクロを実行すると

*

*

＋

＊

＊

・・・上図のようになる。

＋

★整序問題作成マクロⅡの仕様

「整序問題作成マクロ」の機能に加えて単語のグループ化の

機能をもつ。グループ化する単語は半角のかっこで囲む。

（続く）

暗号化・復号化(8)

　下のコードは文字列を生の文字コードに（マクロ暗号化）、生の文字コードを文字列に変換するコード（マクロ復号化）です。生の文字コードでは

ダメだというならば前回、書いたとおり「０～９、A～F」を適当な文字に

置換するコードを「マクロ暗号化」の最後に付け加えるという手もあります。

（その時には、マクロ「復号化」の頭にもとの文字に戻す処理を

加えて下さい）

'------------------------------------------------------------

Sub 暗号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long

   
    CharaCnt = Selection.Characters.Count
   
   
    For i = 1 To CharaCnt
        If (AscW(Mid(Selection.Text, i, 1)) > 30) Or (AscW(Mid(Selection.Text, i, 1)) < 0) Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum
            Selection.Collapse
            Selection.MoveRight wdCharacter, 1, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub

'------------------------------------------------------------
Sub 復号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long
   
   
    CharaCnt = Selection.Characters.Count
   
    For i = 1 To CharaCnt
        If AscW(Mid(Selection.Text, i, 1)) > 30 Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum \ 4
            Selection.Collapse
            Selection.MoveRight wdCharacter, 4, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub

暗号化・復号化(7)

【´･ω･`】:実は今回の「暗号化・復号化」は「暗号化・復号化(5)」と

　　　　　「暗号化・復号化(6)」で書いたAlt + x で文字コードを文字に、

　　　　　または文字を文字コードに変換できることに気づいたところから

　　　　　全てが始まった。

（●｀ε´●）：　「これは遊べる！！」と喜んでいたな。

【´･ω･`】:うん、「くまぷー」が「304F307E307730FC」になるのは

　　　　　暗号を連想させた。一文字一文字、手で変換するのは

　　　　　かったるいから、VBAで自動化しようというのは当然の

　　　　　なりゆきだった。とりあえず記録マクロで調べてみると

　　　　　流石、ワード！！ちゃんとこれに対応するメソッドが

　　　　　用意されていたのだ。

（●｀ε´●）：それが「ToggleCharacterCode」というわけだな。

【´･ω･`】:うん。それでは、まずはマクロ「暗号化」の考え方から

　　　　　　１．暗号化したいテキストの最初から一文字ずつ

　　　　　　　　「ToggleCharacterCode」を実行する。

　　　　　　２．その際、制御文字は無視する。

　　　　　　３．文字コードのままでは暗号化と言えないと

　　　　　　　　いうことであれば、3を@というように置換してやる。

　　　　　つぎにマクロ「復号化」の考え方を・・・

　　　　　１．上記３でやった反対の操作をおこなう。

　　　　　　　たとえば@を3に置換する。

　　　　　２．　先頭から4文字ずつひとまとめにして

　　　　　　　「ToggleCharacterCode」をかましていく。

　　　　　３．その際、制御文字は無視する。

（続く）

　　　　　

暗号化・復号化(6)

さて、前回の「暗号化・復号化(5)」は読んで頂けたでしょうか？

それではもう一つ、実験してみましょう。

ワードを立ち上げて下さい。

「くまぷー」と入力して下さい。

１．「く」を選択してAlt+xを押して下さい。

２．「ま」を選択してAlt+xを押して下さい。

３．「ぷ」を選択してAlt+xを押して下さい。

４．「ー」を選択してAlt+xを押して下さい。

SHZAAM！！

この手を使えばWordの暗号化・復号化が上手くできるはずです。

これなら、字体も維持されるでしょう。

暗号化・復号化(5)

　それでは、Wordを立ち上げて、ちょっとした実験を・・・

まずは日本語IMEをOFFにして・・・

１．304fと入力してAlt+x

2. 307eと入力してAlt+x

3. 3077と入力してAlt+x

4. 30fcと入力してAlt+x

さあ、なにが起きるでしょう？　シャザーン！！SHAZZAM！！

暗号化・復号化(4)

【´･ω･`】:さてExcel版の「暗号化・復号化」ではかずさんが

　　　　　遊んでくれたので、こんどはWordで「暗号化・復号化」を

　　　　　やってみよう。

　　　　　　ほんとうのことを言えばおいらはWord VBAはあんまり

　　　　よく知らないので自信がないのだが生まれついてのお調子者だから

　　　　仕方がない。

　　　　仕様：大雑把ではあるが、テキストの暗号化。ただしオートシェイプだの

　　　　コメントだの、図表の中のテキストは無視。

　　　　さて、遊んでくれる人はいるかいな？

暗号化・復号化(3)

それではマクロ「暗号化・復号化」の中身をご覧下さい。

’------------------------------------------------------------

Sub 暗号化_復号化()
　  Dim KeyNum As Integer
    Dim StartRow As Long, StartCol As Long
    Dim EndRow As Long, EndCol As Long
    Dim X As Long, y As Long
    Dim Length As Long
    Dim Text
    Dim S As String, NewText As String
    Dim CodeNum As Long
    Dim i As Long
    Dim Ans As Integer
   
    Ans = MsgBox("選択範囲を暗号化→複合化　または　複合化→暗号化します。" & vbCrLf & "よろしいですか？　(＾o＾)b", vbYesNo)
    If Ans = vbNo Then Exit Sub
       
    StartRow = Selection.Row
    StartCol = Selection.Column
    EndRow = StartRow + Selection.Rows.Count - 1
    EndCol = StartCol + Selection.Columns.Count - 1
    Application.ScreenUpdating = False
    On Error Resume Next
    For X = StartCol To EndCol
        For y = StartRow To EndRow
            Text = Cells(y, X)
            If Range(Cells(y, X), Cells(y, X)).HasFormula Or Text = "" Then GoTo BEBE
            Length = Len(Text)
            
                NewText = ""
                For i = 1 To Length
                     S = Mid(Text, i, 1)
                     CodeNum = AscW(S)
                     CodeNum = CodeNum * -1
                     S = ChrW(CodeNum)
                     NewText = NewText & S
                Next
                Text = NewText
            
            Cells(y, X) = Text
BEBE:
        Next
    Next
    Application.ScreenUpdating = True
End Sub

'------------------------------------------------------------------------------------

赤字の行をご覧になればお分かりのように

取り出した文字コードに-1を乗じています。

従ってもう一度このマクロを実行すれば

暗号化された文字が復号化されます。

　みなさんが、この赤字の部分をお好きなように変更すれば

みなさん、独自の暗号キーになります。

★暗号化する場合の例

CodeNum = CodeNum + 123

★上記を復号化する場合の例

CodeNum = CodeNum - 123

　１２３を加えただけですから１２３を減じれば

元に戻るというわけです。

暗号化・復号化(2)

　暗号化するのに何をやっているかというと

1. セル内の文字列を一ずつ取り出す。
2. その文字コードを取得する。
3. そのコードを一定の規則により変換する。
4. その変換済みのコードに対応する文字を
   セルに書き戻す。

・・・ということです。

単純ですね(^^ゞ

単純ですけど３のところの「一定の規則」を

自分勝手に作れるから、よっぽど大事なことが

書かれているとわかっているファイルでなければ

わざわざ復号化するヒマ人は数少ないと思われます。

サンプルファイルをアップします。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

免責　このマクロの使用によっていかなる損害が生じようと、

　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「暗号化_復号化」

機能　　選択部分を暗号化、または復号化する。

実行法　１．　暗号化または復号化したいセルを選択する。

　 ２．　マクロ「暗号化_復号化」を実行する。

　 ３．　暗号化されているセルを選択し、もう一度

　　　　マクロ「暗号化_復号化」を実行すると復号化される

Angou.xlsをダウンロード

注意：phonetic関数が参照するセルにマクロ「暗号化_復号化」を

使用するとフリガナ情報が消えてしまいます。これは

仕様です(^^ゞ

暗号化・復号化(1)

【´･ω･`】:この頃、USBメモリをなくして懲戒されている教員の

　　　　　新聞記事をよく見るな。

（●｀ε´●）：おまえは粗忽者だから一番危ないな。個人情報漏洩には

　　　　　　　気をつけないとな！！

【´･ω･`】:うん、粗忽者だということは十分自覚しているから・・・

　　　　　万が一に備えてエクセルの暗号化マクロというのを

　　　　　考えてみたよ。

（●｀ε´●）：どんなんだ？

【´･ω･`】:下のような成績を入力したワークシートがあるとして・・・

　　　　　　暗号化したい部分をマウスで選択して

　　　　　　マクロを実行すると・・・・

＊

*

*

*

*

*

*

*

（●｀ε´●）：すると？

【´･ω･`】:下のように暗号化される。

＊

*

*

*

*

*

*

（●｀ε´●）：これなら、誰かに拾われても文字化けにしか

　　　　　　　見えないな。

【´･ω･`】:暗号化としては簡単な部類だけど、運悪く

　　　　　　これを復号できる人にUSBメモリを拾われる確率は

　　　　　かなり低いと思うが・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

Word VBA.for teachers

I wrote two programs in Word VBA.for teachers. One is famous “Word Find”. I know we can find this sort of program anywhere on the net but I made it because I wanted to. (^^ゞ The other is “What’s the correct word order?” program, with which teachers can make a word-order-quiz easily. My colleagues are very happy with these. So I’d like to give you a rough explanation about these.

Open the document.(Word_Find.doc, What’s_the_correct_word_order.doc)
Both documents contain macros. So when you open the documents,you get a warning to ask you if you disable the macros or not . Please enable the macros to run them properly.
-----------------------------------------------------------------------------------------------------------------
★Word Find
It is a kind of puzzle game. The objective of the game is to find words which are hidden within an array of letters. As you know, the word might be located in any direction (left to right, right to left, top to bottom, bottom to top, top left to bottom right, bottom right to top left, bottom left to top right and top right to bottom left). Students can enjoy solving this puzzle because it is fun, and they have to pay much attention to the spelling of the words. So it has great benefits in educational point of view.
And it is also good just for killing time. (^O^)

*

*

*

*

*

*

★How to Use.
1. You can type the words up to 20 in the “Word List”. But it takes a long time to make a worksheet with 20 words, so I strongly recommend for you to make a list of words 18 or under.
2. The length of a word must be 12 or under.
3. If you want to make a puzzle more difficult, please check the check box ,and blanks will be filled with alphabets at random..
4. Click the “Start” button to run the macro. That’s all you have to do.

★DOWNLOAD WORD_FIND.doc
----------------------------------------------------------------------------------------------------------------
★What’s the correct word order?
It will help you a lot to make a word-order test. You can save your time making a test by using this program.
Each test has up to ten questions. First, you type 10 sentences or under in the list and next select text that you want to shuffle. Then you press Shift + Ctrl + q at a time, and the words you selected will be shuffled , separated with a slash automatically and copied to the examination paper for the students. If you don’t like the result that was made by the computer, you can remake the question by just repeating the steps you did, that is, just to select the text and press Shift + Ctrl + q. In order to complete the examination paper, you repeat the steps as necessary, at the most ten times. You might feel Ten Times is too much, but computer can never know which words to select. That is up to you. (^^ゞ

*

*

*

*

*

*

★Download whats_the_correct_word_order.doc

こちらこそ・・・ありがとう m(__)m

【´･ω･`】:む印さん、からメールを頂きました。私信なので

　　　　　　ここに無断で載せてしまうのは反則なのですが

　　　　　　ここで楽しい時をいっしょに過ごした常連さん達にも

　　　　　　是非、読んで頂きたくて敢えて反則をしてしまいました。

------------------------------------------------------------

くまぷーさま、お元気でしょうか？
『表計算一筆書き』ではお世話になりっぱなしでしたが
最後のご挨拶をするタイミングを外してしまい失礼致しました。

前にも書きましたが、『表計算一筆書き』で集まった方々は
皆さんとても気持ちのいい方ばかりで大変楽しく過ごすことができ、
私にとって本当にいい思い出になりました。

これからも、ちょくちょく覗かせていただきますが
何か面白いことを思いつかれましたら、EWでお声をかけてくださいねｄ＾＾

本当にありがとうございました・・・

む印
------------------------------------------------------------

・・・そして、む印さんから、素晴らしい贈り物をいただきました・・・

みなさん、ご覧下さい。とてもしゃれた贈り物です。

む印さん、ありがとうございました。(^O^)

To_KumaPooh.lzhをダウンロード

ワード マクロ（Word VBA)でゲームを作成・・・

　ワード マクロ（Word VBA)でゲームを作成しました。

*

*

*

*

*

*

*

Excelでゲームを作るということはかなり一般的になってきましたので

敢えてワードを使ってみました。(^^ゞ

タイトル：Poker Complex

遊び方：「START」をクリックしてカードをシャッフル。５×５のパネルを

　　　　　クリックするとそこに「Next_Card」に表示されているカードが

　　　　　配置されます。

　　　　　　これを２５回繰り返して縦５つ、横５つ、対角線２つで合計１２の

　　　　　手を作り、なるべく高い点が得られるようにします。

得　点：ワンペア　　　　　　　　　　　　　　　　　　１０点

　　　　　ツーペア　　　　　　　　　　　　　　　　　　２０点

　　　　　スリーカード　　　　　　　　　　　　　　　　３０点

　　　　　フラッシュ　　　　　　 　　　　　　　　　　　４０点

　　　　　ストレート　　　　　　 　　　　　　　　　　　４５点

　　　　　フルハウス　　　　　　　　　　　　　　　　 ５０点

　　　　　フォーカード　　　　　　　　　　　　　　　　６０点

　　　　　ストレートフラッシュ　　　　　　             ６５点

　　　　　ロイヤルストレート                            ７０点

　　　　　ロイヤルストレートフラッシュ　　　　　　１００点

Poker_Complex.docをダウンロード

夏草や

兵どもが夢の跡・・・

もう一つの「７人の美女」

元ネタはこちら

【´･ω･`】:y sakudaさんからVBAでの回答を頂きました。

---------------------------------------------------------------------------------------

一筆書きの方がどうにもならなかったのでプログラムを作ってみました。
一応、対称や回転で同形になるものは省くようにしてありますが、
回転のチェックが十分かどうか今一つ自信がありません。
（８Queenまでは目検で確認したつもりですがｗ）
本気でやるなら、本当に回転させてマッチングしてアルゴリズムの確認を
取ったりするところですが、遊びですので、"多分"レベルでそれ以上の検証
はしておりませんｗ

こちらは１シートに出てきた図形を並べてますので、13以上になると2003では
シートがパンクするので、１２×１２で打ち止めにしました。
もっとも、１３ではパンクした4700パターンでまだ先が長そうでした。
（時間的には１２でも10秒程度で終わりました）

書き流しみたいなものですので、あちこち怪しげな代物ですが、座興と思って
ご容赦ねがいます^^
　　　　　　　　　　　　　　　　　　　　　　　　　　　（y sakudaさん談）

NQueenV2.xlsをダウンロード

表計算一筆書き（第５２問解答例）・・・７人の美女

保存してなかったので、自信がないが、
こんな式だったかなーーー。

３９文字
=LEFT("Q",OR(ROW()*2+COLUMN()={10,29}))
いづれにしても、完敗だからねーー

もう少し、短くなるように頑張ってみるけど、

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

表計算一筆書き（第５２問）・・・７人の美女

恒例ですが、一応ルール

セルＡ１に式を書く
それを、１１×１１にコピーする
７個のＱ（美女＝女王）が、出現する。
そのＱは、チェスのＱ
同じ列
同じ行
斜めにも、一緒にいてはいけない。
ただそれだけのルール。

・・・・・・・
配置？？
どうでも良いのだ（図はないのだ＝そんな？？！！ばかな？？）
おそらく、条件を満たす図は１億通り以上あるだろう。
・・・・・・・
そんな中での、最短の式は??・・・

って、わけで、

これは、はっきり言って、悪児さんが、得意だろう。

で、皆さんが気に入って下されば、うらもんもあるのだ。・・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き・・・一番好きな図柄は？

　「表計算一筆書き」も一応フィナーレを迎えました。

ここで今までをちょっと振り返って見ようと思います。

問題総数51題。一番好きな図柄は何だったでしょうか？

くまぷーの場合は・・・

一番：将棋

*

*

*

*

*

*

*

二番：御陵

*

*

*

*

*

*

*

*

*

三番：女王陛下の旗、たなびく下に

*

*

*

*

*

*

*

*

（●｀ε´●）：なんだ全部自分のじゃないか？！

　　　　　　　　遠慮というものを知らないやつだな！！

　　　　　　　バキッ!!(-_-)＝○（)゜O゜）アウッ!

みなさんは如何でしょうか？ 

表計算一筆書き（第５１問解答例）・・・白鳥座

　どうやらsakudaさんには見破られてしまったようです(^^ゞ

三四郎４１文字

=If(Std(Col(F6)^2,Row(F6)^2) MOD 7<1,"★")

Excel49文字

=LEFT("★",MOD(STDEV(COLUMN(F6)^2,ROW(F6)^2),7)<1)

・・・で、「白鳥座」の類題として

＊

＊

*

*

*

*

*

*

・・・「白鳥座Ⅱ」とか

*

*

*

*

*

*

*

*

*

・・・「軍配」とか

*

*

*

*

*

*

*

*

・・・「リボン」とか・・・

stdevのこの形の特徴は左上から右下への

対角線ですかね～(^^ゞ

表計算一筆書き（第５１問）・・・白鳥座

　本当は前回までの50問で終わりにするつもりだったのですが

常連さんからのカーテンコールに応えてもう一問ということになりました。

ありがとうございます。

＊

＊

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

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

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

＊

＊

＊

  *

*

*

*

*

*

*

  *

*

*

*

*

**

*

*

*

*

*

★くまぷーは現在沖縄に出張中なのでネットにアクセスできません。

どういう解答が提示されるか楽しみです。（実を言うと出題者は

まともな解答を用意していません）しばらく、顔を出せませんが

よろしくお願い致します。m(__)m

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き（第５０問解答例）・・・五輪

いよいよ、最終回です。みなさん、ありがとうございました。

　♪何億光年輝く星にも寿命があると教えてくれたのは

あなたでした～♪　　　　山口百恵「さよならの向こう側」より

いや～、山口百恵はよかったなぁ～、（ぜんぜん、関係ないけど）

私の知り合いの中には彼女を女神と崇め、結婚して出産した後でも

彼女が処女であると固く信じているものもおります－閑話休題－

さて、解答例ですが・・・

＊

三四郎４７文字

＊

=If(SumSq(Rows(A1:F$6)-4,Cols(A1:$F6)-4)=5,"*")

＊

Excel４８文字

＊

=LEFT("*",SUMSQ(ROWS(1:$6)-4,COLUMNS(A:$F)-4)=5)

＊

＊

＊

＊

YouTube: 山口百恵～最後の言葉と「さよならの向う側」

表計算一筆書き（第５０問）・・・五輪

　さあ、いよいよ最終回です。最終回のお題は「五輪」。

これは予告で「五大陸」と言っていた図柄です。

なるべく多くの方に解答を寄せて頂きたいと思い、

「白鳥座」に比べてシンプルな「五輪」をえらびました。

＊

＊

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

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

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

＊

＊

＊

*

*

*

*

*

*

*

*

*

*

*

*

*

*

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き・・・いよいよ最終回！！

　みなさんのお蔭で「表計算一筆書き」も次回で

いよいよ、第５０問目！！淋しいけれど涙のフィナーレです。

お題は「五大陸」または「白鳥座」のどちらかから

気分で出させて頂きます。(^^ゞ

ちなみに「五大陸」と「白鳥座」は別の図柄です。

題名が違うだけということではありません。(^O^)

表計算一筆書き（第４９問解答例）・・・インベーダー

この解答を送る時点では５５文字宣言のみ・・・
果たして、はじめの予想どおり、道はただの一本しか無いのでしょうか？

=LEFT("■",OR(ABS(COLUMN()-{3;9})+ROWS(1:$4)={3,7,8,9}))


　　（む印さん談）

表計算一筆書き（第４９問）・・・インベーダー

【´･ω･`】:いよいよ、オーラス近し、ラス前です。

　　　　　　出題者は、む印さん。お題は「インベーダー」・・・

　　　　　　お楽しみ下さい。

＊

＊

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

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

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

＊

＊

＊

*

*

*

*

*

*

*

*

＊

＊

＊

＊

*

*

*

*

案外簡単すぎるので
皆さん同じ答えになる恐れがあるので
ボツにしていた問題ですが・・・（む印さん談）
*

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き－いよいよ、最終章へ

　いよいよ、第４９問の登場間近・・・

出題者は、む印さん・・・

タイトルは・・・インベーダー

表計算一筆書き（第４８問解答例）・・・座蒲団1枚！( ^o^)ノ◆

【´･ω･`】:sakudaさんも仰っていますが出題者は

　　　　　　先入観があるのか、いい解答が浮かばないようです。

　　　　　（出題していない時もダメだろ、というツッコミは厳禁）

Aタイプ

三四郎（５９文字）

=If(SumSq(Cols($F11:K16)-2,Rows(K$6:P11)-2) IN {2,8,9,10},"*")

Excel

最初にやったもの（６１文字）

=LEFT("◆",OR(SUMSQ(COLUMNS(A:$F)-2,ROWS(1:$6)-2)={2,8,9,10}))

Excel

（６０文字）

=LEFT("◆",OR(SUMSQ(COLUMN()-6,ROW()-6)={0,4,8,16,17,20,18}))

Bタイプ

三四郎（６０文字）

=If(SumSq(Col(A1)-6,Row(A1)-6) IN {0,2,4,8,16,17,20,18},"*")

Excel

最初にやったもの（６３文字）

=LEFT("◆",OR(SUMSQ(COLUMNS(A:$F)-2,ROWS(1:$6)-2)={0,2,8,9,10}))

Excel

（６２文字）

=LEFT("*",OR(SUMSQ(COLUMN()-6,ROW()-6)={0,2,4,8,16,17,20,18}))

表計算一筆書き（第４８問）・・・座蒲団1枚！( ^o^)ノ◆

【´･ω･`】:いよいよ、４８問目。

　　　　　　気の利いた解答には・・・

　　　　　　山田くん、( ^o^)ノ◆ 座蒲団1枚！！

＊

＊

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

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

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

＊

＊

＊

＊

＊

＊

＊

*

*

*

*

*

*

*

3

（Aタイプ）

*

*

*

*

*

*

*

*

*

*

*

*

*

*

（Bタイプ）

*

*

*

*

*

*

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き・・・【お宝・第４７問解答例】

今回に限りませんが、自分の出題の時はどうも上手く行かない・・・・・
気合が入らないのか、先入観があるのかアイデアが出てきません。

私の一番短いものはハイブリッドの69どまりでした
=LEFT("\",OR(COLUMNS(A:$F)+ROW()=6,ISREF($K$11 (D3:H3,D5:H5,F1:F6))))

最初に考えた、縦線をRCで同時に引くハイブリッド（結局長くなっちゃう）72
=LEFT("\",OR(ROWS(1:$5:A$11)-COLUMNS(A:$F)=6,ISREF($K$9 (D1:H1,D3:H3))))

RC路線では、結局むりやりになり、最短は72
=LEFT("\",OR((ROW()-8)^2+COLUMNS(A:$F)^3={1,2,5,9,10,24,28,52,100,174}))

純RCならやはり↓の75の方がまともですね
=LEFT("*",OR((ROW()-{7,9})^2+(COLUMN()-6)^2={0;1;4},COLUMNS(A:$F)+ROW()=6))

なお、A式、K式もやってみましたが、A71、K72から進展しませんでした。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（y sakudaさん談)

表計算一筆書き・・・お宝【問題・その４７】

【´･ω･`】:今回はy sakudaさんが問題を送ってくれました。

　　　　　　表計算一筆書きの第４７問目です。ここまできたら

　　　　　　是非、５０題までは続けたいものです。

＊

＊

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

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

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

＊

＊

＊

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

難しい問題が続いたので、簡単なのもいかがかと思います。

お題は「お宝」です。

以前出たカクテルグラスの類似であれより簡単ですので、

普通に70文字台で誰でもできると思います。

ただし、究極の式がどのくらいになるかは神のみぞ知るですね～～

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(y sakudaさん談)

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

＜今回のルール＞

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

投稿時刻 午後 08時00

表計算一筆書き・・・米老鼠【解答例】

【´･ω･`】:今回も難しかったなぁ・・・それではminmaxさんの解答です。

　　　　　　ご覧下さい。

＊

＊＊

Ａ系部門
９１文字
=MID(" ●
●",AREAS($K$11(A:K,B7:D11,A8:E10,H7:J11,G8:K10,C3:I5,D2:H6,E1:G7,F3,E4,G4,F5)),1)

その他部門
８２文字
=LEFT("●",OR((3-ROW())^2+({3;9}-COLUMN())^2={4,5},COUNTBLANK(A9:$F$16)={1,4,8,9}))

表計算一筆書き・・・米老鼠【問題】

【´･ω･`】:今回はminmaxさんの出題です。ディズニーの

　　　　　　有名なキャラクターをモチーフにしています。

　　　　　　でも、ちょっと怪しげなので中国製の「米老鼠」です。

＊

＊

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

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

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

*

*

*

*

*

*

*

9

9

9

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

＜今回のルール＞

★Ａ系でやると比較的すんなり出来てしまうので、純Ａ系とその他の

部門ではっきり分けて解答を出してもらうようにして頂きたい

と思います。（minmaxさん談）

★コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き・・・タイフーン【解答例】

　いやあ、今回はここの常連さん達が怪物なんだということを

再認識しました。(^^ゞ

あの問題で７０台、そして６０台の解答がでてくるとは？！

こちらの解答例はまったくおそ松くんなんですが

行きがかり上、何も出さないわけにはいかないので・・・

Excel８６文字

=LEFT("★",ISREF($K$11 (11:11,A:A,B1:I1,J1:J9,C9:I9,C4:C9,C3:H3,H4:H7,E7:G7,E5:E6,F5)))

表計算一筆書き・・・タイフーン【問題】

【´･ω･`】:前に「ぐるぐる渦巻き」という問題があったが実は「ぐるぐる渦巻き」の

　　　　　原型はこの「タイフーン」であったのだ。当時、上手い解法が

　　　　　見つからなくてお蔵入りになったという曰く付きの問題だ。

（●｀ε´●）：出題するということは「上手い解法」が見つかったのか？

【´･ω･`】:いや、見つかっていないんだ。上手い解法は皆さんにお任せという

　　　　　ことだ。

（●｀ε´●）：いい加減なやつだな。

【´･ω･`】:否定はしないよ。　

＊

＊

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

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

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

9

9                                             

9

9

9

9

9

9

9

9

9

9

9

9

9

9

9

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

表計算一筆書き・・・手裏剣Ⅱ【解答例】

【´･ω･`】:いや～、参りました。とうとう４９文字の解法は

　　　　　　見つからずじまいでした。(^^ゞ

＊

Excel５５文字

=LEFT("★",MOD(STDEV(COLUMNS(A:$F)^2,ROWS(1:$6)^2),7)<1)

＊

三四郎５１文字

=If(Std(Cols(A1:$F6)^2,Rows(A1:F$6)^2) MOD 7<1,"★")

表計算一筆書き・・・手裏剣Ⅱ【問題】

【´･ω･`】:この問題のタイトルは手裏剣Ⅱ・・・

　　　　　くまぷーが三四郎でやってみたら、Excelよりも

　　　　　５文字短くできた・・・。

　　　　　この頃、悪児さんやきっちーさんを筆頭とする三四郎使いの

　　　　　姿が見えないのでひょっとしたら、二人を

　　　　　召喚できるのではないかと思い、この問題を出してみた。

　　　　　三四郎でくまぷーよりも短い式が作れるか？！

　　　　　いざ、尋常に勝負！！　

　　　　　（なんか、あっという間にたたき伏せられる予感・・・(^^ゞ　）

　　　　　そしてExcel使いの常連さん達！！

　　　　　三四郎よりも短い式が作れるか？！

　　　　　（これも、あっという間にたたき伏せられる予感・・・(^^ゞ　）

　　　　　

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

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

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

＊

＊

*

*

*

*

*

*

*

*

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

　　

表計算一筆書き・・・ 将棋【解答例】

【´･ω･`】:書き出し１５６を悪戦苦闘の末、８４まで縮めたのですが

　　　　　　上には上がいるもので、どうやら最短は８１のようです。

　　　　　・・・で頑張ったのですが結局、この８１はくまぷーには

　　　　　見つけることができませんでした。(>_<)

＊

＊

【解答例】

Excel８４文字

=IF(ISERR($K$10 B1:J9),"■",MID("香桂銀金王金銀桂香　角　　　　　飛　歩歩歩歩歩歩歩歩歩",COLUMN()-9*ROW()+89,1))

三四郎９９文字

=If(Max(Rows(A1:F$6),Cols(A1:$F6))=6,"■",Mid("香桂銀金王金銀桂香　角　　　　　飛　歩歩歩歩歩歩歩歩歩",Col(A1)-9*Row(A1)+89,1))

表計算一筆書き・・・ 将棋【問題】

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

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

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

＊

＊

*

*

*

*

*

*

*

*

*

*

※外枠（１・１１行、A・K列）には■が表示されています。

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

お知らせ

　「あり」に対するコメントがとぎれたので次回の予告です・・・

次回はジョー３さん好みの問題・・・

お題は・・・まだ秘密・・・

表計算一筆書き・・・あり【解答例】

【´･ω･`】:いや～、今回は４２文字最短で・・・

　　　　　　これで～、きまりですぅ～♪

　　　　　　これしかぁ～、ないのでっすう～♪

　　　　　　・・・と思っていたのですが、やはり

　　　　　　そうは問屋が卸さなかったようです。

【解答例】

★Excel４２文字

=LEFT("◆",MOD(ROWS(1:$6),COLUMNS(A:$F))=1)

★三四郎４２文字

=If(Rows(A1:$F$6) MOD Cols(A1:$F$6)=1,"◆")

【´･ω･`】:締め切りぎりぎりで３９文字で出来ました。

★Excel３９文字

=LEFT("◆",MOD(ROW()-5,COLUMNS(A:$F))=1)

表計算一筆書き・・・あり【問題】

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

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

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

＊

＊

  *

*

*

*

*

*

*

*

基本に戻って動きは無し、静止画です。

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*★既出問題と解答例はこちら

*

お知らせ

今週のお題はモスラ・・・

モッスラ～や♪

モッスラ～♪

・・・と思ったけど

やっぱり、「アリ」に決定！！