[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
	» Hitman 23:27 » Fl@sh 23:17 » DJopek 23:08 » petropank 23:07 » rarek 23:06 » Wolf 23:05 » Zbyszek.J 23:02 » b0b3r 22:58 » cVas 22:56 » dugi 22:51 » Dexter 22:50 » Soulburne 22:44 » stefan_nu 22:41 » Brauni 22:41 » maddog 22:39 » Kenny 22:36 » toledo 22:35 » Raist 22:33 » DYD 22:32 » buddookan 22:32 Dzisiaj przeczytano 40823 postów, wczoraj 25604 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:(