Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Czy da się tak zrobić w tym wspaniałym programie, aby wyszukiwał on dane słowo i przyporządkowywał dane liczby do tych słów. Czyli na przykładzie: Jeśli w klatce B6 znajduje się słowo "kwiatek" to w klatce B7 wyświetli się wartość cyfrowa 6, lecz jeśli w klatce B6 znajduje się nie "kwiatek" a "drzewo" to w klatce B7 wyświetli się wartość 7, a jeśli w tej samej klatce będzie słowo "krzak" to w B7 będzie wartość 8.
Podałem to na przykładzie bo tak najłatwiej mi przekazać o co mi chodzi.
Pozdrawiam i czekam na pomoc.
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Wyszukaj.Pionowo w google.
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Można np. w ten sposób
=WYBIERZ(PODAJ.POZYCJĘ(B6;{"kwiatek";"drzewo";"krzak"};0);6;7;8)

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Dziękuję za odpisanie na mój problem, ale czy mógłbym prosić bardziej łopatologicznie:P

konto usunięte

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Robisz sobie tabelę:

kwiatek;6
drzewo;7
krzak;8

W komórce gdzie ma się pojawiać liczba odpowiadająca:

=WYSZUKAJ.PIONOWO(adres_kom_z_wyrazem;tabelka_z_odpowiednikami;2;0)Artur T. edytował(a) ten post dnia 11.09.12 o godzinie 08:31

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

ok to mi pomoże, ale bardziej mi zależy na czymś takim, że jak wpiszę obojętnie w którą komórkę dane słowo to przyporządkuje ona sama wartość w innej komórce. Czyli obojętnie gdzie wpiszę jakieś tam słowo to w komórce np. B7 będzie pojawiać się wartość adekwatna do danego słowa.

konto usunięte

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

W dowolnej w całym arkuszu? A co jeśli wpiszesz w jedną kwiatek, a w inną drzewo?

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

no właśnie o to chodzi. Jeśli przykładowo w oknie B6 wpiszę drzewo to on ma przypisywać wartość 6, ale jak w tym samym oknie wpiszę krzak to ma on przypisywać inną wartość 7 itd Wartości cyfrowe przykładowo mają się pokazywać w oknie B8.
Monika M.

Monika M. PROGRAMISTA VBA,
Excel, Access,
Outlook, Word -
SZKOLENIA

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Adam Mingielewicz:
Czyli na przykładzie: Jeśli w klatce B6 znajduje się słowo "kwiatek" to w klatce B7 wyświetli się wartość cyfrowa 6, lecz jeśli w klatce B6 znajduje się nie "kwiatek" a "drzewo" to w klatce B7 wyświetli się wartość 7, a jeśli w tej samej klatce będzie słowo "krzak" to w B7 będzie wartość 8.
Nadaję Panu tytuł Mistrza Miesiąca w Słowotwórstwie Excelowym ;>
Wyróżnienie za "klatkę".


Obrazek

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Pani Moniko proszę o wyrozumiałość nie jestem tak jak Pani programistą i wielką EXCELOWĄ głową. Nie znam informatycznych określeń co do tego programu i podejrzewam, że jeśli Pani spotkałaby się z branżą w której pracuje też używałaby dla mnie dość śmiesznego słowotwórstwa. Ale traktuję to jako żart i ze zrozumieniem wielkie DZIĘKUJĘ!:D P.S. Dostanę jakąś nagrodę?
Monika M.

Monika M. PROGRAMISTA VBA,
Excel, Access,
Outlook, Word -
SZKOLENIA

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Adam Mingielewicz:
Pani Moniko proszę o wyrozumiałość nie jestem tak jak Pani programistą i wielką EXCELOWĄ głową. Nie znam informatycznych określeń co do tego programu
Gdyby Pan raz napisał "klatka", to uznałabym to za pomyłkę w zapisie "kratka" i jeszcze można by było przymknąć oko.
Gdyby miał Pan 60-70 lat i nigdy wcześniej do czynienia z komputerem, to można być wyrozumiałym. Ale Pan kończył współczesne szkolnictwo podstawowe i zapewne gimnazjalne, gdzie już na tym poziomie powszechnie uczy się wykorzystania pakietów biurowych, a również oprogramowanie open source posiada arkusz kalkulacyjny, w którym są KOMÓRKI :)
WSTH też pewnie oferuje znajomość podstawowych programów biurowych.

Jak widać, nie trzeba być programistą, czy wielką ekselową głową, aby to wiedzieć ;>
podejrzewam, że jeśli Pani spotkałaby się z branżą w której pracuje też używałaby dla mnie dość śmiesznego słowotwórstwa.
Jak wyżej.
Nie trzeba być specjalistą w jakiejś dziedzinie, żeby znać podstawowe pojęcia i np. wiedzieć (z fizyki chociażby), co to jest dioda (w tym elektroluminescencyjna), cewka (tym razem nie moczowa), rezystor, potrafić odróżnić wkręt od śruby, wiedzieć co to ø, dopełniacz (nie chodzi o żarcie), celownik (nie chodzi o broń), tym bardziej, jeśli uczą tego w szkole :>
Ale traktuję to jako żart i ze zrozumieniem wielkie DZIĘKUJĘ!:D
Niech Pan nie dziękuje, Pan się postara, żeby nie zostać Mistrzem Kwartału albo Mistrzem Roku! ;>
P.S. Dostanę jakąś nagrodę?
To nie był konkurs.
Ale nad eleganckim dyplomem możemy się zastanowić ;P

konto usunięte

Temat: Cięzki orzech do zgryzienia:P Słowo przyporządkuje...

Przykład rozwiązania:



Private Sub Worksheet_Change(ByVal Target As Range)

Const zakres_min = 3 ' pierwszy wiersz tabeli w arkuszu2
Const zakres_max = 5 ' ostatni wiersz tabeli w arkuszu2
Const nr_kolumny = 2 ' numer pierwszej kolumny tabeli w arkuszu 2

For i = zakres_min To zakres_max

If ActiveSheet.Cells(Target.Row, Target.Column).Value = Arkusz2.Cells(i, nr_kolumny).Value Then

ActiveSheet.Cells(Target.Row, Target.Column + 1).Value = Arkusz2.Cells(i, nr_kolumny + 1).Value

End If

Next i

End Sub



w arkuszu 2 tabela:

B3 = kwiatek, C3 = 6
B4 = drzewo, C4 = 7
B5 = krzak, C5 = 8

PZDRMariusz Terebecki edytował(a) ten post dnia 20.09.12 o godzinie 08:05



Wyślij zaproszenie do