Keresés

Részletes keresés

terra700 Creative Commons License 2007.01.30 0 0 4935

Sziasztok!

 

Szeretnék zárolni egy lapot. Nincs is vele semmi gond csak a kombi panellel. Hiába unlock-oltam a kombi panel alatti cellát, lapvédelem után nem lehet módosítani/használni a kombi panelt.

 

Valakinek van vmi ötlete, hogy miért?

 

Köszönöm

bearnie16 Creative Commons License 2007.01.30 0 0 4934

Sziasztok!

 

Egy egyszerű, számomra egyenlőre mégsem megoldott kérdésem lenne. Hogy tudom beállítani a megjegyzés tulajdonságait úgy, hogy az alapértelmezetten működjön. Tehát ha létre akarok hozni egy új megjegyzést, akkor azzal a beállítással hozza létre, amit én beállítottam. Mert egyenként fárasztó szerkesztgetni, és szeretném, ha olyan lenne, amilyet én szeretnék. Remélem tud nekem ebben valaki segíteni... várom az esetleges segítségeket. És persze előre is köszi. Minden jót.

peterdudas Creative Commons License 2007.01.30 0 0 4933

Sziasztok!

 

  Egy olyan Excel programon dolgozom, aminél szerintem a makrók használata megkönnyítené a használatot. Tdnátok nekem segíteni és küldeni olyan anyagot, amiből meg tudom tanulni az makrók alapjait??

 

  Köszi a segítséget.

 

Peti

terra700 Creative Commons License 2007.01.30 0 0 4932

Hibátlanul és remekül MŰKÖDIK!!!

 

1000 köszönet

Előzmény: Törölt nick (4931)
Törölt nick Creative Commons License 2007.01.30 0 0 4931

Ja igen, sorry ezt elnéztem, a másik tartományt vizsgáltam.

Szóval az első for ciklust erre lecserélni, a korábbi javítás maradhat:

 

For t = Sor1 To Sorveg
    Hol(t) = 0
    If WorksheetFunction.IsNumber(Cells(t, Col1).Value) Then
       If Szam = Val(Cells(t, Col1)) Then Hol(t) = 1
     End If
Next t

Előzmény: terra700 (4930)
terra700 Creative Commons License 2007.01.30 0 0 4930

Sehogy se megy, akárhogy próbálom. Minden modult kitöröltem és újra beírtam (az átírtat), de NEM megy! A függvény ugyan úgy működik. Ha van a sorban egy #HIÁNYZIK cella, akkor nem működik, nem számol!

 

Segítség!

Előzmény: Törölt nick (4929)
Törölt nick Creative Commons License 2007.01.29 0 0 4929

A 4811-es Osszegzo függvényben az utolsó ciklust erre kéne lecserélni:

 

For t = Sor1 To Sorveg
      If Hol(t) = 1 Then
            For k = Col1b To Colvegb
                 If WorksheetFunction.IsNumber(Cells(t, k).Value) Then
                        Osszeg = Osszeg + Val(Cells(t, k).Value)
                 End If
            Next k
      End If
Next t

 

 

Előzmény: terra700 (4927)
Törölt nick Creative Commons License 2007.01.29 0 0 4928
csak bele kell ágyazni egy HA() függvénybe a megírt felhasználói függvényt. Pl.:
HA(HIBÁS(eredeti felhasználó függvény);" ";eredeti felhasználói függvény)
Előzmény: terra700 (4927)
terra700 Creative Commons License 2007.01.29 0 0 4927

Szia DJCarlos!

 

Egy utolsó NAGY segítséget szeretnék kérni! Az általad írt függvényről lenne szó!

 

Ha A1:A10 között valahol van #HIÁNYZIK felirat, akkor "nem működik" az összegző függvény. Nem lehetne ezt valahogy "kijavítani", hogy ne vegye figyelembe ezeket a sorokat.

 

Hálás köszönettel!

Előzmény: Törölt nick (4836)
Ram25 Creative Commons License 2007.01.29 0 0 4926
Hogyan lehet az 'Automatikus formázás' menüponton belüli formázási listát saját formátummal bővíteni?
Ram25 Creative Commons License 2007.01.29 0 0 4925
Hogyan lehet az 'Automatikus formázás' menüponton belüli formázási listát bővíteni a saját formátumunkkal?
extekergo Creative Commons License 2007.01.28 0 0 4924
Bocs, ezt nem akartam. Hogy miért nem tudok hozzászolni ide-oda? Valami gubanc van indexéknél! :((
Előzmény: extekergo (4923)
extekergo Creative Commons License 2007.01.28 0 0 4923
_
Törölt nick Creative Commons License 2007.01.28 0 0 4922

Jó lenne, ha ebben meg tudna cáfolni valaki, de úgy tudom, az űrlapok eszköztár vezérlőit nem lehet  úgy programozni mint a vezérlő eszköztár activex vezérlőit.  Makrókat lehet hozzájuk rendelni, de nem lehet az excel vb-programokban használni őket, hivatkozni rájuk. Másrészt a tulajdonság panelükön nem lehet relatív hivatkozás megadni a cél meg a forráscellákra. Ezt a vezérlők eszköztár combo boxánál sem lehet, de ott excel vb programozással meg lehet oldani, ahogy a korábbi példában is látható volt. A vezérlők másolását is vb programozással kéne megoldani.

 

Előzmény: terra700 (4921)
terra700 Creative Commons License 2007.01.27 0 0 4921

Vagyis a kombi panelnél szeretném elérni, hogy a felhasználó által kiválasztott nevet a tőle 2 cellára lévő cellába listázza automatikusa. Pl.: A1-ben van egy kombi panel és az A3-ba listázza a kiválasztott nevet.

 

+ a kombi panellel, szöveggel, fügvényekkel ellátott A4-es méretű lapot szetném másolni az alatta lévő többi A4-es méretű helyekre. De CTLR+C CTRL+V-vel nem lehet megoldani, mert a kombi panelt nem másolja

 

Köszi a segítséget

Előzmény: terra700 (4920)
terra700 Creative Commons License 2007.01.27 0 0 4920
Na itt lehet a baj, mert én kobi panelt használok. Fontos, hogy ennél maradjak, mert nevek vannak belelistázva!!!
Előzmény: Törölt nick (4917)
Törölt nick Creative Commons License 2007.01.27 0 0 4919
lásd nem sokkal lejebb, vagy: Menü / Adatok / Szűrő / Irányított szűrő --> Csak egyedi rekordok szűrése
Előzmény: Ram25 (4918)
Ram25 Creative Commons License 2007.01.27 0 0 4918
Van arra mód az Excel-ben, hogy hasonló szürt listát kapjak, mint az adatbáziskezelőkben a SELECT DISTINCT lekérdezéssel (azaz, hogy az ismétlődő sorokat elnyomja)? Több Excel táblám van és nincs kedvem mindet átkonvertálgatni Access-ba. Köszi
Törölt nick Creative Commons License 2007.01.27 0 0 4917
De lehet, hogy az a gond, hogy nem ugyanarra a vezérlőre gondolunk. Én egy comboboxot használtam, ami a  vezérlő eszköztáron található, Beviteli lista-néven,és a kódban persze combobox a neve...  
Előzmény: Törölt nick (4914)
Törölt nick Creative Commons License 2007.01.27 0 0 4916
Pontosabban: ...4883 soraihoz a 4883... helyett ...4882 soraihoz a 4883 ...
Előzmény: Törölt nick (4915)
Törölt nick Creative Commons License 2007.01.27 0 0 4915
úgy értve persze, hogy a 4882, 4883-as szerinti kódról van szó. A 4883 soraihoz a 4883 is hozzáveendő. Ekkor a 4881  persze nem kell, azaz most nem combobox eseményhez rendeljük a kódot.
Előzmény: Törölt nick (4914)
Törölt nick Creative Commons License 2007.01.27 0 0 4914

Pl. Készíts egy (üres) makrót rögzítéssel ,. (pl. Rögzítés1), A Rögzítés1() makró program belsejébe másold a sorokat.   Tegyél  a munkalapra egy nyomógombot, ehhez rendeld a Rögzíéts1() makrót  Ekkor, feltéve, hogy a combobox az első munkalapon van, a gombnyomásra inicializálja comboboxot.  A kódban a második munkalapról veszi a combobox lista értékeit, ez is átírható értelemszerűen a kódban.

 

Előzmény: terra700 (4913)
terra700 Creative Commons License 2007.01.27 0 0 4913

4881, 4883-asra.

 

Kedves DJCarlos!

 

Az általad írt sorokat a ComboBox-ba beírtam, de nem működik. Sárgára festi a sorokat, vagy Debug feliratot ír ki! Lehet, hogy rossz helyre írom?

Előzmény: Törölt nick (4908)
Törölt nick Creative Commons License 2007.01.26 0 0 4912
jesssz, köszönöm, 1 órát keresgettem délelőtt, azt "activecells"-ről tudtam
Előzmény: Törölt nick (4910)
Törölt nick Creative Commons License 2007.01.26 0 0 4911

Meg olyan is van , hogy activecell, éppen aktív cella.

 

Előzmény: Törölt nick (4910)
Törölt nick Creative Commons License 2007.01.26 0 0 4910

selection

 

pl. Kijeloles első cellájának értéke = Selection.Cells(1, 1).value

selection.cells(1,1).row   ennek a sora,

selection.address  kijelölés címe pl.  ezt adja vissza $G$6:$H$8

stb.

Előzmény: Törölt nick (4909)
Törölt nick Creative Commons License 2007.01.26 0 0 4909
Hogy lehetne definialni egy ilyen makroban az "aktivan (eppen) kijelolt cellakat"
(Maskent a makro futtatasa elott kijelolt cellakat...)
Törölt nick Creative Commons License 2007.01.26 0 0 4908

És ide be lehet tenni ezt is: pl. a Munka2 munkalapon levő A1:A10 tartományból vegye a combobox a listaértékeit.

Worksheets(1).ComboBox1.ListFillRange = "Munka2!A1:A10"

Előzmény: Törölt nick (4907)
Törölt nick Creative Commons License 2007.01.26 0 0 4907

Vagy egy makróba tenni , mondjuk egy gombhoz rendelve a makró inicializálja a comboboxot:

 

Sub Rögzítés1()


    Worksheets(1).ComboBox1.AddItem "elem1"
    Worksheets(1).ComboBox1.AddItem "elem2"
    Worksheets(1).ComboBox1.AddItem "elem3"
     Worksheets(1).ComboBox1.LinkedCell = Worksheets(1).ComboBox1.TopLeftCell.Offset(0, 2).Address

' stb...
End Sub

Előzmény: Törölt nick (4906)
Törölt nick Creative Commons License 2007.01.26 0 0 4906

Pl. így, de lehet más, pl. vaamely worksheet eseményhez is rendelni:

 

Private Sub ComboBox1_Change()
ComboBox1.LinkedCell = ComboBox1.TopLeftCell.Offset(0, 2).Address
End SuB

Előzmény: terra700 (4896)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!