منع عرض القيمة ( صفر ) في combobox

[ابو تميم]

تحية طيبة

في الملف المرفق أريد الـcombobox أن يعرض القيم التي أكبر من صفر فقط وإذا كانت القيمة صفر ( أي لا يوجد قيم في القائمة سوى - صفر ) يتم إخفاء الـ combobox

وإذا تم إدخال قيم في القائمة يتم إظهار الـ combobox

comboboxView.rar

تم تعديل نوفمبر 4, 2012 بواسطه ابو تميم

[أبو حنــــين]

جرب هذا الكود في حدث الورقة

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1

ComboBox1.Clear

For t = 1 To LastRow

If Cells(t, 1).Value > 0 And Cells(t, 1) <> "" Then

ComboBox1.AddItem Cells(t, 1).Value

End If

Next

End Sub

[رجب جاويش]

بعد اذن أخى الحبيب / أبو حنين

ولإثراء الموضوع هذا كود آخر

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

x = Application.WorksheetFunction.Sum(Range("List"))

ComboBox1.Clear

If x = 0 Then

    ComboBox1.Visible = False

Else

	 ComboBox1.Visible = True

	 For Each cl In Range("list")

	 If cl > 0 Then

	 ComboBox1.AddItem cl

	 End If

	 Next

End If

End Sub

comboboxView.rar

[ابو تميم]

شكرا جزيلا على جهودكم أساتذتنا الكرام

حلول جميلة جدا

جزاكم الله خيرا