|
ポンタさん、こんにちは。
ありがとうございます。
解読をよそにそのままやってみると
「プロシージャの呼び出し、または引数が不正です」と
でてしまいました。
デバッグは
> 桁数1 = Int(Log(WorksheetFunction.Max(Range("C:C"))) / Log(10)) + 2
それから
▼ポンタ さん:
>横から失礼します。
>
>これでどうでしょう?
>
>Sub test()
> Dim objFs As Object, objText As Object
> Dim FileName As String
> Dim MyStr As String
> Dim i As Long
> Dim 桁数1 As Integer, 桁数2 As Integer
> FileName = "C:\My Documents\test.txt"
> Set objFs = CreateObject("Scripting.FileSystemObject")
> Set objText = objFs.OpenTextFile(FileName, 2, True)
> 桁数1 = Int(Log(WorksheetFunction.Max(Range("C:C"))) / Log(10)) + 2
↑ここのLog(*)でCの桁数を決めるんですよね?
> 桁数2 = Int(Log(WorksheetFunction.Max(Range("D:D"))) / Log(10)) + 2
↓ごめんなさい、このFor文がわからなくて・・・
もしよければ指示の内容を教えてください。何から何まですみません。
> For i = 1 To Range("A65536").End(xlUp).Row
> MyStr = Cells(i, 1).Value
> MyStr = MyStr & Cells(i, 2).Value
> MyStr = MyStr & String(桁数1 - Len(Cells(i, 3).Value), " ")
> MyStr = MyStr & Cells(i, 3).Value
> MyStr = MyStr & String(桁数2 - Len(Cells(i, 4).Value), " ")
> MyStr = MyStr & Cells(i, 4).Value
> Call objText.WriteLine(MyStr)
> Next
> objText.Close
> Set objText = Nothing
> Set objFs = Nothing
>End Sub
|
|