VBA.Mania

vbamania.pl

Dziś jest wtorek, 14 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Wyszukiwanie danych w komórce otwarty rozpoczął: Blaszka_P postów: 9

napisał: admin postów: 613 umieszczony: 15 czerwca 2011 17:53 edytowany: 15 czerwca 2011 17:54
	Nie jestem pewien, czy nie robisz sobie z nas zartow. Ale po kolei... Po pierwsze to forum jest poswiecone programowaniu w Visual Basic w Excelu. Slowo "komorka" w temacie tego watku znaczy komorka w Excelu a nie komorka - telefon komorkowy. Trebor poinformowal Cie wiec o jaka komorke chodzi w tym watku. Tobie chodzi o cos innego, pytaj sie wiec na innych forach. Po drugie daruj sobie sformulowania typu "za głupie texty dziękuje" bo Ty popisalas sie ignoracja i jeszcze pozwalasz sobie na nieuprzejmosci. pozdrawiam admin Cytat: przeciez napisałam ze ktos dzwonił to napewno o telefon chodzi prosze o pomoc zapłace,za głupie texty dziękuje

napisał: fiolka postów: 2 umieszczony: 15 czerwca 2011 17:32
	przeciez napisałam ze ktos dzwonił to napewno o telefon chodzi prosze o pomoc zapłace,za głupie texty dziękuje

napisał: Trebor postów: 1209 umieszczony: 3 czerwca 2011 20:46
	Komórka to także nazwa obiektu w aplikacji Excel. Nie ma to nic wspólnego z telefonem.

napisał: fiolka postów: 2 umieszczony: 3 czerwca 2011 19:26
	mam pytanie,ostatnio zadzwonił do mnie ktos ważny i nie moge oddzwonic bo wymieniałam sim z komórki na inny i wymazałam dane ,czy można jakos odtworzyc kto do mnie dzwonił,bardzo prosze o pomoc

napisał: Blaszka_P postów: 112 umieszczony: 26 kwietnia 2011 19:46
	Rzeczywiście działa, nie sprawdziłem przedtem, jeszcze raz dzięki za pomoc

napisał: Trebor postów: 1209 umieszczony: 26 kwietnia 2011 19:41
	W arkuszu niczego nie zmieniasz. Zamieniasz tylko ciąg w chwili porównywania. If Ucase(Sheets("spis").Cells(i, 3).Value )= Ucase(Numer) Then Do komba wpisujesz taką wartość jaka jest. Istnieje też możliwość, że nie rozumiem problemu.

napisał: Blaszka_P postów: 112 umieszczony: 26 kwietnia 2011 19:29
	Wiem , ale chodzi mi bardziej żeby to działało na zasadzie wyszukiwarki lub filtra. Dane w komórce chciałbym pozostawić bez zmian czyli z dużej litery a wpisywaną szukaną wartość do ComboBoxa w dowolnej konfiguracji, duża mała litera Znak * lub ? zastępują dowolny znak ale nie zabardzo wiem jak to zapisać chciałem zrobić to tak If Sheets("spis").Cells(i, 3).Value = * Then ,ale nie działa ,bo w miejscu " * "powinno być " Numer "

napisał: Trebor postów: 1209 umieszczony: 26 kwietnia 2011 19:17 edytowany: 26 kwietnia 2011 19:21
	Przeważnie zamienia się cały ciąg na wielkie lub małe litery Ucase(Sheets("spis").Cells(i, 3).Value )= Ucase(Numer) Często pozbywamy się jeszcze nadmiarowych spacji przy pomocy funkcji Trim (lepsza jest funkcja o takiej samej nazwie, ale stosowana w arkuszu).

napisał: Blaszka_P postów: 112 umieszczony: 26 kwietnia 2011 18:15 edytowany: 26 kwietnia 2011 18:30
	Witam Mam mały problem , chodzi o to że podczas przeszykiwania arkusza ( kolumny) muszę podać dokładnie szykany tekst , chodzi o duże i małe litery co mam zrobić żeby wpisująć w ComboBox szukaną wartość z dyżej lub małej (dowolnej) litery makro mi znajdowało szukaną wartość, mój ComboBox to Numer. Jest to fragment kodu Sub szukaj_Click() Dim a As Long Dim w(), v As Byte, i As Long, licznik As Long, tabl(1 To 15) ListBox1.Column = tabl 'ilość kolumn zgodnie wymiarem tablicy Dim Mnumer As Integer ListBox1.Clear ' Sprawdzenie, czy wartością właściwości RowSource jest pusty łańcuch 'Wyszukaj_modul.ListBox1.RowSource = "" If Numer = "" Then MsgBox "Wpisz numer lub wybierz tester i spróbuj ponownie" & Filename, vbCritical, "BŁĄD" Else If Tester_Nr Then With Sheets("spis") a = Sheets("spis").Cells(1, 1).Value ' ilość przeszukiwanych wierszy w spisie 'licznik = 0 For i = 1 To a If Sheets("spis").Cells(i, 3).Value = Numer Then ' wpisuje do komurki kolejne numery M NextRow = Sheets("spis").Range("AF65536").End(xlUp).Row + 1 Sheets("spis").Cells(NextRow, 32).Value = Sheets("spis").Cells(i, 2) ListBox1.AddItem ListBox1.List(licznik, 0) = .Cells(i, 2) ListBox1.List(licznik, 1) = .Cells(i, 3) ListBox1.List(licznik, 2) = .Cells(i, 4) ListBox1.List(licznik, 3) = .Cells(i, 5) ListBox1.List(licznik, 4) = .Cells(i, 6) ListBox1.List(licznik, 5) = .Cells(i, 7) ListBox1.List(licznik, 6) = .Cells(i, 8) ListBox1.List(licznik, 7) = .Cells(i, 9) ListBox1.List(licznik, 8) = .Cells(i, 10) ListBox1.List(licznik, 9) = .Cells(i, 11) ListBox1.List(licznik, 10) = Format(.Cells(i, 12), "dd-mm-yyyy") ListBox1.List(licznik, 11) = Format(.Cells(i, 13), "dd-mm-yyyy") ListBox1.List(licznik, 12) = .Cells(i, 14) ListBox1.List(licznik, 13) = .Cells(i, 15) ListBox1.List(licznik, 14) = .Cells(i, 16) licznik = licznik + 1 ' licznik znalezionych modułów End If Next i End With info2 = "Znaleziono - " & licznik & " szt. modułów" End If End Sub

wstecz 1 dalej

wszystkich stron: 1