UDF, lai izvilktu tikai numuru

Anonim

UDF, lai no šūnas izņemtu tikai skaitli, izmantojot Microsoft Excel VBA

Šajā rakstā mēs uzzināsim, kā izmantot VBA kodu, lai iegūtu numuru tikai no šūnas ar lietotāja definētu funkciju.

Jautājums): Man ir nepieciešams makro, lai izgūtu numuru tikai no šūnas, kurā ir alfa ciparu dati.

Tālāk ir sniegts to datu momentuzņēmums, kuros A slejā ir burtciparu dati, un B slejā ir paredzamie skaitļi

Lai no A slejas iegūtu tikai skaitļus; mums ir jāveic šādas darbības, lai palaistu VB redaktoru

  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

Nokopējiet zemāk esošo kodu standarta modulī

Funkcija NumericOnly (mystr kā variants)

Dim myOutput kā virkne, i kā vesels skaitlis

Par i = 1 līdz Len (mystr)

Ja ir skaitlisks (vidējs (mystr, i, 1)), tad _

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

Nākamais

Tikai skaitliski = myOutput * 1

Beigu funkcija

  • Lai iegūtu izvadi šūnā B2, formula ir
  • = Tikai skaitliski (A2)

Tādā veidā mēs varam izgūt numurus tikai no šūnas, kurā ir teksts un cipari, izmantojot VBA kodu.

Lejupielādēt - UDF, lai no šūnas izņemtu tikai skaitli, izmantojot VBA - xlsm