VBA全く分からない者です。下記のコードを翻訳？お願いしたいです。無知な私に一番分かりやすかった方にベストアンサーしたいです。宜しくお願いします。 元になるＥｘｃｅｌCSVデータのL,M.P.R列の情報を参照する内容になっており、元のデータの各セルの文字列の頭には「’」がついています。 Sub test() Dim fname As Variant Dim buf As String Dim tbl As Variant Dim i As Integer, j As Long Dim r As Long 'CSVファイル選択,配列へ fname = Application.GetOpenFilename("CSVファィル(*.csv),*.csv", _ Title:="CSVファイルを選択して下さい", MultiSelect:=False) If VarType(fname) = vbBoolean Then Exit Sub Application.ScreenUpdating = False With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile fname buf = .ReadText .Close End With tbl = Split(buf, vbCrLf) 'Sheet1へ転記 With Worksheets("Sheet1") If .Range("A2").Value <> "" Then .Range("A2:E" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents End If r = 1 For i = 0 To UBound(tbl) If tbl(i) <> "" Then If Split(tbl(i), ",")(11) <> "後方コード" Then If InStr(Split(tbl(i), ",")(17), "警告") Then r = r + 1 .Cells(r, 1).Value = Split(tbl(i), ",")(11) .Cells(r, 2).Value = Split(tbl(i), ",")(12) .Cells(r, 3).Value = Split(tbl(i), ",")(15) '発送を検索 For j = i + 1 To UBound(tbl) If tbl(j) <> "" Then If Split(tbl(j), ",")(11) = Split(tbl(i), ",")(11) _ And InStr(Split(tbl(j), ",")(17), "交換") Then .Cells(r, 4).Value = Split(tbl(j), ",")(15) Exit For End If End If Next j If j > UBound(tbl) Then .Cells(r, 5).Value = "要交換" .Cells(r, 5).Font.ColorIndex = 3 End If End If End If End If Next i End With Application.ScreenUpdating = True End Sub 実は先日ある方にこちらで作って頂いたコードになります。ただ私が元になるＣＳＶファイルの情報開示を躊躇ったことで正しい情報では無い状況で作成して頂いたこともあり完成に至らず、その方に何度もやり取りをして頂いたのですがこれ以上お手を煩わすことが申し訳なくなり残念しました。ただ貴重な時間を割いて作って頂いたこともあり無駄にするのは申し訳ないので 誰かに翻訳？をしていただければ自分で解決の糸口が見つかるかもと思った次第です。無謀なことでそもそも無理なことかもしれませんが宜しくお願いします。
Visual Basic
