[EXCEL] wpisanie wartości do komórki i jej automatyczna zmiana

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» JE Jacaw 15:02 » wrrr 14:59 » Wedrowiec 14:55 » yeger 14:51 » NimnuL 14:48 » 247 14:48 » Wolf 14:46 » Robek 14:46 » Liu CAs 14:45 » Kenny 14:44 » gigamiki 14:43 » Syzyf 14:41 » past 14:35 » GULIwer 14:35 » Pietka 14:33 » MARtiuS 14:32 » mark_d 14:26 » Demo 14:26 » Arlathan 14:26 » jurass 14:25 Dzisiaj przeczytano 17126 postów, wczoraj 38350 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

[EXCEL] wpisanie wartości do komórki i jej automatyczna zmiana , Demo 9/05/16 08:45
Mam komórkę, wpisuję tam np. 100 i chciałbym, aby z automatu wartość ta była zmieniana o zadany wcześniej współczynnik, np. x 70%. Da się to zrobić bez odwoływania do innej komórki?

napisalbym swoj config,ale sie nie
zmiescil:(

nie bardzo , Kenny 9/05/16 10:06
co do zasady wymagasz niemozliwego, czyli zaszycia funkcji w komorce... ktora chcesz edytowac.

Ale mozesz napisac wlasna funkcje, nazwac ja jak ci wygodnie (np razy), ktora bedzie siedziala w vba, np.

Function razy(cyfra)
razy = cyfra * 0,7
End Function

Wtedy wpisujesz w komorke =razy(100) gdzie 100 to cyfra ktora chcesz przemozyc i pokaze ci sie 70.

Minus to oczywiscie to, ze musisz wpisywac =razy(100) zamiast samego 100. Plus, to ze nie uzywasz zadnych innych komorek - pytanie jak bardzo ci na tym zalezy.
.:Pozdrowienia:.
1. bardziej jako ciekawostka , Demo 9/05/16 11:57
  bo mogę się odwołać do innej komórki gdzie umieszczę współczynnik i korona z głowy nie spadnie.
  napisalbym swoj config,ale sie nie
  zmiescil:(
Albo wpisz wszedzie gdzie potrzebujesz 100 , El Vis 9/05/16 12:30
Potem to zaznacz =>ctlf+F i zastąp
I don't suffer from insanity.
I actually quite enjoy it.
Klikaj prawy na nazwie akrusza , Dhoine 10/05/16 09:56
wybierz WYŚWIETL KOD i tam wpisz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
wartosc = Cells(x - 1, y)
If IsNumeric(Cells(x - 1, y)) And Cells(x - 1, y) <> 0 Then
Cells(x - 1, y) = wartosc * 0.7
End If
End Sub

Wtedy po wpisaniu wartości w komórce i zatwierdzeniu enterem, jej wartość będzie przemnożona przez 0,7.

Oczywiście możesz się pobawić, ograniczyć do danego zakresu itd.
1. merci ^^ , Demo 10/05/16 09:59
  123
  napisalbym swoj config,ale sie nie
  zmiescil:(