< návrat zpět

MS Excel

Téma: Zápis makra_porovnání tří sloupců rss

Zaslal/a Zumi 13.11.2022 8:35

Prosím o radu na zápis makra, který vyhodí ve sloupci A hodnotu 1, 2 nebo 3 na základě toho, zda najde nějaký číselný údaj v jiném sloupci. Tzn. ve sloupcích B, C a D může a nemusí být číslo.
Pokud je číslo jen v jednom ze tří sloupců, do sloupce A se zapíše 1.
Pokud je číslo ve dvou ze tří sloupců, do sloupce A se zapíše 2.
Pokud je číslo ve tří ze tří sloupců, do sloupce A se zapíše 3.
Údaje ve sloupcích musí mít "neomezený-rostoucí" počet řádků.
Moc děkuji. 1

Zaslat odpověď >
JoKe(13.11.2022 11:50)#053837
avatar
a nestačí vzorcem

=(--JE.ČISLO(B1))+(--JE.ČISLO(C1))+(--JE.ČISLO(D1))citovat
Lugr(13.11.2022 12:05)#053838
Lugr
@JoKe
teoreticky stačí toto:

=POČET(B1:D1)

ale on chce makro.

@Zumi
zkus to jednoduše takhle:


Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

SLB = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row
SLC = wsDATA.Cells(Rows.Count, "C").End(xlUp).Row
SLD = wsDATA.Cells(Rows.Count, "D").End(xlUp).Row

RADEK = Application.WorksheetFunction.Max(SLB, SLC, SLD)

wsDATA.Range("A1").Resize(RADEK).Formula = "=IF(COUNT(B2:D2)=0,"""",COUNT(B2:D2))"
wsDATA.Range("A1").Resize(RADEK).Value = wsDATA.Range("A1").Resize(RADEK).Value
citovat
Zumi(14.11.2022 17:29)#053848
avatar

JoKe napsal/a:

a nestačí vzorcem

=(--JE.ČISLO(B1))+(--JE.ČISLO(C1))+(--JE.ČISLO(D1))


díky, také využiji 1citovat
Zumi(14.11.2022 17:30)#053849
avatar

Lugr napsal/a:

@JoKe
teoreticky stačí toto:

=POČET(B1:D1)

ale on chce makro.

@Zumi
zkus to jednoduše takhle:


Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

SLB = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row
SLC = wsDATA.Cells(Rows.Count, "C").End(xlUp).Row
SLD = wsDATA.Cells(Rows.Count, "D").End(xlUp).Row

RADEK = Application.WorksheetFunction.Max(SLB, SLC, SLD)

wsDATA.Range("A1").Resize(RADEK).Formula = "=IF(COUNT(B2:D2)=0,"""",COUNT(B2:D2))"
wsDATA.Range("A1").Resize(RADEK).Value = wsDATA.Range("A1").Resize(RADEK).Value


MOC DÍKY 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje