UDF tik skaičiui išgauti

Anonim

UDF, kad iš ląstelės ištrauktų tik skaičių naudojant „Microsoft Excel“ VBA

Šiame straipsnyje mes sužinosime, kaip naudoti VBA kodą, norint išgauti skaičių tik iš ląstelės su vartotojo apibrėžta funkcija.

Klausimas): Man reikia makrokomandos, kad galėčiau nuskaityti skaičių tik iš langelio, kuriame yra alfa skaitiniai duomenys.

Toliau pateikiama duomenų, kuriuose A stulpelyje yra raidiniai ir skaitiniai duomenys, o laukiami skaičiai yra B stulpelyje, momentinė nuotrauka

Norėdami gauti tik skaičius iš A stulpelio; norėdami paleisti VB redaktorių, turime atlikti toliau nurodytus veiksmus

  • Spustelėkite skirtuką Kūrėjas
  • Kodo grupėje pasirinkite „Visual Basic“

Nukopijuokite žemiau esantį kodą į standartinį modulį

Funkcija Skaitmeninė (tik kaip variantas)

Dim myOutput kaip eilutė, o kaip sveikasis skaičius

Dėl i = 1 Len (mystr)

Jei IsNumeric (vidurys (mystr, i, 1)), tada _

myOutput = myOutput & Mid (mystr, i, 1)

Kitas

Tik skaitmeninis = myOutput * 1

Pabaigos funkcija

  • Norėdami gauti išvestį langelyje B2, formulė yra
  • = Tik skaitmeninis (A2)

Tokiu būdu mes galime gauti skaičius tik iš langelio, kuriame yra tekstas ir skaičiai, naudojant VBA kodą.

Parsisiųsti - UDF, norėdamas išgauti tik skaičių iš ląstelės naudojant VBA - xlsm