ii

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

e e h h h h h h eeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeee eeeeeeeeeeeeeeee eeeeeeeeeeeeeeee g g g g g g Excel VBA Excel VBA 2002 2002 iii e e h h h h h h eeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeee eeeeeeeeeeeeeeee

More information

D0050.PDF

D0050.PDF Excel VBA 6 3 3 1 Excel BLOCKGAME.xls Excel 1 OK 2 StepA D B1 B4 C1 C2 StepA StepA Excel Workbook Open StepD BLOCKGAME.xls VBEditor ThisWorkbook 3 1 1 2 2 3 5 UserForm1 4 6 UsorForm2 StepB 3 StepC StepD

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

My関数の作成演習問題集

My関数の作成演習問題集 Excel Sum,Average,Max 330 BMI Excel My Excel VBA Visual BASIC Editor AltF11 Visual BASIC Editor My Function Function -1- Function ( As Single, As Single) As Double Function Funciton Funciton As Single

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション レッスン (1) あるワークシート中のあるセルを指定する Worksheets(" ワークシート名 ").Range(" セル ").Value ( 例 ) Worksheets(" データ収集 ").Range("A2").Value あるワークシートのセルから 別のワークシートのセルへ転記する Worksheets(" シート A").Range(" セル ").Value = Worksheets("

More information

B 5 (2) VBA R / B 5 ( ) / 34

B 5 (2) VBA R / B 5 ( ) / 34 B 5 (2) VBAR / B 5 (2014 11 17 ) / 34 VBA VBA (Visual Basic for Applications) Visual Basic VBAVisual Basic Visual BasicC B 5 (2014 11 17 ) 1 / 34 VBA 2 Excel.xlsm 01 Sub test() 02 Dim tmp As Double 03

More information

ホームページ (URL) を開く 閉じる 益永八尋 VBA からホームページを開いたり 閉じたりします ホームページを開くはシート名 HP_Open で操作し ホームページを閉じるはシート名 "HP_Close" で操作します ホームページを開く方法はいくつかありますがここでは 1 例のみを表示します なお これは Web から入手したサンプルプログラムから使い勝手が良いように修正 追加したものです

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション 演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value

More information

情報基礎A

情報基礎A 情報基礎 A 第 10 週 プログラミング入門 マクロ基本文法 4 1 配列 FOR~NEXT 全眞嬉 東北大学情報科学研究科システム情報科学専攻情報システム評価学分野 http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho-19.html 6 人分の合計を計算 2 socre(0) socre(1) socre(2) socre(3) socre(4) socre(5)

More information

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

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

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

94 expression True False expression FalseMSDN IsNumber WorksheetFunctionIsNumberexpression expression True Office support.office.com/ja-jp/ S

94 expression True False expression FalseMSDN IsNumber WorksheetFunctionIsNumberexpression expression True Office   support.office.com/ja-jp/ S Excel VBA a Excel VBA VBA IsNumeric IsNumber SpecialCells SpecialCells MSDNMicrosoft Developer NetworkIsNumeric IsNumber SpecialCells IsNumeric VBA IsNumericexpression SpecialCells 94 expression True False

More information

2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 ( ) 1 / 39

2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 ( ) 1 / 39 III 8 (3) VBA, R / III 8 (2013 11 26 ) / 39 2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 (2013 11 26 ) 1 / 39 Y X 1, X 2,..., X n Y = f (X 1, X 2,..., X n,θ 1,θ 2,...) (y k, x k,1, x k,2,...)

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

Microsoft PowerPoint - Visualプログラミング

Microsoft PowerPoint - Visualプログラミング 流れの制御構造 多方向分岐 プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復 上記以外は使ってはいけない. 141 if 文による多方向に分岐する処理 (1) Sub elseif2() Dim a As Integer a = Range("A1").Value

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

<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

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

関西テレビ放送番組制作ガイドライン 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

さきたま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

1 CONTENTS P.6 P.13 P.15 P.16 P.22 P.30 P.37 P.41 P.42 P.43 P.44 P.45 P.46 P.2 P.2 P.3 P.2 P.3 P.2 P.6 P.5 P.4 P.3 P.3 P.3 P.3

1 CONTENTS P.6 P.13 P.15 P.16 P.22 P.30 P.37 P.41 P.42 P.43 P.44 P.45 P.46 P.2 P.2 P.3 P.2 P.3 P.2 P.6 P.5 P.4 P.3 P.3 P.3 P.3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1FAX 2009 4 1 CONTENTS P.6 P.13 P.15 P.16 P.22 P.30 P.37 P.41 P.42 P.43 P.44 P.45 P.46 P.2 P.2 P.3 P.2 P.3 P.2 P.6 P.5 P.4 P.3 P.3 P.3 P.3 3 2 1 1 1 1 1 1 1 1 1 1

More information

2 No

2 No No.1288 2004.4.14 CONTENTS 2 No.1288 2004. 4. 14 16 1617 40 5311 1012 13 1617 42 47 63 1214 15 1617 47 10 1114 15 1617 44 5812 1214 15 1617 44 50 11 1115 1617 45 50 13 3 No.1288 2004. 4. 14 1617 40 10

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

.\..

.\.. 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

名称未設定-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

海外旅行_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

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

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

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

表紙

表紙 15 CONTENTS 1 1 1 1 1 1 1 1 11 1 1 1 11 1 000000000000000000000000000000000000000000000000000000000000000000000000000000 1 000000000000000000000000000000000000000000000000000000000000000000000000000000

More information