[es] - Visual Basic za Aplikacije ili za Excel Pomoc

Misureee
Milos Nikolic
Srbija

Član broj: 331705
Poruke: 2
188.117.224.*

Profil

Visual Basic za Aplikacije ili za Excel Pomoc

^{24.12.2015. u 23:26 - pre 101 meseci}

HITNO mi je potrebno resenje ovog zadatka ako je neko u mogucnosti da uradi :
Napišite program koji ispisuje „paskalovu“ piramidu u Excel tabeli. Kao ulaz se uzima dubina piramide (broj nivoa). Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Visual Basic za Aplikacije ili za Excel Pomoc

^{25.12.2015. u 11:36 - pre 101 meseci}

Pogledaj ovdje

btw:

Code:
Option Explicit

Private Sub CommandButton1_Click()

    Dim pascalTr(10, 10) As Integer
    Dim row, col As Integer
    pascalTr(0, 0) = 1
    pascalTr(1, 0) = 1
    pascalTr(1, 1) = 1
    For row = 2 To 10
        pascalTr(row, 0) = 1
        For col = 1 To row

         pascalTr(row, col) = pascalTr(row - 1, col - 1) + pascalTr(row - 1, col)
        Next
    Next
    For row = 0 To 10

        For col = 0 To row
          Cells(row + 1, col + 1) = pascalTr(row, col)
          Next
    Next
End Sub

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Visual Basic za Aplikacije ili za Excel Pomoc

^{26.12.2015. u 12:09 - pre 101 meseci}

Jedan alternativni pristup, bez ijedne petlje kao ni deklarisanja promenjljive.

Code:

Sub Paskalov_Trougao_iz_A1()
' Dimenzija trougla u A1

    With [b2].Resize( _
            IIf(1 < [a1].Value, [a1].Value, 1), _
            IIf(1 < [a1].Value, [a1].Value, 1))
        ActiveCell.CurrentRegion.ClearContents
        .FormulaR1C1 = "=IF(ROW()-COLUMN()-4 < " & _
            .Rows.Count & "-2*COLUMN(),rc[-1]+r[-1]c,0)"
        [b2].Value = 1
        .Copy:   .PasteSpecial xlValues
        .Replace What:="0", Replacement:="", _
            LookAt:=xlWhole
        .Cut Destination:=.Offset(-1, -1)
    End With
End Sub

Verovatno neće zadovoljiti zamisao nastavnika ali je ovo toliko prost zadatak da ne znam sa čime bih ga uporedio.. - Šta može biti elementarnije? Sabiranje dva broja? Upravo se o tome ovde i radi.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Visual Basic za Aplikacije ili za Excel Pomoc

^{27.12.2015. u 19:53 - pre 101 meseci}

Citat:

Misureee: Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],

Evo primjera i sa formulama.

Prikačeni fajlovi

PascalPiramida.xlsx - 10.01k

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Visual Basic za Aplikacije ili za Excel Pomoc

^{28.12.2015. u 11:48 - pre 101 meseci}

U najelementarnijem obliku, mogli bismo do rešenja praktično iz dva koraka: prvo dve katete trougla ispunimo jedinicama a u drugom, prostor između, jedinstvenom formulom za sabiranje dva suseda -- već prema pravilu za pružanje.

Code:

Sub Paskalov_Trougao_iz_A1()
   ' Dimenzija trougla u A1: radi za dimenzije >= 2

    If [a1].Value >= 2 Then
        Names.Add Name:="\dim", RefersTo:=[a1].Value
        ActiveCell.CurrentRegion.ClearContents
        Range([a1].Resize([\dim]), [a1].Resize(, [\dim])) _
            .Value = 1
        [b2].Resize([\dim] - 1, [\dim] - 1) _
            .FormulaR1C1 = "=IF(COLUMN()-ROW()-2<" _
            & [\dim] & "-2*ROW(),rc[-1]+r[-1]c,"""")"
        Names("\dim").Delete
    End If
End Sub

Sad, s obzirom da je navedeno da "sledeći nivo" čine A2, B1 to znači da se katete pružaju u pravcima A1:A2 i A1:B1.

Odgovor na temu