自立学習×個別指導

NextStage

学習塾 ネクストステージ

埼玉県川越市大字砂935-6

新河岸駅下車徒歩2分

電話 049-265-8994

FAX 049-265-8640

2016/01/25

Accessレポート印刷(ダイアログの表示)

NextStageの生徒数も増えてきており、システムの再構築をしております。

塾生を指導するのに「ムダ」になることなんてひとつもありませんが、

申込や料金受領などの事務的なムダは徹底的に排除し、業務効率とサービスの向上を目指しています。

 

さて、今回はAccess2010における、

「印刷ボタンをクリック ⇒ 印刷ダイアログを表示 ⇒ レポートを印刷」についてです。

 

構築する際に問題になったのが3つ。

①プリンターを選べるようにしたい。

②レポートを閉じたり開いたりする作業を失くしたい。

つまり、印刷ボタンをクリックしたあとは、プリンターを選べば印刷してくれてレポートを自動に閉じる作業も追加するものです。

③レポートのウィンドウは普段は隠しておきたい。

操作する人の自由度をなるべく奪っておく意図です。

 

はじめはすぐにできるだろうと思ったのですが、案外と手こずってしまったので、メモとして残しておきます。

 

ちなみに失敗例↓

① レポートをプレビューで開く

②レポートの開いた時イベントで、印刷ダイアログ ⇒ レポートを閉じる

結果…これだとレポートが閉じられた状態で印刷がかかります。メインフォームが印刷されます。他のイベントを駆使してもいまいち上手くいきませんでした。もしどなたかご存知の方がいましたらご教授ください。

 

■解決法

印刷ボタンのメインフォーム、印刷したいレポートの他にダミーフォームを用意します。

レポートと同時にダミーフォームを開き、このダミーフォームの開く時のイベントに、

・印刷ダイアログの表示

・レポートを閉じる

・ダミーフォームを閉じる

の記述をします。そうすると問題なく印刷できます。

※ダミーフォームは、ポップアップ⇒はい に変更、サイズは変更せずに小さいままにしておきます。

 

■コード例

・印刷ボタン

DoCmd.OpenReport “レポート名”, acPreview, “”, “”
DoCmd.OpenForm “ダミーフォーム名”

 

・ダミーフォーム 開く時イベント

Private Sub Form_Open(Cancel As Integer)
DoCmd.SelectObject acReport, “レポート名”, False

On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, “レポート名”, acSaveNo
DoCmd.Close acForm, “ダミーフォーム名”
End Sub

※印刷ダイアログでキャンセルをすると、エラーが起きるのでOn Error Resume Nextで抜け出しています。

 

■欠点

印刷プレビューが見れない。見れそうで見れない。本当は見れる予定だったのですが…。

そこで DoCmd.RepaintObject acReport, “レポート名”をぶち込んでみました。

無事解決です。予想通りの動きになりました。

 

Private Sub Form_Open(Cancel As Integer)
DoCmd.SelectObject acReport, “レポート名”, False

DoCmd.RepaintObject acReport, “レポート名”

On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, “レポート名”, acSaveNo
DoCmd.Close acForm, “ダミーフォーム名”
End Sub

 

★ちなみに私は、印刷されたときのエラー処理の分岐を利用して、印刷されたときには、そのレポートのPDFファイルを自動保存するようにしました。(お客様にお渡しするものなので、念のため)

 

 

┿━━━━━━━━━━━━━━┿
— 学習塾NextStage ( ネクストステージ )–
┿━━━━━━━━━━━━━━┿
■営業時間 平日13:00~21:30
土曜10:00~21:30
日曜 不定期
■住所:川越市大字砂935-6
■電話:049-265-8994            
2016/01/23

【中学受験算数】対角線が通る正方形の個数

中学受験の受験率がまだまだ低い川越地域・・・。中学受験だけが受験ではないですが、より有意義な中学・高校生活を送るためにも高校受験や大学受験同様に、選択肢のひとつとして持ってほしいものです。一方「中学受験の算数=難しい」と思われている方も多いでしょう。これはあきらかに教える人が悪いのです。「算数は基本的な考え方をもとに計算するだけ」です。かんたんです。このブログでは、テーマ別に中学受験の算数の考え方を紹介しています。中学受験をする方もそうでない方も参考になさってください。

 


 

Q.下の図のように、正方形がたて4に個、横に7個のならんだ長方形に対角線(AB)を引くとき、対角線が通る正方形の個数は何個ですか。

taikakusen1

ということで数えておしまいです。10個です。

算数ってかんたんですね。本日は以上です。

 

 

 

 

 

 

 

 

 

ウソです。この問題は数えて終わりかもしれませんが、たてや横に並ぶ個数が増えたときにどう計算しなければいけないか、また、立体(直方体)になったときにどうするのか。かんたんな問題を使ってそのための考え方を見ていきましょう。

 

考え方と書きましたが、そもそも正方形の数え方が重要です。

まず今回の問題で、↓こんな感じで数えた方…

taikakusen2

別に良いのですが、これでは上手く計算に移れません。

 

 

 

 

計算に写すための正しい数え方は…

taikakusen3

…こんな感じです。…えっ、よくわからない……大丈夫です。そのうちわかります。

 

このときの数え方のポイントは直線ABだけを見ることです。正方形には注目しません。

 

そうすると、直線ABが正方形のたてとよこの線によって、区切られているように見えると思います。↓イメージ

taikakusen4

で、今回は、今回はこの線と線で区切られた間が、正方形ということです。

つまり、9本の線で分けられているので、10個の正方形を通るということです。

 

ということでこの問題の考え方のポイント

通る正方形の個数は区切られる線の数でわかる!

受験生に教えるのであればこれで十分ですね。区切られる線の数は、「とやかく言わずに計算しろ!」で終わりです。逆にこれ以上説明すると頭が混乱することが多いです。区切られる線の数も間の数の関係が存在するので、ややこしくなるからです。区切られる線の数が計算できないという受験生は小学校4年生から勉強し直して下さい。(いやみではなく”本当に!”です)

 

なお、気になる人のために、この問題を公式化すると、

たてにA個、よこにB個の正方形の対角線が通る正方形の個数は

(A-1)+(Bー1)+1 (AとBは互いに素)

になります。

がっ!…これを覚えさせるのはどうかなぁというところです。

 

なお、たてとよこの個数が互いに素とではない問題も、一度は経験させておきましょう。

互いに素でないときは、たてとよこの線が一点で交わる箇所ができますので、ようすが少し変わります。このときは規則を利用して解きましょう。

 

 

たとえば、たて4個、横6個の場合…

taikakusen5

あきらかに、たて2個、横3個の2倍です。

たて2個、横3個の場合、区切り線は、3本(縦線2本、横線1本)なので、通る正方形は4つ。ですので、たて4個、横6個のときはその2倍の8個の正方形を通るのです。

 

 

なお、先ほども触れましたが、この考え方は立体でも使えます。

Q.下の図のように、立方体を積み重ねました。AからBにまっすぐな針金を突き刺すと、何個の立方体を通りますか。

taikakusen6

 

 

考え方は平面のときと同じです。区切り線が(4+3+2=)9本になるので、通る立方体の個数は10個です。

 

 

 

 

今回はここまでです。中学受験生に教えるのであれば、区切り線を考えろ!ぐらいでとめておくほうが無難です。どうせ大して覚えていないのですから…。

 

 

┿━━━━━━━━━━━━━━┿
— 学習塾NextStage ( ネクストステージ )–
┿━━━━━━━━━━━━━━┿
■営業時間 平日13:00~21:30
土曜10:00~21:30
日曜 不定期
■住所:川越市大字砂935-6
■電話:049-265-8994            

 

2016/01/23

合格おめでとう! ~2016年度入試~

2016年度入試 -合格実績- 


 

中学入試

 

matome_20160223175251_56cc1de349833

青山学院横浜英和中合格

栄東中合格

西武文理中(特選)合格

星野学園中合格

埼玉栄中合格

農大三合格


高校入試

 

20090408e

 

市立川越合格

川越西高校合格

川越総合高校合格

川越工業高校合格

日高高校合格

西武台高校合格

山村国際合格

埼玉平成合格

細田学園合格

秀明栄光合格


 

合格おめでとう!これからも自分の将来を切り開けるよう頑張ってください。

 

┿━━━━━━━━━━━━━━┿
— 学習塾NextStage ( ネクストステージ )–
┿━━━━━━━━━━━━━━┿
■営業時間 平日13:00~21:30
土曜10:00~21:30
日曜 不定期
■住所:川越市大字砂935-6
■電話:049-265-8994            
2016/01/07

【Excel_VBA】三角形の相似形を描画するマクロ

おそらく誰も使わないであろう三角形の相似形を指定範囲内にランダムで描くマクロです。

塾の教材(プリント)を作成するにあたって必要だったので組んでみました。

短いマクロだったので変数の宣言はしていません。

 

以下コードです。

————————————————-

Sub ピラミッド型の相似形()

myrand = Rnd
縮尺 = Range(“ab4”) / Range(“ac4”)
余白 = 10

intleft = Range(“B3”).Left + 余白
inttop = Range(“B3”).Top + 余白
intwidth = Range(“B3:H7”).Width – 余白 * 2
intheight = Range(“B3:H7”).Height – 余白 * 2

Dim x(5), y(5)
x(1) = intleft + intwidth * myrand
y(1) = inttop
x(2) = intleft
y(2) = inttop + intheight
x(3) = intleft + intwidth
y(3) = inttop + intheight
x(4) = x(1) – intwidth * myrand * 縮尺
y(4) = inttop + intheight * 縮尺
x(5) = x(4) + intwidth * 縮尺
y(5) = y(4)

With Sheets(“相似の図形”).Shapes.BuildFreeform(msoEditingCorner, x(1), y(1))
For i = 1 To 3
.AddNodes msoSegmentCurve, msoEditingCorner, x(i), y(i)
Next
i = 1
.AddNodes msoSegmentCurve, msoEditingCorner, x(i), y(i)
i = 4
.AddNodes msoSegmentCurve, msoEditingCorner, x(i), y(i)
i = 5
.AddNodes msoSegmentCurve, msoEditingCorner, x(i), y(i)
With .ConvertToShape
.Line.Weight = 0.2
.Line.ForeColor.SchemeColor = 7 + 1
.Line.Style = 1
.Line.DashStyle = 1
.Fill.ForeColor.SchemeColor = 1
End With
End With

End Sub

————————————————-

あとはこれに頂点記号と長さを自動入力できるようにする予定です。

 

┿━━━━━━━━━━━━━━┿
— 学習塾NextStage ( ネクストステージ )–
┿━━━━━━━━━━━━━━┿
■営業時間 平日13:00~21:30
土曜10:00~21:30
日曜 不定期
■住所:川越市大字砂935-6
■電話:049-265-8994            
2015/11/06

【教材作成】図形描画用EXCELベータ版1-2

689e15_10b84fff68a84a87995bedcdcd1680c9

 

図形描画ベータ版を更新しました。

 

更新内容
・長さの自動付与が機能しない図形があったので修正
・画像データで貼り付けるとき、画像の端にある線が細くなる現象がうっとうしいので、『画像化』という
コマンドを増やしました。
・印刷ボタンを付け忘れていたので、付けておきました。

 

今後の修正予定
・リボン機能を全面OFFにしていますが、図形にかんするリボンを表示
★初めて開くときにエラーが生じるときがあります。保存して開きなおすと通常通り機能します。原因を追求中です。

 

最新版はこちらから

学ぶのが楽しくなり積極的に勉強する子が育つ学習塾のお役立ちブログです

新河岸にあるNextStageは、勉強させる、教えるという方針ではなく、生徒一人一人が自らの意思で積極的に学ぶことができる環境を整えております。自分の弱点や苦手分野を把握して生徒をサポートするパソコンとともに、理解できる楽しさを噛みしめながら前へと進んでいき、成績アップへとつなげていけます。
自ら学ぶ力がつく学習塾NextStageのブログでは、ご自宅からも簡単にアクセスして学べる家庭学習支援ツールの配信や、中学受験や高校受験などに役立つ情報やアドバイスを掲載しております。
塾だけでは物足りず、もっと勉強したいときや、受験勉強でつまずいたとき、不安になってしまったときに、新河岸のNextStageのブログをご覧ください。

→TOPに戻る