12-06-17, 17:57
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Γιώργο, δοκίμασε τον κώδικα: Κώδικας: Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To 5
Me.Controls("lbl" & i & "sh1").Caption = Format(sh1.Range("A" & i), "currency")
Next
End Sub
|