Microsoft PowerPoint - Visualプログラミング

Size: px

Start display at page:

Download "Microsoft PowerPoint - Visualプログラミング"

たつぞうかがんじ
5 years ago
Views:

1 流れの制御構造多方向分岐プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復上記以外は使ってはいけない. 141

2 if 文による多方向に分岐する処理 (1) Sub elseif2() Dim a As Integer a = Range("A1").Value If (a = 1) Then MsgBox "a は 1 です." ElseIf (a = 2) Then MsgBox "a は 2 です." ElseIf (a = 3) Then MsgBox "a は 3 です." ElseIf (a = 4) Then MsgBox "a は 4 です." Else MsgBox "a は 1~4 ではありません." End If 142

3 if 文による多方向に分岐する処理 (2) Sub elseif3() Dim score As Integer Dim judge As String If (Range("A2").Value <> "") Then score = Range("A2").Value If (score >= 90) Then judge = "A" ElseIf (score >= 80) Then judge = "B" ElseIf (score >= 70) Then judge = "C" ElseIf (score >= 60) Then judge = "D" Else judge = "E" End If Else judge = " " End If Range("B2").Value = judge ある範囲と一致する場合の例 143

4 多方向分岐 ~Select Case 文 (1) 一般形 Select Case 条件対象 Case 値 1( 論理式 1) 処理 1 Case 値 2( 論理式 2) 処理 2 : [Case Else 処理 n] End Select 144

5 多方向分岐 ~Select Case 文 (2) Sub selectcase() Dim a As Integer 1 つの値と一致する場合の例 a = Range("A1").Value Select Case a Case 1 a = 1のとき MsgBox "aは1です." Case 2 MsgBox "aは2です." Case 3 MsgBox "aは3です." Case 4 MsgBox "aは4です." Case Else MsgBox "aは1~4ではありません." End Select 145

6 多方向分岐 ~Select Case 文 (3) Sub selectcase2() Dim score As Integer Dim judge As String If (Range("A2").Value <> "") Then score = Range("A2").Value Select Case score Case Is >= 90: 'Case 90 To 100 でも可 judge = "A" Case Is >= 80 judge = "B" Case Is >= 70 judge = "C" Case Is >= 60 judge = "D" Case Else judge = "E" End Select Else judge = " " End If Range("B2").Value = judge ある範囲と一致する場合の例 Is キーワードは式の左側にしか使えない! Case 90 =< Is 146

7 多方向分岐 ~Select Case 文 (4) Sub selectcase3() Dim age As Integer age = Range("A1").Value Select Case age Case Is < 20: 'Case 0 To 19 でも可 MsgBox " 未成年ですね?" Case 30 To 39 MsgBox "30 代ですね?" Case 60 MsgBox " 還暦ですね?" Case 77, 88, 99 MsgBox " 喜寿か米寿か白寿ですね?" Case Else MsgBox age & " ですね?" End Select 練習問題 (1)~(2) その他の複雑な例 147

8 Like 演算子 Sub findstring() Const NR As Integer = 47 Dim ir As Integer, ss As String For ir = 1 To NR ss = cells(ir, 2).Value If (ss Like "* 島 *") Then Cells(iR, 2).Font.ColorIndex = 3 End If Next ir 中途省略県名に島の字の含まれる 5 県の文字が赤くなる."*" は, ワイルドカードと呼ばれる. Like 演算子は Select Case 文では使えない. 148

9 Like 演算子に用いるワイルドカード (1) 149

10 Like 演算子に用いるワイルドカード (2) 150

Phonetic プロパティ (1) キーボードから, シートのセル "A1" に中央大学と入力してみる. ふりがなの情報も保存される. Sub testphonetic() Dim ss As String ss = Range("A1").Phonetic.Text MsgBox ss Sub testphonetic2() Dim ss As String Range("A1").

11 Phonetic プロパティ (1) キーボードから, シートのセル "A1" に中央大学と入力してみる. ふりがなの情報も保存される. Sub testphonetic() Dim ss As String ss = Range("A1").Phonetic.Text MsgBox ss Sub testphonetic2() Dim ss As String Range("A1").Phonetic. _ CharacterType = xlhiragana ss = Range("A1").Phonetic.Text MsgBox ss 151

12 Phonetic プロパティ (2) キーボードから東北地方の県名を入力し, 昇順に並べ替えてみる. ちゃんと 50 音順になるふりがな順に並べ変わるため! 152

13 Phonetic プロパティ (3) Sub getphonetic() Const NR As Integer = 6 Dim ir As Integer For ir = 1 To NR Cells(iR, 1).Phonetic.CharacterType = _ xlhiragana Cells(iR, 2).Value = _ Cells(iR, 1).Phonetic.Text Next ir ふりがなが抽出できた. 153

14 Phonetic プロパティ (4) テキストエディタから東北地方の県名を貼り付け, 昇順に並べ替えてみる. 50 音順にならないふりがなの情報がなく漢字の文字コード順に並べ変わるため 8AE2h 8EE8h 8B7Bh 8FE9h 8E52h 8C60h 8F48h 9363h 90C2h 9058h 959Fh 9387h 県名の Shift JIS コード (16 進数 ) 練習問題 (3) 154

15 流れの制御構造前判定反復プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復上記以外は使ってはいけない. 155

16 前判定反復 ~Do Loop 文 (1) 繰返し回数は不明で, 繰返し処理を始める前に条件判断を行って結果的に繰返し回数が決まるもので, 以下の 2 とおりの形がある. (1) 条件式が満たされている間繰り返す場合 (2) 条件式が満たされるまで繰り返す場合一般形 Do While 条件式処理 Loop 一般形 Do Until 条件式処理 Loop どちらも 1 度も処理が行われない場合がある! 156

17 前判定反復 ~Do Loop 文 (2) Sub dowhileloop() Dim ir As Integer 勝率が高い順にチームが並んでいるシートで, 勝率 50% 以上のチームの勝率の背景を水色にする.1 つも塗られない場合がありうる. ir = 1 Do While (Cells(iR + 1, 3).Value >= 0.5) Cells(iR + 1, 3).Interior.ColorIndex = 20 ir = ir + 1 Loop 157

18 前判定反復 ~Do Loop 文 (3) Sub dountilloop() Dim ir As Integer 勝率が高い順にチームが並んでいるシートで, 勝率 50% 以上のチームの勝率の背景を水色にする.1 つも塗られない場合がありうる. ir = 1 Do Until (Cells(iR + 1, 3).Value < 0.5) Cells(iR + 1, 3).Interior.ColorIndex = 20 ir = ir + 1 Loop 158

19 前判定反復 ~Do Loop 文 (4) Sub untilzero() Dim ir As Integer Dim sum As Double Dim x As Double sum = 0 ir = 1 同じ内容 x = Cells(iR, 1).Value Do While (x <> 0) sum = sum + x ir = ir + 1 x = Cells(iR, 1).Value Loop MsgBox " 合計は " & sum & " です " A 列のデータが 0 になるまで数値を合計する. 159

20 前判定反復 ~Do Loop 文 (5) 階乗の計算例 : Long 型でも,13! 以上は記憶できない. Sub factorial() Const MaxInt As Long = Dim ir As Integer Dim f As Long Long 型で記憶できる最大の整数を定数化 ir = 1 f = 1 Do While (f < MaxInt / (ir + 1)) ir = ir + 1 f = f * ir Cells(iR + 1, 1).Value = ir Cells(iR + 1, 2).Value = f Loop 練習問題 (4) 160

Microsoft PowerPoint - vp演習課題

Microsoft PowerPoint - vp演習課題演習課題 (1) 27 Nov., '18 katakan2hiragana.xlsm は, 下図のように 4~8 行目の B 列に漢字で表記した氏名,C 列にカタカナで表記したヨミガナ,D 列にひらがなで表記したよみがなを表示させることを意図している. このシートは, セル範囲 "B4:B8"( 図の赤枠内 ) に, キーボードから漢字で氏名を入力すると C 列にカタカナのヨミガナが自動的に表示されるようになっている.