İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də verilən iki ədəd arasında bütün sadə nömrələri necə yaratmaq olar?

Excel-də, heç iki nömrə arasında hər bir ədəd nömrəni siyahıya salmağa çalışdınızmı? Bu məqalədə, bu vəzifəni həll etmək üçün bəzi maraqlı metodlar haqqında danışacağam.

Düsturlar ilə verilən iki ədəd arasında bütün sayım nömrələrini yaradın

İstifadəçi Tanımlı funksiyası ilə iki verilən nömrə arasındakı bütün nömrələri yaradın


arrow mavi sağ bubble Düsturlar ilə verilən iki ədəd arasında bütün sayım nömrələrini yaradın


Birləşdirmək Adı təyin edin funksiyası və formulaları ilə iki xüsusi nömrə arasındakı bütün nömrələri sıralaya və ya yarada bilərsiniz. Xahiş edirəm:

1. Xahiş edirik tıklayarak ilk sıra adını yaradın Formüller > Adı meneceri, və Adı meneceri informasiya qutusuna basın yeni düyməsinə baxın, ekran görüntüsünə baxın:

1 baş ədədləri doc siyahısı

2. İçində Yeni ad informasiya qutusunda, ad mətn qutusuna daxil edin rng aralığının adı kimi və bu formulu daxil edin: = ROW (INDIRECT (Sheet1! $ B $ 1 & ":" & Sheet1! $ B $ 2)) (Sheet1 istifadə etdiyiniz mövcud iş dəftəri, B1B2 siz göstərdiyiniz başlanğıc və son nömrələrdir) Müraciət edir mətn qutusuna basın və sonra basın OK keçmiş dialoqa dönmək üçün düyməsini basın. Ekran görüntüsünə baxın:

2 baş ədədləri doc siyahısı

3. Klikləyin yeni başqa bir sıra adını yaratmaq üçün düyməni basın Yeni ad informasiya qutusuna bir ad daxil edin baş daxil ad mətn qutusuna daxil edin və sonra bu formulu daxil edin: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (rng step2 da yaratdığınız ilk sıra adıdır) Müraciət edir mətn qutusu, ekran görünüşünə baxın:

3 baş ədədləri doc siyahısı

4. Sonra basın OK və dialoqları bağlayın və bütün sadə nömrələri siyahıya almaq istədiyiniz bir sütunu seçin və bu formulu daxil edin: = IFERROR (baş, "")(baş 3 addımında yaratdığınız sıra adını) formula barına daxil edin və sonra basın CTRL + SHIFT + ENTER düyməsini basın düymələri birləşdirilərək, göstərilən iki nömrə arasındakı bütün nömrələri aşağıdakı ekran görüntüsü kimi göstərilmişdir:

4 baş ədədləri doc siyahısı


arrow mavi sağ bubble İstifadəçi Tanımlı funksiyası ilə iki verilən nömrə arasındakı bütün nömrələri yaradın

Birinci üsul bir az çətin olsa, burada bir müraciət edə bilərsiniz İstifadəçi Tanımlı İşlev Bunu həll etmək üçün.

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Hər iki ədəd arasında iki ədəd xüsusi ədəd yaradın:

Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
    For m = 2 To n - 1
        If n Mod m = 0 Then GoTo 20:
    Next m
    num = num & n & ","
20:
Next n
PRIME = num
End Function

3. Sonra bu kodu saxlamaq və bağlamaq, iş səhifəsinə qayıdın, bu formu daxil edin: = prim (10,100) (10 başlanğıc nömrəsi və 100 ardıcıl ədədləri almaq istədiyiniz son nömrəsidir, bunları ehtiyaclarınıza dəyişdirə bilərsiniz) və sonra basın Daxil edin düyməsini basın və bütün baş ədədlər bir kamerada göstərilir, ekran görüntüsünə baxın:

5 baş ədədləri doc siyahısı



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    Sub generateprimenumbersbetween3()
    starting_number = 1 'input value here
    last_number = 10000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b Then
    Exit For
    Else
    If b = c Then
    primenumbers = primenumbers & " " & a
    Exit For
    Else
    If Round(a / (b + 1)) + 1 > b Then
    c = Round(a / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    Next a
    MsgBox primenumbers
    End Sub

    Function PRIMENUMBERSBETWEEN3(starting_number, last_number)
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b Then
    Exit For
    Else
    If b = c Then
    primenumbers = primenumbers & " " & a
    Exit For
    Else
    If Round(a / (b + 1)) + 1 > b Then
    c = Round(a / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    Next a
    PRIMENUMBERSBETWEEN3 = primenumbers
    End Function

    Sub ISPRIME3()
    number_to_be_checked = 15485863 'input value here
    c = number_to_be_checked
    For b = 2 To c
    If number_to_be_checked Mod b = 0 And c b Then
    MsgBox "Not Prime. Divisible by " & b
    Exit Sub
    Else
    If b = c Then
    MsgBox "Prime"
    Exit Sub
    Else
    If Round(number_to_be_checked / (b + 1)) + 1 > b Then
    c = Round(number_to_be_checked / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    End Sub
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    Sub generateprimenumbersbetween()
    starting_number = 1 'input value here
    last_number = 2000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b Then
    Exit For
    Else
    If a = b Then
    primenumbers = primenumbers & " " & a
    End If
    End If
    Next b
    Next a
    MsgBox primenumbers
    End Sub

    Function primenumbersbetween(starting_number, last_number)
    primenumbers = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b Then
    Exit For
    Else
    If a = b Then
    primenumbers = primenumbers & " " & a
    End If
    End If
    Next b
    Next a
    primenumbersbetween = primenumbers
    End Function

    'to check if a number is prime
    Sub ISPRIME()
    number_to_be_checked = 102 'input value here
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    number_to_be_checked b Then
    MsgBox "Not Prime. Divisible by " & b
    Exit Sub
    Else
    If number_to_be_checked = b Then
    MsgBox "Prime"
    End If
    End If
    Next b
    End Sub

    'to check if a number is prime
    Function ISPRIME2(number_to_be_checked)
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    number_to_be_checked b Then
    ISPRIME2 = "Not Prime. Divisible by " & b
    Exit Function
    Else
    If number_to_be_checked = b Then
    ISPRIME2 = "Prime"
    End If
    End If
    Next b
    End Function