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

• #23077 Fferi50 Topikgazda Thrawnad #23073

  Új Válasz 2014-09-03 14:08:17 #23077

  Ú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

  

  Fferi50

  Topikgazda

  válasz Thrawnad #23073 üzenetére

  Szia!

  A worksheetfunction.vlookup-on kívül a VBA -ban a Range.find metodust is használhatod(ez kb. ugyanaz minta Crtl+F a munkalapon):

  Cset talalt = munka1.range("A1:B50").find(what:=keresem,lookin:=xlvalues,lookat:=xlwhole)
  if not talalt is nothing then
  megtalálta
  else
  nemtalálta
  endif
  [/][/M]
  Viszont az időkeresés az külön figyelmet kíván és ki kell többször próbálni, mert az excel a dátumot, időt számként tárolja.
  
  Üdv.

• #23074 lappy őstag Thrawnad #23073

  Új Válasz 2014-09-03 13:54:35 #23074

  Ú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

  

  lappy

  őstag

  válasz Thrawnad #23073 üzenetére

  Sub FINDSAL()
  On Error GoTo MyErrorHandler:
  Dim E_name As String
  E_name = InputBox("Enter the Employee Name :")
  If Len(E_name) > 0 Then
  Sal = Application.WorksheetFunction.VLookup(E_name, Sheet1.Range("B3:D13"), 3, False)
  MsgBox "Salary is : $ " & Sal
  Else
  MsgBox ("You entered an invalid value")
  End If
  Exit Sub
  MyErrorHandler:
  If Err.Number = 1004 Then
  MsgBox "Employee Not Present in the table."
  End If
  End Sub

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