【´･ω･`】:前回の「三四郎でピラミッド」ではたくさんの人が
参加してくれてうれしかったので調子に乗ってもう一題・・・。
(●`ε´●):もうやめておいた方がいいんじゃないか？
【´･ω･`】:まあ、そういうなよ。一生懸命考えたんだから・・・。
でも正直なところ、この前もどこかで言ったが問題を
考えるところで力を使い果たしてしまったので
かっこいい回答は常連のみなさんにおまかせね！！
【問題】
セルを利用して下図のような図形を描きたい。
一つのセルに入力した数式を他のセルにコピペして描くには
どのセルにどのような数式を入力したらよいか？
*
*
*
*
*
*
*
※セルの色は関係ありません。
※コメント即OK
※数式は9/15 午後8時までご遠慮を。
【問題】
セルを利用して下図のようなピラミッドを描きたい。
**
*.
*
*
*
*A1に入力した数式をK６までコピーして、上図を描くには
A1にどのような数式を入力したらよいか？
※コメント即OK。
※回答の数式は9/10 午後6時までご遠慮を。
(●`ε´●)：おいら、カナ入力しかできなんだけど、こんど
ローマ字入力を覚えたいんだ。で、下のような
表を作って欲しいんだけど・・・・。
*
*
*
*
*
(●`ε´●):A1に入力した数式をJ5までコピペして表を作るには
A1にどのような数式を入力すればいいかな？
【´･ω･`】:こんどは第1弾よりもいろいろな回答が
作れるかな？
※コメント即OK。
※回答の数式は９／３ 午後6時までご遠慮を・・・。
【問題】
セルK1に「あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやいゆえよらりるれろわゐうゑを」と入力されている。
K１の文字列を利用して下図のような５０音表を作りたい。
*
*
*
*
*
A1に入力した数式をJ5までコピペして表を作るには
A1にどのような数式を入力すればよいか？
(●`ε´●):ちょっと簡単すぎないか？
【´･ω･`】:そう言うなよ。問題を考えるのは大変なんだから・・・。
※コメント、解答 即OK.
【問題】
B1に金額を入力したとき、C2からC10に数量を表示させたい。
表のレイアウトは下の通りである。
**
*
*
*
*
*
*
(●`ε´●):おい、A列に全角で「１００００円札」なんて入力してあるのか？！
【´･ω･`】:うん。他のセルに10000とか5000とか、金額そのものを入力しないでやってね。
(●`ε´●):A列の金額を抜き出して利用しろというわけか？
【´･ω･`】:うん。
(●`ε´●)：エクセルユーザにケンカを売っているような表だな！！
【´･ω･`】:そういうわけではないんだけど・・・。
三四郎を使えば楽勝だな・・・。
※三四郎、Excelの解答作成用ファイルを用意しました。必要ならば
Mihon003.Lzhをダウンロード してください。
※解答、コメントは即OKです。
(●`ε´●)：第１弾が区間が同じ、かつ区間に幅無し。
第２弾が区間が同じ、かつ区間に幅あり。
で、第３弾は？
【´･ω･`】:第３弾は区間が異なり、区間に幅あり・・・。
【問題】
英語の得点と５教科の得点の相関関係分布表を作ります。
英語の得点は0から100の整数値です。５教科の得点は０から５００の
整数値です。相関分布表のレイアウトは下を参考にしてください。
*
*
*
*
なおデータは4２人分で2行目からP列に５教科のと句点、Q列に英語の得点が
入力されています。
| ５教科 | 英語 |
| 415 | 81 |
| 261 | 67 |
| 199 | 39 |
| 422 | 94 |
| 284 | 76 |
| 377 | 81 |
| 489 | 99 |
| 345 | 75 |
| 124 | 22 |
| 322 | 80 |
| 74 | 16 |
| 114 | 14 |
| 36 | 0 |
| 446 | 96 |
| 500 | 100 |
| 353 | 73 |
| 456 | 88 |
| 156 | 30 |
| 263 | 57 |
| 276 | 58 |
| 255 | 59 |
| 431 | 89 |
| 263 | 49 |
| 440 | 92 |
| 329 | 69 |
| 265 | 57 |
| 286 | 62 |
| 373 | 67 |
| 475 | 97 |
| 321 | 75 |
| 215 | 31 |
| 347 | 81 |
| 348 | 74 |
| 402 | 82 |
| 339 | 79 |
| 348 | 86 |
| 348 | 84 |
| 246 | 54 |
| 412 | 92 |
| 197 | 45 |
| 372 | 86 |
| 124 | 26 |
※三四郎、Excelの解答作成用ファイルを用意しました。必要ならば
Mihon002.lzhをダウンロード してください。
※縦横の計には予め、SUM関数が入っているので、その部分は
考慮する必要はない。D4からM13に入れる式を答えればよい。
【´･ω･`】：・・・なんて問題をだそうと思っていたんだけど・・・
○○さんの第２弾の解答そのままでなんとかなっちゃうんだよね。
でも、せっかく第３弾まで問題を考えていたから、出すね。
※コメント、解答の書き込みは即OKです。
【´･ω･`】:この辺りの問題になってくるとかなり、ハイレベルでExcelでやるにしても
けっこう、歯ごたえがあるとおもう。
(●`ε´●)：ま、普通は作業列を使った処理を考えるはな・・・。
【´･ω･`】:世の中には普通じゃない人もいるから・・・。
【問題】
英語と数学の２教科の得点の相関関係分布表を作ります。
得点は0から100の整数値です。相関分布表のレイアウトは下を参考にしてください。
*
*
*
*
*
なおデータは4２人分でP列に数学、Q列に2行目から英語の得点が
入力されています。
| 数学 | 英語 |
| 86 | 81 |
| 30 | 67 |
| 41 | 39 |
| 70 | 94 |
| 28 | 76 |
| 67 | 81 |
| 96 | 99 |
| 60 | 75 |
| 29 | 22 |
| 41 | 80 |
| 13 | 16 |
| 36 | 14 |
| 18 | 0 |
| 79 | 96 |
| 100 | 100 |
| 67 | 73 |
| 96 | 88 |
| 33 | 30 |
| 46 | 57 |
| 51 | 58 |
| 39 | 59 |
| 82 | 89 |
| 58 | 49 |
| 82 | 92 |
| 61 | 69 |
| 47 | 57 |
| 50 | 62 |
| 86 | 67 |
| 92 | 97 |
| 48 | 75 |
| 61 | 31 |
| 52 | 81 |
| 63 | 74 |
| 78 | 82 |
| 51 | 79 |
| 45 | 86 |
| 48 | 84 |
| 42 | 54 |
| 68 | 92 |
| 31 | 45 |
| 57 | 86 |
| 23 | 26 |
尚、正解のイメージは下図である。
| 英語 | 数学 | |||||||||||
| 評定 | 100-90 | 89-80 | 79-70 | 69-60 | 59-50 | 49-40 | 39-30 | 29-20 | 19-10 | 9-0 | 計 | |
| 100-90 | 3 | 1 | 2 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 7 | |
| 89-80 | 1 | 2 | 1 | 1 | 2 | 3 | 0 | 0 | 0 | 0 | 10 | |
| 79-70 | 0 | 0 | 0 | 3 | 1 | 1 | 0 | 1 | 0 | 0 | 6 | |
| 69-60 | 0 | 1 | 0 | 1 | 1 | 0 | 1 | 0 | 0 | 0 | 4 | |
| 59-50 | 0 | 0 | 0 | 0 | 1 | 3 | 1 | 0 | 0 | 0 | 5 | |
| 49-40 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 0 | 0 | 0 | 2 | |
| 39-30 | 0 | 0 | 0 | 1 | 0 | 1 | 1 | 0 | 0 | 0 | 3 | |
| 29-20 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 2 | |
| 19-10 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 0 | 2 | |
| 9-0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | |
| 計 | 4 | 4 | 3 | 7 | 6 | 8 | 5 | 3 | 2 | 0 | 42 | |
※三四郎、Excelの解答作成用ファイルを用意しました。必要ならば
MIhon001.lzhをダウンロード してください。
※縦横の計には予め、SUM関数が入っているので、その部分は
考慮する必要はない。D4からM13に入れる式を答えればよい。
※解答は8/18（土）発表予定。
【問題】
英語と数学の２教科の評定値の相関関係分布表を作ります。
評定値は1から５の整数値です。相関分布表のレイアウトは
下を参考にしてください。
*
*
*
*
*
なおデータは40人分でＫ列に数学、Ｌ列に2行目から英語の評定値が
４０人分入力されています。
| 数学 | 英語 |
| 5 | 3 |
| 5 | 5 |
| 3 | 3 |
| 2 | 3 |
| 3 | 4 |
| 2 | 2 |
| 4 | 3 |
| 4 | 4 |
| 3 | 4 |
| 4 | 2 |
| 4 | 3 |
| 5 | 4 |
| 2 | 2 |
| 3 | 4 |
| 2 | 3 |
| 4 | 4 |
| 2 | 2 |
| 3 | 3 |
| 4 | 4 |
| 4 | 3 |
| 3 | 3 |
| 4 | 4 |
| 4 | 3 |
| 3 | 4 |
| 4 | 4 |
| 5 | 3 |
| 5 | 3 |
| 4 | 4 |
| 3 | 3 |
| 3 | 3 |
| 5 | 4 |
| 5 | 3 |
| 4 | 3 |
| 5 | 4 |
| 4 | 4 |
| 4 | 3 |
| 4 | 3 |
| 4 | 4 |
| 3 | 3 |
| 4 | 4 |
尚、正解のイメージは下図である。
| 英語・数学評定値相関分布表 | |||||||
| 英語 | 数学 | ||||||
| 評定 | 5 | 4 | 3 | 2 | 1 | 計 | |
| 5 | 1 | 0 | 0 | 0 | 0 | 1 | |
| 4 | 3 | 9 | 4 | 0 | 0 | 16 | |
| 3 | 4 | 7 | 6 | 2 | 0 | 19 | |
| 2 | 0 | 1 | 0 | 3 | 0 | 4 | |
| 1 | 0 | 0 | 0 | 0 | 0 | 0 | |
| 計 | 8 | 17 | 10 | 5 | 0 | 40 | |
※縦横の計には予め、SUM関数が入っているので、その部分は
考慮する必要はない。D4からH8に入れる式を答えればよい。
※解答は8/11（土）発表予定。
【問題】
数のようにC列、D列、E列の2行目から、
それぞれ氏名、組、得点が入力されている。
これを、組、得点をキーにして並び替え、
氏名、組、得点をそれぞれ図のように
I,J,K列に表示させたい。どうしたらよいか。
*
*
*
*
*
※標準機能のソート、マクロの使用は禁止です。(^^ゞ
※多くの方に参加していただきたいので、７／２９（日）午後6時まで
コメント欄に直接、数式を書き込むのはご遠慮ください。m(__)m
【問題】
B列（氏名）、C列（得点）の1行目から下のようにデータが入力されている。
一太郎 56
二太郎 76
三太郎 87
四太郎 83
五太郎 92
六太郎 100
七太郎 83
三四郎 67
八太郎 78
九太郎 98
十太郎 56
この時、E１に何か数式を入力しそれをF11までコピーすることにより
氏名、得点を得点を基にして降順に並べ替えたい。E1にどのような式を入れればよいか？
*
*
*
(悪児さん出題）
(●`ε´●)：悪児さんのオリジナルとはちょっと違うようだが？
【´･ω･`】：くまぷーの解きやすいように列位置を弄ってある。
ま、問題の本質に関わらないと思うのでこれでやってd(^-^)ネ!
尚、一般機能のソートを使ったり、マクロを使うのは禁止だよん。
名称：スピード
*
*
*
*
*
*
*
ゲームの目的：同じ牌をクリックするとその牌が裏向きになります。
なるべく短時間で全ての牌を裏返してください。
全部裏返すと所要時間が表示されます。
ゲームの開始：「START」をクリックする。
※ゲームを中止するときには「中止」を２回クリックしてください。
ダウンロード：SPEED.lzhをダウンロード
スピードのコード：
Call Init()
MsgBox("ゲームを始めます")
%BlankCell=0
%StartTime = ThisTime()
Do While %BlankCell <108
Set %FirstCell = Range?
Set %SecondCell = Range?
If %FirstCell ="中止" Or %SecondCell ="中止"Then
MsgBox("ゲームを中止します。")
Stop
End If
%X1 = Col(%FirstCell)
%Y1 = Row(%FirstCell)
%X2 = Col(%SecondCell)
%Y2 = Row(%SecondCell)
If Cells(%Y1, %X1)=Cells(%Y2, %X2) Then
%FirstCell.Clear(1, false, false, false)
%SecondCell.Clear(1, false, false, false)
%FirstCell.CellStyle.BackColor = RGB(204, 153, 0)
%SecondCell.CellStyle.BackColor = RGB(204, 153, 0)
%BlankCell=%BlankCell+2
End If
Loop
%EndTime = ThisTime()
%ElapsedTime =%EndTime-%StartTime
%MyMsg=Minute(%ElapsedTime) & " 分" & Second(%ElapsedTime) & " 秒かかりました。"
MsgBox(%MyMsg)
Sub Init()
declare variable Pai(108) As String
declare variable Temp As String
declare variable Moji As String
declare variable X as Integer
declare variable Y as Integer
declare variable i as Integer
Pai()={"一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
"一索","二索","三索","四索","五索","六索","七索","八索","九索", \\
"一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
"一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
"一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
"一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
"一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
"一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
"一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
"一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
"一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
"一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬"}
Range("D6:O14").Clear(1, false, false, false)
Range("D6:O14").CellStyle.BackColor = RGB(204, 153, 0)
MsgBox("ゲームを始めます")
!!シャッフル
Randomize(ThisTime())
For i = 1 TO 1000
X = Int(Rand() * 108)+1
Y = Int(Rand() * 108)+1
Temp=Pai(x)
Pai(x) =Pai(y)
Pai(y)=Temp
Next
i=1
For y = 6 To 14
For x = 4 To 15
Cells(y, x) = Pai(i)
Moji = Right(Pai(i),1)
select case Moji
Case "萬"
Cells(y, x).CellStyle.BackColor = RGB(204, 255, 255)
Case "筒"
Cells(y, x).CellStyle.BackColor = RGB(255, 204, 204)
Case "索"
Cells(y, x).CellStyle.BackColor = RGB(204, 255, 153)
End Select
i = i +1
Next
Next
End Sub
| このサイトは「教員のための三四郎活用術」なのですがこの頃、とんと三四郎が話題に上ってきません。すっかり、三四郎から遠ざかってしまっています。 さて一太郎Q&A掲示板を何気なく見たら、何やらくまぷーにも答えられそうな質問がありました。ここの掲示板には以前一度、回答をしました。一太郎に関する質問に回答するのは初めてだったので、ドキドキだったのですが質問者にほったらかしにされてしまい悲しかったのですが、マナーの悪い人ばかりではなかろうとついまた回答をしてしまいました。すると今度はすぐにレスが付いたのでニコニコです。 | ||||||
名称：簡易カレンダー作成マクロ
* * * * *
|
今回のお題は「一太郎の表計算機能」だ。
ご存じの通り、一太郎には「罫線」-「計算」-｢計算」から
呼び出す簡易計算機能がある。
これは簡単な四則演算しかすることができないが、
今回のテーマ、日経表計算大会マクロ部門の問題では
足し算と引き算しか使わないので、
この機能で十分対応できる・・・と思っていた。
ところが、少し考えが甘かったようだ。
*
*
*
*
*
上図を見て欲しい。 D=A+B-C という計算が出来ないのだ。
A,B,C,Dが同列または同行に存在しないとエラーになるようである。
この辺りは作業セルを使えば何とかなるであろうが、
機能的に少々貧しい。
表のレイアウトをオリジナルのままにしておきたかったので
この機能を使うのはやめることにした。
一太郎にはこの他にもう一つ作表機能がある。
「挿入」-「表枠」から呼び出すやつだ。
しかし、これは一太郎内の機能ではない。
別のソフトで作った表を貼り付けるだけである。
いわば三四郎やExcelで作った表を
リンク貼り付けするのと同じだから問題外である。
この部分もマクロでやらざるを得ないようだな。
一太郎はラクをさせてはくれない。
ほんとうに一太郎は楽しいな。
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 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 |
最近のコメント