(18,26) 10/ GHz.xls [ (18GHz) ] GHz.xls [ (26GHz) ] +----all.sh [ 2 10 ] +----mesure-ryudai/ / _csv.log [

Size: px
Start display at page:

Download "(18,26) 10/ GHz.xls [ (18GHz) ] GHz.xls [ (26GHz) ] +----all.sh [ 2 10 ] +----mesure-ryudai/ / _csv.log ["

Transcription

1 I A

2 (18,26) 10/ GHz.xls [ (18GHz) ] GHz.xls [ (26GHz) ] +----all.sh [ 2 10 ] +----mesure-ryudai/ / _csv.log [ (18GHz) ] _csv.log [ (26GHz) ] _rain.csv [ ] / : : +----mesure-ryudai+/ / _csv.log_ [ (18GHz) ] _csv.log_[ (26GHz) ] _rain.csv [ ( )] / : : +----rain.xls [ ] 2

3 #!/bin/sh ### 10 calc() { list= cat $1 sed -e 1,2d next=0; aft=0; sum=0; cnt=1 result="start" #10 for line in $list do bef=$next next= echo $line cut -c 1-7 if [ "$next" = "$bef" ] ;then # 10 sum cnt= expr $cnt + 1 num= echo $line cut -f 2 -d, sum= expr $sum + $num else # 10 sum sum= echo "( $sum * 10 / $cnt - 5 ) / 10" bc result= echo $result \n ""$bef"0,$sum,$aft" sum= echo $line cut -f 2 -d, cnt=1 aft= echo $line cut -f 3-5 -d, fi done # _ sum= echo "( $sum * 10 / $cnt - 5 ) / 10" bc result= echo $result \n ""$bef"0,$sum,$aft" echo -e "$result" > $1_ } ### list= /bin/ls./mesure-ryudai grep $1 echo $list for date in $list do pass="./mesure-ryudai/$date/ _csv.log" calc $pass pass="./mesure-ryudai/$date/ _csv.log" calc $pass 3

4 done exit 1 pw 3 excel excel VBA rain.xls 1 Option Explicit Public temp As Long main Sub main() temp = 1 Dim strpathname As String Dim strfilename As String Call rename strpathname = "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" If StrConv(strPATHNAME, vbuppercase) = "FALSE" Then Exit Sub If Dir(strPATHNAME, vbdirectory) = "" Then MsgBox " ", vbexclamation Exit Sub End If strfilename = Dir(strPATHNAME, vbdirectory) Do While strfilename <> "" Call copypaste(strfilename) 4

5 Loop strfilename = Dir() Call writeresult Call makegraph rename Sub rename() total result Sheets("Sheet2").Name = "total" Sheets("Sheet3").Name = "result" copypaste rain.csv rain.xls Sub copypaste(byref filename As String) rain.csv Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" & filename & ":" & filename & "_rain.csv" Worksheets(filename & "_rain.csv").activate Call perhour rain.xls total Range("C3:C26").Select Selection.Copy Workbooks("rain.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False rain.csv Workbooks(filename & "_rain.csv").close SaveChanges:=False temp = temp + 1 5

6 perhour 1 1 Sub perhour() Dim start As Integer Dim dest As Integer Dim fin As Integer start = 3 fin = start + 59 dest = 3 60 For dest = 3 To 26 Cells(dest, 3).FormulaR1C1 = "=sum(r" & start & "C2:R" & fin & "C2)" start = fin + 1 fin = start + 59 Next dest writeresult result Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R24C91,"">="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R24C91,"">="" &C[2] )" Range("B2").FormulaR1C1 = "=RC[-1]/R2C1*100" Range("B3").FormulaR1C1 = "=RC[-1]/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "50" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C111"), Type:=xlFillDefault 6

7 makegraph result Sub makegraph() Range("B2:C111").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C111"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet ActiveChart.HasLegend = False x With ActiveChart.Axes(xlCategory).MinimumScaleIsAuto = True.MaximumScaleIsAuto = True.MinorUnitIsAuto = True.MajorUnitIsAuto = True.Crosses = xlcustom.crossesat = 0.01.ReversePlotOrder = False.ScaleType = xllogarithmic.displayunit = xlnone.majortickmark = xlinside.ticklabelposition = xlhigh End With ActiveChart.PlotArea.Select Selection.Interior.ColorIndex = xlautomatic ActiveChart.Axes(xlValue).MajorGridlines.Select With Selection.Border.Color = RGB(192, 192, 192).LineWeight = 0 End With ActiveChart.Axes(xlCategory).Select With Selection.TickLabels.Font.Name = " ".Size = 14 7

8 End With ActiveChart.Axes(xlValue).Select With Selection.TickLabels.Font.Name = " ".Size = 14 End With 1: 8

9 (18GHz) 18GHz.xls main rename copypaste csv 18GHz modify Sub copypaste(byref filename As String) Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" & filename & ": _csv.log_" Worksheets(" _csv.log_").Activate Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 9), Array(2, 1), Array(3, 9), Array(4, 9), Array(5, 9)) Call modify 18GHz.xls Range("B2:B8638").Select Selection.Copy Workbooks("18GHz.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 9

10 Workbooks(" _csv.log_").Close SaveChanges:=False temp = temp + 1 modify Sub modify() Range("B2").Select ActiveCell.FormulaR1C1 = "=if(c[-1]<0,(c[-1]+256)/2-121,c[-1]/2-121)" Selection.AutoFill Destination:=Range("B2:B8638"), Type:=xlFillDefault writeresult Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("B2").FormulaR1C1 = "=RC1/R2C1*100" Range("B3").FormulaR1C1 = "=RC1/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "-1" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C122"), Type:=xlFillDefault makegraph Sub makegraph() 10

11 Range("B2:C102").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C122"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet... 2: (18GHz) 11

12 (26GHz) 26GHz.xls main rename copypaste Sub copypaste(byref filename As String) Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai_:" & filename & ": _csv.log_" Worksheets(" _csv.log_").Activate Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 9), Array(2, 1), Array(3, 9), Array(4, 9), Array(5, 9)) 26GHz.xls Range("A2:A8638").Select Selection.Copy Workbooks("26GHz.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Workbooks(" _csv.log_").Close SaveChanges:=False temp = temp

13 writeresult 18GHz 26GHz -100 Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("B2").FormulaR1C1 = "=RC1/R2C1*100" Range("B3").FormulaR1C1 = "=RC1/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "-1" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C102"), Type:=xlFillDefault makegraph Sub makegraph() Range("B2:C102").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C102"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet... 13

14 3: (26GHz) [1] EXCEL ef2o-inue/top01.html 14

2 1 F M m r G F = GMm r 2 (1.1) (1.1) (r = r ) F = GMmr r 3 (1.2) a F m F = kma k 1 F = ma (1.3) (1.2) (1.3) ma = GMmr r 3 (1.4)

2 1 F M m r G F = GMm r 2 (1.1) (1.1) (r = r ) F = GMmr r 3 (1.2) a F m F = kma k 1 F = ma (1.3) (1.2) (1.3) ma = GMmr r 3 (1.4) 1 1 1.1 2 1 F M m r G F = GMm r 2 (1.1) (1.1) (r = r ) F = GMmr r 3 (1.2) a F m F = kma k 1 F = ma (1.3) (1.2) (1.3) ma = GMmr r 3 (1.4) 1.1 3 M m r a a = d2 r dt 2 (1.4) r d 2 r dt 2 = GM r 3 r (1.5)

More information

1. 入力画面

1. 入力画面 指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する この様な場合に対応できるように汎用性の高いプログラムを作成した この場合に注意する必要があるのは

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

I J

I J I 065763J 8 7 7 31 jikken/ +----- accumulation_demupa.c +----- accumulation_rain.c +----- frequency_demupa.c +----- frequency_rain.c +----- go.sh +----- graph_maker.sh +----- mesure-ryudai/ 2007/4/1 2007/6/30

More information

CommandMatrix_8230E

CommandMatrix_8230E 4. USB 4. USB 4.1 USB2.0 Full Speed USB (Universal Serial Bus) USB 4.2 USB : USB2.0 Full Speed : USB B : A112010 USB(A) -USB B 1 m ID: MYID 1 127 : : ASCII : ASCII : ADC USB 4.3 USB 4.3.1 ADC USB ADC USB

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

1 ( ) 1.1 (convert.sh) (18GHz 26GHz) C (convert.c, convert1.c) mesure-ryudai convert.sh #!/bin/sh # file1 file1= ls -1 $1 # file1 data for data in $fi

1 ( ) 1.1 (convert.sh) (18GHz 26GHz) C (convert.c, convert1.c) mesure-ryudai convert.sh #!/bin/sh # file1 file1= ls -1 $1 # file1 data for data in $fi I 065712D : 4 1 ( ) 1.1 (convert.sh) (18GHz 26GHz) C (convert.c, convert1.c) mesure-ryudai convert.sh #!/bin/sh # file1 file1= ls -1 $1 # file1 data for data in $file1 do mkdir $data echo " $data " # file2

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション ループ ループとは? ある条件を満たすまで 指定の命令を繰り返す Do... Loop For Next For Each Next While WEnd ループの種類 Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 Do Loop

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

コンピュータ概論

コンピュータ概論 4.1 For Check Point 1. For 2. 4.1.1 For (For) For = To Step (Next) 4.1.1 Next 4.1.1 4.1.2 1 i 10 For Next Cells(i,1) Cells(1, 1) Cells(2, 1) Cells(10, 1) 4.1.2 50 1. 2 1 10 3. 0 360 10 sin() 4.1.2 For

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

コンピュータ概論

コンピュータ概論 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

2013 年 8 月 14 日 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管

2013 年 8 月 14 日 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管理図 5p 管理図 6c 管理図 7u 管理図 プログラム作成に使用した文献は [ 新版 ]QC 入門講座 7 管理図の作り方と活用

More information

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

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション 全コース Web フォロー付!! Excel VBA 初心者の方から始められる入門コースから 基本文法が学べるベーシックや 高度なプログラミングが学べるスタンダードまでしっかりと学習できます!! 学習の流れ Excel VBA 入門 VBA 初心者の方 Excel の基本知識をお持ちの方 Excel VBA ベーシック 基本文法を理解し 読解 ( 編集 ) 能力を身につけたい方 Exce lvba

More information

本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知

本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知 本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知識 4 択 :20 問 ) 1. ユーザが行った操作を記録して同じ操作を自動で行うことができる機能を何というか

More information

D0020.PDF

D0020.PDF n 3 X n Y n = Z n 17 1995 300 n n 2 3 2 a b c c 2 a 2 b 2 600 2000 322 3 15 2 3 580 3 1 5 4 3 2 1 300 2 1 2 1 1 ExcelVBA 2 VBA 1 VBA 2 API Sleep ExcelVBA 2 100 60 80 50 ExcelVBA API Sleep 3 100 60 (80

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

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

08‘͆i”O“Z†j

08‘͆i”O“Z†j 1 2 3 4 5 6 7 9 10 11 1 7 1 126 Microsoft Excel VBA Microsoft Excel VBA 127 Sub () ' ' []A2 A3A19 ' B19C19 ' ' []ABC ' DE ' ' ' [] ' ' [] ' ' Dim KaisyaName As String ' Dim TantouName As String ' Dim ShouhinName

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

MS Office オートメーション

MS Office オートメーション MS Office オートメーション Excel マクロのキックに依る印刷 Access では CSV や Excel 形式でのファイル保存が可能で有る 此れ利用して Excel のマクロを装備したシートに読み込んでマクロを実行し 印刷する方法を紹介する 一般的には, 単成るテキストファイルで有る CSV の方が Excel 形式ファイルより汎用性が有るが マクロで自動実行した時には が行頭に付いて居るセルを文字列型と仕て認識して仕舞うと謂う問題が発生する為

More information

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

More information

テーマ 使用機器 機器構成 Application Note 資料作成 資料番号 an2k-002 RS-485 接続温湿度計の記録と取り出しその 1 USB メモリと CUnet を使った 2 通りのデータログ方法です MPC-2100,MPC-Cunet,MRS-MCOM,USB-

テーマ 使用機器 機器構成 Application Note 資料作成 資料番号 an2k-002 RS-485 接続温湿度計の記録と取り出しその 1 USB メモリと CUnet を使った 2 通りのデータログ方法です MPC-2100,MPC-Cunet,MRS-MCOM,USB- テーマ 使用機器 機器構成 Application Note 資料作成 081127 資料番号 an2k-002 RS-485 接続温湿度計の記録と取り出しその 1 USB メモリと CUnet を使った 2 通りのデータログ方法です MPC-2100,MPC-Cunet,MRS-MCOM,USB-CUnet タッチパネル : パナソニック電工 GT11, 温湿度計 :CHNO HN-CHNS,USB

More information

45 VBA Fortran, Pascal, C Windows OS Excel VBA Visual Basic Excel VBA VBA Visual Basic For Application Microsoft Office Office Excel VBA VBA Excel Acc

45 VBA Fortran, Pascal, C Windows OS Excel VBA Visual Basic Excel VBA VBA Visual Basic For Application Microsoft Office Office Excel VBA VBA Excel Acc \n Title 文 系 学 生 のための VBA プログラミング 教 育 についての 考 察 Author(s) 五 月 女, 仁 子 ; Soutome, Hiroko Citation 商 経 論 叢, 46(1): 45-60 Date 2010-10-31 Type Departmental Bulletin Paper Rights publisher KANAGAWA University

More information

D0090.PDF

D0090.PDF 400. 1 1 1 3 500g 180cm A A 0g 500g 500g 500g 0.2 0.3 cm 500g 1kg 12 2 4 2 1 2 1 500g 500g 500g 2 A FreeFall 2 VBEditor 1 1 Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

More information

1/9 ページ VBA 基礎文法最速マスター VBA VBAの文法一覧です 他の言語をある程度知っている人はこれを読めばVBAの基礎をマスターしてVBAを書くことができるようになっています 簡易リファレンスとしても利用できると思いますので これは足りないと思うものがあれば教えてください 1. 基礎 Visual Basic Editor の起動 VBAはVisual Basic Editorで編集

More information

再利用して保存する場合は 新規登録 ボタン 1000 件まで登録できます 読み込んだ見積もりデータを 請求書に送るときは 請求へ複写 ボタン 2 請求書の作成 請求書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます 登録修正番号の数値の

再利用して保存する場合は 新規登録 ボタン 1000 件まで登録できます 読み込んだ見積もりデータを 請求書に送るときは 請求へ複写 ボタン 2 請求書の作成 請求書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます 登録修正番号の数値の 見積書請求書作成 V2.0 メニュー ( 表紙 ) このメニューにあるボタンのマクロはシートへの移動マクロです このファイルを 利用する場合には シートの保護を解除しないでください データの削除や移動はしないでください ファイルが壊れます 見積請求作成平成 25 年 7 月作業の流れは 1 見積書の作成 見積書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます

More information

Microsoft Word - VBA基礎(3).docx

Microsoft Word - VBA基礎(3).docx 上に中和滴定のフローチャートを示しました この中で溶液の色を判断する部分があります このような判断はプログラムではどのように行うのでしょうか 判断に使う命令は IF 文を使います IF は英語で もし何々なら という意味になります 条件判断条件判断には次の命令を使います If 条件式 1 Then ElseIf 条件式 2 Then ElseIf 条件式 3 Then 実行文群 1 実行文群 2 実行文群

More information

ii

ii Excel VBA VBA 2002 ii CONTENTS 1 2 3 4 5 6 7 8 9 10 1 2 2 EXVBA2_2002 1-2 1-2.xls 12 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS =

More information

橡挿入法の実践

橡挿入法の実践 PAGE:1 7JFC1121 PAGE:2 7JFC1121 PAGE:3 7JFC1121 Kadai_1.pas program input_file;{7jfc1121 19 20 { type item = record id : integer; math : integer; english : integer; var wfile data flag id_no filename :

More information

LAN

LAN HUB 1090248 21 3 19 1 1 2 3 2.1...................................... 3 2.1.1................................ 4 2.1.2 LAN................................. 6 2.2................................... 8 3 12

More information

1. 入力画面

1. 入力画面 指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する また 月に 1 回 毎週 1 回定期的または不定期的にある時刻になれば指定したプログラムを実行させる

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

<4D6963726F736F667420576F7264202D208DEC90AC837D836A83858341838B81698F4390B394C5816A2E646F63>

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

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

syspro-0405.ppt

syspro-0405.ppt 3 4, 5 1 UNIX csh 2.1 bash X Window 2 grep l POSIX * more POSIX 3 UNIX. 4 first.sh #!bin/sh #first.sh #This file looks through all the files in the current #directory for the string yamada, and then prints

More information

OS Windows Mac OS Windows Mac OS Windows XP Mac OS X OS Windows 95 Mac OS

OS Windows Mac OS Windows Mac OS Windows XP Mac OS X OS Windows 95 Mac OS About use of the Chinese character which is not in a computer Reuse and sharing of data by the large-scale character set and the Macro program HUKUDA Sinobu 1 125000 800 JIS 2 2000 3 1 488 545 2 JIS X

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

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

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

More information

AccessVBA−‹ŠpŁÒ-flO“Z

AccessVBA−‹ŠpŁÒ-flO“Z Microsoft Access 1 2 Private Sub After5days_Click( ) msg = Date + 5 MsgBox mag End Sub 3 Me.Filter = " =' " & Me! & "'" 4 5 Private Sub _Click() If IsNull(Me!) Then MsgBox " " Me!.SetFocus Me!.Dropdown

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

よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA(FPT1910)

よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA(FPT1910) 練習問題 総合問題 解答 Microsoft Excel 209/206/203 マクロ /VBA 練習問題解答 2 総合問題解答 対象書籍 よくわかる Microsoft Excel 209/206/203 マクロ /VBA(FPT90) 練習問題解答 第 章練習問題 開発 タブを選択 2 コード グループの ( マクロの記録 ) をクリック 3 マクロ名 に 集計削除 と入力 4 マクロの保存先

More information

エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動 化 できます また 連 続 的

エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動 化 できます また 連 続 的 エクセルの マクロ 言 語 (VBA)に 慣 れるためのメモ 2014/1/31~ ~2015/12/31 作 成 : 縁 木 精 史 エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動

More information

橡ソート手順比較

橡ソート手順比較 PAGE:1 [Page] 20 1 20 20 QuickSort 21 QuickSort 21 21 22 QuickSort 22 QuickSort 22 23 0 23 QuickSort 23 QuickSort 24 Order 25 25 26 26 7 26 QuickSort 27 PAGE:2 PAGE:3 program sort; { { type item = record

More information

PowerPoint プレゼンテーション

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

More information

Excel ではじめる数値解析 サンプルページ この本の定価 判型などは, 以下の URL からご覧いただけます. このサンプルページの内容は, 初版 1 刷発行時のものです.

Excel ではじめる数値解析 サンプルページ この本の定価 判型などは, 以下の URL からご覧いただけます.   このサンプルページの内容は, 初版 1 刷発行時のものです. Excel ではじめる数値解析 サンプルページ この本の定価 判型などは, 以下の URL からご覧いただけます. http://www.morikita.co.jp/books/mid/009631 このサンプルページの内容は, 初版 1 刷発行時のものです. Excel URL http://www.morikita.co.jp/books/mid/009631 i Microsoft Windows

More information

の包絡線を求めることになる 包絡線は一次式で表せるのでこのときの係数 ( 切片 ) を求 めればよいことになる この係数 ( 切片 ) が粘着力となる 包絡線はモールの応力円に外 接する直線であるため 包絡線の式は下記三式を解くことにより求めることができる 包絡線の式 Y=A1 X + B1 ---

の包絡線を求めることになる 包絡線は一次式で表せるのでこのときの係数 ( 切片 ) を求 めればよいことになる この係数 ( 切片 ) が粘着力となる 包絡線はモールの応力円に外 接する直線であるため 包絡線の式は下記三式を解くことにより求めることができる 包絡線の式 Y=A1 X + B1 --- モールの応力円から内部摩擦角 粘着力を求めるためのプログラム 益永八尋 Ⅰ. プログラムの考え方土質試験結果からモールの応力円を描き 内部摩擦角と粘着力を求めるプログラムの開発をおこなった このプログラムを作成するに当って どのような考え方をしているかを以下に技術資料として作成する モールの応力円を作成するプログラム言語は VB とした これは Excel の VBA では描画機能がなく Excel

More information

Microsoft Word _VBAProg1.docx

Microsoft Word _VBAProg1.docx 1. VBA とマクロ 1.1 VBA とは VBA(Visual Basic for Applications) は 1997 年に Microsoft 社がマクロを作成するために開発された言語である Windows 対応のアプリケーションを開発するためのプログラミング言語 Visual Basic をもとにしているため 次のような特徴がある 1 VBA は Excel Word, Access,

More information

O(N) ( ) log 2 N

O(N) ( ) log 2 N 2005 11 21 1 1.1 2 O(N) () log 2 N 1.2 2 1 List 3-1 List 3-3 List 3-4? 3 3.1 3.1.1 List 2-1(p.70) 1 1 10 1 3.1.2 List 3-1(p.70-71) 1 1 2 1 2 2 1: 1 3 3.1.3 1 List 3-1(p.70-71) 2 #include stdlib.h

More information

卒業論文.PDF

卒業論文.PDF 234 1 1 1.1 1 1.2 4 1.3 4 2 5 2.1 5 2.2 6 2.3 7 2.3.1 7 2.3.2 8 2.3.3 9 2.3.4 9 2.3.5 9 2.3.6 9 3 1 3.1 3.2 3.3 11 3.4 14 3.4.1 14 3.4.2 15 3.5 16 3.6 17 i 4 2 18 4.1 18 4.2 19 4.2.1 2m/sec 2 4.2.2 3m/sec

More information

-2 gnuplot( ) j ( ) gnuplot /shell/myscript 1

-2 gnuplot( ) j ( ) gnuplot /shell/myscript 1 -2 gnuplot( ) j 2006 05 03 2006 05 12 2006 05 09 2 ( ) gnuplot /shell/myscript 1 1 shell script Level 1 myls #!/bin/sh # nowdir= pwd # if [ -f $1 -o -z $1 ] ; then echo "Enter pass" echo "ex) myls.sh./"

More information

Excel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一

Excel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一 Excel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一 情報系システム開発 メンテナンス 開発イノベーション ビジネスダッシュボード by Excel 概要 実務業務 マネジメントの知識 技術 経験のノウハウ + 業務データ分析 の見える化 共有化 シミュレーションを可能とし ビジネスソリューションを推進する BI システムを実現します! Excel と StiLL + Xcelsius

More information

1 VB 開発向け OCX プログラミング はじめに 本書は STARFAX Server SDK を利用したユーザープログラムの作成方法をご説明しています なお 本書は Visual Basic 6.0 を開発ツールとして STARFAX Server SDK OCX コントロールを使用してプログラムを作成する方を対象としています そして STARFAX Sercer SDK とユーザープログラムとのインターフェイスは

More information

D0120.PDF

D0120.PDF 12? 1940 Stanislaw Ulam John von Neumann Cellular Automaton 2 Cellular Automata 1 0 1 2 0 1 A 3 B 1 2 3 C 10 A B C 1 ExcelVBA 1 1 1 1 0 1 1 B7 BD7 road1 B8 BD31 board 0 Road1 50 board 0 1 0 1 Excel 2 2

More information

PowerPoint プレゼンテーション

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

More information

unix15-script2_09.key

unix15-script2_09.key UNIX講習会 シェルスクリプト2 31/July/2015 情報管理解析室 西出 浩世 SGE ~/unix15/sge $ cd ~/unix15/sge $ ls script* script2.sh script3.sh script4.sh ~/unix15/sge/results sam 12 $ ls results/*.sam $ rm -r results $ cp -r /usr/local/data/unix15/sge/results.

More information

橡vb_kikai0.PDF

橡vb_kikai0.PDF Visual Basic OS Windows Visual Basic GPIBRS232C A/D Visual Basic Windows Visual Basic Visual Basic Visual Basic Visual Basic Windows GUI( ) OS Visual Basic Form Form 1 Visual Basic Microsoft Visual Basic

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション プロシージャ プロシージャの種類 Subプロシージャ Functionプロシージャ Propertyプロシージャ Sub プロシージャ Subステートメント~ステートメントで囲まれる 実行はするけど 値は返さない 途中で抜けたいときは Exit Sub を行なう Public Sub はマクロの実行候補に表示される Sub プロシージャの例 Public Sub TestSubProc() Call

More information

.NETプログラマー早期育成ドリル ~VB編 付録 文法早見表~

.NETプログラマー早期育成ドリル ~VB編 付録 文法早見表~ .NET プログラマー早期育成ドリル VB 編 付録文法早見表 本資料は UUM01W:.NET プログラマー早期育成ドリル VB 編コードリーディング もしくは UUM02W:.NET プログラマー早期育成ドリル VB 編コードライティング を ご購入頂いた方にのみ提供される資料です 資料内容の転載はご遠慮下さい VB プログラミング文法早見表 < 基本文法 > 名前空間の定義 Namespace

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

情報資源組織演習B:

情報資源組織演習B: 情報資源組織演習 A( 書誌の作成 ) 第 13 回書誌データ管理 検索システムの構築 第 14 回ネットワーク情報資源のメタデータ作成の実際 第 15 回まとめ 2013 年度跡見学園女子大学文学部准教授福田博同 検索システムの構築 ( 静的データベース ) 第 12 回で HTML ファイルに Google 検索窓を埋め込む方法は理解した 今回 :Excel の VBA を使い データベース的検索処理を行う

More information

一般的なプログラムの実行

一般的なプログラムの実行 Excel VBA によるプログラミング 教 育 用 環 境 の 創 製 木 原 寛 目 的 Excel VBAのモジュールとして 基 本 グラフィックス 機 能 やタートルグラフィックス 機 能 を 用 意 し 昔 の N88-BASIC のように 誰 でも 手 軽 に 利 用 できる 環 境 を 提 供 する Excel は 大 多 数 のパソコンで 利 用 可 能 であり Macintosh

More information

PR300 電力モニタ 通信インタフェース (RS-485通信,Ethernet通信)

PR300 電力モニタ 通信インタフェース (RS-485通信,Ethernet通信) User s Manual 1 2 3 1 2 3 Ethernet 1 2 3 4 Ethernet (ST-NO) (PCLK1) (PCLK2) (COMM) (M ASC) (M RTU) (M TCP) (RS-485) (B-RT) (PR201) (NONE) (PRI) (EVEN) (ODD) (STP) (DLN) (RS-485) (Ethernet) (IP-1)

More information

AJAN IO制御コマンド コマンドリファレンス

AJAN IO制御コマンド コマンドリファレンス - 1 - Interface Corporation 1 3 2 4 2.1...4 2.2...8 2.3...9 2.4...19 2.5...20 3 21 3.1...21 3.2...23 3.3...24 3.4...28 3.5...29 30 31 Interface Corporation - 2 - 1 AJANI/O Linux Web site GPG-2000 http://www.interface.co.jp/catalog/soft/prdc_soft_all.asp?name=gpg-2000

More information

ThisWorkbook のコード 'アドイン 登 録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControl

ThisWorkbook のコード 'アドイン 登 録 Private Sub Workbook_AddinInstall() Set Menu = Application.CommandBars(Worksheet Menu Bar).Controls.Add(Type:=msoControl テーマ 使 用 機 器 概 要 Application Note 資 料 作 成 060622 資 料 番 号 FTM-014 EXCEL アドインの 作 り 方 MPC-816 (684) MBKComX MS-EXCEL MPC の 点 データを 直 接 ワークシートに 吸 い 上 げ グラフを 描 くまでのサンプルです このサンプルは Microsoft(R) Excel2000 (SR-1)

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

VBM01#解答解説# indd

VBM01#解答解説# indd 業務を効率化! ExcelVBA 実践コースレポート問題集解答 解説 第 1 単位 VBM-01-1 1406 問 2~ 問 5の解答は グレーのあみかけで示しています 本レポート問題集では テキストで学習したなかでも 特に 実務でよく使われる項目や 注意が必要なポイントについて出題しています 誤った設問については 解答を確認する前に 再度プロシージャを実行してみてください エラーが発生する場合は

More information

sinfI2005_VBA.doc

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 型!

More information

MS-ExcelVBA 基礎 (Visual Basic for Application)

MS-ExcelVBA 基礎 (Visual Basic for Application) MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 ( 主なもの ) 型型名型宣言文字長さ内容整数型 Integer % バイト -, ~, 長整数型 Long & バイト -,,, ~,,, 単精度浮動小数点数型倍精度浮動小数点数型 Single! バイト負値 : -.0E ~ -.0E- 正値 :.0E- ~.0E Double

More information

ルーレットプログラム

ルーレットプログラム ルーレットプログラム VB 2005 4 プログラムの概要 カジノの代表的なゲーム ルーレット を作成する 先ず GO! ボタンをクリックすると ルーレット盤上をボールが回転し 一定時間経過すると ボールが止まり 出目を表示するプログラムを作成する 出目を 1~16 大小 偶数奇数の内から予想して 予め設定した持ち点の範囲内で賭け点を決め 賭け点と出目に依り 1 点賭けの場合は 16 倍 其他は 2

More information

¥×¥í¥°¥é¥ß¥ó¥°±é½¬I Exercise on Programming I [1zh] ` `%%%`#`&12_`__~~~ alse

¥×¥í¥°¥é¥ß¥ó¥°±é½¬I  Exercise on Programming I [1zh] ` `%%%`#`&12_`__~~~alse I Exercise on Programming I http://bit.ly/oitprog1 1, 2 of 14 ( RD S ) I 1, 2 of 14 1 / 44 Ruby Ruby ( RD S ) I 1, 2 of 14 2 / 44 7 5 9 2 9 3 3 2 6 5 1 3 2 5 6 4 7 8 4 5 2 7 9 6 4 7 1 3 ( RD S ) I 1, 2

More information

OUT P_CNT 2032~Lng /* CUnet グローバルメモリに現在点番号 PRINT P_CNT HEX$(X(P_CNT)) Y(P_CNT) P_CNT=P_CNT+1 TIME 2000 /*============================================

OUT P_CNT 2032~Lng /* CUnet グローバルメモリに現在点番号 PRINT P_CNT HEX$(X(P_CNT)) Y(P_CNT) P_CNT=P_CNT+1 TIME 2000 /*============================================ テーマ使用機器 機器構成 Application Note 資料作成 100129 資料番号 an2k-016 CUnet メール転送で EXCEL にデータを入力する MPC-1000 USB-CUnet Windows XP MS-EXCEL 他 温調器 E5EN RS-485 CompoWay/F MPC-1000 MPC-CUnet CUnet USB-CUnet USB MS-EXCEL

More information

Taro-cshプログラミングの応用.jt

Taro-cshプログラミングの応用.jt c s h プログラミングの応用 0. 目次 1. 課題 課題 1 : 与えられたパス名からディレクトリ名とファイル名を分離し出力せよ 課題 2 : オプション (-in) の後に続く文字列とオプション (-out) の後に続く文字列をそれぞれまとめる オプションの指定がなく文字列から始まるとき -in を仮定する 課題 3 : 複数のファイルから与えられたパターンとマッチする文字列を含む行を取り出せ

More information

バスケットボール

バスケットボール バスケットボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class Basketball にゅうりょく 1 ここに入力する!

More information

ランボール

ランボール ランボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class runball にゅうりょく 1 ここに入力する!

More information

untitled

untitled High SPEED Electronic Load SERIES OPERATION MANUAL Engineering Company () MicrosoftWindowsMicrosoftExcelActiveXVisualBasicVisualC++ Microsoft 235 70% I AC100V240V 50/60Hz AC125V AC 250V/3.15A GPIB II OFF

More information

[Excelが自動化するVBAの魔法2]購入者限定テキスト

[Excelが自動化するVBAの魔法2]購入者限定テキスト 第 0 章 全体像の把握 マクロの流れを整理する 法 第 0.5 章復習編 ( マクロ VBA の基礎を振り返る ) 第 1 章 第 2 章 第 3 章 セルとセル範囲の扱い (Range) 条件分岐 (If If Else If ElseIf) 変数に 番号を取得し のない表を作る [ Range("B" & r) のような記述 ] 第 4 章繰り返し (For Do While Do Until

More information

BASICとVisual Basic

BASICとVisual Basic Visual Basic BASIC Visual Basic BASICBeginner's All purpose Symbolic Instruction Code Visual Basic Windows BASIC BASIC Visual Basic Visual Basic End Sub .Visual Basic Visual Basic VB 1-1.Visual Basic

More information

Microsoft Word - ŁtŸ^‡S

Microsoft Word - ŁtŸ^‡S 付録 4 汎用版のニアミス判別ソフトウェアのソースコード汎用版のニアミス判別ソフトウェアのニアミス判別モジュールに関するソースコードを以下に示す. --------------------------------------------------------------------------------------------------------------------------------

More information

教科書原稿

教科書原稿 第 章配列変数とその宣言 変数の基本的な使い方は第 章で登場しました 変数は処理の途中の値を一時的に保存して, プログラム内で, 他の処理を行いたいときに使ってきました つの変数には一時的にはつのデータだけ保存できます この章では, 同じ目的で利用する複数の変数をまとめて扱うことのできるデータ構造の基本的な使い方について学びます VBA ではそのようなデータ構造を 配列 (Array) と呼びます

More information

ファイル操作-インターネットキャッシュ

ファイル操作-インターネットキャッシュ ファイル操作 インターネット一時ファイルの保存場所 インターネットキャッシュ インターネット一時ファイルの保存場所は Internet Explorer の場合 下記の手順で確認する事が出来る 1.[ ツール ] [ インターネットオプション ] でインターネットオプション画面のダイアログを表示させる 2.[ 全般 ] タブで [ インターネット一時ファイル ] グループの [ 設定 ] をクリックすると

More information

ギリシャ文字の読み方を教えてください

ギリシャ文字の読み方を教えてください 埼 玉 工 業 大 学 技 術 資 料 ( 小 西 克 享 ) Excel によるデジタルフィルタ-1/14 テーマ: Excel によるデジタルフィルタ 観 測 波 形 をフーリエ 変 換 してフーリエ スペクトルを 求 めたのち, 成 分 の 一 部 を 減 衰 さ せたスペクトルを 逆 フーリエ 変 換 すると, 元 の 観 測 波 形 にフィルタを 掛 けた 波 形 が 得 られ る.これをデジタルフィルタという.Excel

More information

2004.11.29 4 Communication1 program communication1(input, output); procedure double; r1, r2: real; r2 := 2 * r1; double; end. Communication1 program communication1(input, output); procedure double; r1,

More information

Microsoft PowerPoint - VBA解説1.ppt [互換モード]

Microsoft PowerPoint - VBA解説1.ppt [互換モード] 九州大学工学部地球環境工学科船舶海洋システム工学コース 計算工学演習第一 演習資料担当 : 木村 Excel 上のマクロを利用してプログラムを組む Visual Basic for Applications (VBA) のテクニック Excel のマクロとは? 一連の操作を自動的に行う機能 例 ) セル ( マス目 ) に数字を 1 から順番に埋めていく Excel のマクロでどんなプログラムが作れるのか?

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション 配列とコレクション 配列の使い方 固定配列 動的配列 コレクションの使い方 今日の目的 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As

More information

Microsoft Word - 課題1_2.doc

Microsoft Word - 課題1_2.doc 課題 7-2 手作業でデータを作るのは面倒なので, 以下のようなデータ生 成のプログラムを作成します Public nodeno As Integer ' 節点番号 Public elemno As Integer ' 要素番号 Sub gennode(xnode, Ynode, BX, BY, FX, FY) nodeno = nodeno + 1: ii = nodeno + 1 With Worksheets("

More information

LogisticaTRUCKServer-Ⅱ距離計算サーバ/Active-Xコントロール/クライアント 概略   

LogisticaTRUCKServer-Ⅱ距離計算サーバ/Active-Xコントロール/クライアント 概略       - LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API.NET DLL WindowsForm サンフ ルフ ロク ラム - 1 - LogisticaTRUCKServer-Ⅱ 距離計算サーハ.NET DLL WindowsForm VisualBasic での利用方法 LogisticaTRUCKServer-Ⅱ 距離計算.NET DLLのサンプルプログラムの参照サンフ

More information

Module1 には 損 益 入 力 シートのデータに 関 連 するマクロが 格 納 されている( 表 1) 以 下 に Module1 を 構 成 するマクロを 掲 載 する 表 1 Module1 の 構 成 Module 設 置 されたシート 名 登 録 されたマクロ 作 業 内 容 データの

Module1 には 損 益 入 力 シートのデータに 関 連 するマクロが 格 納 されている( 表 1) 以 下 に Module1 を 構 成 するマクロを 掲 載 する 表 1 Module1 の 構 成 Module 設 置 されたシート 名 登 録 されたマクロ 作 業 内 容 データの 青 色 申 告 決 算 書 の 所 得 解 析 用 ファイルに 組 み 込 まれたマクロについて (ファイル 名 :DB 解 析 マクロ) 青 色 申 告 決 算 書 の 所 得 解 析 用 ファイルに 組 み 込 まれたマクロ(ファイル 名 :DB 解 析 マ クロ)では 付 随 する 作 業 についてボタン 操 作 のみで 対 応 させている ここでは ブック に 組 み 込 まれたマクロについて

More information

グラフの 作 成 タイトルを 含 めたデータの 範 囲 と 系 列 の 設 定 をしてグラフを 作 成 する *データ 範 囲 の 設 定 データ 範 囲 タイトルを 含 む SetSourceData:=データ 範 囲 * 系 列 の 指 定 引 数 PlotBy:= xlcolumns 系 列

グラフの 作 成 タイトルを 含 めたデータの 範 囲 と 系 列 の 設 定 をしてグラフを 作 成 する *データ 範 囲 の 設 定 データ 範 囲 タイトルを 含 む SetSourceData:=データ 範 囲 * 系 列 の 指 定 引 数 PlotBy:= xlcolumns 系 列 グラフの 作 成 と 操 作 現 場 で 測 定 されたデータを 見 える 化 (グラフ 化 )して 全 体 像 を 把 握 するためには グラフツールが 重 要 であり Excel には 有 用 なグラフツールが 搭 載 されている Excel VBA では このグラフの 操 作 を 取 り 扱 うことができるステートメントが 用 意 されているので 以 下 にその 要 点 を 解 説 する 目

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション Excel VBA の基本 1 VBA Visual Basic for Applications Office シリーズに搭載されているプログラミング言語 マクロを作成するために使われる 1 プログラミングとは 人間の意図した処理を行うようにコンピュータに指示を与えること セル A1 の内容をセル B1 にコピーしなさいセル A1 の背景色を赤色にしなさいあれをしなさいこれをしなさい 上から順番に実行

More information

受動的攻撃について

受動的攻撃について 1 Microsoft Internet Explorer 5.01 and Access 2000 VBA Code Execution Vulnerability Eiji James Yoshida zaddik@geocities.co.jp penetration technique research site http://www.geocities.co.jp/siliconvalley/1667/index.htm

More information

untitled

untitled Fortran90 ( ) 17 12 29 1 Fortran90 Fortran90 FORTRAN77 Fortran90 1 Fortran90 module 1.1 Windows Windows UNIX Cygwin (http://www.cygwin.com) C\: Install Cygwin f77 emacs latex ps2eps dvips Fortran90 Intel

More information

明解Javaによるアルゴリズムとデータ構造

明解Javaによるアルゴリズムとデータ構造 21 algorithm List 1-1 a, b, c max Scanner Column 1-1 List 1-1 // import java.util.scanner; class Max3 { public static void main(string[] args) { Scanner stdin = new Scanner(System.in); Chap01/Max3.java

More information

MPC プログラム 青 文 字 が AD の 主 要 な 部 分 です CUNET 4 4 7 TIME 5 CU_POST QUIT 1 FORK 1 *PULSE_AD FOR I=10 TO 20 QUIT I FORK I *DUMMY NEXT I /* SA,OWN,EN /* CUne

MPC プログラム 青 文 字 が AD の 主 要 な 部 分 です CUNET 4 4 7 TIME 5 CU_POST QUIT 1 FORK 1 *PULSE_AD FOR I=10 TO 20 QUIT I FORK I *DUMMY NEXT I /* SA,OWN,EN /* CUne テーマ 使 用 機 器 機 器 構 成 計 測 装 置 Application Note 資 料 作 成 100210 資 料 番 号 an2k-017 1mSec で AD サンプリングし CUnet で EXCEL に 入 力 する MPC-2000 システム Windows XP MS-EXCEL 他 XY03-X 軸 原 点 LS ドライバ 原 点 パルス MPC-2000 MPC-AD12

More information

1. A0 A B A0 A : A1,...,A5 B : B1,...,B12 2. 5 3. 4. 5. A0 (1) A, B A B f K K A ϕ 1, ϕ 2 f ϕ 1 = f ϕ 2 ϕ 1 = ϕ 2 (2) N A 1, A 2, A 3,... N A n X N n X N, A n N n=1 1 A1 d (d 2) A (, k A k = O), A O. f

More information