こんばんわです。
エクセルのVBAをつかってCSV形式のファイルデーターを読み込みように某サイトを参考に作成しました。
確かに読み込む事が出来たのですが、数値も文字列扱いになってしまいます。
数値処理する方法があるのでしょうか？
Sub CSV_Read2()
Dim FileType, Prompt As String
Dim FileNamePath As Variant
Dim textline, csvline() As String
Dim Rowcnt, ColumNum As Integer
Dim ch1 As Long
FileType = "CSV ファイル (*.csv),*.csv"
Prompt = "CSV File を選択してください"
'操作したいファイルのパスを取得します
FileNamePath = SelectFileNamePath(FileType, Prompt)
If FileNamePath = False Then 'キャンセルボタンが押された
End
End If
'空いているファイル番号を取得します
ch1 = FreeFile
'FileNamePath のファイルをオープンします
Open FileNamePath For Input As #ch1
'エラーが発生したらファイルを閉じます
'CSVのファイルは1行の項目数が正確に合っていないと読めないのですが、
'色々なCSVがあるようなので入れておきます
On Error GoTo CloseFile
'表の行番号の初期化 1行目から読み込んだデータを入力します
Rowcnt = 1
Do While Not EOF(ch1) 'ファイルの終端かどうかを確認します。
'1行読み込みます
Line Input #ch1, textline
'ダブルクォーテーションを削除します
'カンマ+ダブルクォーテーションで区切られている ＣＳＶ ファイルなどは
'適時追加してください
textline = Replace(textline, """", "")
'カンマで分離します
csvline() = Split(textline, ",")
'配列渡しでセルに代入
Range(Cells(Rowcnt, 1), Cells(Rowcnt, UBound(csvline()) + 1)) = csvline()
Rowcnt = Rowcnt + 1
Loop
CloseFile:
'ファイルを閉じます
Close #ch1
End Sub
Function SelectFileNamePath(FileType, Prompt) As Variant
SelectFileNamePath = Application.GetOpenFilename(FileType, , Prompt)
End Function
Function GetItemNum(FileNamePath) As Integer
Dim ch1 As Long
Dim textline As String
'空いているファイル番号を取得します
ch1 = FreeFile
'FileNamePath のファイルをオープンします
Open FileNamePath For Input As #ch1
Line Input #ch1, textline '1行だけ読み込みます。
Close #ch1
GetItemNum = 1
'1行中のカンマの数を数えます
Do
GetItemNum = GetItemNum + 1
textline = Mid(textline, InStr(textline, ",") + 1)
Loop Until InStr(textline, ",") = 0
End Function
こんばんわです。
エクセルのVBAをつかってCSV形式のファイルデーターを読み込みように某サイトを参考に作成しました。
確かに読み込む事が出来たのですが、数値も文字列扱いになってしまいます。
数値処理する方法があるのでしょうか？
Sub CSV_Read2()
Dim FileType, Prompt As String
Dim FileNamePath As Variant
Dim textline, csvline() As String
Dim Rowcnt, ColumNum As Integer
Dim ch1 As Long
FileType = "CSV ファイル (*.csv),*.csv"
Prompt = "CSV File を選択してください"
'操作したいファイルのパスを取得します
FileNamePath = SelectFileNamePath(FileType, Prompt)
If FileNamePath = False Then 'キャンセルボタンが押された
End
End If
'空いているファイル番号を取得します
ch1 = FreeFile
'FileNamePath のファイルをオープンします
Open FileNamePath For Input As #ch1
'エラーが発生したらファイルを閉じます
'CSVのファイルは1行の項目数が正確に合っていないと読めないのですが、
'色々なCSVがあるようなので入れておきます
On Error GoTo CloseFile
'表の行番号の初期化 1行目から読み込んだデータを入力します
Rowcnt = 1
Do While Not EOF(ch1) 'ファイルの終端かどうかを確認します。
'1行読み込みます
Line Input #ch1, textline
'ダブルクォーテーションを削除します
'カンマ+ダブルクォーテーションで区切られている ＣＳＶ ファイルなどは
'適時追加してください
textline = Replace(textline, """", "")
'カンマで分離します
csvline() = Split(textline, ",")
'配列渡しでセルに代入
Range(Cells(Rowcnt, 1), Cells(Rowcnt, UBound(csvline()) + 1)) = csvline()
Rowcnt = Rowcnt + 1
Loop
CloseFile:
'ファイルを閉じます
Close #ch1
End Sub
Function SelectFileNamePath(FileType, Prompt) As Variant
SelectFileNamePath = Application.GetOpenFilename(FileType, , Prompt)
End Function
Function GetItemNum(FileNamePath) As Integer
Dim ch1 As Long
Dim textline As String
'空いているファイル番号を取得します
ch1 = FreeFile
'FileNamePath のファイルをオープンします
Open FileNamePath For Input As #ch1
Line Input #ch1, textline '1行だけ読み込みます。
Close #ch1
GetItemNum = 1
'1行中のカンマの数を数えます
Do
GetItemNum = GetItemNum + 1
textline = Mid(textline, InStr(textline, ",") + 1)
Loop Until InStr(textline, ",") = 0
End Function
Windowsのファイル名に使用禁止文字（\:/*?"<>|）を全角に置換しようと思い、下記のコードを書いてみたのですが、「\」だけが全角に置換されません。
どうしたら、「\」も全角に置換できるでしょうか？
よろしくお願いいたします。
Private Function ReplaceZenkaku(ByVal fileName As String) As String
Dim ignoreString As Regex = New Regex("[\\:\/\*\?""<>\|]")
Return ignoreString.Replace(fileName, New MatchEvaluator(AddressOf ReplaceKigou))
End Function
Private Function ReplaceKigou(ByVal M As Match) As String
Return Strings.StrConv(M.Value, VbStrConv.Wide)
End Function
２次方程式a*x^2+bx+c=0えお解くプログラムを考える。メインプロシージャmain1がsubプロシージャread1,solve1,display1を１回ずつ呼び出す。プロシージャread1で変数a,b,cにinputboxで整数値を入力する。プロシージャsolve1では、まず判別式D=b^2-４*a*cを計算して、D>0の場合にはｘ1、ｘ2に実数解ｘ1＝（-ｂ+ｓｑｒ（D)/(2*a)、ｘ２＝（-ｂ-ｓｑｒ（ｄ）/（２＊a）を求める。D<0の場合はｘ1に実部-ｂ/（2*a)を、ｘ２に虚部ｓｑｒ（-D)/（2*a)を求める。プロシージャdisplay1は入力された３つの整数値とsolve1で得られた２つの変数ｘ１．ｘ２の値を判別式Dの符号に応じてMsgbox関数で表示する。
以上のプログラムをモジュールレベル変数を用いてつくりなさい。
Sub read1() '問10（1）
Dim a As Integer, b As Integer, c As Integer
a = InputBox(" aの値を入力して")
b = InputBox(" bの値を入力して")
Sub solve1()
D = b ^ 2 - 4 * a * c
If D > 0 Then
x1 = (-b + Sqr(D)) / (2 * a)
x2 = (-b - Sqr(D)) / (2 * a)
Else
x1 = -b / (2 * a)
x2 = Sqr(-D) / (2 * a)
Sub display1()
End Sub
ここまでやったのですがこの先どうやるかわかりません。
おしえてください。
あとモジュールレベル変数ってなんですか？
２次方程式a*x^2+bx+c=0えお解くプログラムを考える。メインプロシージャmain1がsubプロシージャread1,solve1,display1を１回ずつ呼び出す。プロシージャread1で変数a,b,cにinputboxで整数値を入力する。プロシージャsolve1では、まず判別式D=b^2-４*a*cを計算して、D>0の場合にはｘ1、ｘ2に実数解ｘ1＝（-ｂ+ｓｑｒ（D)/(2*a)、ｘ２＝（-ｂ-ｓｑｒ（ｄ）/（２＊a）を求める。D<0の場合はｘ1に実部-ｂ/（2*a)を、ｘ２に虚部ｓｑｒ（-D)/（2*a)を求める。プロシージャdisplay1は入力された３つの整数値とsolve1で得られた２つの変数ｘ１．ｘ２の値を判別式Dの符号に応じてMsgbox関数で表示する。
以上のプログラムをモジュールレベル変数を用いてつくりなさい。
Sub read1() '問10（1）
Dim a As Integer, b As Integer, c As Integer
a = InputBox(" aの値を入力して")
b = InputBox(" bの値を入力して")
Sub solve1()
D = b ^ 2 - 4 * a * c
If D > 0 Then
x1 = (-b + Sqr(D)) / (2 * a)
x2 = (-b - Sqr(D)) / (2 * a)
Else
x1 = -b / (2 * a)
x2 = Sqr(-D) / (2 * a)
Sub display1()
End Sub
ここまでやったのですがこの先どうやるかわかりません。
おしえてください。
あとモジュールレベル変数ってなんですか？
２次方程式a*x^2+bx+c=0えお解くプログラムを考える。メインプロシージャmain1がsubプロシージャread1,solve1,display1を１回ずつ呼び出す。プロシージャread1で変数a,b,cにinputboxで整数値を入力する。プロシージャsolve1では、まず判別式D=b^2-４*a*cを計算して、D>0の場合にはｘ1、ｘ2に実数解ｘ1＝（-ｂ+ｓｑｒ（D)/(2*a)、ｘ２＝（-ｂ-ｓｑｒ（ｄ）/（２＊a）を求める。D<0の場合はｘ1に実部-ｂ/（2*a)を、ｘ２に虚部ｓｑｒ（-D)/（2*a)を求める。プロシージャdisplay1は入力された３つの整数値とsolve1で得られた２つの変数ｘ１．ｘ２の値を判別式Dの符号に応じてMsgbox関数で表示する。
以上のプログラムをモジュールレベル変数を用いてつくりなさい。
Sub read1() '問10（1）
Dim a As Integer, b As Integer, c As Integer
a = InputBox(" aの値を入力して")
b = InputBox(" bの値を入力して")
Sub solve1()
D = b ^ 2 - 4 * a * c
If D > 0 Then
x1 = (-b + Sqr(D)) / (2 * a)
x2 = (-b - Sqr(D)) / (2 * a)
Else
x1 = -b / (2 * a)
x2 = Sqr(-D) / (2 * a)
Sub display1()
End Sub
ここまでやったのですがこの先どうやるかわかりません。
おしえてください。
あとモジュールレベル変数ってなんですか？
