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

• #14218 Fire/SOUL/CD félisten tezse66 #14215

  Új Válasz 2012-07-02 11:28:41 #14218

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tezse66 #14215 üzenetére

  Remélem erre gondolsz. Az általad választott oszlop 2. sorának cellájába (pl K oszlop esetén K2-be, W oszlop esetén W2-be stb stb) szúrd be ezt a kódot.

  =HA(F2<>"";HIPERHIVATKOZÁS("http://www.valami.hu/" & B2);"Cella üres")

• #12377 Delila_1 veterán tezse66 #12375

  Új Válasz 2011-12-14 12:51:32 #12377

  Ú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 tezse66 #12375 üzenetére

  Milyen ciklus hosszát nem tudod?

• #12376 Delila_1 veterán tezse66 #12375

  Új Válasz 2011-12-14 12:30:28 #12376

  Ú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 tezse66 #12375 üzenetére

  Laphoz rendelve:

  Option Explicit
  Public lel, R%, G%, B%
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lel, betu As String, cim As String
  Dim R%, G%, B%
  
  If Target.Column = 1 Then
  betu = Target: cim = Target.Address
  If IsEmpty(Target) Then
  Range(Target.Address).Interior.ColorIndex = -4142
  Exit Sub
  End If
  szin betu, cim
  End If
  End Sub

  Modulba:

  Sub szin(betu, cim)
  Dim lel, R%, G%, B%
  
  On Error Resume Next
  lel = Sheets("Munka1").Range("A:A").Find(betu).Row
  If IsEmpty(lel) Then Exit Sub
  R% = Sheets("Munka1").Cells(lel, 2)
  G% = Sheets("Munka1").Cells(lel, 3)
  B% = Sheets("Munka1").Cells(lel, 4)
  Range(cim).Interior.Color = RGB(R%, G%, B%)
  End Sub

  Az A oszlopba beírt értékeket figyeli. Üres cella leenterezése, vagy előző adat törlése kitöltetlen hátteret ad.

• #12371 Delila_1 veterán tezse66 #12362

  Új Válasz 2011-12-14 08:27:25 #12371

  Ú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 tezse66 #12362 üzenetére

  Azt már írtam, hogy függvénnyel nem lehet megoldani. A cellába vagy függvényt írsz, vagy a példád szerinti B 00-04 P értéket. A függvények a beírásuk helyén működnek, nem adhatod meg, hogy pl. a SZUM függvény eredménye a szomszédos cellában jelenjen meg.

  A bővítménykezelőben jelöld be a két Analysis kezdetű bővítményt, akkor jó lesz a makró. Ennek a helyéről sokszor volt már szó, keress rá az Analysis szóra.

• #12286 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 19:06:10 #12286

  Ú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 tezse66 #12279 üzenetére

  Függvénnyel ezt nem lehet megoldani, mert vagy a függvényt írod a cellába, vagy azt a karaktert (karaktercsoportot), ami alapján a másik lapról veszi az RGB értékeket.

  A Munka1 lap marad, ahogy a #12283-ban megadtam, a másik laphoz rendeld ezt a kódot:

  Public lel, R%, G%, B%
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lel, betu As String, cim As String
  Dim R%, G%, B%
  
  betu = Target: cim = Target.Address
  szin betu, cim
  End Sub

  Modulba pedig ezt:

  Sub szin(betu, cim)
  Dim lel, R%, G%, B%
  
  lel = Sheets("Munka1").Range("A:A").Find(betu).Row
  R% = Sheets("Munka1").Cells(lel, 2)
  G% = Sheets("Munka1").Cells(lel, 3)
  B% = Sheets("Munka1").Cells(lel, 4)
  Range(cim).Interior.Color = RGB(R%, G%, B%)
  End Sub

  Mikor a Munka1 lap A oszlopában szereplő adatok közül beviszel egyet a másik lapra, azonnal megkapja az RGB hátteret.
  Már csak azt lenne érdemes pontosítani, hogy a másik lap melyik oszlopában, vagy területén érvényesüljön a színezés, mert most az egész lapon működik, és ez valószínűleg felesleges.

• #12283 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 17:05:23 #12283

  Ú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 tezse66 #12279 üzenetére

  Kép

  A Munka1 lapon vannak a betűkhöz tartozó RGB értékek, a Munka2-n a színezendő cellák.
  A makró, amit a gombbal indítasz:

  Sub szin()
  Dim sor As Integer, lel
  Dim R%, G%, B%
  
  Sheets("Munka2").Select
  For sor = 1 To 11
  lel = Sheets("Munka1").Range("A:A").Find(Cells(sor%, "A")).Row
  R% = Sheets("Munka1").Cells(lel, 2)
  G% = Sheets("Munka1").Cells(lel, 3)
  B% = Sheets("Munka1").Cells(lel, 4)
  Cells(sor, 1).Interior.Color = RGB(R%, G%, B%)
  Next
  End Sub

  Fire az előző hsz-ben leírta, hogyan kell bevinni a makrót.

• #12282 Fire/SOUL/CD félisten tezse66 #12281

  Új Válasz 2011-12-09 17:03:30 #12282

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tezse66 #12281 üzenetére

  [link]
  természetesen ez nem a neked szánt kód, csak abban segít, hogy hogyan és hova kell majd bemásolnod/megírnod a kódot, ami egy függvény.

• #12280 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 16:56:11 #12280

  Ú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 tezse66 #12279 üzenetére

  Szívesen.

• #12256 m.zmrzlina senior tag tezse66 #12254

  Új Válasz 2011-12-06 16:38:33 #12256

  Ú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 tezse66 #12254 üzenetére

  Úgy kell ezt érteni, hogy az adatbázisban minden színhez tartozik egy cellaérték, és ha a másik munkalapon egy cellában megjelenik ez az érték akkor a hozzá tartozó színt kell felvennie a cella hátterének (esetleg betűinek)?

  Pontosíts kicsit!

• #12255 perfag aktív tag tezse66 #12254

  Új Válasz 2011-12-05 20:20:07 #12255

  Ú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

  

  perfag

  aktív tag

  válasz tezse66 #12254 üzenetére

  Ha lenne egy függvény rá... Nincs rá függvény, magadnak kell megírnod
  Itt megtalálod amit keresel.

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