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

• #1570 Homer tag Baboka #1569

  Új Válasz 2011-12-27 11:00:20 #1570

  Ú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

  

  Homer

  tag

  válasz Baboka #1569 üzenetére

  Örülök, hogy segíthettem.

  Egyébként ajánlok neked is egy könyvet:
  Balogh Gábor - Visual Basic és Excel programozás
  a neten megtalálod...

  Megpróbálom elmagyarázni mi nem volt teljesen világos:

  - Szóval ha van egy táblázatod amiben minden sor (esetleg minden oszlop is) egyforma formátumú, akkor nem gond ha előre meghatározott stílust állítasz be default értéknek.
  régi sor(x) stílus = régi formátum

  - Ha a sorok megegyeznek, de az oslopok formátuma eltér (pl színük más) akkor a cellék formátumát egyesével kell állítgatni.
  régi cella(régi sor, oszlop(1...x)) formátuma = default cellastílus (régi sor, oszlop(1...x) formátuma

  - Ha az eredeti sorok formátumai is eltérnek egymástól (azaz különbözőek), akkor még bonyolultabb a helyzeted, mert a default értéket az eredeti stílus szerint kell meghatározni.
  tehát pl a visszaállításnál a
  cella1 stílus = eredeti cellaformátum1.oszlop
  cella2 stílus = eredeti cellaformátum2.oszlop
  ...

  Tudom nem teljesen érthető a magyarázat, bocs.

• #1562 Homer tag Baboka #1561

  Új Válasz 2011-12-23 13:56:48 #1562

  Ú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

  

  Homer

  tag

  válasz Baboka #1561 üzenetére

  Szia!

  Nem teljesen értettem amit akartál, de ha minden igaz akkor ilyesmi válaszra vársz.
  Egyrészt az nem teljesen világos, hogy az intersect minek bele? Gondolom a több cella egyszerre történő kijelölése végett van benne, így ez esetben az általam javasolt megoldás nem működik majd. De azért gondolkodtam rajta. Tess:

  Public elozo, default As Integer
  Const uj = 3

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  'Az új sor színének beállítására
  Rows(Target.Row).Interior.ColorIndex = uj

  'Annak a vizsgálatára, hogy kell-e visszaállítani formátumot, azaz első kijelölés, vagy már volt előtte kijelölve valami?
  If elozo <> 0 Then
  Rows(elozo).Interior.ColorIndex = default
  End If

  'Az előzőleg kijelölt sor száma
  elozo = ActiveCell.Row

  ' itt az eredeti cella formátumát kellene beállítani az 5 helyett de ezt pontosan nem értettem a leírásodból... :S
  default = 5
  End Sub

• #1401 martonx veterán Baboka #1398

  Új Válasz 2011-07-19 13:52:04 #1401

  Ú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

  

  martonx

  veterán

  válasz Baboka #1398 üzenetére

  Szia!

  A hülye Excel a létező legtriviálisabb hibákra szokott ilyen semmitmondó hibaüzenetet adni.
  Azaz ilyenekre tippelek, hogy:

  1. nem létezik az fk
  2. nem létezik az eo
  3. fk és eo létezik, de nem számok

  vagy mittudom én, de ilyen szintű kis bizbasz hibát kellene keresned.

• #1399 ArchElf addikt Baboka #1398

  Új Válasz 2011-07-19 12:06:12 #1399

  Ú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

  

  ArchElf

  addikt

  válasz Baboka #1398 üzenetére

  Próbáld meg elötte kiválasztani a sheet-et és a cellát és utána lekérdezni. Esetleg nézz át az Excel topicba, ott sokkal több tapasztalat van az excel makrók tekintetében.

  AE

• #1397 ArchElf addikt Baboka #1396

  Új Válasz 2011-07-19 11:24:13 #1397

  Ú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

  

  ArchElf

  addikt

  válasz Baboka #1396 üzenetére

  így próbáltad?
  (Sheets(2).Cells(i, eo).Value
  Ja és használj kódbeillesztést, mert tagolatlan kódot kínszenvedés olvasni...
  A változónevek sem mondanak amúgy sokat...

  AE

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