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

• #38212 Mutt senior tag csferke #38209

  Új Válasz 2018-06-04 13:43:48 #38212

  Ú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 csferke #38209 üzenetére

  Szia,

  Megelőztek...

  Egy DO-LOOP ciklusban addig pörgünk amíg jó a bevitt érték vagy mégsem-et nem nyomnak.
  A nagybetűsítésnél pedig engedékenyek vagyunk; ha vmiért jó karaktert kisbetűvel írták akkor is elfogadjuk de már nagybetűvel mentjük el.

  Sub bevitel()
Dim xpos, ypos, Prompt, Title, Default, MyValue
Dim correct As Boolean
Prompt = ""
Title = "ADATBEVITEL"
xpos = 5000
ypos = 5800

ActiveCell.Offset(0, 1).Select
Default = ""
Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
Do
MyValue = Application.InputBox(Prompt, Title, Default, xpos, ypos, Type:=2)
Select Case UCase(MyValue)
Case "H", "RR", "F", "I", "A", "R", "L", "N", "O"
correct = True
ActiveCell = UCase(MyValue)
Case Else
correct = False
End Select
Loop Until correct Or MyValue = False

End Sub

  Fferivel egyetértve a legegyszerűbb megoldás a data validation (érvényesítés), mert ahhoz nem kell makrót írni.

  üdv

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