SHOW:
|
|
- or go back to the newest paste.
| 1 | width_step = (Range("max_w").Value - Range("min_w").Value) / 10
| |
| 2 | For read_row = 2 To calcline ' for every optional set, do calculation | |
| 3 | If Worksheets("Calc").Cells(read_row, 1).Value = "" Then Exit For
| |
| 4 | cur_width = Range("min_w").Value
| |
| 5 | While (cur_width <= Range("max_w").Value)
| |
| 6 | 'For cur_width = Range("min_w").Value To Range("max_w").Value Step width_step ' calculate for every width in 1mm steps
| |
| 7 | - | Range("diameter_p").Value = Worksheets("Calc").Cells(read_row, 4).Value
|
| 7 | + | |
| 8 | - | Range("diameter_g").Value = Worksheets("Calc").Cells(read_row, 5).Value
|
| 8 | + | |
| 9 | - | Range("module").Value = Worksheets("Calc").Cells(read_row, 3).Value
|
| 9 | + | |
| 10 | ||
| 11 | write_row = write_row + 1 | |
| 12 | - | |
| 12 | + | |
| 13 | - | Worksheets("Result").Cells(write_row, 1).Value = Worksheets("Calc").Cells(read_row, 1).Value
|
| 13 | + | |
| 14 | - | Worksheets("Result").Cells(write_row, 2).Value = Worksheets("Calc").Cells(read_row, 2).Value
|
| 14 | + |
