UDF extrahuje iba číslo z bunky pomocou VBA v programe Microsoft Excel
V tomto článku sa naučíme používať kód VBA na extrahovanie čísla iba z bunky s funkciou definovanou používateľom.
Otázka): Potrebujem makro na získanie čísla iba z bunky, ktorá obsahuje alfanumerické údaje.
Nasleduje prehľad údajov, v ktorých stĺpec A obsahuje alfanumerické údaje a očakávané čísla sú v stĺpci B
Ak chcete získať iba čísla zo stĺpca A; na spustenie editora VB musíme postupovať podľa nižšie uvedených krokov
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
Skopírujte nižšie uvedený kód do modulu Štandard
Funkcia NumericOnly (mystr ako variant)
Dim myOutput As String, i As Integer
For i = 1 To Len (mystr)
Ak je číselné (stredné (mystr, i, 1)), potom _
myOutput = myOutput & Mid (mystr, i, 1)
Ďalšie
NumericOnly = myOutput * 1
Koncová funkcia
- Na získanie výstupu v bunke B2 je vzorec
- = NumericOnly (A2)
Týmto spôsobom môžeme pomocou kódu VBA získavať čísla iba z bunky, ktorá obsahuje text a čísla.
Stiahnutie - UDF na extrakciu iba jedného čísla z bunky pomocou VBA - xlsm