PowerPoint プレゼンテーション

Size: px

Start display at page:

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

りえこやぎ
5 years ago
Views:

1 数字を扱う変数

2 目的整数の型少数点を含む型

3 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ )

4 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ ) バイト型サイズ :1 バイト範囲 0~255

5 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ ) 長整数型サイズ :4 バイト範囲 -2,147,483,648~2, ,647

6 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ ) 整数型サイズ :2 バイト範囲 -32,768~32,767

7 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ ) 長整数型サイズ :4 バイト範囲 -2,147,483,648~2,147,483,647

8 Byte Integer Long 整数の型の種類 LongLong(64bit 版のみ ) 多倍長整数型サイズ :8 バイト範囲 -9,223,372,036,854,775,808 ~ 9,223,372,036,854,775,807

9 整数型の使用例

10 整数型の使用例

11 整数型の使用例 Public Sub TestIntegerDataType() End Sub

12 整数型の使用例整数型の使用例 Public Sub TestIntegerDataType() End Sub

13 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte End Sub

14 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte End Sub

15 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte End Sub

16 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte End Sub

21 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Debug.Print "bytdata の内容 :" & bytdata End Sub

22 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Debug.Print "bytdata の内容 :" & bytdata End Sub

23 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Debug.Print "bytdata の内容 :" & bytdata End Sub

24 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Dim lngdata as Long Debug.Print "bytdata の内容 :" & bytdata Debug.Print "lngdata の内容 :" & lngdata End Sub

25 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Dim lngdata as Long Debug.Print "bytdata の内容 :" & bytdata Debug.Print "lngdata の内容 :" & lngdata End Sub

26 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() ~ ( 省略 ) ~ bytdata = 123 lngdata = 8000 Debug.Print 変更後 bytdata の内容 :" & bytdata Debug.Print " 変更後 lngdata の内容 :" & lngdata End Sub

27 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() Dim bytdata as Byte Dim lngdata as Long Debug.Print "bytdata の内容 :" & bytdata Debug.Print "lngdata の内容 :" & lngdata End Sub

28 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() ~ ( 省略 ) ~ bytdata = lngdata = 8000 Debug.Print 変更後 bytdata の内容 :" & bytdata Debug.Print " 変更後 lngdata の内容 :" & lngdata End Sub

整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() ~ ( 省略 ) ~ bytdata = 110105 lngdata =

29 整数型の使用例 ' 整数型の使用例 Public Sub TestIntegerDataType() ~ ( 省略 ) ~ bytdata = lngdata = 8000 Debug.Print 変更後 bytdata の内容 :" & bytdata Debug.Print " 変更後 lngdata の内容 :" & lngdata End Sub

30 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double

31 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 固定小数点とはある桁に小数点が固定されている計算誤差をしてはいけないときに使う

32 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 浮動小数点は一定の範囲内の誤差で近い数値に近似できる極端な数値を扱う分野で使う

33 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 通貨型サイズ :8 バイト範囲 -922,337,203,685, ~922,337,203,685,

34 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 単精度浮動小数点数型サイズ :4 バイト負の値の範囲 : E38 ~ E-45 正の値の範囲 : E-45 ~ E38

35 小数点を含む型の種類固定少数点 Currency 浮動小数点 E 小数点以下がごく細かい Single Double 単精度浮動小数点数型サイズ :4 バイト負の値の範囲 : E38 ~ E-45 正の値の範囲 : E-45 ~ E38

36 小数点を含む型の種類固定少数点 Currency 浮動小数点 E すごく大きい桁 Single Double 単精度浮動小数点数型サイズ :4 バイト負の値の範囲 : E38 ~ E-45 正の値の範囲 : E-45 ~ E38

37 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 単精度浮動小数点数型サイズ :4 バイト負の値の範囲 : E38 ~ E-45 正の値の範囲 : E-45 ~ E38

38 小数点を含む型の種類固定小数点 Currency 浮動小数点 Single Double 倍精度浮動小数点数型サイズ :8 バイト負の値の範囲 : E308 E308 ~ E-324 正の値の範囲 : E-324 ~ E308 E308

39 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

40 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

41 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

42 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

43 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

44 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

45 あありのまま今起こったことを話すぜ 0.1 を十回足しても 1 にならないでも表示だけは 1 のふりをするななにを言っているのかわからねーとおもうがおれも何をされたかわからなかった頭がどうにかなりそうだった計算誤差とかチャチナもんじゃあ断じてねぇもっと恐ろしいものの片鱗を味わったぜ

46 Public Sub TestDoubleDataType() Dim data As Double Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

1 Next i If data = 1 Then Debug.Print " フフフ計画通り.

47 Public Sub TestCurrencyDataType() Dim data As Currency Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

48 Public Sub TestCurrencyDataType() Dim data As Currency Dim i As Long data = 0 For i = 1 To 10 data = data Next i If data = 1 Then Debug.Print " フフフ計画通り..." & data Else Debug.Print " げせぬ..." & data End If End Sub

49 きょう勉強したこと整数の型少数点を含む型

50 きょう勉強したこと整数の型少数点を含む型

51 質問 1 Interger 型さんディスンなよバカなの? アホなの? ワゴンなの?

52 回答 1 質問にかこつけて神ゲーをディスるとは汚いなさすがInteger 汚い

53 回答 1 俺はこれでInteger 型嫌いになったな俺は中立の立場で見てきたけどやはり Long 型中心にいったほうがいい事が判明した

54 回答 1 あと OfficeXP 時代のドキュメントに Long 型の方がちょっと効率がいいとあったこれはもう Long 型がいいのは確定的に明か

55 The Integer, Long, and Byte Data Types

56 The Integer, Long, and Byte Data Types Traditionally, VBA programmers have used integers to hold small numbers, because they required less memory. 伝統的に VBA プログラマは小さい数を保持して Integer 型を使ったなぜならば (Long 型にくらべて ) メモリの要求が少なかったからだ

57 The Integer, Long, and Byte Data Types In recent versions, however, VBA converts all integer values to type Long, even if they are declared as type Integer. しかしながら最近のバージョンでは VBA はすべての整数の値を Long 型に変換するたとえそれが Integer 型で宣言されていたとしてもだ

58 The Integer, Long, and Byte Data Types Therefore, there is no longer a performance advantage to using Integer variables したがってもはや Integer 型の宣言にパフォーマンス上の有利はない

59 The Integer, Long, and Byte Data Types in fact, Long variables might be slightly faster because VBA does not have to convert them. 実際 Long 型の変数が多少早いかもしれないなぜなら VBA がそれらを変換するような必要がないからだ

60 参考 : Integer vs Long パフォーマンステスト VBA 性能向上委員会 Integer 型とLong 型はどちらを使うべき?

61 パフォーマンステスト計測方法 : Integer vs Long -32,768~32,767までのループで和差積商余の計算するこれを100 回くりかえした時にかかった時間を出力する時間の出力にはTimerを使用する以上を1セットとしてこれを10セット行うこのアルゴリズムはInteger,Long 共有であるこのプログラムは今回のサンプル用のワークブックにある mdlperformancetest. TestPerformance() を参照のこと

62 パフォーマンステスト実験環境 : 実装メモリ (RAM) 4.00GB Integer vs Long プロセッサ : Intel Core i5 CPU 2.40GHz OS: Windows 7 Home Premium 64Bit オペレーティングシステム Microsoft Office Home and Business2010 バージョン (32 ビット )

63 Integer vs Long パフォーマンステスト実行結果 : (-) Integer(Sec) Long(Sec) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) ( 平均 ) Long 平均 Integer 平均 % Long 型で 2.2% 程度の速度向上

64 回答 1 まぁ Long 型さんまじぱねぇってことだ

65 質問 2 変数名の制限ってなぁに?

66 回答 2 Visual Basic Naming Rules ってドキュメントに書いてある

67 回答 2 ルール 1 最初は文字ではじめる数字とか記号だめよ

68 回答 2 ルール2 次の記号は使わないスペースと.!@&$#

69 回答 2 ルール文字を超えるな

70 回答 2 ルール4 VBA 中の関数や命令と同じ名前つけないほうがいい

71 回答 2 ルール 5 同じスコープレベルで同じ名前使うな

72 質問 3 あれ? さっきのルール 1 で文字っていったよね

73 質問 3 もしかして漢字や平仮名も r y

75 回答 3 そそんな変数名に漢字や平仮名なんて使うわけないからわからないお

76 回答 3 常識的に考えて変数名にそんな物が設定できるわけないお

77 数字を扱う変数

sinfI2005_VBA.doc

sinfi2005_vba.doc MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型主なもの型型名型宣言文字長さ内容整数型 Integer % 2 バイト -32,768 32,767 長整数型 Long & 4 バイト -2,47,483,648 2,47,483,647 単精度浮動小数点数 Single 型!