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 |
inca o problema... culori fundal celula
Last Updated: Apr 01 2007 21:10, Started by
leroiv
, Mar 29 2007 16:22
·
0
#1
Posted 29 March 2007 - 16:22
Am urmatorul macro :
Sub PopulareCelule() Dim k As Integer Dim l As Integer k = ActiveCell.Column l = ActiveCell.Row For i = k To 35 ActiveCell.Select If ActiveCell.Interior.ColorIndex = 4 Then Cells(l, i).Value = "da" Else Cells(l, i).Value = "nu" End If Next End SubCe doresc sa fac este sa testez fiecare celula dintr-o zona daca are culoarea de fundal verde. In cazul in care este verde sa scrie ceva in celula iar daca e alta culoare sa scrie altceva. Prolema pe care o am este ca la rulare imi testeaza doar prima celula in care este cursorul si pana la sfarsitul zonei de celule scrie doar valoarea pentru fond verde, desi pe parcurs mai sunt celule fara fond verde. Aveti vreo idee unde am gresit la cod? Multumesc! Edited by leroiv, 29 March 2007 - 16:23. |
#2
Posted 01 April 2007 - 21:10
leroiv, on Mar 29 2007, 17:22, said: Am urmatorul macro : ... Pai asta se intampla pentru ca nu schimbi celula activa, ramane aceeasi . Adica activecell.select inseamna selecteaza celula activa, pe care o selectezi si... aia o tot selectezi. Si daca vrei sa te uiti si pe alta coloana, mai ai nevoie de inca o bucla For, pentru schimbarea coloanelor. Fix: Schimbi celula activa prin insertia liniei Cells(l,i).select in loc de "ActiveCell.Select", sau si mai bine fara activecell , scrii direct: For i = k To 35 If cells(l,i).Interior.ColorIndex = 4 Then Cells(l, i).Value = "da" Else Cells(l, i).Value = "nu" End If Next Succes |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users