Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

[EXCEL] [VBA] przycisk + okienko + szukanie


  • Please log in to reply
6 replies to this topic

#1 pit_piotr

pit_piotr

    TRENER MS

  • Moderatorzy
  • PipPipPipPipPip
  • 479 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Rabka, Polska

Napisany 06 luty 2010 - 16:37

Witam,

Proszę o pomoc lub nakierowanie mnie jak można zrobić coś takiego:

http://picasaweb.goo...feat=directlink

czyli:przycisk + okienko + szukanie

mam tak w innym pliku ale niestety jest hasło w VBA i nie mogę skopiować sobie do mojego pliku ;o(

wiem, że lepiej i szybciej użyć skrótu z klawiatury "ctrl + F" ale plik jaki przygotowuje ma być "wypaśny"

z góry dzięki!

******************************************************************************************************************************************
"Powiedz mi, a zapomnę. Pokaż mi, a zapamiętam. Pozwól mi zrobić, a zrozumiem." — Konfucjusz

Pomogłem Ci?
Możesz podziękować na moim
profilu, koniecznie zaglądnij!


Jestem jeszcze na: Spryciarze
Linkedin PC Word Oferia
******************************************************************************************************************************************


#2 master_mix

master_mix

    Bywalec

  • Forumowicze
  • PipPipPipPipPip
  • 263 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Oława, Polska

Napisany 06 luty 2010 - 18:37

Tak prościutko to można tak:
Sub Znajdz()

Dim szukane As Variant

szukane = InputBox("Wpisz szukane słowo", "Wyszukaj")

If szukane = "" Then
	MsgBox "Nie wpisałeś nic w okienku Wyszukaj", vbOKOnly + vbExclamation, "Brak danych"
	Exit Sub
End If
	
On Error GoTo blad

Cells.Find(What:=szukane, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
		xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
		, SearchFormat:=False).Activate
	
Exit Sub

blad:

MsgBox "Nie znaleziono danych", vbOKOnly + vbInformation, "Brak wyników"
	
End Sub

A jeżeli to ma być coś więcej, to znalazłem u siebie taki przykładzik (nie pamiętam czyjego autorstwa)--->patrz załącznik
*******************************************************************

Podejmę współpracę (pracę) w zakresie tworzenia aplikacji arkusza kalkulacyjnego z wykorzystaniem VBA.
Wrocław i okolice …lub zdalnie.



*******************************************************************

#3 AmatorBrowaru

AmatorBrowaru

    Emeryturka+Browarek/polecam

  • Forumowicze
  • PipPipPipPip
  • 152 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Browarek

Napisany 06 luty 2010 - 18:41

Do arkusza dodaj CommandButton kliknij na nazwę
arkusza p.p.m. i kliknij na Wyświetl kod
Do okna wstaw poniższy kod
[codebox]Private Sub CommandButton1_Click()
UserForm.Show
End Sub
[/codebox]
W oknie edytora kodu z menu Insert dodaj UserForm
właściwość(Properties) Caption ustaw na „Szukaj” z okienka
Toolbox dodaj do UserForm dwa przyciski i Caption ustaw na „Ok”
„Cancel” dodaj Label i właściwość Caption ustaw na „Wpisz nazwę …”
oraz dodaj textbox-a wielkość oraz kolor trzcionki,kolor okna"UserForm ,przycisków
możesz zmieniać według gustu w oknie właściwości danej kontrolki.
W oknie edytora kodu p.p.m. kliknij na UserForm i następnie kliknij Wyświetl kod
Do okna wstaw poniższy kod

[codebox]Private Sub CommandButton1_Click()
Dim frazaSzukana As String

frazaSzukana = TextBox1.Text

Cells.Find(What:=frazaSzukana, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub

Private Sub CommandButton2_Click()
End
End Sub
[/codebox]
Zapisz projekt i wypróbuj
ps.Spózniłem się trochę i zapomniałem o obsłudze błędu jak
nie znajdziemy szukanego słowa.
Sorry
Każde zadanie ma kilka rozwiązań niekoniecznie poprawnych.

#4 pit_piotr

pit_piotr

    TRENER MS

  • Moderatorzy
  • PipPipPipPipPip
  • 479 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Rabka, Polska

Napisany 06 luty 2010 - 18:56

działa bez zarzutu! DZIĘKI!
JESTEŚCIE WIELCY!

******************************************************************************************************************************************
"Powiedz mi, a zapomnę. Pokaż mi, a zapamiętam. Pozwól mi zrobić, a zrozumiem." — Konfucjusz

Pomogłem Ci?
Możesz podziękować na moim
profilu, koniecznie zaglądnij!


Jestem jeszcze na: Spryciarze
Linkedin PC Word Oferia
******************************************************************************************************************************************


#5 izabelkapink

izabelkapink

    Adept

  • Forumowicze
  • Pip
  • 2 Postów:

Napisany 11 kwiecień 2011 - 10:44

Witam AmatorBrowaru

A czy mógłbyć zamieścic kod zawierający obsługe błędu w przypadku nie znalezienia wartosci?
Próbowałam zrobic to sama na wiele sposobów ale zapętla mi się .

Z góry dziękuję.

#6 AmatorBrowaru

AmatorBrowaru

    Emeryturka+Browarek/polecam

  • Forumowicze
  • PipPipPipPip
  • 152 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Browarek

Napisany 13 kwiecień 2011 - 18:49

Odpowiedź była w poście p.Master_mix


Private Sub CommandButton1_Click()

Dim frazaSzukana As String

frazaSzukana = TextBox1.Text

'dodane poniżej'
On Error GoTo blad

Cells.Find(What:=frazaSzukana, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

'dodane poniżej'
If frazaSzukana = "" Then
MsgBox "Nie wpisałeś nic w okienku Wyszukaj", vbOKOnly + vbExclamation, "Brak danych"

End If
'dodane poniżej'
Exit Sub
'dodane poniżej'
blad:
MsgBox "Nie znaleziono danych", vbOKOnly + vbInformation, "Brak wyników"

End Sub


Pozdrawiam
Każde zadanie ma kilka rozwiązań niekoniecznie poprawnych.

#7 izabelkapink

izabelkapink

    Adept

  • Forumowicze
  • Pip
  • 2 Postów:

Napisany 14 kwiecień 2011 - 12:00

dziekuje .


Za pomniales tylko na koncu dodac:

Private Sub CommandButton2_Click()
End
End Sub


Pozdrawiam Izabela




0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników