Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Cum pun protectie in Google Walle...

Soba din tabla pentru atelier.

HIT and RUN - (Fuga dupa adevar)
 Proiect Erasmus -Vaccin si test pcr

Identificare dioda zenner

Cont SPV pentru PFA?

Spalare instalatie termica
 afisare eroare centrala termica e...

Probleme cu un PDF in Adobe Reader

NHA,NBA

Scartait placute frana
 Contract imprumut PFA

Comoditatea se plateste(si in Ung...

Hayu Romania (serviciul de stream...

Scoatere bani pensie privata obli...
 

Corectare modul in Visual bAsic 6

- - - - -
  • Please log in to reply
No replies to this topic

#1
valighero

valighero

    New Member

  • Grup: Members
  • Posts: 1
  • Înscris: 25.06.2012
[b]Buna ziua,
Ma numesc Vali si am facut un cod vb pentru o functie in excel care sa-mi verifice dintr-o lista numarul cu cele mai multe aparitii.in principiu stiu ca exista functii gata facute in xcel insa am dorit sa fac una ...proprie,problema este ca rezultatul este "your formula includes cells that contain different data types.". In principiu am inteles despre ce este vorba, nu inteleg unde totusi am gresit? Ma puteti ajuta?

Private Type numarator
v As Integer
b As Integer
End Type

Function CELMAIDES()
Dim i As Integer
Dim c As Variant
Dim d As Integer
Dim a() As numarator
Let CELMAIDES = 0
Let d = 0
'Atribuie tabelei "a.v" valori de la 1 la 49
    For i = 1 To 49
    Let a(i).b = 0
    Let a(i).v = i
    Next i
'Contorizeaza numarul aparitiilor
    For Each c In Sheet1.Range("A1:A756") 'There are only int numbers like 12,35,65
            For i = 1 To 49
            If a(i).v = c.Val Then 'Daca un numar din sir corespunde tabelei  "A"
               a(i).b = a(i).b + 1 'Atunci contorizeaza "1" la b-ul din tabela A
            End If
        Next i
    Next c
'Stiind acum ca in fiecare caracteristica b se afla numarul de contorizari
'Aflam acum care e numarul cu cele mai multe contorizari
    For i = 1 To 49
        If a(i).b > d Then
        d = a(i).b
        End If
    Next i
    CELMAIDES = d
    End Function


View Postvalighero, on 26th June 2012, 12:06, said:

[b]Buna ziua,
Ma numesc Vali si am facut un cod vb pentru o functie in excel care sa-mi verifice dintr-o lista numarul cu cele mai multe aparitii.in principiu stiu ca exista functii gata facute in xcel insa am dorit sa fac una ...proprie,problema este ca rezultatul este "your formula includes cells that contain different data types.". In principiu am inteles despre ce este vorba, nu inteleg unde totusi am gresit? Ma puteti ajuta?

Private Type numarator
v As Integer
b As Integer
End Type

Function CELMAIDES()
Dim i As Integer
Dim c As Variant
Dim d As Integer
Dim a() As numarator
Let CELMAIDES = 0
Let d = 0
'Atribuie tabelei "a.v" valori de la 1 la 49
    For i = 1 To 49
    Let a(i).b = 0
    Let a(i).v = i
    Next i
'Contorizeaza numarul aparitiilor
    For Each c In Sheet1.Range("A1:A756") 'There are only int numbers like 12,35,65
            For i = 1 To 49
            If a(i).v = c.Val Then 'Daca un numar din sir corespunde tabelei  "A"
               a(i).b = a(i).b + 1 'Atunci contorizeaza "1" la b-ul din tabela A
            End If
        Next i
    Next c
'Stiind acum ca in fiecare caracteristica b se afla numarul de contorizari
'Aflam acum care e numarul cu cele mai multe contorizari
    For i = 1 To 49
        If a(i).b > d Then
        d = a(i).b
        End If
    Next i
    CELMAIDES = d
    End Function
Am gasit si raspunsul : "tabela Dim a() As numarator trebuie sa o dimensionam exact  adica Dim a(1 to 6000) As numarator"
Multumesc oricum!

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate