08-06-15, 20:13
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Γιώργο, θα σου πρότεινα τον παρακάτω κώδικα: Κώδικας: Private Sub CommandButton3_Click()
'Ο κώδικας αξιοποιεί την ονομασία των CheckBox. Συγκεκριμένα:
'Η συνάρτηση Mid(c.Name, 9), επιστρέφει τον αριθμό του μήνα και
'Το στοιχείο MonthData(Mid(c.Name, 9) - 1) του Array MonthData
'Το όνομα της περιοχής των δεδομένων του μήνα.
On Error GoTo ErrHandler
Dim c As Control, MonthData As Variant
MonthData = Array("Data1", "Data2", "Data3", "Data4", "Data5", "Data6", _
"Data7", "Data8", "Data9", "Data10", "Data11", "Data12")
For Each c In Me.Controls
If TypeName(c) = "CheckBox" Then
If c Then
Range(MonthData(Mid(c.Name, 9) - 1)).ClearContents
End If
End If
Next
MsgBox "Η διαγραφή ολοκληρώθηκε"
Exit Sub
ErrHandler:
MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
End Sub
ΦιλικάΓιώργος
|