Sub Makro1()
For i = 1 To 50
If Cells(i, 1).NumberFormat = "#,##0.00 $" Then
MsgBox Cells(i, 1).Address
End If
Next i
End Sub
Nutno nastavit oblast hledání, nyní je to A1:A50.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vyhledání čísla - formát měna
Sub Makro1()
For i = 1 To 50
If Cells(i, 1).NumberFormat = "#,##0.00 $" Then
MsgBox Cells(i, 1).Address
End If
Next i
End Sub
Nutno nastavit oblast hledání, nyní je to A1:A50.citovat
MS Excel
Téma: Vyhledání čísla - formát měna 
Zaslal/a 14.5.2017 19:15
Ahoj,
chtěl bych se zeptat, jestli mi někdo neporadíte s makrem na vyhledání čísla, které má v buňce nastaven formát měna (10 000,00 Kč). Zkoušel jsem snad všechno možné, ale vždy mě to vyhodilo hlášku - excel nemůže najít hledaná data.
Předem děkuji za odpovědi.
(14.5.2017 20:39)#036336
Sub Makro1()
For i = 1 To 50
If Cells(i, 1).NumberFormat = "#,##0.00 $" Then
MsgBox Cells(i, 1).Address
End If
Next i
End Sub
Nutno nastavit oblast hledání, nyní je to A1:A50.citovat
Asi jsem to špatně vysvětlit, nepotřebuji hledat formát, ale to číslo na jakém řádku se nachází, ale taky aby šel zároveň vyhledat text.
Přikládám přílohu, kde lze vyhledat vše ostatní, jen ne tu částku.
Jinak děkuji Ostravo za pomoc ;)
Přikládám přílohu, kde lze vyhledat vše ostatní, jen ne tu částku.
Jinak děkuji Ostravo za pomoc ;)
Příloha: 
36337_vyhledat.zip (67kB, staženo 27x)
citovat36337_vyhledat.zip (67kB, staženo 27x)
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články