の演習は、多くの人々は、あなたが演習の数を行うことができますスライドを経て、PPT、データのエクセルVBA簡単に検索を使用することを知らないでください。以下の小さなシリーズはちょうどPPTやエクセル完璧な組み合わせは、演習を行う方法を見てみましょう。教室では、多くの教師は、PPTと教室での演習です。一般的には、スライドの数の道路演習の数が使用されます。このアプローチは欠点保存：フォントやフォントサイズを変更するために、統一された試験問題にスライドさせ、あなたは一つ一つを変更する必要があります。あなたは何十、さまざまな演習の何百、一つずつ変更したい場合がある考えると、それは、神の料金は非常に面倒である、しかし、質問は以下のスライドで使用する場合は、このようなアプローチは大丈夫でした事。継続的な研究を通して、著者は、最終的には非常に効果的な方法を思い付いた：あなたがスライドするデータをワークシートを読み取るためにExcelのワークシートに保存されているし、Excel PPTでVBAを使用する必要がある質問の数、唯一のスライドが道路をいくつかのエクササイズを実践できるようにします。それを変更するには、唯一のあなたは、その上にテキストボックスに、この1枚のスライドを変更する必要があります。あなたは、このメソッドを実装する方法を知りたい場合は、私と一緒に来てください！準備のシート、スライド、このプロセスは、主にExcelワークシートの質問とスライドショーの質問を堆積する準備ができています。まず、同じフォルダに、Excelファイルを準備する必要の質問シート1ワークシート、およびExcelファイルに保管し、PPTファイル。その後、パワーポイント2003オープン、空白のスライドを挿入します。 2つのテキストボックスを挿入するには、このスライドでは、彼らの役割は、論文、正しい答えを格納するための1（タイトルテキストボックスを入力することができるに保存されている質問暗示文で、正しいストレージを格納するためのトピックです答えはスペースを入力するテキストボックス）（図1）であってもよいです。最後に、&'を選択し、スライドショー&RARR;アクションボタン'メニュー、操作ボタン5は、スライドの代わりに挿入されています。 （図2）、その対応するテキストを追加するには、対応するアクションボタンを右クリックします。これを行うにはVBAのコードを追加し、メイン制御Excelワークシートを書くことで、PPTは、VBAコードで中国のボックスをスライド。コードを書くことになると、あなたは少しめまいがするかもしれません。実際には、プログラムコードが入力したか、あなたのファイルにコピーされた私のコードの最初に、私はあなたに説明している場合、次に見ることができるので、神秘的ではない、すべてがはるかに簡単です！まず、我々は選択した'ツール&RARR;マクロ&RARR; Visual Basicエディター'メニューを、それはそれは、VBAエディタで、Microsoft Visual Basicのウィンドウをポップアップ表示されます。選択'挿入&RARR;モジュール'メニューは、右側のこの時間は空白領域コードの編集を見ることができ、我々はコード（図3）を入力しようとすることができます。コードを見ると、あなたはそれの一部を困惑しました！あなたが突然光を参照してください、あなたはあなたにそれを説明する私を見て、問題ではありません。上記のコードでは、最初の公開xlApp、xlBook、xlSheet、I 4つの変数によって定義され、最初の3つは、私は、Excelワークシート内の行の現在の数を示すために使用される、Excelワークシートを制御するようにされて使用されます。次いで、5'小… ENDサブ&'は、5つのイベントプロシージャを定義し、VBAのイベントがオンで、各プロセスは、オープン試験として、SubおよびEnd Subの間の対応する名前を有します（ ）、次の質問（）など。今度は、&'説明しましょう。オープン試験（）'このプロセス：セットxlApp = CreateObjectの（"まずExcel.Application"）Excelのコントロールを作成するために使用されます。xlApp.Visible = Falseのコントロールがエクセル隠されている表示されていないことを示し、それは現在のウィンドウに表示させてください。設定xlBook = xlApp.Workbooks.Open（CURDIR（）+" \\ Book1.xlsというブック"）Book1.xlsという名前のファイルを開くには、Excelを表し、CURDIR（）現在のディレクトリを示します。設定xlSheet = xlBook.Worksheets（1）xlSheetに割り当てられている制御ブック最初のワークシート1の権限を表します。 ActivePresentationのは、現在アクティブなプレゼンテーションを示しています。 .Slides（1）スライドの最初のプレゼンテーションを表し、.Shapesは、（1）テキストボックスの最初のスライドを表します。 .TextFrame.TextRange.Textは、テキストボックス内のテキストを言いました。私たちは、すなわちActivePresentation.Slides（1）.Shapes（1）.TextFrame.TextRange.Textは、テキストボックスのスライドのプレゼンテーションの現在の内容を表し、それらを接続します。 xlSheet.Range（""&＃038; I）値A3細胞を得るために、今= 3、シート1のセルの値を表します。するアクションはchrです（10）は、改行文字を表す置き換えることで、chrです（13）に置き換え、キャリッジリターンを表す関数を置き換え（I）のChr（10）はChr（13）; B" xlSheet.Range（"を;&＃038）あるいは復帰改行にセルB3を発現しました。 &Ldquo;&＃038;'接続の異なるタイプの値を強制するために使用されるこのシンボルに接続され機能します。全体文ActivePresentation.Slides（1）.Shapes（1）.TextFrame.TextRange.Text = xlSheet.Range（""&＃038; I）&＃038;","&＃038;（xlSheet.Range（"を交換し、値プラスあるいはB3の後リターンをキャリッジに文字を改行します; B"&＃038; I）、chrです（10）はChr（13））は、セルA3プラス',&'におけるシート1の値を示します最初のテキストボックスに沿ってスライドするために割り当てられました。で'このプロセスの値は、I = I + 1はI + 1は4行目を取ることができる後に、すなわち、行3は、今、一つの行を現在のワークシートをダウン表し、次の質問を（）&' 。 （;"&＃038; I"）の値が空でない、タイトルテキストボックスに割り当てられている対応する値を取るために、そうでない場合に、文の条件判断は、判決は、試験に終止符を持っていない場合はxlSheet.Range場合にこのプロセスが適用されますメッセージボックスは、（）プロンプトメッセージ機能します。一方、ディスプレイにActivePresentation.Slidesを正しい答えを要求しないために（1）.Shapes（2）.TextFrame.TextRange.Text =""正解テキストボックスが空白として表示されている2番目のテキストボックスにスライドさせ表します。そんなに説明し、あなたは今それのいくつかを理解できますか？その後、他のプロセスは類似しており、それが何を意味するのか、あなたは理解して理解して理解しています。各ボタンに追加することは主に、そのプロセスイベントに対応する、このプロセスにイベントを追加するためのボタンです。例えば、我々は、&'与える;正解&'を、このボタンは、イベントを追加するために、我々はそれを右クリックして選択する&'することができます。アクションが設定'メニュー、ポップアップ'アクションセット'のウィンドウで、['マクロ&'を実行します。、クリックします適切なプロセスを選択し、その右側にある矢印、最終的にクリック'決定'に。別のボタンイベントを追加し、それが同じ理由で（図4）です。 VBAコードの作品は、私たちがマクロのセキュリティを調整する必要があるこれらのイベントを作るために、VBAコードをアクティブにします。選択'ツール&RARR;マクロ&RARR;セキュリティ'、マクロのセキュリティが'を、&に設定されている;'、あなたがスムーズにVBAコード（図5）を実行することができますので、低。上記の結果は、終了後、我々はスライドを表示することができます。オープン試験'の使用では、我々は最初の&'クリック正解'ボタンは、その後、ちょうど&'をクリックして、最初の質問で試験を示すことになる対応するトピックボタンに正解が表示されます。あなたはクリック&'場合;次の質問'ボタン、対象が切り替えられますし、次の質問に対する正しい答えは表示されません。あなたが正解か、タイトルのフォント、サイズ、色などがあまりにも満足していないと思われる場合、あなただけの行に対応するテキストボックスの書式を設定する必要があります。この方法は、特にShuangyaないが、見て！この方法を使用して、あなたはどのように多くの質問が問題ではありません持っている、しようとする（図6）を急いではありません！ *******************コード*************公共xlApp、xlBook、IntegerSubオープン試験としてxlSheetPublic I（）を設定xlApp = CreateObjectの（"まずExcel.Application"）xlApp.Visible = FalseSet xlBook = xlApp.Workbooks.Open（CURDIR（）+" \\ Book1.xlsという"）セットxlSheet = xlBook.Worksheets（1）I = 3ActivePresentation.Slides（1） .Shapes（1）.TextFrame.TextRange.Text = xlSheet.Range（""&＃038; I）&＃038;","&＃038;（xlSheet.Range（"を交換; B"&＃038; I）、chrです（ 10）のChr（13））エンドSubSub次の質問（）は、i = iは1IF xlSheet.Range（" +; I）<"&アンプを>"" ThenActivePresentation.Slides（1）.Shapes（2 ）.TextFrame.TextRange.Text ="" ActivePresentation.Slides（1）.Shapes（1）.TextFrame.TextRange.Text = xlSheet.Range（""&＃038; I）&＃038;","&アンプ;交換（; B"&＃038; xlSheet.Range（"）はChr（13）は、i）はChr（10）ElseMsgBox（"を;!"における最後の質問有する;））エンドIFEND SubSubに質問を（I = I - 1IF xlSheet.Range（""&＃038; I）<>"" O R xlSheet.Range（""&＃038; I）<>" ID" ThenActivePresentation.Slides（1）.Shapes（2）.TextFrame.TextRange.Text ="" ActivePresentation.Slides（1） .Shapes（1）.TextFrame.TextRange.Text = xlSheet.Range（""&＃038; I）&＃038;","&＃038;（xlSheet.Range（"を交換; B"&＃038; I）、chrです（ 10）のChr（13））ElseMsgBox（"、既に最初の質問！ "）終了IFEND SubSub正解（）ActivePresentation.Slides（1）.Shapes（2）.TextFrame.TextRange.Text = xlSheet.Range（" C"&＃038; I）エンドSubSubオフ試験（）xlBook.Close（偽）xlApp.QuitSet xlApp = NothingEnd家からサブ[システム] www.xp85.com