Excel Maniacs

暗号化・復号化(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: 山口百恵～最後の言葉と「さよならの向う側」