Excel, jak zrobić w wielu komórkach naraz formułę?

	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
	» Doczu 05:36 » piszczyk 04:57 » hokr 04:48 » PCCPU 03:46 » pawel1207 03:41 » pwil2 03:37 » P.J._ 01:51 » bmiluch 01:32 Dzisiaj przeczytano 6045 postów, wczoraj 31345 Szybkie ładowanie jest: wyłączone.

ccc

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

Excel, jak zrobić w wielu komórkach naraz formułę? , Dexter 4/07/16 10:41
Wyjaśniam co mi się zachciało ;-)

W kolumnie A mam po kolei wartości, np:

1
2
3
4
itd

I teraz chcę wszystkie te wartości zamienić na formuły, żeby wyglądało to tak:
=1/B1
=2/B1
=3/B1
=4/B1
itd.

Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
Odpowiedzi oleję.
THX!

po pierwsze , elliot_pl 4/07/16 11:34
to nie 1/B1 tylko 1/$B$1

po drugie to w kolumnie B wpisujesz =A1/$B$1 a potem "rozciagasz formule w dol, tym krzyzykiem w prawym dolnym rogu komorki.
momtoronomyotypaldollyochagi...
1. Jeden pies, efekt ten sam. , Dexter 4/07/16 11:43
  Ale nie chcę tego w kolumnie B tylko w A.
  
  Zamiast 1 ma być =1/B1
  Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
  Odpowiedzi oleję.
  THX!
na Boga, po co? , Kenny 4/07/16 11:40
ale zakladam, ze wiesz co chesz, i odpowiedz powyzej jest nie na temat :) Wtedy pozoastaje Ci:

Sub nazwa()

Dim n As Integer

i = 1

Do Until i = 100
Cells(i, 1).Value = "=" & i & "/B1"
i = i + 1
Loop

End Sub
.:Pozdrowienia:.
1. "dim i" , Kenny 4/07/16 11:41
  rzecz jasna
  .:Pozdrowienia:.
  1. No nie tak prędko. , Dexter 4/07/16 11:46
    Zapomniałem dodać, że wartości w kolumnie A nie są dokładnie 1,2,3,4... to był przykład.
    
    Są różne wartości w komórkach.
    Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
    Odpowiedzi oleję.
    THX!
    1. nie szkodzi , ligand17 4/07/16 13:49
      możesz przecież odczytać wartość komórki i użyć jej w następnej linii:
      
      Do Until i = 100
      val = Cells(i, 1)
      Cells(i, 1).Value = "=" & val & "/B1"
      i = i + 1
      Loop
      1. Dzięki Ligand, już rozpykałem... , Dexter 4/07/16 13:53
        Ja zrobiłem tak:
        
        Sub AddB1()
        Dim c As Range
        For Each c In Selection
        If c.Value <> "" Then c.Value = "=" & c.Value & "/B1"
        Next
        End Sub
        Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
        Odpowiedzi oleję.
        THX!
        Też działa , ligand17 4/07/16 14:22
        ew. przy debugowaniu jest mniej czytelnie :-)
a to ci nie wystarczy , john565 4/07/16 12:12
w kolumnie C1 wpisać A1/$B$1 i przeciągnąć?
f*ck
1. NIE. , Dexter 4/07/16 12:18
  Przecież piszę, że to ma być w tej samej kolumnie.
  Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
  Odpowiedzi oleję.
  THX!
  1. lol , elliot_pl 4/07/16 12:45
    no to jak MA BYC to masz slabo. Wiesz ze excel ma wiecej niz 1 kolumne, nie?
    momtoronomyotypaldollyochagi...
    1. Na bank jest sposób, jakiś VB... , Dexter 4/07/16 13:03
      Co mi po innych kolumnach? Ma być w tej samej, orientujesz się, że excel ma równiez odwołania do konkretnych komórek?
      Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
      Odpowiedzi oleję.
      THX!
      1. Wykopiuj na bok do notepad++ , ptoki 4/07/16 13:21
        dopisz se tam co trzeba i wkopiuj spowrotem.
        
        Notepad++ potrafi edytowac pliki w wielu wierszach równocześnie.
        
        Ogólnie to weź i zrob tak jak koledzy piszą a te kolumne ukryj albo wynieś na prawy koniec arkusza.
        
        Robisz od niedobrej strony :)
      2. no to jak jest , elliot_pl 4/07/16 13:40
        to zastosuj. Ale tak jak ptoki ci napisal - komplikujesz rzeczy proste i tyle.
        
        Jesli masz odwolanie do konkretnych komorek, to zrob dzialanie w kolumnie obok, a potem zamien je miejscami.
        momtoronomyotypaldollyochagi...
      3. dobra masz - robi _dokladnie_ to co chcesz :) , Kenny 4/07/16 13:52
        Przyklad dla 100 wierszy - musisz dopasowac ilosc wierszy po Do While, nie chcialo mi sie juz doklejac zeby sam szukal LastRow...
        
        Sub makro()
        
        Dim i As Integer
        i = 1
        
        Do While i < 101
        Cells(i, 1).Value = "=" & Cells(i, 1) & "/$B$1"
        i = i + 1
        Loop
        
        End Sub
        .:Pozdrowienia:.
        Już wykminiłem, patrz wyżej. , Dexter 4/07/16 13:53
        123
        Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
        Odpowiedzi oleję.
        THX!