Új hozzászólás Aktív témák

• #10860 m.zmrzlina senior tag dellfanboy #10855

  Új Válasz 2011-07-15 07:27:05 #10860

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz dellfanboy #10855 üzenetére

  Nekem az A1:B4000-ben vannak a változópárok amiket el kell osztani egymással, az eredmény pedig az F1:F50 tartományba illetve attól jobbra kerül.

  Sub lepopulal()
  Dim bemenoadat As Variant
  Dim eredmeny As Variant
  Dim i As Integer
  
  bemenoadat = Range("A1:B4000").Value
  eredmeny = Range("F1:EXA1").Value
  
  For i = 1 To 4000
  eredmeny(1, i) = bemenoadat(i, 1) / bemenoadat(i, 2)
  Next i
  
  Range("F1:EXA50") = eredmeny
  
  End Sub

• #10858 m.zmrzlina senior tag dellfanboy #10855

  Új Válasz 2011-07-14 21:09:47 #10858

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz dellfanboy #10855 üzenetére

  Hol kell keresni a változókat és hová kell tenni az eredményt?

• #10857 föccer nagyúr dellfanboy #10855

  Új Válasz 2011-07-14 14:17:09 #10857

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz dellfanboy #10855 üzenetére

  Függvénnyel sem bonyolult.

  =$A$1/$B$1

  Ez megy az összes cellába. Lehúzható, másolható. Folyamatosan az A1/B1 cellára fog mutatni a hivatkozás.

  üdv, föccer

• #10856 Delila_1 veterán dellfanboy #10855

  Új Válasz 2011-07-14 14:13:41 #10856

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz dellfanboy #10855 üzenetére

  Sub mm()
  Range("A1") = 100: Range("B1") = 50: Range("C1") = Range("A1") / Range("B1")
  Range("C1").Copy
  Range("F1:F50").Select
  Selection.PasteSpecial Paste:=xlPasteValues
  End Sub

Új hozzászólás Aktív témák