طلب مساعدة في معادلة if تقبل العدد من الى

[AMIRBM]

الملف الصحيح العفو

if أوفيسنا.xlsb السلام عليكم طلب مساعدة في دالة if الشرح في الملف المرفق

fhvm hggi tdml 

if أوفيسنا 2.xlsb if أوفيسنا 2.xlsb

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته 

حسب فهمى لطلبك

 الكود

Private Sub TextBox12_Change()
    If IsNumeric(Me.TextBox12.value) Then
        Dim value As Integer
        value = CInt(Me.TextBox12.value)
        
        Dim maxValue As Integer
        If value >= 8 Then
            maxValue = 40
        ElseIf value >= 7 Then
            maxValue = 30
        Else
            maxValue = 0
        End If
        
        If maxValue > 0 Then
            Me.TextBox3.value = Int((maxValue + 1) * Rnd())
        Else
            Me.TextBox3.value = 0
        End If
        
        ThisWorkbook.Sheets("Sheet2").Range("L13").value = Me.TextBox3.value
    Sheets("sheet2").Range("l8").value = ComboBox1.value
TextBox12.value = Sheets("sheet2").Range("l10").value

    End If
End Sub

الملف

if أوفيسنا 3.xlsb

تم تعديل منذ 6 ساعات بواسطه عبدالله بشير عبدالله