Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Otwarty przez: umiejead
29-07-2020, 13:39
Podmiana wartości 1 kliknięciem
Autor Wiadomość
goust5
świeżak


Wersja: Win Office 2019
Posty: 5
Wysłany: 28-07-2020, 10:47   Podmiana wartości 1 kliknięciem

Dzień dobry Szanowne grono.
Piszę do Was gdyż mam problem i nie wiem jak coś zrobić w excel, pewnie jak każdy tutaj :) i mam nadzieję, że jako bardziej obeznani (ja jestem racze laik) podsuniecie mi pomysł.
Mianowicie.
Stworzyłem arkusz do szacowania niepewności pomiaru hałasu dla 21 wartości (tyle wierszy). Niepewność szacowana jest z sumy niepewności składowych. Jedną z tych składowych jest niepewność sprzętu. Miałem 1 miernik to nie było problemu bo niepewność ta się nie zmieniała. Teraz mam 2 mierniki i każdy ma inną niepewność.
Chciałbym w arkuszu mieć np 2 przyciski nazwane np miernik 1, miernik 2.
Po naciśnięciu jednego z nich do odpowiedniej komórki wstawiane były by dane z innej komórki w której były by wartości niepewności miernika.
Przykład:
W arkuszu w tabeli mam niepewności obu mierników, nazwijmy je komórkami A i B. mam komórkę z której wartość brana jest do obliczeń końcowych nazwijmy ją C.
Czy można stworzyć "przyciski" np Miernik A i Miernik B, które po naciśnięciu będą przenosiły wartości z Komórki A lub B do komórki C ?
Czy takie coś w ogóle w excel-u jest wykonalne?

Z góry dziękuję za każdą podpowiedź.
ID posta: 390251 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 28-07-2020, 11:29   

Witamy na Forum.

Zobacz czy o to chodzi.

Następnym razem załącz plik!.
.

Niepewność.xlsm
Pobierz Plik ściągnięto 9 raz(y) 19.61 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 390252 Skopiuj do schowka
 
 
goust5
świeżak


Wersja: Win Office 2019
Posty: 5
Wysłany: 28-07-2020, 13:49   

Wow Dziękuję bardzo. Dokładnie o to chodziło :) :) :)
A zdradzisz jak to zrobiłeś? Chciałbym o ile to nie problem nauczyć się tego :)

Przygotowałem już plik z opisem mniej więcej efektu jaki chcę uzyskać.

Fragment zaczyna się przy 36 wierszu.

Szacowanie.xls
Pobierz Plik ściągnięto 8 raz(y) 57.5 KB

  
ID posta: 390262 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1667 razy
Posty: 5448
Wysłany: 28-07-2020, 15:14   

Dałeś identyczne dane, to nawet nie widać czy się dobrze kopiuje :angry
Zobacz w załączniku, kod jest bardzo prosty:
Kod:
Sub Przycisk1()
  Range("H36:H56") = Range("B36:B56").Value
  Range("G36:G56") = Range("C36:C56").Value
End Sub
Sub Przycisk2()
  Range("H36:H56") = Range("D36:D56").Value
  Range("G36:G56") = Range("E36:E56").Value
End Sub
Ten kod jest w module uniwersalnym, a przyciski są z grupy przycisków formularza.
Umiejead zrobił troszkę inaczej. U niego są przyciski z grupy ActiveX, a kod jest w module arkusza Arkusz1.

Szacowanie.xls
Pobierz Plik ściągnięto 6 raz(y) 64.5 KB

ID posta: 390269 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 28-07-2020, 15:35   

Ja swoje rozwiązanie sprawdziłem :mrgreen: (dane fikcyjne).

Kod:
Private Sub CommandButton1_Click()
Dim i&

For i = 36 To 56
    Cells(i, 8).Value = Cells(i, 2).Value
    Cells(i, 7).Value = Cells(i, 3).Value
Next i
   
End Sub

Private Sub CommandButton2_Click()
Dim i&

For i = 36 To 56
    Cells(i, 7).Value = Cells(i, 5).Value
    Cells(i, 8).Value = Cells(i, 4).Value
Next i
   
End Sub


---
EDIT: iteracja: pod kątem wyłapania (w przyszłości) błędów w poszczególnych wierszach.
.

Szacowanie.xls
Pobierz Plik ściągnięto 5 raz(y) 69.5 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
  
ID posta: 390271 Skopiuj do schowka
 
 
goust5
świeżak


Wersja: Win Office 2019
Posty: 5
Wysłany: 29-07-2020, 07:53   

Dziękuję Wam za trafną i szybką pomoc.
Problem rozwiązałem, wszystko działa idealnie.
Jeszcze raz bardzo Wam dziękuję.
ID posta: 390278 Skopiuj do schowka
 
 
goust5
świeżak


Wersja: Win Office 2019
Posty: 5
Wysłany: 29-07-2020, 10:26   

A czy mógłbym jeszcze o coś dopytać.
Czy jest komenda w makro która pozwoli mi przenieść przyciski do innego arkusza w obrębie tego samego skoroszytu?
Tzn wartości do podmiany mam w: Arkusz13 (Niepewność) , a przyciski chciałbym mieć w: Arkusz10 (tabela)

Przyciski tworzę w arkuszu10 (tabela), przypisuje do nich makro ale nie działa, próbowałem dopisać przed komendą RANGE lub zaraz po otwartym nawiasie "Arkusz13" niestety nie zadziałało.
ID posta: 390282 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 29-07-2020, 10:39   

Jest to jak najbardziej możliwe - tylko nie tak prosto jak wymyśliłeś :mrgreen: .
Załącz plik.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
  
ID posta: 390283 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1828 razy
Posty: 5389
Wysłany: 30-07-2020, 08:01   

Spróbuj tak:
Kod:
Sub Przycisk1()
With Sheets("tabela")
  .Range("H36:H56") = Sheets("Niepewność").Range("B36:B56").Value
  .Range("G36:G56") = Sheets("Niepewność").Range("C36:C56").Value
End With
End Sub
Sub Przycisk2()
With Sheets("tabela")
  .Range("H36:H56") = Sheets("Niepewność").Range("D36:D56").Value
  .Range("G36:G56") = Sheets("Niepewność").Range("E36:E56").Value
End With
End Sub


Szacowanie (t).xlsm
Pobierz Plik ściągnięto 3 raz(y) 39.76 KB

ID posta: 390304 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 30-07-2020, 08:35   

Heh... ile to można zastosować kombinacji do prostego kopiowania... :mrgreen:
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 390305 Skopiuj do schowka
 
 
goust5
świeżak


Wersja: Win Office 2019
Posty: 5
Wysłany: 30-07-2020, 13:21   

Bardzo dziękuję wszystkim za pomoc.
Problem rozwiązany, nowa wiedza do głowy wpadła.
ID posta: 390323 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe