PowerPoint プレゼンテーション

Size: px

Start display at page:

Download "PowerPoint プレゼンテーション"

めぐのしどり
5 years ago
Views:

1 多分岐選択

2 条件式 If Then Else IIF Select Switch 今日の目的

4 Dim n As Long n = 10 If n = 10 Then 条件式 Debug.Print ゆっくりしていってね! End If

5 比較演算子その他よく使用する演算子文字列型にたいする条件式条件式オブジェクト型バリアント型に対する条件式

6 比較演算子 = 等しい <> 等しくない >= 以上 > より大きい <= 以下 < 小さい

7 Dim n As Long n = 10 If n = 10 Then = 演算子 Debug.Print ゆっくりしていってね! End If = 演算子この場合は n と 10 は等しいので True と評価されて命令が実行される

8 Dim n As Long n = 10 If n <> 10 Then <> 演算子 Debug.Print ゆっくりしていってね! End If <> 演算子この場合は n と 10 は等しいので False と評価されて命令が実行されない

9 Dim n As Long n = 10 If n >= 10 Then >= 演算子 Debug.Print ゆっくりしていってね! End If >= 演算子この場合は n が 10 以上なので True と評価されて命令が実行される

10 Dim n As Long n = 10 If n > 10 Then > 演算子 Debug.Print ゆっくりしていってね! End If > 演算子この場合は n が 10 より多きくないので False と評価されて命令が実行されない

11 Dim n As Long n = 10 If n <= 10 Then <= 演算子 Debug.Print ゆっくりしていってね! End If <= 演算子この場合は n が 10 以下なので True と評価されて命令が実行される

12 Dim n As Long n = 10 If n < 10 Then < 演算子 Debug.Print ゆっくりしていってね! End If < 演算子この場合は n が 10 より小さくないので False と評価されて命令が実行されない

13 比較演算子その他よく使用する演算子文字列型にたいする条件式条件式オブジェクト型バリアント型に対する条件式

14 条件式でよく使う演算子 exp1 And exp2 exp1 とexp2が両方真なら真 exp1 Or exp2 Not exp1 exp1 と exp2 のどちらかが真なら真 exp1 が偽なら真真なら偽

15 Dim b1 As Boolean, b2 As Boolean b1 = True : b2 = False If b1 And b2 Then AND 演算子 Debug.Print ゆっくりしていってね! End If And 演算子両方の条件が True の場合に True になる

16 Dim b1 As Boolean, b2 As Boolean b1 = True : b2 = False If b1 Or b2 Then OR 演算子 Debug.Print ゆっくりしていってね! End If Or 演算子どちらかの条件が True の場合に True になる

17 AND,ORでの注意 Dim b As Boolean b = False If b And fnctest() Then Debug.Print ゆっくりしていってね! End If VBA では条件式全て評価されるこの場合すでに偽が確定していても fnctest というプロシージャが実行されてしまう

18 AND,ORでの注意 Dim b As Boolean b = False If b = True Then If fnctest() Then Debug.Print ゆっくりしていってね! End If End If プロシージャーを実行させたくないときはアンド演算子をつかわずにもう一つ IF 文を記述する

19 AND,OR での注意 If fnctesta() Or fnctestb() Then Debug.Print ゆっくりしていってね! End If OR の場合の例かりにプロシージャー A が真であってもプロシージャ B は実行されてしまう

20 AND,ORでの注意 Dim b As Boolean b = fnctesta() If b=false Then b=fnctestb() End if If b Then Debug.Print ゆっくりしていってね! End If なのでプロシージャー A が偽のときのみプロシージャー B を実行するようにする

21 Dim b1 As Boolean b1 = True If Not b1 = True Then Not 演算子 Debug.Print ゆっくりしていってね! End If Not 演算子真なら偽偽なら真になる

22 比較演算子その他よく使用する演算子文字列型にたいする条件式条件式オブジェクト型バリアント型に対する条件式

23 文字列型についての比較演算子による文字の比較 StrComp による文字列比較 Like によるパターンチェック条件式

24 Dim s As String If s = Then 比較演算子の例 Debug.Print ゆっくりしていってね! End If この例では文字列型の変数が空文字かチェックしている

25 Dim s As String 比較演算子の例 s = TAKE IT EASY. If s = Take it easy. Then Debug.Print ゆっくりしていってね! End If 文字列に対して = 演算子でチェックした場合これが True か False になるかはここだけでは判断できない

26 Option Compare Binary * または省略した場合 ~ 略 Dim s As String 比較演算子の例 s = TAKE IT EASY. If s = Take it easy. Then Debug.Print ゆっくりしていってね! End If Option Compare Binary の場合大文字小文字は区別する

27 比較演算子の例 Option Compare Text ~ 略 Dim s As String s = TAKE IT EASY. If s = Take it easy. Then Debug.Print ゆっくりしていってね! End If Option Compare Text の場合大文字小文字は区別せずまた地域できめられたテキスト並び順に依存する日本語の場合かなとカナや全角半角は区別されない

28 StrCompを使用した例 Dim s As String s = TAKE IT EASY. If StrComp(s, "TAKE it EASY! ", _ vbtextcompare) = 0 Then Debug.Print ゆっくりしていってね! End If StrComp 関数は文字の比較をする

29 StrCompを使用した例 Dim s As String s = TAKE IT EASY. If StrComp(s, "TAKE it EASY! ", _ vbtextcompare) = 0 Then Debug.Print ゆっくりしていってね! End If StrComp 関数の第 3 引数 vbusecompareoption: オプションに依存 vbbinarycompare: 完全一致か比較 vbtextcompare: 大文字小文字半角全角かなカタカナは区別しない

30 StrCompを使用した例 Dim s As String s = TAKE IT EASY. If StrComp(s, "TAKE it EASY! ", _ vbtextcompare) = 0 Then Debug.Print ゆっくりしていってね! End If StrComp 関数戻り値 0: 文字列が等しいそれ以外 : 等しくない

31 Dim s As String Like 演算子の例 s = 神はいっているゆっくりしていけと If s Like * ゆっくり * Then Debug.Print ゆっくりしていってね! End If Like 演算子はパターンに比較ができる

32 比較演算子条件式その他よく使用する演算子文字列型にたいする条件式オブジェクト型バリアント型に対する条件式

33 オブジェクト型やバリアント型で使用する条件式 Nothingの判定オブジェクトのタイプ判定 Emptyの判定 Nullの判定オブジェクト型か? 配列か? 日付に変換できるか? 数値に変換できるか?

34 Dim obj As Object Nothing の判定 If obj Is Nothing Then Debug.Print obj は Nothing だよ End If Is Nothing を使用してオブジェクトが Nothing かどうかチェックする

35 Dim obj As Object Nothing の判定 If Not obj Is Nothing Then Debug.Print obj は Nothing じゃないよ End If Not XXX Is Nothing を使用してオブジェクトが Nothing でないことを確認する

36 オブジェクトのタイプ Dim obj As Object Set obj = ThisWorkbook If TypeOf obj Is Workbook Then Debug.Print obj は WorkBook だよ End If オブジェクトのタイプを確認するには TypeOf XXX Is を使用する

37 Dim v As Variant Emptyの確認 v = Empty 初期値のままでも OK If IsEmpty (v) Then Debug.Print v は Empty End If Empty は Variant の変数にデータが入っていないことを表すこれは IsEmpty() 関数でチェックする

38 Dim v As Variant v = Null If IsNull (v) Then Debug.Print v は Null End If Nullの確認 Null は Variant の変数に有効なデータが入っていないことを示すこれは IsNull() 関数でチェックする

39 オブジェクトか? Dim v As Variant Set v = ThisWorkbook If IsObject (v) Then Debug.Print v は Object End If IsObject はバリアント型がオブジェクトを参照しているかチェックする

40 Dim v As Variant v = Array( a, b, c ) If IsArray (v) Then Debug.Print v は配列 End If 配列か? IsArray は指定の変数が配列かどうかチェックしている

41 日付に変換できるか? Dim v As Variant v = 1999 年 1 月 1 日 If IsDate (v) Then Debug.Print v は日付 End If IsDate は指定の変数が日付に変換できるかどうかチェックしているこの関数は地域や環境によって同じ値をチェックしても結果がかわる

42 数値に変換できるか? Dim v As Variant v = If IsNumeric (v) Then Debug.Print v は数値 & CDbl(v) End If IsNumeric は指定の変数が数値に変換できるかチェックしている

43 条件式 If Then Else IIF Select Switch 今日の目的

44 If Then Else If 条件式 -1 Then 条件 1 をみたした場合の命令 [ElseIf 条件式 -n Then 条件 n を満たした場合の命令 ] [Else 条件を満たさなかった場合の命令 ] EndIf

45 If Then Else If 条件式 -1 Then 条件 1 をみたした場合の命令 [ElseIf 条件式 -n Then 条件 n を満たした場合の命令 ] [Else 条件を満たさなかった場合の命令 ] EndIf If Then と End If は必須

46 If Then Else If 条件式 -1 Then 条件 1 をみたした場合の命令 [ElseIf 条件式 -n Then 条件 n を満たした場合の命令 ] [Else 条件を満たさなかった場合の命令 ] EndIf もし条件式 1 を満たした場合ここが実行されてその後 End If へ

47 If Then Else If 条件式 -1 Then 条件 1 をみたした場合の命令 [ElseIf 条件式 -n Then 条件 n を満たした場合の命令 ] [Else 条件を満たさなかった場合の命令 ] EndIf 任意の数だけ記述できる

48 If Then Else If 条件式 -1 Then 条件 1 をみたした場合の命令 [ElseIf 条件式 -n Then 条件 n を満たした場合の命令 ] [Else 条件を満たさなかった場合の命令 ] EndIf Else は必要なら一つだけ記述できる

49 If Then Else If a = 10 Then Debug.Print 1 EndIf

50 If Then Else If a = 10 Then Debug.Print 1 Else Debug.Print Else EndIf

51 If Then Else If a = 10 Then Debug.Print 1 ElseIf a = 20 Then Debug.Print 2 Else Debug.Print Else EndIf

52 条件式 If Then Else IIf Select Switch 今日の目的

53 IIf 関数 ret = IIf ( 条件式, 真の場合の値, 偽の場合の値 )

54 IIf 関数 Debug.Print IIf(a = 10, 真, 偽 ")

55 IIf 関数 Debug.Print IIf(True, fnca(), fncb() ) 評価は両方の引数に対して行われるので注意

56 条件式 If Then Else IIf Select Switch 今日の目的

57 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select

58 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select

59 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select 値の指定方法 Case 値値の場合にステートメント実行

60 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select 値の指定方法 : リスト Case 値 1, 値 2, 値 3 値 1 値 2 値 3 のいづれかのときステートメント実行

61 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select 値の指定方法 :To キーワード Case 値 1, 値 x To 値 y 値 1 または x~y の範囲

62 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select 値の指定方法 :Is キーワード Case 値 1, Is 比較演算子 X

63 Select 式 [Case 値 -n (n:1 以上 ) Select 式が値に一致した場合に実行 ] [Case Else すべての Case が条件を満たさなかった場合の命令 ] End Select

64 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

65 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

66 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

67 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

68 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

69 Select Case a Case 1 Debug.Print 1" Case 2 To 4 Debug.Print 2" Case 5, 6, 7 Debug.Print 3 Case Is > 1000 Debug.Print 4 Case Else Debug.Print 5 End Select

70 条件式 If Then Else IIf Select Switch 今日の目的

71 Switch Switch ( 式 1, 値 1[, 式 2, 値 2 [, 式 n, 値 n]])

72 Switch Debug.Print Switch (a = 10, 1 _, a = 20, "2 _, a > 30, "3")

73 Switch Debug.Print Switch (True, 1 _, a = 20, "2 _,fncsub(), "3")

74 条件式 If Then Else IIf Select Switch 今日の目的

75 多分岐選択

PowerPoint プレゼンテーション

PowerPoint プレゼンテーションプロシージャプロシージャの種類 Subプロシージャ Functionプロシージャ Propertyプロシージャ Sub プロシージャ Subステートメント~ステートメントで囲まれる実行はするけど値は返さない途中で抜けたいときは Exit Sub を行なう Public Sub はマクロの実行候補に表示される Sub プロシージャの例 Public Sub TestSubProc() Call