طلب مساعدة في معادلة 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

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

[AMIRBM]

بارك الله فيك أستاذ وجزاك الله خيرا

لكن ليس هذا المطلوب ربما أنا اخطأت في شرح المطلوب

	العمل في الفورم
المطلوب	TextBox12
-1 اذا كان التكست بوكس   12أقل أويساوي 7 النقطة تكون ما بين 0 حتى 30 لا تقبل 31
-2اذا كان التكست بوكس12  أأكبر أويساوي 8 النقطة تكون ما بين 0 حتى 40 لا تقبل 41
النقطة في التكست بوكس 3 متغيرة
TextBox3

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

وفيك بارك الله

كان من المفترض عدم  وضع تمت الاجابة لان من يراها في صفخة الاكسل الرئيسية وحصوصا الخبراء يعتقد ان هذا السؤال تمت الاجابه عليه فيتركه ويذهب الى موضوع اخر لم تتم الاجابة عليه وبهذا تخسر اطلاع الخبراء على طلبك ريما تكون الاجابة لديهم وارجو الغائها من الاعلى لان الاجابة السابقة غير صخيخة 

تم التعديل على الكود بخيث لا يتجاوز 30 او 40 

Private Sub ComboBox1_Change()
    On Error Resume Next
    Application.EnableEvents = False
    
    Sheets("Sheet2").Range("L8").value = ComboBox1.value
    TextBox12.value = Sheets("Sheet2").Range("L10").value
    
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

Private Sub TextBox12_Change()
    Static lastValue As Variant
    
    On Error Resume Next
    Application.EnableEvents = False
    
    If IsNumeric(Me.TextBox12.value) Then
        Dim value As Integer
        value = CInt(Me.TextBox12.value)
        
        Dim minValue As Integer, maxValue As Integer, newValue As Integer
        
        If value >= 8 Then
            minValue = 0
            maxValue = 40
        Else
            minValue = 0
            maxValue = 30
        End If
        
        Randomize
        
        Do
            newValue = Int((maxValue - minValue + 1) * Rnd()) + minValue
        Loop While newValue = lastValue
        
        Me.TextBox3.value = newValue
        lastValue = newValue
        
        ThisWorkbook.Sheets("Sheet2").Range("L13").value = newValue
    End If
    
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

if أوفيسنا 3.xlsb