ii
|
|
- しらん うとだ
- 7 years ago
- Views:
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
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 informatione 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 informationD0050.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 informationMy関数の作成演習問題集
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 informationPowerPoint プレゼンテーション
レッスン (1) あるワークシート中のあるセルを指定する Worksheets(" ワークシート名 ").Range(" セル ").Value ( 例 ) Worksheets(" データ収集 ").Range("A2").Value あるワークシートのセルから 別のワークシートのセルへ転記する Worksheets(" シート A").Range(" セル ").Value = Worksheets("
More informationB 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 informationPowerPoint プレゼンテーション
演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value
More information情報基礎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 informationExcel 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 informationuntitled
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 informationNEXT 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 informationuntitled
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 information94 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 information2 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 informationExcelVBA 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 informationExcel 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 informationMicrosoft PowerPoint - Visualプログラミング
流れの制御構造 多方向分岐 プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復 上記以外は使ってはいけない. 141 if 文による多方向に分岐する処理 (1) Sub elseif2() Dim a As Integer a = Range("A1").Value
More information17 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>
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
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 information1 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 information2 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 informationPJta_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‘Í
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 information24_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 informationuntitled
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
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版
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
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 informationuntitled
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 informationn_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 informationnewmodelinformation_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 information21
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