Bifa calendar

Informatii despre cum se utilizeaza Microsoft Excel 2007. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Bifa calendar

Mesaj de halfbebi » Lun Feb 25, 2019 12:00 pm

Buna ziua,
exista posibilitatea ca dand click pe o celula se fie marcata color, sau cu un caracter tip bifa, iar acea cifra sa fie trecuta alaturat?
Multumesc, stima
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Bifa calendar

Mesaj de IPP » Lun Feb 25, 2019 1:50 pm

Buna ziua

Eu as incerca o alta varianta: scriere manuala a numerelor dorite in zona coloanelor B:G iar dincolo (in calendar) colorare prin formatare conditionata.

Chiar daca exista in cadrul macro evenimentul SelectionChange care ar permite atat colorarea automata la selectie cat si rularea unei subrutine de completare in zona B:G (si aici poate fi ceva problematic legat de cum anume sa aiba loc acea completare), mi se pare greu de folosit in conditiile date, mai ales daca veti selecta ceva din gresala.

IP

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Bifa calendar

Mesaj de halfbebi » Mie Feb 27, 2019 8:57 am

Salut,
as ramane la idea mea, uitati ce am mai gasit, am mai facut un pas, :D
in foaia V1 am facut ceva de genul , dai dublu click si ai o bulina neagra,
in foaia V2 mai interesant colorez celula
acum ar trebui sa vad cum iau de acolo valoarea celulei si sa o pun in zona
Multumesc, stima
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Indigo-ONE
Mesaje: 433
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Bifa calendar

Mesaj de Indigo-ONE » Mie Feb 27, 2019 3:49 pm

Salut,

Care e maximul de celule in care vrei sa iti apara numerele din calendar.
In fisier este rangeul B3:G3, e posibil sa vrei mai multe numere si daca da unde se vor pozitiona acele numere (dedesubt poate?)
In calendar sunt numere trecute de "mana"? sau sunt date ca rezultat al unor formule?


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Bifa calendar

Mesaj de halfbebi » Joi Feb 28, 2019 7:26 pm

Salut,
6 numere
"calendarul" e scris manual, de mana
multumesc

Indigo-ONE
Mesaje: 433
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Bifa calendar

Mesaj de Indigo-ONE » Joi Feb 28, 2019 11:54 pm

Daca dai dublu clic intro celula si constati ca ai gresit (totusi numarul a fost scris in una din cele 6 celule) vrei sa se sterga si acel numar din cele 6 celule? dupa ce anulezi numarul din calendar...
Datele din cele 6 celule vor fi puse in functie de ordinea selectarii.
Nu de alta dar nu vreau sa refac codul mereu.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: Bifa calendar

Mesaj de TudyBTH » Vin Mar 01, 2019 3:30 am

Buna,

Poate gasiti ceva inspiratie in fisierul atasat.
In foaia settings puteti introduce anul, luna, si cele (maxim) 6 zile pe care le doriti marcate in calendar.

Odata introdusa o data aceasta se marcheaza automat. Daca o stergeti din lista anulati marcajul. Nu prea inteleg logica unui "ckick". Poate ne oferti mai multe detalii.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Bifa calendar

Mesaj de halfbebi » Sâm Mar 02, 2019 5:40 pm

Salut,
@Indigo-ONE, ar fi perfect sa se stearga
Stima

Indigo-ONE
Mesaje: 433
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Bifa calendar

Mesaj de Indigo-ONE » Dum Mar 03, 2019 12:05 pm

OK.

Pune codul urmator in foaia unde ai calendarul:

Cod: Selectaţi tot

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ka As Range
    Dim Ki As Range
    Dim K As Long
    
    If Not Intersect(Range("L3:R7"), Target) Is Nothing Then
        Cancel = True
        If Target.Value <> "" Then
            If Target.Interior.Color = vbYellow Then
                Set Ki = Range("B3:G3").Find(What:=Target.Value, LookAt:=xlWhole)
                If Ki Is Nothing Then
                    MsgBox "Ceva e in neregula. Nu sunt date in Range B3:G3!", vbExclamation
                Else
                    Do
                        Ki.Value = Ki.Offset(, 1).Value
                        Set Ki = Ki.Offset(, 1)
                    Loop Until Ki.Value = ""
                    For K = 7 To 2 Step -1
                        If Cells(3, K).Value = "" Then
                            Cells(3, K).Interior.ColorIndex = xlColorIndexNone
                        Else
                            Exit For
                        End If
                    Next K
                End If
                Target.Interior.ColorIndex = xlColorIndexNone
            Else
                Set Ka = Range("H3").End(xlToLeft).Offset(, 1)
                If Ka.Column = 8 Then
                    MsgBox "Doar 6 numere poti selecta!", vbInformation
                Else
                    Target.Interior.Color = vbYellow
                    Ka.Value = Target.Value
                    Ka.Interior.Color = vbYellow
                End If
            End If
        End If
    End If
End Sub
Sterge codurile pe care le mai ai in modulul foii.
Codul functioneaza astfel:
La fiecare dublu clic in calendar, va umple acea celula cu galben si va transfera cifra in rangeul dat B3:G3. Aici celula va fi colorata tot in galben.
Daca dai iar dublu clic intro celula (a calendarului) care are culoarea galbena, acea celula va reveni la culoarea initiala si numarul din B3:G3 se va sterge (inclusiv culoarea).
Daca alegi o celula care nu are numar in ea, codul nu va reactiona.
Daca vrei sa alegi mai mult de 6 numere, va aparea un mesaj care te va anunta ca 6 este numarul maxim de numere care se pot selecta.
Sper sa fie ce doresti.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Bifa calendar

Mesaj de halfbebi » Lun Mar 04, 2019 11:03 am

@ Indigo-ONE Multumesc mult
Va multumesc tuturor
e mai mult decat perfect
Stima

Scrie răspuns

Înapoi la “Intrebari despre Excel 2007”