Excel Excel Excel = Excel III 7 ( ) 1

Size: px

Start display at page:

Download "Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1"

たかよしつなかわ
9 years ago
Views:

1 III 7 VBA / III 7 ( )

2 Excel Excel Excel = Excel III 7 ( ) 1

3 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK III 7 ( ) 2

4 VBA VBA (Visual Basic for Applications) Visual Basic VBAVisual Basic Visual BasicC III 7 ( ) 3

5 VBA 6-1b.xlsx 2 Excel.xlsm 01 Sub test() 02 Dim tmp As Double 03 tmp = Worksheets("Sheet1").Range("C4").Value 04 tmp = tmp * tmp 05 Range("E4").Value = tmp 06 Range("F4").Value = "=POWER(C4,2)" 07 MsgBox(": =" + CStr(tmp)) 08 End Sub test III 7 ( ) 4

6 VBA 0108Subtest 1test 02 Double tmp Dim As Doubletmp Dim As As III 7 ( ) 5

7 VBA 03Sheet1C4tmp = "" 04tmp2tmp 05E4tmpE4 III 7 ( ) 6

8 VBA 06 F4 "=POWER(C4,2)" 07 ": =" + CStr(tmp) +"AB"+"CD""ABCD" CStr() III 7 ( ) 7

9 VBA VBA 02 Dim tmp As Double 02 dim tmp as double "a" "A" III 7 ( ) 8

10 VBA : Integer : Long : Currency : Single : 106 Double : 1015 String : Boolean : TrueFalse Variant : III 7 ( ) 9

11 VBA : + : : * : 3*412 / : 3/41 \ (or ) : 3\40 Mod : 8 Mod 32 ^ : 3^ () III 7 ( ) 10

$3\40 Mod : 8 Mod 32 ^ :$

12 VBA () IfElseIfElseEnd If 01 If A Then 02 A 03 ElseIf B Then 04 AB 05 ElseIf C Then 06 A, BC 07 Else 08 A, B, C 09 End If ElseIf0Else III 7 ( ) 11

13 VBA () A = B : ABTrue= A < B : ABTrue A > B : ABTrue A <= B : ABTrue A >= B : ABTrue A <> B : ABTrue A And B : ABTrueTrue A Or B : ABTrue True Not A : ATrueTrue III 7 ( ) 12

14 VBA (For) ForForNext 01 For = To Step Next Step 1 III 7 ( ) 13

15 VBA (For) 01 Dim i As Integer 02 For i = 3 To 10 Step 2 03 (i=3, 5, 7, 94) 04 Next 01 Dim i As Integer 02 For i = 1 To 5 03 (i=1, 2, 3, 4, 55) 04 Next 01 Dim i As Integer 02 For i = 10 To 3 Step (i=10, 7, 43) 04 Next III 7 ( ) 14

16 VBA (For) ForExit For 01 Dim i As Integer 02 For i = 3 To 10 Step 2 03 If i = 7 Then 04 Exit For i=7for 05 End If 06 (i=3, 52) 07 Next III 7 ( ) 15

17 VBA (Do) DoLoopExit Do 01 Dim i As Integer 02 i = 1 03 Do 04 (i=1, 2, 3, 44) 05 i = i If i = 5 Then 07 Eixt Do 08 End If 09 Loop III 7 ( ) 16

18 VBA (Do, While) DoLoop While 01 Dim i As Integer 02 i = 1 03 Do While i < 5 04 (i=1, 2, 3, 44) 05 i = i Loop 01 Dim i As Integer 02 i = Do While i < 5 04 (1) 05 i = i Loop III 7 ( ) 17

06 Loop 01 Dim i As Integer 02 i = 10 03 Do While i <

19 VBA CInt : Integer CLng : Long CSng : Single CDbl : Double CStr : String III 7 ( ) 18

20 VBA 1 Dim () As (0)(1)...()+1 01 Dim i As Integer 02 Dim arr(5) As Integer 03 For i = 0 To 5 04 arr(i) = i * i 05 Next arr(0) 0 arr(3) 9 arr(5) 25 III 7 ( ) 19

21 VBA 01 Dim i As Integer 02 Dim arr(5) As Integer 01 Dim i As Integer, arr(5) As Integer 01 Dim i, arr(5) As Integer ivariant III 7 ( ) 20

22 VBA Worksheets("Sheet1").Range("C4").Value Worksheets("Sheet1").Cells(4,3).Value C4Worksheets("Sheet1"). III 7 ( ) 21

23 VBA Range Range("D2:E4").Value Range(Cells(2, 4), Cells(4, 5)).Value Range(Cells(2, 4), Cells(4, 5)).Value = III 7 ( ) 22

24 VBA Cells(3, 2).Interior.Color = RGB(255, 0, 0) 32RGB0255 Cells(3, 2).RowHeight = 100 Cells(3, 2).ColumnWidth = III 7 ( ) 23

25 Excel Calls(2,1).Value = "=POWER(A1,2)" x = Calls(2,1).Value "=POWER(A1,2)"A12 x = Application.Power(Cells(1,1),2) x = Application.Power(4,2) x16 III 7 ( ) 24

26 VBA (SubFunction) Sub A B QR QR 2 QR A B 2 III 7 ( ) 25

27 VBA Sub FunctionSub 01 Sub Kaku(n As Long) 02 Dim i As Long 03 For i = 1 To n 04 Cells(i, 1) = 0 05 Next 06 End Sub Call Kaku(5) Kaku III 7 ( ) 26

28 VBA 01 Function MySum(n As Long) 02 Dim i As Long, s As Long 03 s = 0 04 For i = 1 To n 05 s = s + i 06 Next 07 MySum = s 08 End Function n = MySum(5)n III 7 ( ) 27

29 VBA III 7 ( ) 28

30 VBA 6-1b.xlsx 22 III 7 ( ) 29

31 VBA Longi, male, female IntegersexDoubleheight, weight i2male, female0 Do, Loop11 III 7 ( ) 30

32 VBA iexit Do isex, height, weight sex-1male1 5male6male sex1female1 8female9female i III 7 ( ) 31

33 VBA 01 Sub Kadai() 02 Dim i As Long, male As Long, female As Long 03 Dim sex As Integer 04 Dim height As Double, weight As Double 05 i = male = 0 07 female = 0 08 Do 09 If Cells(i, 1) = "" Then 10 Exit Do 11 End If 12 sex = Cells(i, 1).Value 13 height = Cells(i, 2).Value 14 weight = Cells(i, 3).Value III 7 ( ) 32

34 VBA 15 If sex = -1 Then 16 male = male Cells(male, 5) = height 18 Cells(male, 6) = weight 19 Else 20 female = female Cells(female, 8) = height 22 Cells(female, 9) = weight 23 End If 24 i = i+1 25 Loop 26 End Sub III 7 ( ) 33

35 VBA VBA III 7 ( ) 34

Excel Excel Excel = Excel ( ) 1

Excel Excel Excel = Excel ( ) 1 10 VBA / 10 (2016 06 21 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 10 (2016 06 21 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK 10 (2016 06 21 ) 2 VBA VBA (Visual Basic