ii

Save this PDF as:
 WORD  PNG  TXT  JPG

Size: px
Start display at page:

Download "ii"

Transcription

1 Excel VBA VBA 2002

2 ii

3

4 CONTENTS

5

6 10

7

8 1 2 2 EXVBA2_ xls 12

9 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS = Worksheets("sheet1") For i = 0 To 6 FstValue(i) = WS.Cells(1, i + 1) NextValue(i) = WS.Cells(2, i + 1) Next For i = 0 To 6 TtlValue(i) = FstValue(i) * NextValue(i) WS.Cells(3, i + 1) = TtlValue(i) WS.Cells(3, i + 1).Interior.ColorIndex = 6 Next End Sub 1 Dim UserName(3) As String 13

10 UserName(0) UserName(1) UserName(2) UserName(3) Dim UserName(9) As String 2 UserName(1) = "" MsgBox UserName(1) 3 For i = 0 To 6 MsgBox UserName(i) Next 14

11 4 Dim UserName(1, 4) As String UserName(0,2) = "" 5 15

12 6 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS = Worksheets("sheet1") For i = 0 To 6 FstValue(i) = WS.Cells(1, i + 1) NextValue(i) = WS.Cells(2, i + 1) Next For i = 0 To 6 TtlValue(i) = FstValue(i) * NextValue(i) WS.Cells(3, i + 1) = TtlValue(i) WS.Cells(3, i + 1).Interior.ColorIndex = 6 Next 16

13 7 Dim Fruits As Variant Fruits = Array("","","","") Sub ArrayTest() Dim Fruits As Variant Fruits = Array("", "", "", "") For i = 0 To 3 Worksheets("sheet1").Cells(5, i + 1) = Fruits(i) Next End Sub 17

14 Q NumCount(0) = 0 NumCount(1) = 1 NumCount(2) = 2... NumCount(19) = 19 18

15 Option Base 1 Dim UserName(0 to 9) As String * 2 * 10 = 20 19

Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2

Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 Excel2000VBA L e a r n i n g S c h o o l 1 Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 3 Module1:(General)- Public Sub () Dim WS As Object Dim DiffDate As Integer Dim MaxRows As Integer, CopyRows As Integer

More information

コンピュータ概論

コンピュータ概論 5.1 VBA VBA Check Point 1. 2. 5.1.1 ( bug : ) (debug) On Error On Error On Error GoTo line < line > 5.1.1 < line > Cells(i, j) i, j 5.1.1 MsgBox Err.Description Err1: GoTo 0 74 Visual Basic VBA VBA Project

More information

untitled

untitled ST0001-1- -2- -3- -4- BorderStyle ControlBox, MinButton, MaxButton True False True False Top Left Height,Width Caption Icon True/False -5- Basic Command1 Click MsgBox " " Command1 Click Command1 Click

More information

6.1 工 程 管 理 (ネットワーク 工 程 表 ) 159 VBA( 実 行 結 果 例 ) 出 力 結 果 シート 出 力 結 果 を 図 に 描 くと 下 図 のようになる. 図 6.3 ネットワーク 工 程 表 ( 出 力 結 果 より 作 図 )

6.1 工 程 管 理 (ネットワーク 工 程 表 ) 159 VBA( 実 行 結 果 例 ) 出 力 結 果 シート 出 力 結 果 を 図 に 描 くと 下 図 のようになる. 図 6.3 ネットワーク 工 程 表 ( 出 力 結 果 より 作 図 ) 158 第 6 章 施 工 管 理 エクセル 例 題 6-1 ネットワーク 工 程 表 の 作 成 図 6.2 に 示 すネットワーク 工 程 表 の 作 業 時 刻, 余 裕 時 間 等 を 計 算 し,クリティ カルパスを 求 める. 図 6.2 ネットワーク 工 程 表 VBA( 実 行 結 果 例 ) データ 入 力 シート * A~K の 各 作 業 の 開 始 ノード(イベント), 終

More information

untitled

untitled StiLL StiLL Excel VBA IT Excel2000 2003 StiLL StiLL! Excel2007 StiLL -- -- Excel!!!! DB CSV VBA VBA ' VBA Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2"

More information

NEXT 1 2 3 1 2 3 4 5 6 1 2 1 2 1 1 1 1 2 3 1 2 3 4 5 6 1 2 3 4 1 2 3 4 5 6 1 2 3 4 5 1 2 3 1 1 2 1 2 3 4 5 6 7 1 2 3 1 2 1 2 3 4 5 6 7 8 9 1 1 1 2 1 2 1 2 3 4 5 6 1 2

More information

<4D6963726F736F667420576F7264202D208DEC90AC837D836A83858341838B81698F4390B394C5816A2E646F63>

<4D6963726F736F667420576F7264202D208DEC90AC837D836A83858341838B81698F4390B394C5816A2E646F63> + = 付 録 Ⅰ マクロのフローチャート 開 始 キーワード 数 と 文 章 数 をカウントする Yes 全 ての 文 章 番 号 (1 0) を 照 合 したか No 全 ての 文 章 番 号 (data) を 照 合 したか Yes No 文 章 番 号 (1 0) が 文 章 番 号 (data) と 等 しいか Yes No 値 を 一 行 全 て 0にする 値 を 一

More information

ExcelVBA 10m (10m ) (10m ) 5 4 1 49 1974 54 1979 2 59 1984 3 1989 4 6 1994 8.3 km 839 10m 15 3km 4km 1 CD-ROM ExcelVBA Excel Excel - 2 -

ExcelVBA 10m (10m ) (10m ) 5 4 1 49 1974 54 1979 2 59 1984 3 1989 4 6 1994 8.3 km 839 10m 15 3km 4km 1 CD-ROM ExcelVBA Excel Excel - 2 - - 1 - ExcelVBA 10m (10m ) (10m ) 5 4 1 49 1974 54 1979 2 59 1984 3 1989 4 6 1994 8.3 km 839 10m 15 3km 4km 1 CD-ROM ExcelVBA Excel Excel - 2 - 1 100 100 10 1km 2-3 - Excel VBA 3 100 100-4 - 4 VBA VBA 5-5

More information

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

Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1 III 7 VBA / III 7 (2014 11 18 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK III 7 (2014 11 18 ) 2 VBA VBA (Visual

More information

... 3... 3... 3... 3... 4... 7... 10... 10... 11... 12... 12... 13... 14... 15... 18... 19... 20... 22... 22... 23 2

... 3... 3... 3... 3... 4... 7... 10... 10... 11... 12... 12... 13... 14... 15... 18... 19... 20... 22... 22... 23 2 1 ... 3... 3... 3... 3... 4... 7... 10... 10... 11... 12... 12... 13... 14... 15... 18... 19... 20... 22... 22... 23 2 3 4 5 6 7 8 9 Excel2007 10 Excel2007 11 12 13 - 14 15 16 17 18 19 20 21 22 Excel2007

More information

研究紀要 第5号

研究紀要 第5号 3 4 5 6 7 8 a s d f a 9 10 s d a 11 12 s d f g 13 h j a d s 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 a 35 s 36 a 37 s 38 a 39 s 40 a 41 s d 42 f 43 44 46 47 48 49 50 a s d as d 51

More information

.\..

.\.. CONTENTS 2 4 7 8 10 12 14 19 22 28 31 35 39 40 41 47 54 59 68 71 79 83 90 1 CONTENTS 2 4 7 8 10 12 14 19 22 28 31 35 39 40 41 47 54 59 68 71 79 83 90 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

More information

関西テレビ放送番組制作ガイドライン

関西テレビ放送番組制作ガイドライン Contents Contents Contents Contents 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

More information

40年史表紙out.ai

40年史表紙out.ai CONTENTS 2003 2003 2004 2004 2005 2005 2006 2006 2007 2007 2008 2008 2009 2009 2010 2010 2011 2011 2012 2012 1972 1982 1992 2002 2012 CONTENTS 2003 2003 2004 2004 2005 2005 2006 2006 2007

More information

17 1721 42 47 63 1214 15 16 1718 47 6010 10 1316 1719 52 1417 1718 49 53 1315 1617 1719 47 49 11 1214 1718 52 54 11 13 2 No.1311 2005. 4. 13

17 1721 42 47 63 1214 15 16 1718 47 6010 10 1316 1719 52 1417 1718 49 53 1315 1617 1719 47 49 11 1214 1718 52 54 11 13 2 No.1311 2005. 4. 13 No.1311 2005.4.13 CONTENTS 17 1721 42 47 63 1214 15 16 1718 47 6010 10 1316 1719 52 1417 1718 49 53 1315 1617 1719 47 49 11 1214 1718 52 54 11 13 2 No.1311 2005. 4. 13 1617 1718 16 1718 10 12 16 13 1512

More information

n_bead 4_14_NotOut

n_bead 4_14_NotOut http://www.nsswelding.co.jp CONTENTS 1 5 6 7 10 11 12 13 14 4 * * * * * 5 + + + + 6 * ** * 7 * * * * * * * 1 * * * * * * * 2 * * * * 9 * * * * * * 10 * * * * * 11 + + + + + + + + + + + 1 2 3 + + + +

More information

21

21 21 2 8 10 12 14 16 18 22 30 31 32 33 39 40 41 42 44 45 46 47 124 180 188 189 190 Contents 48 50 52 53 55 56 57 63 64 66 68 69 70 74 74 75 75 76 76 77 77 77

More information

さきたま57号p01.indd

さきたま57号p01.indd 3 No. 2016. 57 Contents 2 2016.3No.57 2016.3 2016.3No.57 No.57 3 2016.3No.57 4 2016.3 2016.3No.57 No.57 5 2016.3No.57 6 2016.3No.57 7 2016.3No.57 8 2016.3No.57 9 2016.3No.57 10 2016.3No.57 11 2016.3No.57

More information

2 No

2 No No.1297 2004.9.22 CONTENTS 2 No.1297 2004. 9. 22 9 11 15 15 28 16 25 1210 17 26 3 No.1297 2004. 9. 22 11 14 11 10 40 13 00 2 1 12 15 4 000 35 141 100 4 No.1297 2004. 9. 22 4 000 14 15 29 16 27 5 No.1297

More information

PJta_h1h4_0329.ai

PJta_h1h4_0329.ai 0120-119-110 1-2-1 100-8050 http://www.tokiomarine-nichido.co.jp/ 24365 0120-691-300 98 http://www.tokiomarine-nichido.co.jp/ 201071 19 P.37 P.816 P.17 P.1819 contents 1 2 3 4 5 6 1 2 3 4 http://www.tokiomarine-nichido.co.jp/

More information

−ÈŁÛ05/‚æ4‘Í

−ÈŁÛ05/‚æ4‘Í CONTENTS 1. 50 2. 51 3. 52 52. 6 1 6 2 6 3 65 65 5. 66 6. 67 1 67 2 67 3 68 7. 69 8. 69 1 69 2 69 3 70 70 9. 71 9 1 50 2 51 52 3 53 5 55 56 57 58 59 60 61 62 63 1 2 6 3 65 5 66 6 1 2 67 3 68 7 8 1 2 69

More information

24_5章_01f

24_5章_01f CONTENTS p08 1 2 3 4 p14 p20 p24 p28 p40 03 04 05 4527,575 9 405,849 0.1 4,908 9405,849 17 790,361 74 3,331,365 6 243,400 34 1,554,738 51 2,318,680 161,853 122,460 9 410,863 163,253 3121,444 0.15,830 24

More information

untitled

untitled T O N E G U N 2012 S H I N K I N E R S U L O C S I D B A N K 1. 2. 3. CONTENTS 1. 2. 1. 2. 3. 4. 5. 02 03 04 05 17, 216 84362 1,63323 516 225 17 06 07 1,385 46 1 42 31 3.3% 2.2% 67.4% 08 09 10 1 3 2 1

More information

名称未設定-1

名称未設定-1 Contents http://www.saitama-ctv-kyosai.net 2 250 554 810 13462 250 6318 7144 250 5710 7752 250 5078 8384 2 3201 32 3073 2 1478 1595 2 1382 1691 2 1382 1691 16535 8739 1 2 3 1 2 3 http://www.saitama-ctv-kyosai.net/

More information

<93FA967B8CEA2E706466>

<93FA967B8CEA2E706466> CONTENTS CONTENTS CONTENTS 1 2 1 1 2 2 22 2 2 2 2 28 2 2 1 2 6 2 7 2 2 1 2 1 2 11 1 2 22 2 2 2 2 1 2 2 2

More information

海外旅行_2007pdf版

海外旅行_2007pdf版 CONTENTS 03 10 14 19 21 25 29 35 39 A. 3 4 1 2 3 4 5 6 7 8 9 10 5 6 8 7 A. 9 10 12 11 l 13 14 15 16 17 18 A. 19 20 A. 21 22 23 24 A. 25 26 27 28 29 30 31 32 33 34 A. 35 36 37 38 http://www.forth.go.jp/

More information

オートバイの保険.indd

オートバイの保険.indd 201211 P.37 P.816 P.17 P.1819 contents 1 2 3 4 5 6 1 18 1 2 16 3 11 4 5 7 8 6 18 9 10 6 7 8 9 10 11 12 11 13 12 5 13 14 14 15 18 16 19 17 20 21 0120-071-281 0570-022808 15 16 3 4 1 0 0 0 0 0 4 1 2 17 18

More information

untitled

untitled Contents 01 02 03 1 05 07 09 11 13 15 2 17 19 21 23 3 25 27 29 31 4 33 35 39 41 43 43 43 01 02 03 1 1 A A D C B A C D E D 2 3 4 5 05 1 A B C D E 2 3 4 5 06 1 A B C D 2 A B B C C E D A D E 3 A B C D E 4

More information

newmodelinformation_book_sample.pdf

newmodelinformation_book_sample.pdf 05 29 http://www.yano-pbi.com/ 03-5371-6923 FAX:03-5352-1088 CONTENTS 1 2 3 4 5 6 7 8 9 10 10 11 11 12 12 13 14 14 15 15 16 17 17 18 18 19 20 20 21 22 23 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

More information

「消える」金融、「創る」金融-2010年のリテール金融

「消える」金融、「創る」金融-2010年のリテール金融 2010 2010 CONTENTS 1 2 3 4 18 20066 1 2 19 20 20066 3 1 12 21 2 22 20066 3 4 23 1 1997 1997 1984 1893 1983 1980 2001 1990 1990 24 20066 1 260 26,418 213,597 239,416 1720062 25 2 3 26 20066 3 5 27 4 4 44

More information