[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
	» Shark20 23:39 » CiAsTeK 23:29 » Zibi 23:22 » burz 23:22 » @GUTEK@ 23:21 » Bati 23:21 » Fl@sh 23:13 » b0b3r 23:08 » rooter666 23:08 » past 23:07 » Piwomir 23:06 » fiskomp 22:57 » GLI 22:57 » Kenny 22:56 » Wedrowiec 22:54 » Soulburne 22:53 » ham_solo 22:45 » globi-wan 22:45 » dugi 22:38 » Curro 22:37 Dzisiaj przeczytano 41122 postów, wczoraj 25974 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:(