Jump to content

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

Reprezentanța B.B.C. (Brown, Bove...

Analizele Medicale, intre fericir...

Recomandare carcasa si sursa cu pwm
 Cum s-ar putea face plafonarea pr...

Preparing automatic repair diagno...

Planul Samsung pentru urmatorii 5...

videoproiector vs oricare display
 Produse comandate din china (wish...

probleme mașina de spalat rufe

Magazine care vand bere la keg

Proiect ciudat legat de metaverse...
 Daniel Fenechiu: Nu vom aște...

Transfer in acelasi pc cu FTP

Și daca industria europeana ...

Alimentare camera ip distanta 50m
 

Macrouri pt Excel

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

#1
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Salut!
Sint un foarte incepator in ale VBA-ului si din cauza asta am nevoie de ajutor in ceea ce priveste scrierea macrourilor pt Excel. Pt unii dintre voi probabil e "floare la ureche", eu "mi-am prins urechile".Nu stiu sa fac iteratia...Asa ca, imi trebuie codurile pt urmatoarele 2 probleme.

1) Se da o coloana (ex: A1:A100) cu valori cuprinse intre 1 si 20. Vreau ca macroul sa-mi coloreze valorile mai mari de 10 cu verde si cele mai mici de 10 cu albastru.

2) Se da o coloana de forma

1223355
releu
12554526
baterie
1548785
cablu

Vreau sa imi puna (cu "cut") valorile "text" pe coloana urmatoare, in dreptul valorilor de deasupra, corespunzatoare.
Sa apara astfel:
1223355    releu
12554526  baterie
1548785    cablu

Precizez ca pt ambele proleme este vorba de rinduri de ordinul miilor, altfel le faceam manual....

Multumesc frumos pt intelegere.

#2
mihaicris

mihaicris

    Junior Member

  • Grup: Members
  • Posts: 215
  • Înscris: 03.03.2003
macro1 pentru 1, macro2 pentru 2


Sub macro1()
Dim i As Long

For i = 1 To 100    'aici se inlocuieste 100 cu ultima linie, valorile se iau de pa coloana A
    If Cells(i, "A") > 10 Then
        Cells(i, "A").Font.Color = vbGreen ' asta are loc daca > 10
    Else
        Cells(i, "A").Font.Color = vbBlue ' asta are loc daca < sau = 10
    End If
    Application.StatusBar = i ' asta ca sa vezi ce se intampla
Next

End Sub

'____________________________________

Sub macro2()
Dim i As Long, txtnou As String
For i = 1 To 100    'aici se inlocuieste 100 cu ultima linie, valorile se iau de pa coloana A si se pun in B
    If IsNumeric(Cells(i, "A")) And Cells(i, "A") > 0 Then
        txtnou = Cells(i, "A") & " " & Cells(i + 1, "A")
        Cells(i, "A") = txtnou
        Cells(i + 1, "A") = ""
        txtnou = ""
    End If
    Application.StatusBar = i ' asta ca sa vezi ce se intampla
Next
End Sub

#3
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Multumesc frumos, mihaicris!

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

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