Forum - VBA Πιο γρήγορος κώδικας

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Πιο γρήγορος κώδικας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2717-pio-grigoros-kodikas.html)

misirlis

02-10-13 15:35

Πιο γρήγορος κώδικας

Καλησπέρα σε ολους τους φίλους,μηπως θα μπορουσε ο πιο κατω κωδικας να γινει πιο γρηγορος.ευχαριστώ εκ των προτέρων.

Private Sub CommandButton1_Click()
Columns("O:Q").Select
Selection.ClearContents
Range("O1").Select

K = 0

Do

Set r = Range("G3:I1009")
For N = 1 To r.Rows.Count
If r.Cells(N, 1) >= 2 And r.Cells(N, 1) <= 5 Then

myva1 = r.Cells(N, 1)
myva2 = r.Cells(N, 2)
myva3 = r.Cells(N, 3)

Cells(4 + K, 15) = myva1
Cells(4 + K, 16) = myva2
Cells(4 + K, 17) = myva3

K = K + 1
End If
Next N
End
K = 0
Loop
End Sub

Tasos

02-10-13 16:52

Καλησπέρα!
Μάκη, δοκίμασε:

Κώδικας:

Private Sub CommandButton1_Click()

    With Sheet1  ' Το κωδικό όνομα του φύλλου όπως εμφανίζεται στον Project Explorer πχ: Sheet1(Φύλλο1)

        .Range("O3:O1009").FormulaR1C1 = "=IF(AND(RC7>=2,RC7<=5),IF(RC[-5]="""","""",RC[-5]),"""")"

        .Range("P3:Q1009").FormulaR1C1 = "=IF(RC[-1]="""","""",IF(RC[-5]="""","""",RC[-5]))"

        .Range("O3:Q1009").Value = .Range("O3:Q1009").Value

    End With

End Sub

Καλή συνέχεια!

Τάσος

misirlis

02-10-13 17:48

Ευχαριστώ Τάσο για την άμεση απάντηση,να είσαι καλά.

Η ώρα είναι 08:54.

Search Engine Optimization by vBSEO 3.3.2