UDF extrahuje pouze číslo z buňky pomocí VBA v aplikaci Microsoft Excel
V tomto článku se naučíme, jak pomocí kódu VBA extrahovat číslo pouze z buňky s funkcí definovanou uživatelem.
Otázka): Potřebuji makro k načtení čísla pouze z buňky, která obsahuje alfanumerická data.
Následuje snímek dat, ve kterých sloupec A obsahuje alfanumerická data a očekávaná čísla jsou ve sloupci B.
Chcete -li získat pouze čísla ze sloupce A; pro spuštění VB editoru musíme postupovat podle níže uvedených kroků
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Zkopírujte níže uvedený kód do modulu Standard
Funkce NumericOnly (mystr jako varianta)
Dim myOutput As String, i As Integer
For i = 1 To Len (mystr)
If IsNumeric (Mid (mystr, i, 1)) Then _
myOutput = myOutput & Mid (mystr, i, 1)
další
NumericOnly = myOutput * 1
Koncová funkce
- Chcete -li získat výstup v buňce B2, je vzorec
- = NumericOnly (A2)
Tímto způsobem můžeme načíst čísla pouze z buňky, která obsahuje text a čísla, pomocí kódu VBA.
Stáhnout - UDF k extrahování pouze čísla z buňky pomocí VBA - xlsm