【問題】
うちの孫が将棋盤に9個駒を並べました。同じ駒があるのは何ですか？
２種類以上の場合は、どちらでもいいです。
解答用参考ファイル： 20170821をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
解答発表は8/26（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
尚、状況によっては第11回の問題を8/26（土）の前に出題します。m(__)m
***********************************************************************
【問題】 王(青色)はjyo3の王。
残りの4枚はあなたの駒。F9を押してください。
５枚の駒の位置が変わります。飛・角・竜・馬が「王手」の位置に
来たら、セルZ9に「王手！」と表示させてください。
（ジョー3さん出題）
解答用参考ファイル： 20170813をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
解答発表は 8/19(土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
*******************************************************************
★sakudaさんからチエック用のファイルを頂きました。
お使いください。
【問題】 王・飛車(青色)はくまぷーの駒。
黒い角はあなたの駒。F9を押してください。
３枚の駒の位置が変わります。角が「王手飛車取り」の位置に
来たら、セルZ9に「王手飛車！」と表示させてください。
ただし、下図の場合は飛車取りではあるが王手ではないので除外する。
また下図の場合は王手ではあるが飛車取りではないので除外する。
解答用参考ファイル： 20170811をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
解答発表は8/12（土）8/14(月） 8/19(土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
*********************************************************************
★sakudaさんからチエック用のファイルを頂きました。
お使いください。
マクロ入り回答シートの使用法
１．問題シートコピーボタン
ボタンを押すと、ブックの最後に新しい問題シートが追加されます。
この際、現在のシートをそのままコピーしますので、回答欄の式やその他に入れたゴミもそのままになります
従って、不要なものは手動で消してください。
2．実行開始ボタン
チェックを開始します。
①チェック回数はループ回数欄で指定できます。
②上限は特にありませんが、空欄のままだと1000とみなします。
（画面の更新を殺してありませんので、1000回ですと1分くらいかかります）
③「王手飛車で停止」にチェックが入っていると、王手飛車のところでコードの実行を終了します。
④「誤判定無視」にチェックが入っていると、誤判定が起こってもそのまま継続します。
（チェックがない場合、ダイアローグが出て、続行と終了を選択できます。）
⑤チェック対象はZ9セルのみです。またチェックの際何か文字が入っていれば、王手飛車！とみなします。
（！が漢字でもアスキーでも良いようにしたためです。 極端な話、X一文字でも王手飛車！入っているとみなします）
【問題】 王(青色)はjyo3の王。
２枚の角はあなたの駒。F9を押してください。
３枚の駒の位置が変わります。角が「王手」の位置に
来たら、セルZ9に「王手！」と表示させてください。
（ジョー3さん出題）
解答用参考ファイル： 20170808をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
解答発表は8/12（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
尚、状況によっては第8回の問題を8/12（土）の前に出題します。m(__)m
***********************************************************************
【問題】 王(青色)はjyo3の王。
２枚の飛車はあなたの駒。F9を押してください。
３枚の駒の位置が変わります。飛車が「王手」の位置に
来たら、セルZ9に「王手！」と表示させてください。
（ジョー3さん出題）
解答用参考ファイル： 20170806をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
解答発表は8/12（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
尚、状況によっては第7回の問題を8/12（土）の前に出題します。m(__)m
***********************************************************************
駒落ち将棋（2枚落ち）
プロ4段藤井 対 アマ2段浄法寺
特殊ルール
藤井4段は王手の時は必ず王手！と言うこと
うっかり言わないと即負けとなります
緑セルから声を出してください
(だいぶ不利な浄法寺は王手ルールの禁じ手でしか勝つチャンスがないのだ）
（じょー3さん出題）
/////////////////////////////////////////////////////////////////////
sakudaさんから解答用参考ファイルを頂きました。見やすいです。
みなさん、お使いください。
*******************************************************************
皆さん要らないでしょうけど、今の問題のVBA入りブックです。
解答用参考ファイル： 20170730をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
尚、解答発表は8/05（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
***********************************************************************
＜問 題＞
C3の◯✕は勝敗表です（◯勝 ✕敗）
C7に最大で何連勝しているかを、、、
数値のみでOKです
尚 C3の勝敗表は対戦数可変です。 （からくちさん出題）
解答用参考ファイル： 20170724をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
尚、解答発表は7/29（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
***********************************************************************
友達４人の生まれた曜日、
同じ曜日に生まれた人がいたら〇を、バラバラなら×を
セルE5に表示させて下さい。 （じょー3さん出題）
解答用参考ファイル： 20170717をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
尚、解答発表は7/22（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
***********************************************************************
祝・藤井4段28連勝 PART2
問 題
C3に表示されている数の中で
最大値をC7に出してください
0～9の値です、、、C3の文字数は可変
条 件
Shift Ctrl Enter で確定は禁止
また次の関数は使用禁止とします
MAX・LARGE・MIN・SMALL
MID・LEFT・RIGHT
INDEX・SUMPRODUCT・MMULT
（からくちさん出題）
解答用参考ファイル： 20170710をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
尚、解答発表は7/15（土）の２０：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
***********************************************************************
藤井4段28連勝の時作りましたので28連勝記念。
文字数は禁止です。1桁目と2桁目の合計数だけで
また、刺激しあいたいと、思います。
心配なのは、以前に似たのがあったかどうか？
私の案は 加算値が ５ と １０
（じょー3さん出題）
【問題】
解答用参考ファイル： 20170629をダウンロード
※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。
***********************************************************************
尚、解答発表は7/8（土）の８：００です。それまでは直接数式を
書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。
***********************************************************************
明けましておめでとうございます。
画像ファイルを読み込んでExcel(エクセル)のセルの背景色を使ってドット絵を描くプログラムを作りました。
対象画像ファイルはJpeg, BMP, PNG, GIFです。
★使用法
0. 何かエクセルで作業していたらエクセルを終了
1. ドット絵コンバーター（DotConverter.exe）を起動
2.「作成開始」ボタンをクリック
3. 画像ファイルを選択して「開く」をクリック。
4.Excelが起動してドット絵作成。
★関連リンク Excel Maniacs: 動くドット絵
(●`ε´●)：得点の入力が終わったので確認をしたい。
【´･ω･`】：読み上げ機能を使うと便利だな。
マウスで読ませたい部分を選択して
下のマクロ「読み上げ」を実行すると受験番号、Name、得点の
順で読み上げてくれる。
Sub 読み上げ()
Selection.Speak
End Sub
サンプルファイル： 読み上げをダウンロード
質問）セルA２からA12に下図のように社員名が入力されています。
各社員の名がいくつあるのか調べるにはどうしたらいいでしょう？
| A | |
| 1 | 社員名 |
| 2 | 徳川 |
| 3 | 豊臣 |
| 4 | 徳川 |
| 5 | 豊臣 |
| 6 | 小田 |
| 7 | 小田 |
| 8 | 徳川 |
| 9 | 徳川 |
| 10 | 小田 |
| 11 | 豊臣 |
| 12 | 徳川 |
＊手順
１．社員名（重複なし）のリストを用意します。
社員名（A2～A12)をコピーしてリボン（メニュー）を「データ」→「重複の削除」と辿れば簡単です。
作成した社員名（重複なし）のリストをB2～B4にコピーします。
| A | B | |
| 1 | 社員名 | 社員名 |
| 2 | 徳川 | 徳川 |
| 3 | 豊臣 | 豊臣 |
| 4 | 徳川 | 小田 |
| 5 | 豊臣 | |
| 6 | 小田 | |
| 7 | 小田 | |
| 8 | 徳川 | |
| 9 | 徳川 | |
| 10 | 小田 | |
| 11 | 豊臣 | |
| 12 | 徳川 |
２．CountIf関数でA2～A12にいくつ徳川、豊臣、小田があるか数えます。
CountIf関数の書式は・・・
=CountIf(範囲, 検索文字列）
・・・なので
=countif($A$2:$A$12,B2)
・・・とC3に入力します。B2には徳川と入力されているので
A2からA１2に入力されている徳川の数がわかります。
| A | B | C | |
| 1 | 社員名 | 社員名 | 件数 |
| 2 | 徳川 | 徳川 | =countif($A$2:$A$12,B2) |
| 3 | 豊臣 | 豊臣 | |
| 4 | 徳川 | 小田 | |
| 5 | 豊臣 | ||
| 6 | 小田 | ||
| 7 | 小田 | ||
| 8 | 徳川 | ||
| 9 | 徳川 | ||
| 10 | 小田 | ||
| 11 | 豊臣 | ||
| 12 | 徳川 |
３．C3をC5までコピーすれば豊臣、小田の数もわかります。
| A | B | C | |
| 1 | 社員名 | 社員名 | 件数 |
| 2 | 徳川 | 徳川 | 5 |
| 3 | 豊臣 | 豊臣 | 3 |
| 4 | 徳川 | 小田 | 3 |
| 5 | 豊臣 | ||
| 6 | 小田 | ||
| 7 | 小田 | ||
| 8 | 徳川 | ||
| 9 | 徳川 | ||
| 10 | 小田 | ||
| 11 | 豊臣 | ||
| 12 | 徳川 |
質問）社員と件数のグラフを作るにはどうしたらいいでしょう。
Ｂ１からＣ４までを選択します。リボン（メニュー）を「挿入」から「グラフ」と辿り好みのグラフをクリックすれば完了です。
また、下のような表を作れば・・・
| 社員名 | 1月 | 2月 | 3月 |
| 徳川 | 5 | 6 | 3 |
| 豊臣 | 3 | 3 | 5 |
| 小田 | 3 | 4 | 4 |
下のグラフができます。
さらに下のような表をつくれば・・・
| 社員名 | 徳川 | 豊臣 | 小田 |
| 1月 | 5 | 3 | 3 |
| 2月 | 6 | 3 | 4 |
| 3月 | 3 | 5 | 4 |
・・・のようなグラフになります。
質問：下のような成績一覧から、授業時数の1/3を超える欠時数を持つ生徒名を拾い出すにはどうしたらいいでしょうか。当方、VBAは苦手です。関数でできませんか？
例）A組の国語の授業数は36回、A組1番の曹操 孟徳の欠課数は0（空欄）だが、A組3番の劉備 玄徳の欠時数は16なので、劉備 玄徳は拾い出しの対象となります。
(●`ε´●)：尚、表の特徴として以下のことがわかっている。
【´･ω･`】：科目欄の数値はいらないのでこの欄を利用して下のような表を作る。
【´･ω･`】：こうなっていれば左に授業数、右に各生徒の欠時数がならんでいるので比較しやすい。
(●`ε´●)：それは分かるがいちいち入力するのはかったるいぞ！
【´･ω･`】：各クラス9行使われている事を利用してC3に・・・
=OFFSET(D$2,INT(ROW(C2)/9)*9,0)
・・・と入力すればいい。
もしも、１クラスに６２行使われているなら(千葉県情報ネットワーク成績一覧表）
=OFFSET(D$2,INT(ROW(C2)/62)*62,0)
・・・と入力すればいい。
これをまず、C27までコピーし、次にC3からC27を選択コピーし、それをE3,G3,I3,K3,M3にペーストすればいい。（手順１）
【´･ω･`】：今は基本方針を説明したわけだ。
(●`ε´●)：なるほど。では授業数の1/3と欠時数を比べるのだからC3に入れる式を・・・
=IF(OFFSET(D$2,INT(ROW(C2)/9)*9,0)<D3*3,1,0)
・・・とすれば欠時数が授業数の1/3をこえていれば１、そうでなければ０になる。（手順２）
【´･ω･`】：科目欄の数値の合計をCheck欄に表示しよう。SumIf関数を使ってO3に・・・
=SUMIF($C$1:$N$1,"科目",C3:N3)
・・・すると下のようになる。（手順３）
(●`ε´●)：Check欄には生徒以外の数値もあるぞ！
【´･ω･`】：なるほど。それでは生徒の欄には必ずA列に番号があるのでO3の数式を・・・
=SUMIF($C$1:$N$1,"科目",C3:N3)*ISNUMBER(A3)
・・・に変更する。（手順４）
(●`ε´●)：Check欄にある数値が欠時オーバーの数というわけか。
【´･ω･`】：そう。あとはフィルターを使って#VALUEと０を除けば終わりだ。
【´･ω･`】：流れをいちいち書いたから時間がかかりそうだが、実際には一瞬だな。
(●`ε´●)：さて、いよいよ公開だな。
【´･ω･`】：使い方は以下の通りだよ。
１．Proofreading.xls, Proofreading.docを立ち上げる。その際、Excel、Wordともに
VBAを使っているので両方ともマクロを有効にする。（エクセル・ワードともに他の
ファイルは開かない）
２．エクセルファイルのワークシートMainをアクティブにして生徒氏名と所見を入力する。
（もちろん、コピー＆ペーストで構わない）
３．Excelファイルのマクロ「開始」を実行する。
すると誤りの候補が下のような一覧表にまとめられる。
以上
(●`ε´●)：Wordとエクセルを使っているというのはわかったが、いったい何をやっているんだ。
【´･ω･`】：Excel VBAでワードにデータを送り、ワードの校正機能を使う。そしてその結果を
Word VBAでExcelに書き戻しているんだ。一口で言うならExcelとWordの連携なのだが
かなり、濃い味に仕上がっていると思う。
(●`ε´●)：ワードの校正機能を使っていると言うことは、ワードの設定を変えれば校正する項目を
変更できると言うことだな。
【´･ω･`】：その通り。ただワードの校正機能には甘いところがあるので、それがそのまま
この自動点検システムの弱点にもなっている。ワードの校正機能については
このサイトを参照してくれ。
(●`ε´●)：ワードではなくて一太郎の校正機能を利用すればよかったんじゃないか？
【´･ω･`】：それも当然、考えたんだがJustsystemは一太郎マクロを放置しているんだ。
だから残念だけど一太郎マクロでは校正機能を動かすことができないんだ・・・
*********************************************************************
【´･ω･`】：指導要録でも通知票でもあゆみでも所見ならば何でも使えるから
試してみてくれ。よろぴく！！
Proofreadingをダウンロード(Excel)
Proofreadingをダウンロード(Word)
※自動点検するにはExcelファイルとWordファイルの両方が必要です。
EXCELで４択問題テンプレートを作りました。マクロは使わず、そのかわりに戯れで
循環参照を使っています。遊ぶときには他のブックを開かないで下さい。
★使い方
０. エクセルで何か作業をしていたら、いったんエクセルを終了して本ファイルを開く。
１．チェックボックスをクリックしてマークを外すと初期状態になります。
そしてそれからマークを入れるとゲームのスタートです。
２．ラジオボタンをクリックすると答えの正誤が判定され、それに
応じて正答率が変化します。尚、正当だと思われるラジオボタンが
既に選択されている場合はクリックする代わりにShiftを押下しながら
F9キーを押します。
備考：データはDATAシートに入っています。シートタブが非表示になっているだけなので
それを再表示させれば自由に問題を入れ替えることが出来ます。
参考ファイル： HistoryQuizをダウンロード
追加：ExcelでTOEIC４択
Excel Maniacs: Excel で 4択 第１回 TOEIC（1-50） (typepad.jp)
Excel Maniacs: Excel で 4択 第2回 TOEIC（51-100） (typepad.jp)
Excel Maniacs: Excel で 4択 第3回 TOEIC（101-150） (typepad.jp)
Excel Maniacs: Excel で 四択 第4回 TOEIC（151-200） (typepad.jp)
Excel Maniacs: Excel で 四択 第5回 TOEIC（201-250） (typepad.jp)
Excel Maniacs: Excel で 4択 第6回 TOEIC（251-300） (typepad.jp)
Excel Maniacs: Excel で 4択 第7回 TOEIC（301-350） (typepad.jp)
Excel Maniacs: Excel で 4択 第8回 TOEIC（351-400） (typepad.jp)
ある高校の先生から下の内容のメールを頂きました。
----------------------------------------------------------------------------------
アットランダムに上の句が自動的に表示されて
それに対応する下の句がバラバラに下に 出るようにしたいのです。
できれば○×も出れば最高なんですが…。
なんとなく乱数とかまでは出るように考えたのですが、
それをどう表示させ、下の句をばらすかが 思い付きません。
１００首のうち５０首を 出したいのですが…。
九九のところは参考にさせていただいたのですが
やはりよくわかりません。
いちおう作りかけというか全然ダメな
ファイルを添付しておきましたので
ご教授願えればと思います。
よろしくお願いします。
--------------------------------------------------------------------------------------------------------
【´･ω･`】：ということで作ってみたよ。一応、言われたことはみんなもりこんだつもりだけど…。
★使い方
１．F9を押すと新しい問題が出題される。
２．上の句にあう下の句の番号を入力する。
３．Shiftを押しながらF9を押すと自動的に採点される。
ダウンロードはこちら(50題バージョン） HyakuninIssyu_50をダウンロード
ダウンロードはこちら（10題バージョン） HyakuninIssyu_10をダウンロード
(●`ε´●):おいらは高校一年の夏ぐらいまでに自発的に百首全部暗記したよ。
あれを暗記しておけば、古文に対する勘が働くようになっていいぜ。
【´･ω･`】：古文と言えば小西甚一先生の著書がおいらはすきだったな。
(●`ε´●)：根性のあるやつは「古文研究法」、文法が嫌いなやつは
「国文法ちかみち」なんてのがいいな。
Excelの標準関数だけで九九の練習シートを作りました。
目玉は解答所要時間を計測表示することが出来ます。
イメージは下のような感じです。
参考ファイルを用意しました。ダウンロードしていじってみて下さい。
ランダムにNの段の問題をだすこともできますし（但し、Nは１から９までの正の整数）
Nの値を指定することもできます。
★使い方
１．まずはランダムの場合。あらかじめ下図のように
セルG10からG19までを選択しておきます。
２．「F9」キーを押すと赤枠の部分がランダムに変化
します。
３．答を入力します。
４．「Shift」キーを押しながら「F9」キーを押すと解答の
正誤判定が自動的になされ、得点が表示されて
さらに解答に要した時間が表示されます。
「Delete」キーを押して「F9」キーを押すと解答や
○、×、「かかった時間」がクリアーされて２の
状態に戻ります。
５．Nを指定する場合
セルF３を クリックするとドロップダウンリストが現れます。
そこでNを指定して「F9」キーを押すと指定した
Nの段の問題が表示されます。ドロップダウンリストで数字を選択せずに「***」を選択すると
問題がランダムに選ばれます。
後の手順はランダムの場合と同じです。
参考ファイル： Kukuをダウンロード
今回はEXCELを使って教材を作ってみました。VBAを一切使わずにエクセル標準
のワークシート関数だけを使っています。
具体的には英語の不規則動詞の変化を学習させるための教材「動詞変化表」です。
★「動詞変化表」仕様
１．ランダムに問題が出される。
２．自動的に正誤判定がなされる。
実装したのはたったの２点です。VBAを使えば全く簡単に実現できることばかりなのですが
VBAを使わないとちょっとした工夫が必要でした。
イメージは下図のようなカンジです。
１．ランダムに動詞が選ばれる。
２．１で選ばれた動詞の原形、過去形、過去分詞のどれかが、さらにランダムに選ばれる。
３．生徒は解答欄に解答する。
４．自動的に正誤判定する。
ランダムに出題するのでRAND関数の使い方がポイントになります。
簡単なようですがRAND関数はクセがあるのでけっこう面白いかも？
★使い方
１．B6,C6,D6の3セルをまとめて選択する。
２．５行目に表示されている動詞の原形を入力してEnterキーを押下。
３．５行目に表示されている動詞の過去形を入力してEnterキーを押下。
４．５行目に表示されている動詞の過去分詞形を入力してEnterキーを押下。
５．Shiftキーを押しながらF9キーを押下。解答の正誤が自動判定される。
６．Deleteキーを押下。解答が削除される。
７．F9キーを押下。新しい問題が出される。２に戻る（あとは好きなだけくり返し）
(●`ε´●)：「夏期特別講座」受講希望者の集計を頼まれたのだが・・・・
【´･ω･`】：どんなの？
(●`ε´●)：下のようなやつだよ。
----------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------
【´･ω･`】：うーん、これはひどいな。
(●`ε´●)：どうして？
【´･ω･`】：集計するのに目線の移動が大きすぎる。せめて下のように回答欄を作ってほしいな。
---------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
(●`ε´●)：これだけでもだいぶ違うな。
【´･ω･`】：でもこれだけではまだ芸がない（次回へ）
| 【問題】 |
| ・B3の式を下にコピーして、 |
| ・1～10が重複せずに |
| ・ランダムに表示させてください (maronさん) |
解答用参考ファイル： Q240をダウンロード
**********************************************************************************
尚、解答締め切りは０５／０９（土）の午後８時の予定です。
状況によっては 変更される可能性があります。
また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を
書き込むことはご遠慮ください。
********************************************************************************
(●`ε´●)：明日、バドミントンの地区顧問会議なんだけど個人戦のトーナメント表を
作るのがかったるいよ。
【´･ω･`】：いつも時間がかかるからね。
(●`ε´●)：何とかならないのか？
【´･ω･`】：わかった。こんなのどうだい？
'---------------------------------------------------------------------------------------------
'トーナメント表自動作成システム（Knockout Tournament）
'仕様
' 参加校： ９校まで
' 参加数： ２４から３６まで
' シード： ８シードまで
'------------------------------------------------------------------------
★使用法
１．Knockout Tournament.xlsm をダブルクリック。マクロを有効ににすると
下のようなメニューが現れる。
２．「チーム名を登録」をクリックする。下の表が現れるので、ここで団体（学校）名を入力する。
入力が終わったら、「次へ（メニュー表示）」をクリックする。
メニューが表示されるので「選手名登録」をクリック。
３．下表が現れる。ここで選手名を入力する。
入力が終わったら、「次へ（メニュー表示）」をクリックする。ここまでで初期設定終了。
４．必要があれば「シード指定」をクリックしてシードを設定する。
シードはドロップダウンリストから選択する
作業が終わったら、、「次へ（メニュー表示）」をクリックする。
５．「トーナメント表作成」をクリック。
表が作成されたら「トーナメント表印刷」をクリック。
備考： 表はA4サイズで印刷される。
： Ctrlキーとmキーを同時に押せばメニューが表示される。
: 抽選まで自動。当然のことながら同じ団体（学校）の者が重なって４分の１のヤマに入らない。
(●`ε´●)：バドミントンに限らず、テニスでも卓球でも小規模な大会ならトーナメント表が
簡単に作れるな！
問題1 年と月をランダムで出したつもり （小さな欠点がいっぱいかも：出生数、丙午、閏年）
まあ、そこは目をつむって、日を出してほしい あ、、もちろん2月29日とかも時には
出るはずではある。
問題２ 1桁から10桁までの数字を出したい 失敗例は、1桁の数字はほとんど出てくれない。
1桁も、2桁も、・・・10桁もほぼ均等に出てほしいのだ。
・・・ってことで、、どこにでもありそうな問題ですが、 しばらくぶりってことで、お許しください。
まあ、各問題とも、5分以内で最終解答に（常連は秒？？） 到達しそうではありますけれども、
初めての方でも参加 出来そうでは、あるってことで、、 お許しください。
（ジョー３さん）
解答用参考ファイル： Q239をダウンロード
**********************************************************************************
尚、解答締め切りは０４／１８（土）の午後８時の予定です。
状況によっては 変更される可能性があります。
また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を
書き込むことはご遠慮ください。
********************************************************************************
【´･ω･`】：セルが空欄ならば斜線を引くにはどうしたらよいですかという質問は
本当に定番だな。今回は特にセルを跨がる斜線を引く方法だ。
新しくサンプルを作るのも面倒くさいので前に佐賀県の先生から質問が
来たときに作ったものを再掲しよう。下は佐賀県の高校入試用の調査書だ。
下図の赤枠を見てほしい。
【´･ω･`】：セルBIの数値を０から１にすると・・・
【´･ω･`】：セルBIの数値を０から２にすると・・・
【´･ω･`】：セルの普通の斜線は対角線にしかならないので、ワークシートのチェンジイベントを
利用してオートシェイプのVisibleプロパティを切り替えている。
'------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$BI$2" Then Exit Sub
Shapes("Line 12").Visible = False
Shapes("Line 13").Visible = False
If Cells(29, "R").Text = "" And Cells(32, "R").Text = "" Then
Shapes("Line 12").Visible = True
ElseIf Cells(32, "R").Text = "" Then
Shapes("Line 13").Visible = True
End If
End Sub
'------------------------------------------------------------------------------------------------------------------
(●`ε´●)：Blu-rayが見たくて下の製品をソースネクスト買った。HPの仕様書に
「CD/DVD/CD-R/Blu-ray｜DVD スーパーマルチ・ドライブ 」とあったからだ。
それなのにBlu-rayが見られない。何かの間違いかと思い「0120-000-817」に
問い合わせた。解答はCD/DVD/CD-R/Blu-rayのいずれかが搭載され、
この場合は「DVD スーパーマルチ・ドライブ 」が搭載されるという意味だそうだ。
おいらが「DVD スーパーマルチ・ドライブ 」というものは「CD/DVD/CD-R/Blu-ray」を
再生できると勝手に勘違いしたと言うことらしい。
(●`ε´●)：消費者は「DVD スーパーマルチ・ドライブ 」が何を再生できるかということを
知らなければならないということになるな。
(●`ε´●)：ちなみに「DVD スーパーマルチ・ドライブ 」が何に対応しているかの説明は
どこにもないのに・・・こんなのありかい？
【´･ω･`】：「DVD スーパーマルチ・ドライブ 」と言えば何の説明も無しにどういうものか
わからなければならん程、日本の常識だということだな。うまくハメられたな！
試験問題作成時には「次の日本語の意味になるように，( )内の語(句)を並べかえなさい。
但し，文頭に来るものも小文字にしてあります。」など定型的な文章を入力することがよくあります。
そのような文章は「単語登録」して入力の手間を省きましょう。
◆MS-IMEの場合
１．登録したい文章を選択し、「言語バー」の「単語の登録」をクリックします。
２．「単語」欄にはすでに登録したい文章が入力されています。
「読み」の欄にその文章のわかりやすい名前を入力します。
この場合は「せいじょ」としました。最後に「登録」「閉じる」をクリックしてください。
３．「単語登録」が済んだので 「せいじょ」と入力すると変換候補に「次の日本語の意味になるように，
( )内の語(句)を並べかえなさい。但し，文頭に来るものも小文字にしてあります。」が
現れるようになりました。
試験問題作成時には「次の日本語の意味になるように，( )内の語(句)を並べかえなさい。
但し，文頭に来るものも小文字にしてあります。」など定型的な文章を入力することがよくあります。
そのような文章は「単語登録」して入力の手間を省きましょう。
◆ATOKの場合
１．登録したい文章を選択し、ATOKパレットの「単語登録」をクリックします。
２．「単語」欄にはすでに登録したい文章が入力されています。
「読み」の欄にその文章のわかりやすい名前を入力します。この場合は「せいじょ」としました。
「OK」をクリックしてダイアログボックスを閉じます。
３．「単語登録」が済んだので 「せいじょ」と入力すると変換候補に「次の日本語の意味になるように，
( )内の語(句)を並べかえなさい。但し，文頭に来るものも小文字にしてあります。」が
現れるようになりました。
下図のように英単語をいくつかの音節のまとまりに分けて、各部分に番号を割り振るやり方を紹介します。
ワード版では音節を全てバラバラにしていましたが、一太郎では行送りの際の「ハイフネーション」を
利用しているために単語が全ての音節で分けられているとは限りません。例として「opportunity」は
ワードでは５つの部分に分解されていますが、一太郎では４つです。
もちろん、完全に手作業でやれば一太郎でもワードでもどちらでも同じように出来ます。
１．「opportunity」を選択します。「ツール」メニューから「ハイフネーション」をクリックして
「ハイフネーション」ダイアログボックス出します。「設定」を「手動設定」にして「OK」をクリックします。
２．「ハイフン設定」ダイアログボックスが表示されます。「設定」の欄の「op-por-tu-nity」を
マウスで選択して、（あるいはShiftキー押しながら矢印キーで選択して）Ctrlキーを押しながら
Cキーを押してコピーします。次に「中止」をクリックするか「×」をクリックしてダイアログボックスを
閉じます。
４．一太郎は下図のようになっているはずですので･･･
･･･Ctrlキーを押しながらVキーを押すと「opportunity」が音節で分解されて「op-por-tu-nity」になります。
５．「op-por-tu-nity」に１～４までのルビを振ります。
＊方法１ 「op-por-tu-nity」全体を選択してメニューを「書式」「ふりがな」と辿り
「１単語の設定／変更」をクリックすると「ふりがな－1単語の設定/変更」ダイアログボックスが現れます。
「ふりがな」のところに「1234」と入力すると下図のようになります。
このままでは親文字と番号がずれているので適当にスペースを入れて調整して「OK」をクリックします。
実際のところ、番号が増えてくると調整が煩わしいと思います。
＊方法２
「op-por-tu-nity」の「op」だけを選択してメニューを「書式」「ふりがな」と辿り
「１単語の設定／変更」をクリックすると「ふりがな－1単語の設定/変更」ダイアログボックスが現れます。
「ふりがな」のところに「1」と入力すると下図のようになります。
これで「OK」をクリックすれば親文字の中央にぴったりと番号が表示されるのですが、
残りの「por」「tu」「nity」に対しても同じ操作を繰り返さなければなりません。
残りの単語についても更にこの操作を繰り返すことは、これもかなり煩わしいと思います。
＊方法３
「方法２」は単純作業の繰り返しなので、この操作を自動化するマクロを組んでみました。
一太郎の「システムマクロ」に登録して下さい。マクロ名は「音節番号設定」とでもしておきましょう。
「システムマクロ」に一度登録しておけば、いつでもそのマクロを使うことが出来ます。
!!***********************************************
!!注意
!!文字列を選択する時には左から右にして下さい
!!***********************************************
%TempStr = GetString()
For %i = 1 To Size(%TempStr)
%Str = %Str & %TempStr(%i)
Next
%Str=LTrim(RTrim(%Str)) & "-"
%RowPos=GetRow()
%ColPos=GetColumn()-Len(%Str)+1
%PagePos=GetPage()
!!文字サイズ取得--------------------
左
%CharSize=GetCharacterPoint()
右
!!--------------------------------------
!!音節に割り振る記号変更は%文字種の数字を変える。
!!数字：0
!!半角カタカナ：1
!!--------------------------------------
%Pos1=1
%Num=1
%文字種=1
For %i = 1 To Len(%Str)
If Mid(%Str,%i,1)="-" Then
%x =記号(%Num, %文字種）
文字選択解除
%Pos2=%i-1
Jump(%PagePos, %RowPos, %ColPos+%Pos1-1+%num-1)
範囲選択開始(.単位=1)
Jump(%PagePos, %RowPos, %ColPos＋%Pos2+%num-1)
ﾙﾋﾞ(.ﾙﾋﾞ文字=%X,.ｻｲｽﾞ=%CharSize/4)
文字選択解除
%Pos1=%i+1
%Num=%Num+1
End If
Next
Function 記号(%Num, %文字種）
If %文字種=1 Then
記号= Char(%Num+176)
Else
記号= %Num
End If
End Function
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
| 31 |
最近のコメント