Új hozzászólás Aktív témák

• #40271 Mutt senior tag p5quser #40270

  Új Válasz 2019-02-19 13:59:59 #40271

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz p5quser #40270 üzenetére

  Szia,

  Előbb próbáld ki ezt a cserét:

  Selection.Value = Application.InputBox("Darabszám", Type:=1)

  Ha ez nem jó, akkor a Selection.Value helyébe tedd ezt:

  vresult = InputBox("Darabszám")

If InStr(1, vresult, ",") Then
Selection.Value = CDbl(Left(vresult, InStr(1, vresult, ",") - 1) & Application.DecimalSeparator & Right(vresult, Len(vresult) - InStr(1, vresult, ",")))
Else
Selection.Value = vresult
End If

  üdv

Új hozzászólás Aktív témák