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

• #46248 Fferi50 Topikgazda Dictator^ #46247

  Új Válasz 2021-03-13 18:43:53 #46248

  Ú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

  

  Fferi50

  Topikgazda

  válasz Dictator^ #46247 üzenetére

  Szia!
  Mi lenne, ha kilépés előtt azt a sort, amiben dolgozol, átszíneznéd mondjuk lilára?
  Üdv.

• #2315 mahatma aktív tag Dictator^ #2314

  Új Válasz 2007-07-11 20:25:41 #2315

  Ú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

  

  mahatma

  aktív tag

  válasz Dictator^ #2314 üzenetére

  Van egy Scroll Lock nevezetű gomb a billentyűzeten ha minden igaz, tessék azt lenyomni

• #2032 Pá addikt Dictator^ #2031

  Új Válasz 2007-02-21 02:30:25 #2032

  Ú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

  

  Pá

  addikt

  válasz Dictator^ #2031 üzenetére

  Jelöld ki azt a 200 sort, ami kell, kivág, majd új dokumentumba beilleszt.

• #2016 matekmatika tag Dictator^ #2015

  Új Válasz 2007-02-11 02:52:51 #2016

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #2015 üzenetére

  És mi nem tökéletes benne?
  Meg most azt írtad a mező színét színezi ki amit találtál. Eddig az volt hogy egy cellán belül több tétel is van és azok más-más színűek legyenek. Most akkor csak szimplán meg kell jelölni azt a cellát amiben egy tétel szerepel máshol is?Kezdem elveszíteni a fonalat
  Miért nem linkeled be a táblázatot és akkor talán könyebb lenne megérteni?
  

• #1969 matekmatika tag Dictator^ #1954

  Új Válasz 2007-02-03 14:56:12 #1969

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1954 üzenetére

  Visszatérve egy korábbi hozzászólásodra, hogy annyira nem lehet nehéz megcsinálni..., lehet, hogy van akinek nem. Nekem azért kellett vele bírkozni egy kicsit. Nem lehetett volna a tételeket cellánként kezelni?
  Itt a végeredmény, hozz létre egy új makrót és illeszd be:
  
  Sub Szinezos()
  'Hivatkozni szeretnék majd az aktuális munkalapra
  'és mivel nem tudom mi most a neve nálad ezért
  'először átnevezem ''Tételek''-re
  ActiveSheet.Name = ''Tételek''
  
  'Az utolsó sor száma
  sor = ActiveSheet.UsedRange.Rows.Count
  
  'Az utolsó oszlop száma
  oszlop = ActiveSheet.UsedRange.Columns.Count
  
  'Alapértelmezett szín
  szin = 0
  
  'Létrehozunk egy segéd munkalapot
  Worksheets.Add.Name = ''seged''
  
  'melyre a ''seged''-del fogunk hivatkozni
  Set seged = Worksheets(''seged'')
  
  'Aktívvá tesszük ismét a Munka1-t
  Worksheets(''Tételek'').Activate
  
  x = 0
  
  'Két ciklussal végigmegyünk a cellákon
  For j = 1 To oszlop
  For i = 1 To sor
  
  'aktuális cella
  cella = Cells(i, j)
  
  'cella karaktereinek száma
  h = Len(cella)
  
  ''',''-t keres a szövegben
  a = InStr(cella, '','')
  
  'Ha nincs ''a'' értéke: 0 lesz
  'Ha van akkor '','' pozícióját adja
  
  If a > 0 Then
  elso = Left(cella, a - 1)
  masodik = Right(cella, h - a - 1)
  
  'Ha nem talál '',''-t a beírt szövegben
  Else
  
  'Akkor az első legyen maga a cella tartalma
  elso = cella
  
  'Második tétel pedig nincs
  masodik = 0
  End If
  
  'A kapott tételeket eltároljuk a segéd munkalapon
  If elso <> Empty Then
  x = x + 1
  seged.Cells(x, 1) = elso
  End If
  If masodik <> Empty Then
  x = x + 1
  seged.Cells(x, 1) = masodik
  End If
  Next i
  Next j
  
  'Tételek átnézése azonosak megjelölése
  Application.ScreenUpdating = False
  Sheets(''seged'').Select
  Columns(''A:A'').Select
  Selection.Sort Key1:=Range(''A:A''), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
  False, Orientation:=xlTopToBottom
  Do While Cells(1, 1) = Empty
  Cells(1, 1).Select
  Selection.Delete Shift:=xlUp
  Loop
  a = 2
  b = 1
  Cells(1, 2) = Cells(1, 1)
  Do While Cells(a, 1) <> Empty
  If Cells(a + 1, 1) = Cells(b, 2) Then
  Cells(b, 3) = Cells(b, 3) + 1
  Else
  Cells(b + 1, 2) = Cells(a + 1, 1)
  Cells(b, 3) = Cells(b, 3) + 1
  b = b + 1
  End If
  a = a + 1
  Loop
  Sheets(''Tételek'').Select
  i = 1
  szin = 2
  Do While seged.Cells(i, 2) <> Empty
  If seged.Cells(i, 3) > 1 Then
  For j = 1 To sor
  For k = 1 To oszlop
  cella = Cells(j, k)
  If cella Like ''*'' & seged.Cells(i, 2) & ''*'' Then
  kezd = InStr(cella, seged.Cells(i, 2))
  hossz = Len(seged.Cells(i, 2))
  h = InStr(cella, '','')
  If h > 0 Then
  With Cells(j, k).Characters(Start:=kezd, Length:=hossz).Font
  .FontStyle = ''Félkövér''
  .ColorIndex = szin
  End With
  If Left(cella, h - 1) = Right(cella, Len(cella) - h - 1) Then
  With Cells(j, k).Font
  .FontStyle = ''Félkövér''
  .ColorIndex = szin
  End With
  End If
  Else
  With Cells(j, k).Font
  .FontStyle = ''Félkövér''
  .ColorIndex = szin
  End With
  End If
  End If
  Next k
  Next j
  End If
  i = i + 1
  szin = szin + 1
  Loop
  Application.ScreenUpdating = True
  Application.DisplayAlerts = False
  Worksheets(''seged'').Delete
  Application.DisplayAlerts = True
  End Sub
  
  vagy dolgozd át ezt, itt megnézheted konkrétan mit csinál: [link]
  
  [Szerkesztve]

• #1959 matekmatika tag Dictator^ #1956

  Új Válasz 2007-02-01 17:22:36 #1959

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1956 üzenetére

  Hányféle variáció van, már csak azért, hogy hányféle színt keressek hozzá?

• #1955 matekmatika tag Dictator^ #1954

  Új Válasz 2007-02-01 11:29:53 #1955

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1954 üzenetére

  Sajnos majd csak délután lesz időm rá.
  2 kérdés:
  Mindíg így kettesével szereplenek?
  Ill. ha igen akkor mindíg vesszővel vannak elválasztva?
  
  Mert ha igen akkor jó. (Ha nem akkor nehéz lesz kitalálnia meddig tart egy tétel).

• #1952 matekmatika tag Dictator^ #1951

  Új Válasz 2007-02-01 11:03:11 #1952

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1951 üzenetére

  Hát lehet, hogy rosszul gondolkodom, de ha egy programnak végig kell néznie egy adott területet, hogy van-e egyforma szó, akkor valahogy keresnie kell. Igaz nem neked, hanem a programnak.
  A példádat nézve viszont nekem úgy tűnik megsem szavakat kell összehasonlítani, hanem cellákat. Az én eredeti elképzelésem szerint pl. Coca-Cola 3dl és a Coca-Cola 4dl összehasonlítva a Coca-Cola azonos lenne, a 3dl és a 4dl különböző. De neked nem ez kell ezek szerint, hanem hogy az összes Coca-Cola 3dl egy színű legyen illetve az összes Coca-Cola 4dl is csak mondjuk másmilyen színű. Ha jól értem.
  

• #1948 matekmatika tag Dictator^ #1942

  Új Válasz 2007-02-01 00:28:28 #1948

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1942 üzenetére

  Tudod előre mely szavak szerepelnek többször több cellában is, mert az nagyban megkönnyítené a keresést, vagy ezt is a programnak kellene megkeresni. Ez utóbbi esetben, ha hosszabb a szöveg baromira lelassítja a keresést.
  Milyen szavakról lenne szó? Pl. magánhangzók szerepelnek-e benne, vagy számok?

• #1941 mahatma aktív tag Dictator^ #1940

  Új Válasz 2007-01-31 19:24:05 #1941

  Ú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

  

  mahatma

  aktív tag

  válasz Dictator^ #1940 üzenetére

  akkor ezek szerint egy cellában több szó is van...akkor még keresem a megoldást

• #1937 mahatma aktív tag Dictator^ #1936

  Új Válasz 2007-01-31 18:04:07 #1937

  Ú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

  

  mahatma

  aktív tag

  válasz Dictator^ #1936 üzenetére

  ha 3-4 szóval kell müködnie, akkor nálam müködik, a lényeg, hogy jelöld ki az egész munkafüzet tartományát, aztán feltételes formázás, cella értéke legyen egynlő a szóval, aztán pedig hogy mit csináljon vele.

• #1935 mahatma aktív tag Dictator^ #1934

  Új Válasz 2007-01-31 17:28:55 #1935

  Ú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

  

  mahatma

  aktív tag

  válasz Dictator^ #1934 üzenetére

  a ''feltételes formázás'' menüponttal próbáltad már?

• #1906 matekmatika tag Dictator^ #1904

  Új Válasz 2007-01-14 12:55:44 #1906

  Ú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

  

  matekmatika

  tag

  válasz Dictator^ #1904 üzenetére

  Az ''A'' oszloba beírod te a sorok számait (természetesen a 2.-nál kezded az ''1''-gyel.
  Majd a beálítások - megjelenés fülön kikapcsolod a ''sor- és oszlopazonosítók'' opciót, le OK-zod.
  Már ha megfelel így neked.

• #1905 lapa veterán Dictator^ #1904

  Új Válasz 2007-01-14 11:34:05 #1905

  Ú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

  

  lapa

  veterán

  válasz Dictator^ #1904 üzenetére

  szerintem legfeljebb fejlécbe tudod beírni, elég barkács.

• #1901 sszever őstag Dictator^ #1896

  Új Válasz 2007-01-13 23:29:05 #1901

  Ú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

  

  sszever

  őstag

  válasz Dictator^ #1896 üzenetére

  freeze panes

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