プログラミングの基礎2011 のバックアップ(No.13)

プログラミングの基礎

_ 生協でテキストが購入できなかった人へ

出版元明治図書http://www.meijitosho.co.jp/detail/?isbn=4-18-268117-7

↑

_ 授業のねらいと方法

プログラミングの基礎構文を身につけ,オリジナル作品を作成する。

↑

_ 授業のスケジュール

１０/７　オリエンテーション
１０/14 課題1　p22　なぞなぞ（MsgBoxの使い方） →（P30のクイズ.pdf）
```
p30
9: 回答 = MsgBox(.Cells(a, 1), vbYesNo, タイトル)
```
１０/21　課題2　p31　ネコ的行動（タイムラグ）　課題3 p37 If Else End If文　と、Select Case文
10/28　課題4　p45 間違い探し（MsgBoxの使い方２）　課題5
11/４課題6 課題7 UserFormの作り方は、p12～p16参照。特に手順3の③と④、手順5と６と７は必ず設定すること。
```
p67
27: Else
```

p69
32:User Form1.Show
50:User Form1.Show
53:Check=1
54:End If

11/11 課題8 課題9
- 　columnって何？->指定したセル参照 (セル参照: ワークシートのセルの位置を表す座標。たとえば、列 B と行 3 が交わる位置のセル参照はB3です。)の列番号を返します。この課題では、次のセルをカウントしていくところで表示させるためだけに利用していますので、範囲は省略します。マイクロソフトのヘルプの図参照。
11/18 課題10 課題11 (スタートへのリンクは、右クリックで｢ハイパーリンクの設定｣で、リンクを張ることができます。)
11/25　休講　～復習＆自由課題制作期間～
12/９　休講の恐れあり　授業を実施する場合はこのページに「授業あり」と表示します。サーバーがダウンした場合は研究室の前に「授業あり」と表示。
12/16 課題12 課題13 課題14 の説明
1/13　質問タイム(自宅では完璧に動いたのに、大学のパソコンで、Yuuserでログインすると動かない、という人が、必ず毎年いますので、その対処方法など説明します。)
1/20　自由課題発表
1/27　自由課題発表
2/3　自由課題発表 & 提出
2/10　再提出の人対応
2/14　再提出の人対応(ニーズがあれば)

↑

_ マクロが有効にならなかったら？

開き直す。－＞　「表示」－＞　「マクロ」を試してみる。　

↑

_ 提出の仕方

１つのBookに14or15個の課題をまとめる。提出するのは、オリジナル課題のみでよい。初めのシートに、すべてのプログラムの登録ボタンを置く。
フォルダ・ファイル名は、学籍番号下4桁とテーマ名　(例)10231環境問題について
USBメモリの中にフォルダを作り、その中には自由課題のExcelファイルと、そこで使う画像やHTMLファイルのみを保存する。

注意：登録ボタンの名前は「課題1」等は×。「水に関する問題」などのように内容を表すボタン名にすること。

→（ File not found: "提出の仕方.PNG" at page "プログラミングの基礎2011"[添付]）

課題の発表・提出時の事前チェック手順
１ファイル名OKー＞２へ、×ー＞修正
２yuuserでログインし、一通り動くかどうか、動作確認　OKー＞発表・提出、×ー＞修正(エラー原因として、リンク先のファイルが、Excelと同じフォルダー内に入っていないことが考えられます。)

→（ File not found: "相互評価学籍番号名前.docx" at page "プログラミングの基礎2011"[添付]）

↑

_ columnの説明

→（ [添付]）

↑

_ 課題12の補足説明

最後に、儲かったのか、損失を出したのか、勝敗を追記したい場合。

  Cells(19, 4) = "日本円で比較"

の後に、下記を追記するとよい。

  
'勝敗追記
x = Cells(19, 3) - 100000
If x > 0 Then
MsgBox "増資おめでとう!"
ElseIf x < 0 Then
MsgBox "残念！もう一度トライしよう"
End If

別解
Cells(20, 3) = Cells(19, 3) - Cells(7, 3)
   Cells(20, 4) = "元金との差額"
   
   If Cells(20, 3) >= 0 Then
      MsgBox Cells(20, 3) & "円の「黒字」でした。" + Chr(13) + "おめでとう～～～～。"
   Else
      MsgBox -Cells(20, 3) & "円の「赤字」でした。" + Chr(13) + "残念無念また来週～。"
   End If

↑

_ 　課題14の補足説明

ウサギ　は　白い	
白い　は　清潔	
ウサギ　は　かわいい

等と入力する。

	
ウサギ　は　白い？

？をつけて疑問文にする

↑

_ 　その他利用可能なコマンド

vbOKOnly [OK] ボタンのみを表示します。
vbOKCancel [OK] ボタンと [キャンセル] ボタンを表示します。
vbAbortRetryIgnore [中止]、[再試行]、および [無視] の 3 つのボタンを表示します。
vbYesNoCancel [はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示します。
vbYesNo [はい] ボタンと [いいえ] ボタンを表示します。
vbRetryCancel [再試行] ボタンと [キャンセル] ボタンを表示します。
vbCritical 警告メッセージアイコンを表示します。
vbQuestion 問い合わせメッセージアイコンを表示します。
vbExclamation 注意メッセージアイコンを表示します。
vbInformation 情報メッセージアイコンを表示します。
vbDefaultButton1 第 1 ボタンを標準ボタンにします。
vbDefaultButton2 第 2 ボタンを標準ボタンにします。
vbDefaultButton3 第 3 ボタンを標準ボタンにします。
vbDefaultButton4 第 4 ボタンを標準ボタンにします。
vbApplicationModal アプリケーションモーダルに設定します。メッセージボックスに応答するまで、現在選択中のアプリケーションの実行を継続できません。
vbSystemModal システムモーダルに設定します。メッセージボックスに応答するまで、すべてのアプリケーションが中断されます。
vbMsgBoxHelpButton ヘルプボタンを追加します。
VbMsgBoxSetForeground 最前面のウィンドウとして表示します。
vbMsgBoxRight テキストを右寄せで表示します。
vbMsgBoxRtlReading テキストを、右から左の方向で表示します。

↑

_ 成績評価基準

エクセルのマクロを用いたオリジナル作品　80点
平常点20点(10+10)

↑

_ テキスト

『児童生徒が喜んで挑戦するコンピュータ課題集～情報活用力の育成を目指す』明治図書

Mobile Learning