先週の復習 2重ループを用いた、 表の記入と読み込み.

Slides:



Advertisements
Similar presentations
情報基礎実習 I (第6回) 木曜4・5限 担当:北川 晃. Stream クラスを用いたファイルの接続 … Dim インスタンス名 As New IO.StreamReader( _ “ ファイルの絶対パス ”, _ System.Text.Encoding.Default) … s = インスタンス名.
Advertisements

1 情報基礎 A 第 9 週 プログラミング入門 VBA の基本文法 1 準備・変数・データの入出力 徳山 豪・全 眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
1 情報基礎 A 第 4 週 EXCEL 徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
情報処理 第9回第9回第9回第9回. 今日の内容 Excel の起動と画面構成 –Excel の起動 –Excel の画面構成と基本用語 データの入力 – 文字の入力 – 数値の入力 – 日時の入力 – オートフィル.
1 情報基礎 A 第 5 週 EXCEL 2 徳山 豪・全眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
1 情報基礎 A 第 6 週 EXCEL 3 徳山 豪・全 眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
1 情報基礎 A 第 4 週 EXCEL 徳山 豪・全眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
コンピュータと情報 第10回 Excel を使ってみる. Excel の起動 ① 「スタート」ボタンをク リック ② すべてのプログラムにマ ウスカーソルをあわせる ③ 「 Microsoft Office 」 → 「 Microsoft Excel 2003 」 にマウスをあわせて,ク リック ④.
情報処理基礎 A ・ B 第 5 回 プログラミング入門 操作の自動化を実現する仕組み. 2004/11/16 ・ 17 情報処理基礎 A ・ B 2 本日の内容 処理の自動化~プログラムの概念 ハードウェアとソフトウェア プログラミング言語 Excel における処理の自動化 入力支援の機能 分析ツール.
表計算ソフト (教科書49ペー ジ). ◎表計算ソフトとは 表から計算によって ① 知りたいデータを見つけ出し、 ② わかりやすく、見やすく加工する ことができるソフトのこと。
情報基礎 A 第 4 週 データベースと表計算 情報基礎 A 第 4 週 データベースと表計算 1 徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
コンピュータ演習 Excel 入門 岡田孝・山下雅啓 Excel の機能は膨大 その中のごく一部を紹介 表計算機能 – データの入力、表の作成、計算など グラフ機能 – 棒グラフ、円グラフなどグラフ作成 データベース機能 – 並べ替え(ソート)、検索、抽出など マクロ機能 – VBA で自動化したマクロを作成可能.
情報処理 第 13 回. 今日の内容 練習用ファイルのダウンロードデータの入力 – データベースに適したデータの入力方法 – ウィンドウ枠の固定 ( 見出し行の固定 ) データの並べ替え –1 つの列の値で並べ替え – 複数の列の値で並べ替え.
エクセル(1)の目次 起動法、ブック、シート、セル ブックの開き方 エクセル画面 マウスポインターの種類 シート数の調節 データの入力法
配列(2) 第10回目 [6月22日、H.16(‘04)] 本日のメニュー 1)前回の課題について 2)前回の宿題について 3)課題
関数(1) 第11回 [6月29日、H.16(‘04)] 今日のメニュー 1 前回の課題 2 前回の宿題 3 いろいろな関数の演習 4 課題
徳山豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野
情報理論2 注意!! 11月26日(火)は休講 (小林が学会出張のため) 湘南工科大学情報工学科 准教授 小林 学 湘南工科大学
徳山 豪・全 眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野
VBAを通して プログラム言語の基本構造を学ぶ
情報基礎実習I (第7回) 木曜4・5限 担当:北川 晃.
ファーストイヤー・セミナーⅡ 第8回 データの入力.
配列(2) 第10回[平成15年6月26日(木)]:PN03-10.ppt 今日の内容 1 素数を求める(教科書の例):復習
6/19 前回復習 for文による繰り返し計算 演習1:1から10まで足して画面に結果を表示する 提出者: 1人
エクセル(1)の目次 起動法、ブック、シート、セル ブックの開き方 エクセル画面 マウスポインターの種類 シート数の調節 データの入力法
VBA H106077 寺沢友宏.
情報基礎A 第13週 VBAプログラミング VBAの基本文法7・実際のデータ処理
情報基礎A 第10週 プログラミング入門 VBAの基本文法2 データ型・If ~Then~Else
地理情報システム論 第3回 コンピュータシステムおける データ表現(1)
情報基礎A 第7週 プログラミング入門 VBAの基本文法2 データ型・If ~Then~Else
情報基礎A 第14週プログラミング 実際のデータ処理での応用(2)
情報基礎A 第11週 プログラミング入門 VBAの基本文法3 配列・For~Next
情報処理 第13回.
第5回 統計処理(2) 塩浦 昭義 東北大学全学教育科目 情報基礎 A 1セメスター 木曜1,3講時 経済学部・法学部
テキストボックス、チェックボックス×2、コマンドボタンを配置する。 コマンドボタンに機能を与える
2015年度 演習課題2 Excelによる自己評価の集計
情報処理A 第?回 Excelを使ってみる.
実例で学ぶプログラミング VBAを用いて簡単なゲームを作ろう 徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野
本時の目標 「簡単なプログラム言語の意味を理解し、マクロ機能を使って簡単なプログラムを作ることができる。」
情報工学Ⅱ (第9回) 月曜4限 担当:北川 晃.
電気・機械・情報概論 VBAプログラミング 第2回 2018年7月2日
地域情報学演習 VBAプログラミング 第3回 2017年10月24日
第4回 統計処理(1) 表計算ソフトの基本操作 塩浦 昭義 東北大学全学教育科目 情報基礎 A 1セメスター 木曜1,3講時
相関.
実践プログラミング入門2 配列を使ってゲームを作ろう 徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野.
情報基礎Ⅱ (第11回) 月曜4限 担当:北川 晃.
「入力」はInputBoxやテキストボックスに限らず、 セルからのデータの入力や、チェックボックス等からの入力全てを含める。
情報基礎Ⅱ (第5回) 月曜4限 担当:北川 晃.
プログラムの基本構造と 構造化チャート(PAD)
情報基礎演習I(プログラミング) 第11回 7月12日 水曜5限 江草由佳
C言語 はじめに 2016年 吉田研究室.
表計算 Excel 演習 1.Excel を使ってみる.
表計算ソフトウェアの活用① [基本的な関数]
第6回レポート解説 条件1 条件2 条件3 月の入力 月、日、曜日の表示 日の入力 曜日の入力
ORの手法ゲームの理論3 (Excelによるゲーム理論実習)
情報工学Ⅱ (第9回) 月曜4限 担当:北川 晃.
情報基礎演習I(プログラミング) 6月8日 水曜5限 江草由佳
復習 Cにおけるループからの脱出と制御 break ループを強制終了する.if文と組み合わせて利用するのが一般的. continue
情報処理 第13回.
徳山 豪 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野
情報工学Ⅱ (第8回) 月曜4限 担当:北川 晃.
情報実習I (第1回) 木曜4・5限 担当:北川 晃.
アルゴリズムの視覚化 この図は左が大きく、 右が小さくなるようにソートしている  この図は左が大きく、  右が小さくなるようにソートしている
2011年度 演習課題2 Excelによる理解度自己採点
プログラミング入門2 第5回 配列 変数宣言、初期化について
情報基礎A 第14週プログラミング 実際のデータ処理での応用(2)
オブジェクト指向言語論 第六回 知能情報学部 新田直也.
5.2 グレゴリー・ニュートン(Gregory-Newton)の補間式 (1)導入
8.数値微分・積分・微分方程式 工学的問題においては 解析的に微分値や積分値を求めたり, 微分方程式を解くことが難しいケースも多い。
Presentation transcript:

先週の復習 2重ループを用いた、 表の記入と読み込み

For文 行番号を書くプログラム(A1~A10 に行番号) Sub gyou() Dim i As Integer For i = 1 to 10   cells(i, 1)=i Next i End sub

For文 列番号を書くプログラム(A1~J1に列番号) Sub retsu() Dim j As Integer For j = 1 to 10   cells(1, j)=j Next j End sub

2重ループ :For文を入れ子構造で使用 行番号を書くプログラム 10行, A~J列まで Sub gyouretsu() Dim i As Integer Dim j As Integer For i = 1 to 10 For j = 1 to 10   cells(i, j)=i Next j Next i End sub

2重ループ セルに自分の「行番号*列番号」を出力するプログラム Sub dual() Dim i As Integer Dim j As integer For i = 1 to 10    For j = 1 to 10       cells(i, j) = i * j    Next j Next i End sub

合計点と平均点を求めるプログラム j i Sub heikin() Dim i As Integer Dim j As Integer x : 合計を計算するための変数 学生ことに合計を求めて合計点と平均点を計算する その後,次の学生の合計を計算するために変数xの値を初期化(0)に設定をする Sub heikin() Dim i As Integer Dim j As Integer Dim x As Integer For i = 1 to 5  x=0    For j = 1 to 2       x = x + cells( i, j )    Next j  cells( i, j )=x  cells( i, j+1 ) = x/2 Next i End Sub j 85 56 69 78 95 54 98 92 i

演習:個人の合計,平均 Sub kojin() Dim i As Integer 先週の演習問題 Dim j As Integer Dim x As Integer For i= 2 To 11 x= 0 For j = 2 To 4 x = x + Cells(i, j) Next j Cells(i, j) = x Cells(i, j + 1) = x / 3 Next i End Sub 先週の演習問題 Sheet2 の成績データ (10人分の国語,英語,数学) 注意:Sheet2を開いた状態 でプログラムを実行

情報基礎A 第13週プログラミング 実際のデータ処理での応用 徳山 豪・全  眞嬉 東北大学情報科学研究科 システム情報科学専攻 情報システム評価学分野

売上データ処理 情報基礎Aのホームページから売上データをダウンロードして下さい データの概要 data18.xls http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho.html 注意:ファイルダウンロード時にファイルを必ず「保存する」にして下さい.「開く」を選択するとInternet Explorer上で開くと編集を保存することは出来ません データの概要 47都道府県別の月間売上データ 平成18年1月~12月 商品の種類:10品目

これからのやること 平成18年の47都道府県別月間売上データ( 10商品)の処理 今日は年間売上数を計算 18年の都道府県別・商品ことの年間売上数,年間売上高,年間売上総利益などの処理 今日は年間売上数を計算 方法 指定するワークシートセルの参照 多重ループ 2次元データ 複数の異なるワークシートからなるデータ一括処理

ワークシートの参照 指定するワークシートセルの参照 Worksheets(“ワークシートの名前”).Cells(行, 列) ワークシート名が数値と文字列の組合せの場合 数値のところを変数として使用 Worksheets(“1 月”).Cells(4, 2) Worksheets( tsuki & “月” ).Cells(4, 2)

複数の異なるワークシートからなるデータの読込みと計算 1月~12月の商品Aの北海道の売上数 「1月」のシート から 「12月」のシートのCells(4, 2)の合計 商品1の北海道の年間売上数 Worksheets(“1月”).cells(4, 2) + Worksheets (“2月”).cells(4, 2) +   ・・・   + Worksheets (“12月”).cells(4, 2)

ワークシート名の数値を変数として扱い 繰返し制御(For文)によりデータを読込む 商品1の北海道の年間売上数を求めてメッセジーボックスに出力するプログラム Sub hokkaido() Dim tsuki As Integer Dim goukei As Integer For tsuki = 1 to 12 goukei= goukei + Worksheets(tsuki & “月”) .cells(4, 2) Next tsuki msgbox goukei End sub

年間売上数:都道府県別,商品別,12ヶ月 47回 10回 12回 3月商品10の売上数 2月商品10の売上数 1月商品10の売上数 12月商品10の売上数 商品10 3月商品1の売上数 2月商品1の売上数 1月商品1の売上数 12月商品1の売上数 商品1 沖縄 47回 北海道 3月商品10の売上数 2月商品10の売上数 1月商品10の売上数 12月商品10の売上数 商品10 10回 商品1 1月商品1の売上数 2月商品1の売上数 3月商品1の売上数 12回 12月商品1の売上数

演習:シート「年間売上数」に18年の商品別, 都道府県別売上数を求めよ 演習:シート「年間売上数」に18年の商品別, 都道府県別売上数を求めよ Sub uriagesu() Dim i As Integer Dim j As Integer Dim tsuki As Integer Dim goukei As Integer For i = 4 To 50 '47都道府県 For j = 2 To 11 '10種類の商品 goukei = 0 For tsuki = 1 To 12 '12ヶ月 goukei = goukei + Worksheets(tsuki & "月").Cells(i, j) Next tsuki Worksheets("年間売上数").Cells(i, j) = goukei Next j Next i End Sub