-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
ArchElf
addikt
válasz bugizozi #11347 üzenetére
Nem lehet, hogy van valamelyik táblában van makró és az egyik gépen erősre van állítva a biztonság? Linkelés rendben van (relatívvagy abszolut elérési útvonal van használva)? Könyvtár mappelés van?
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
atillaahun
veterán
válasz bugizozi #11754 üzenetére
Köszi szépen, így (úgy) tényleg egyszerű volt.
Olyan megoldásról tudtok még esetleg, hogy az elkészített Excel programomat kitegyem netre, és azzal bárki tudjon számolni (a megfelelő értékeket megadva), de letölteni, vagy a képleteket megnézni ne tudja?
GoogleDocs-ra felraktam már, csak ott annyira elcseszetten jeleníteni meg, szerintem annak még nem nagyon használható ez a része.
[ Szerkesztve ]
-
atillaahun
veterán
válasz bugizozi #11756 üzenetére
De persze, azt már meg is csináltam hogy rákattintani sem enged.
Csak azért szeretném webről elérhetővé tenni, hogy ott tudjam még javítgatni-frissítgetni, és ne kelljen belőle mindig új verziót küldeni az illetékeseknek. Meg az sem lenne baj, ha sima böngészővel lehetne használni, és nem kéne hozzá Office, mint ahogy pl. GoogleDocs-ba is meg van oldva.
Bár lehet akkor eljátszok még azzal, csak elsőre elég fapadosnak tűnt.(#11757) perfag
Tekintve, hogy nem vagyok programozó nem hiszem, hogy különösebben komoly vagy értékes programot hoztam volna össze, csak nem szeretném viszont látni olyanoktól akinek nem adtam oda, vagy hogy bárki a sajátjaként mutassa be.
A képlet védelem mint írtam már összejött, csak jó lenne még valami olyan felület, ahol átlag ismeretekkel rendelkező felhasználók nem tudják letölteni, csak használni.[ Szerkesztve ]
-
atillaahun
veterán
válasz bugizozi #11799 üzenetére
Szürke a csatolások, nem tudom kiválasztani, lehet akkor hogy a webes lekérdezés nem minősül annak.
Arra tudtok még valami egyszerű képletet, hogy vegyes tartalmú cellából csak a számokat írassam ki? Az a baj mindig máshol vannak ezért a jobb/bal/közép nem jó, viszont a súgó meg valami eszetlen bonyolult képletet mutatott nekem, ami nem is működik.
-
atillaahun
veterán
válasz bugizozi #11799 üzenetére
A csatolásokat sajnos még mindig nem tudom kiválasztani.
(#11801) bugizozi
Ez jónak tűnt így elsőre, ki is vettem a pipát belőle, mentés, bezárás, megnyitás, és megkérdezte.
Szóval szerintem ez nem csatolás lesz. Vagy nemtudom. De az biztos.
Mondjuk az zavar még ezeket a frissítési beállításokat sem találom, mert mikor létrehoztam a webes lekérdezést egyszer megkérdezte hogy s mint akarom, de most utólag már fogalmam sincs hogy kéne módosítani.(#11798) Fire/SOUL/CD
Azért köszi. Végülis nem akkora gáz. Inkább még valami számkinyerős képletet szeretnék.[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz bugizozi #11858 üzenetére
Én azt a tartományt amiben a rövidítések vannak (vízszintes sorokban) Másolás>Irányított beillesztés >Transzponálás segítségével függőleges oszlopokká alakítanám és így rendezném A-Z-ig (természetesen nem az eredeti helyén)
Így minden oszlop tetején ott lenne az a rövidítés ami a hozzá tartozó sor elejére kell.
Ha akarod csinálhatod kézzel is, de a tartomány határainak ismeretében makrósítani is lehet a módszert.
-
bugizozi
őstag
válasz bugizozi #11858 üzenetére
Úgy gondoltam elkezdeni, hogy felveszem egy tömbbe a rövidítéseket, így lesz mindegyiknek egy sorszáma
ReDim rov(0 To 9) As String
rov(0) = "TK"
rov(1) = "TKA"
rov(2) = "GyK"
rov(3) = "AK"
rov(4) = "TKI"És ezután a sorban meg kellene vizsgálni, hogy milyen rövidítések vannak, milyen szám tartozik hozzájuk és megnézni, hogy melyik a legnagyobb számú, kvázi mint egy maximum keresés..
Ez így járható út? Ha igen, akkor ebben a maximumos dologban tudna valaki segíteni?Nagyon alap programozásnak tűnik, de valamiért nem megy
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz bugizozi #11863 üzenetére
A hosszú képlet végén a "Nincs adat" helyére írj nullát, az FKERES tartományát bővítsd ki egy sorral, ahol a K oszlopba nullát írsz, az L-be jön a Nincs adat szöveg.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bugizozi #11868 üzenetére
Sok rövidítéshez.
A K oszlopban legyenek a rövidítések, az L-ben a hozzájuk tartozó számok, nullától felfelé.
A nullához a "Nincs rövidítés a sorban" szöveg – vagy valami elfogadhatóbb – tartozzon a K oszlopban.Function akármi(ter As Range)
Dim b As Integer, CV
b = 0
For Each CV In ter
If CV > "" Then
If Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0) > b Then
b = Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0)
End If
End If
Next
akármi = Range("K" & Application.WorksheetFunction.Match(b, Columns("L:L"), 0))
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bugizozi #11874 üzenetére
Ez egy függvény, aminek a neve akármi.
Kitöltöd a K:L oszlopot, az A2-be beírod a függvényt:=akármi(B2:G2), és adja az eredményt.
Ugyanúgy másolhatod, mint a többi függvényt.
Szerk.: adj neki normálisabb nevet. Két helyen kell átírnod.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zomb€€
őstag
válasz bugizozi #11941 üzenetére
Ezzel az a gondom, hogy hiába rejti el, attól még nem a pozitív ágon folytatja, csak nem jelenik meg.
Amúgy már szétgugliztam az agyam, de mindenhol csak a DisplayAlerts = False-ra bukkantamHopp, idő közben ki is találtam a megoldást:
Meghívom a körleveles Wordöt DA = False értékkel, majd a wordben behúzom az adatbázist. Yee[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
Gerisz
addikt
válasz bugizozi #12059 üzenetére
Nem akarom látni, mert kicsi a táblázat.
De a lényeg, hogy beállítom a cella szélességet és azt a szélességét tartsa is meg akkor ha az alatta lévő cellának is állítom a szélességet ugyan abban az oszlopban.
Az egyik cellában szöveg van, cella egyesítéssel átfed 5 cellát.
Ez az 5 cella alatta már mind különböző mérettel kellene, hogy rendelkezzen.
(hogy még jobb legyen, de így van)
Az ezek alatt lévőknek is különböző méretűnek kellene lenniük (és a legfontosabb) azért mert rá kell férniük egy lapra. Ki fogom nyomtatni.Lehet egyáltalán ilyet?
[ Szerkesztve ]
-
félisten
válasz bugizozi #12105 üzenetére
Pontosan nem tudom miért van szükséged ciklusra (ami automatikusan makró-t jelent), de a SZÁM függvénnyel megvizsgálható, hogy egy adott cella számot avagy nem azt tartalmaz.
=SZÁM(A1) - IGAZ értéket ad vissza, ha a vizsgált cellában szám található, minden más esetben HAMIS értékkel tér vissza.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz bugizozi #12178 üzenetére
Egyszerűbb lett volna így:
Sub összead()
Dim oszlop As Integer, összeg As Single
For oszlop = 3 To 149 Step 3
összeg = összeg + Cells(47, oszlop)
Next
Cells(47, 150) = összeg
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bugizozi #12268 üzenetére
Köszi. Ha nem hozzák rendbe a saját PH-s feltöltést, legközelebb ezzel próbálkozom.
Most azt írja, hogy "A képfeltöltés átmenetileg nem elérhető, a hiba javításáig kérjük türelmeteket!"
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
poffsoft
addikt
válasz bugizozi #12736 üzenetére
Ennek örülök
Közben meglett a hiba: a cells().addcomment előtt, ha van már comment a cellában, törölni kell a cells().comment.delete- vel.
Csak nem tudtam értelmezni a hibaüzenetet (valami "object (_Global) failed" volt)...Viszont kommenttel kapcsolatosan újabb kérdés: hogyan tudom a comment szövegdobozát átméreteztetni vele úgy, hogy a teljes tartalom látszódjék benne? Az A1 cella commentjéhez ugyanis pár sort még hozzáfűzök, azt írom a B1-be, de az új sorok nem látszanak, mert kicsi marad az ablak magassága?
p.s.: amúgy valamiért a te rövidített kódodat nem fogadja el, nekem így működik (persze lehet, itt meg az volt a baj, ha a scope1.comment volt üres (IsNothing)?):
Set scope1 = Sheets("Sim training").Cells(MyMonthAr(MyMonth) + MyRow, 4 + MyCol)
Set scope2 = Cells(cr1, cc1)
sText = scope1.Comment.Text & vbLf & Text1 & vbLf & Text2 & vbLf & Text3
If Not IsNothing(scope2.Comment) Then scope2.Comment.Delete
scope2.AddComment sText[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
-
poffsoft
addikt
válasz bugizozi #12749 üzenetére
Másképpen : hogyan lehet olyan sub-ot létrehozni, ami az argumentumában megadott változót külön értékadás nélkül ( i%=Inc(i%) ) tudja megváltoztatni úgy, hogy a szülő kódban, a sub visszatérése után is megmaradjon az új érték.
Lehet, keresnem kellene valami irodalmat a vba alapjairól
[ Szerkesztve ]
-
Delila_1
Topikgazda
Új hozzászólás Aktív témák
- World of Warcraft Shadowlands Collectors edition EU EN
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen