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

• #28998 cousin333 addikt King Unique #28997

  Új Válasz 2015-10-12 19:47:53 #28998

  Ú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

  

  cousin333

  addikt

  válasz King Unique #28997 üzenetére

  A harmadik sort jelöld ki, és úgy mehet az Ablaktábla rögzítése...

• #28996 karlkani aktív tag King Unique #28994

  Új Válasz 2015-10-12 19:02:07 #28996

  Ú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

  

  karlkani

  aktív tag

  válasz King Unique #28994 üzenetére

  Nézet fülre kattintasz, majd kiválasztod a panelek rögzítése menüpontot. De megoldható úgy is, ha kipakolod a gyorselérési eszköztárra az ablaktábla rögzítése opciót.

• #28995 cousin333 addikt King Unique #28994

  Új Válasz 2015-10-12 19:00:55 #28995

  Ú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

  

  cousin333

  addikt

  válasz King Unique #28994 üzenetére

  Ha csak az első sort akarod rögzíteni, akkor Nézet fül, Panelek rögzítése és itt a Felső sor rögzítése. Ha több sort is szeretnél fixálni, akkor kijelölöd az első sort, amit már görgetni akarsz, majd ugyanitt Ablaktábla rögzítése.

• #22142 Delila_1 veterán King Unique #22141

  Új Válasz 2014-06-26 06:54:25 #22142

  Ú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 King Unique #22141 üzenetére

  Szívesen.

• #22140 Delila_1 veterán King Unique #22139

  Új Válasz 2014-06-25 18:17:27 #22140

  Ú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 King Unique #22139 üzenetére

  Úgy is jó, de inkább egy feltételbe tenném.

  if jelölő=true then
  ide jön a minden max értéket színező ciklus
  else
  ide meg az, ami az első megtaláltat színezi
  end if

  A jelölő szó helyett a CheckBox-od nevét írd be.

  A formon lévő vezérlőkhöz nem modulba írjuk a makrókat. Vezérlőn dupla klikk előhozza a form modullapját, és még a hozzá tartozó makró kezdő-, és utolsó sorát is beírja.

  A fenti makrót annak a gombnak a click eseményéhez kell beírnod, ami a max értékeket színezi.

• #22138 Delila_1 veterán King Unique #22137

  Új Válasz 2014-06-25 17:35:41 #22138

  Ú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 King Unique #22137 üzenetére

  Teheted UserFormra is, nem szükséges a füzet lapjára tenni. A feladatban nem szerepelt a vezérlők helye.

• #22136 Delila_1 veterán King Unique #22135

  Új Válasz 2014-06-25 17:23:05 #22136

  Ú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 King Unique #22135 üzenetére

  A gombokat és a comboboxot neked kell bevinned a lapra.
  Nincs 2013-as verzióm, de valószínű, hogy abban is a Fejlesztőeszközök | Beszúrás | ActiveX -ben találod meg.

  Az egyes vezérlők nevét (Name) is add meg a tulajdonságuknál úgy, ahogy a makrókat hozzájuk rendeltem.

• #22134 Delila_1 veterán King Unique #22133

  Új Válasz 2014-06-25 16:51:54 #22134

  Ú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 King Unique #22133 üzenetére

  A füzetben, amit küldtem tegnap, megtalálod.

  Itt is megvan.

• #22132 Delila_1 veterán King Unique #22131

  Új Válasz 2014-06-25 16:40:26 #22132

  Ú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 King Unique #22131 üzenetére

  Fejlesztőeszközök | Vezérlők | Tulajdonságok.

  Ilyenkor a Tervező mód legyen érvényben. Ha kész, kapcsold ki a tervező módot.

• #22117 Delila_1 veterán King Unique #22116

  Új Válasz 2014-06-24 17:36:30 #22117

  Ú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 King Unique #22116 üzenetére

  

• #22115 Delila_1 veterán King Unique #22114

  Új Válasz 2014-06-24 17:18:46 #22115

  Ú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 King Unique #22114 üzenetére

  A legördülőnél meg kell adnod, hogy honnan vegye az adatait, ez a ListFillRange tulajdonság. A küldött füzetben Munka1!AA1:AA8. A cellacsatolás az a hely, ahova a kiválasztott érték kerül, LinkedCell, ebben az esetben Munka1!AB1.

  Mindkettő akkor igaz, ha az ActiveX vezérlőket használod a lapon. Alkalmazhatod az Űrlapvezérlőket is, ott a tulajdonságainál magyarul írják a két terület nevét.

• #22113 Delila_1 veterán King Unique #22111

  Új Válasz 2014-06-24 17:10:47 #22113

  Ú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 King Unique #22111 üzenetére

  Bemásoltam innen a makrókat egy füzetbe, elküldöm.

• #22112 Delila_1 veterán King Unique #22111

  Új Válasz 2014-06-24 17:02:22 #22112

  Ú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 King Unique #22111 üzenetére

  Állandónak ajánlom, és mindenkinek. Sok új függvényt elérsz vele a füzetben, és a VBA-ban is, amik enélkül nem mennek.

  A Combobox cellacsatolását betetted az AB1 cellába?

• #22110 Delila_1 veterán King Unique #22109

  Új Válasz 2014-06-24 16:40:58 #22110

  Ú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 King Unique #22109 üzenetére

  Kapcsold be az Analysis Toolpak és az Analysis Toolpak - VBA nevű bővítményeket.

• #22102 Delila_1 veterán King Unique #22101

  Új Válasz 2014-06-23 15:55:14 #22102

  Ú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 King Unique #22101 üzenetére

  Szívesen.

• #22100 Delila_1 veterán King Unique #22099

  Új Válasz 2014-06-23 15:43:19 #22100

  Ú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 King Unique #22099 üzenetére

  If CV.Value Like ("[AEIOU]") Then -> ha a ciklusváltozó (CV) egyenlő a LIKE kulcsszó utáni valamelyik karakterrel, akkor...

  Az A ASCII értéke 65. Le tudod kérdezni a KÓD függvénnyel. Az i itt egy 1 és 26 közötti véletlen egész szám. A Chr(i+64) egy 65 és 90 közötti értéknek megfelelő karaktert adja, A-tól Z-ig.

  A kis a betű ASCII kódja 97, ott az i-hez 96-ot kell adni.

  Kulcsszavakat nem adhatunk változónévként, ezért a maxx.

  Minden maxx-szal azonos értékű cella színezése:

  Range("A1").Select
  hely = Selection.CurrentRegion.Address
  maxx = Application.Max(Range(hely))
  
  For Each CV In Range(hely)
  If CV = maxx Then Range(CV.Address).Font.ColorIndex = 5
  Next

• #22097 Delila_1 veterán King Unique #22094

  Új Válasz 2014-06-23 09:44:44 #22097

  Ú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 King Unique #22094 üzenetére

  Második kérdés: a legördülő csatolását az AB1 cellába tettem.

  Private Sub General1_Click()
  Dim szam As Integer, CV As Object
  Dim also As Integer, felso As Integer
  Dim hely As String
  
  Range("A1").Select
  Selection.CurrentRegion.Font.ColorIndex = 0
  Selection.CurrentRegion.ClearContents
  
  szam = Range("AB1")
  also = 1: felso = 100
  For Each CV In Range(Cells(1, 1), Cells(szam, szam))
  Randomize
  CV = Round(Rnd * (felso - also) + also, 0)
  Next
  End Sub

  Private Sub Max_Click()
  Dim maxx As Integer, hely As String, CV As Object, cim As String
  
  Range("A1").Select
  hely = Selection.CurrentRegion.Address
  maxx = Application.Max(Range(hely))
  
  cim = Range(hely).Find(maxx).Address
  Range(cim).Font.ColorIndex = 5
  MsgBox "A maximális érték helye: " & cim & ", " & _
  "értéke: " & maxx
  End Sub

• #22096 Delila_1 veterán King Unique #22094

  Új Válasz 2014-06-23 08:46:56 #22096

  Ú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 King Unique #22094 üzenetére

  Az első kérdéshez:

  Private Sub General_Click()
  Dim tomb(26), sor As Integer, oszlop As Integer, i As Integer
  Dim usor As Integer, uoszlop As Integer
  Dim felso As Integer, also As Integer
  
  Range("A1:Z26").ClearContents
  Range("A1:Z26").Font.ColorIndex = 0
  
  Randomize
  also = 1: felso = 5
  usor = Round(Rnd * (felso - also) + also, 0)
  
  felso = Int(26 / usor)
  Randomize
  uoszlop = Round(Rnd * (felso - also) + also, 0)
  
  For sor = 1 To usor
  For oszlop = 1 To uoszlop
  
  Ujra:
  Randomize
  felso = 26
  i = Round(Rnd * (felso - also) + also, 0)
  If tomb(i) > 0 Then GoTo Ujra
  tomb(i) = i
  Cells(sor, oszlop) = Chr(i + 64)
  Next
  Next
  End Sub

  Private Sub Kiemel_Click()
  Dim terulet As String, CV As Object
  
  Range("A1").Select
  terulet = Selection.CurrentRegion.Address
  
  For Each CV In Range(terulet)
  If CV.Value Like ("[AEIOU]") Then CV.Font.ColorIndex = 3
  Next
  End Sub

• #21908 pigster senior tag King Unique #21904

  Új Válasz 2014-06-06 07:08:58 #21908

  Ú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

  

  pigster

  senior tag

  válasz King Unique #21904 üzenetére

  Fájl-->Beállítások-->Speciális
  Felülről kb a 10. checkbox:
  A rendszerbeállítások szerint
  Tizedesjel □
  Ott mi van beállítva?

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