VBA-Добавить формулу с переменной как двойной - PullRequest
Новая
       11

VBA-Добавить формулу с переменной как двойной

0 голосов
/ 26 июня 2018

Я пытаюсь добавить формулу в ячейку с переменной, имеющей десятичные точки. однако, когда я использую типы данных Double, я получаю ошибку во время выполнения: 1004 ошибка приложения или объекта. Однако, когда я использую 'Long' в качестве типов данных, ошибок нет, но значения неверны. Ниже приведен код, который я пробую. 

Sub copy_data_to_sheets()


Dim Mat As String
Dim Angle As String
Dim lo As Double
Dim ao As Double
Dim bo As double
Dim so As double
Dim Strformula As String

For i = 1 To 1 Step 1 'Moving across diferent sheets
    Worksheets("Probe" & Chr(32) & i).Activate

With ActiveSheet

Range("F1:N10000").ClearContents 'Delete out Previous data

Mat = Worksheets("Ergebnisse").Cells(i + 3, 2).Value
Angle = Worksheets("Ergebnisse").Cells(i + 3, 3).Value
lo = 80
ao = Worksheets("Ergebnisse").Cells(i + 3, 4).Value
bo = Worksheets("Ergebnisse").Cells(i + 3, 5).Value
so = Worksheets("Ergebnisse").Cells(i + 3, 6).Value

    Noofrows = .Cells(.Rows.Count, "A").End(xlUp).Row 'Count total no of Rows with data(Lotid)
    NoofColumns = .Cells(1, .Columns.Count).End(xlToLeft).Column 'Count total no of Columns with data
    'MsgBox "Total no of rows " & Noofrows

Range("F3") = "Thickness change"
Range("F4") = "mm"
Strformula = "=-" & ao & "*(B5/" & lo & "+C5/" & bo & ")"
Range("F5").Formula = Strformula 'Error with decimal points
Range("F5:F" & Noofrows).FillDown

End With

 Next i
...