- Samsung Galaxy A56 - megbízható középszerűség
- Netfone
- Okosóra és okoskiegészítő topik
- Vivo X200 Pro - a kétszázát!
- Garmin Fenix 7 és 7S - profi sport megszokásból
- Yettel topik
- T Phone 2 Pro - majdnem mindenben jobb
- One mobilszolgáltatások
- Megérkezett a Google Pixel 7 és 7 Pro
- Hatalmas kedvezménnyel nyit az Ulefone új csúcsmodellje
Hirdetés
-
Mobilarena
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
-
#7897
Fire/SOUL/CD
félisten
Oly
#7896
Hali!
Akkor a példádnál maradva (2. sorban vannak az adatok)
Private Sub CommandButton1_Click()
Dim My_Outlook As Object
Dim My_Mail As Object
Set My_Outlook = CreateObject("Outlook.Application")
Set My_Mail = My_Outlook.CreateItem(olMailItem)
With My_Mail
.To = Range("A2")
.Subject = Range("B2")
.Body = Range("C2") & vbLf & vbLf & Range("D2") & vbLf & vbLf & Range("E2")
.Display
End With
Set My_Mail = Nothing
Set My_Outlook = Nothing
End SubFire.
-
#7113
Fire/SOUL/CD
félisten
Oly
#7112
-
#7110
Fire/SOUL/CD
félisten
Oly
#7109
Hali!
Ööö, szerintem itt valami félreértés van. Az Üres cellák mellőzés opció az nem arra vonatkozik, hogy a kijelölt tartományban lévő üres cellák ne jelenjenek meg a lenyílóban, hanem arra, hogy tetszőleges értéket lehessen az érvényesített cellába.
A lenyílókat arra használják, hogy kitöltött tartományt jelenítsenek meg, pl hogy kategóriák közül lehessen választani, ergo érvényesítéskor olyan tartományt jelölj ki, amiben minden cella kitöltött vagy az lesz. A példát elsősorban a tartomány elnevezés alkalmazására adtam, bár így visszaolvasva, valóban félreérthető volt, sorry...
Csak én is rosszul értelmeztem a problémád, mert azt hittem, hogy az érvényesített cellában van "szépséghiba" az üres cellával, nem pedig a lenyíló listájában...Fire.
-
#7106
Fire/SOUL/CD
félisten
Oly
#7104
Hali!
Hát ha (bocs de nem néztem meg) az Adatok/Érvényesítés segítségével hozol létre lenyílót, akkor ott beállítható, hogy az üres cellák ne jelenjenek meg. Ez egy régebbi kép, nem konkrétan a te feladatodhoz tartozik
Fire.
-
perfag
aktív tag
"Azt szeretném elérni, hogy az osztályfőnökök listájából választva már csak az adott osztály névsorából választhassak." -- ha ezt még nem oldottad meg ajánlom figyelmedbe: [demo]
A promo lapot töröld ki!
A Lists lapon vannak felsorolva a csoportok, az első sorban megadott csoport nevek közül választhatsz a Sheet2 első lenyíló listájában. A választásodnak megfelelően beáll a második lista (ezt egy Worksheet_Change makró segíti).
Az egészet tartomány nevek segítik, mondjuk én ezt dinamikusra állítanám, nem fixre.
Jelezz vissza, valami ilyesmire gondoltál-e egyáltalán. -
#7101
Fire/SOUL/CD
félisten
Oly
#7100
-
#7098
Fire/SOUL/CD
félisten
Oly
#7096
-
-
#7095
Fire/SOUL/CD
félisten
Oly
#7089
Hali!
Igen, valóban, adatbázishoz kellene kötni, természetesen a legnyilvánvalóbb választás az Access. Vannak olyan feladatok, amelyek esetén már nem érdemes(még ha lehetséges is) Excelben makrózni.
Mondjuk ez a csoport dolog így nem teljesen világos a számomra, ezt látni kellene, meg azt is, hogy mi legyen a végeredmény(amit ki akarsz hozni belőle). Így csak vaktában lövöldözné(n)k.
Fire.
-
#7087
Fire/SOUL/CD
félisten
Oly
#7086
Hali!
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Workbook_Open()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
#7085
Fire/SOUL/CD
félisten
Oly
#7084
Hali!
Remélem erre gondolsz
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
'List_All_Environ_info
WriteToTextFile
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End Function
Sub WriteToTextFile()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
#6989
Fire/SOUL/CD
félisten
Oly
#6988
Hali!
Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
List_All_Environ_info
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End FunctionFire.
-
#4092
Fire/SOUL/CD
félisten
Oly
#4091
Hali!
Na így már tiszta, mit is szerettél volna elérni.
Munkafüzet1 - Munka1 (Code)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Range("B2"))
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Pos > 0) Then
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(xstr)
End If
Exit Sub
errorhandling: MsgBox ("FileOpen ERROR!")
End SubNa, asszem ez lesz az
Ha nem a B2-ben lesz az adat akkor egyszerűen módosítsd a makróban, egy helyen kell.Fire.
-
#4090
Fire/SOUL/CD
félisten
Oly
#4089
Hali!
Oks, akkor leírom. Szóval, ha megsasolod a képet, akkor látnod kell, hogy B20-B23 tartományban beírtam képek elérését(de bárhova írhattam volna). Ha ezekre a cellákra kattintasz vagy rámész a kurzormozgatókkal, akkor egyből betölti a képet. a B2 cella csak kiírja, hogy épp melyik képet látod.
Fire.
-
#4088
Fire/SOUL/CD
félisten
Oly
#4087
Hali!
Persze, de bent is van a kódban. Ha rálépsz az adott cellára, amiben a kép elérése van akkor egyből betölti(már ha valóban létező képről van szó). Próbáld ki. A gombos megoldást csak érdekességnek szántam. Ha nem kell akkor töröld ki a makróból a commandbutton1_Click() metódust, meg persze töröld a gombot is.
Pár módosítást eszközöltem, mert a korábbi verzió mindig megpróbál betölteni egy képet, ha az adott cella nem üres. Ez zavaró lehet hiszen ha egy cellában szám vagy szöveg van és az nem egy kép elérési útvonala, akkor hibát dob. Ez a javított kód.Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
xstr = LCase(Target)
Pos = InStr(1, xstr, ".jpg", vbTextCompare)
If (Target.Cells.Count = 1) And (Pos > 0) Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
-
#4086
Fire/SOUL/CD
félisten
Oly
#4084
Hali!
Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.
Munkafüzet1 - Munka1(Code)
Private Sub CommandButton1_Click()
JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
If JPGFile <> False Then
Range("B2") = JPGFile
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(JPGFile)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errorhandling
If (Target.Cells.Count = 1) And Target <> "" Then
Range("B2") = Target
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Target)
End If
Exit Sub
errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
End SubFire.
-
Delila_1
veterán
Beszúrás/Hiperhivatkozás.
A "Hivatkozott cím"-nél a "Létező fájl vagy weblap" legyen érvényes. A Fájl... gomb segítségével kikeresed a képedet - figyeld a kiterjesztést -, aminek az elérési útja és a neve bekerül a "Megjelenő szöveg"- és az "Írja be a fájl vagy weblap nevét:" rovatba.
Az előbbiben átírhatod egy rövidebb, jellemző névre.Formázhatod is a szöveget, de nem úgy, hogy a cellára kattintasz, mert akkor behívja a képet (ez volt a cél), hanem a kurzor billentyűkkel lépsz oda.
-
#4076
Fire/SOUL/CD
félisten
Oly
#4075
Hali!
Remélem jól értelmezem a kérdésed, ha igen akkor pl így
Munkafüzet1 - Munka1 (Code)
Private Sub DTPicker1_Change()
Range("C10:C20").Value = DTPicker1.Value
Selection = DTPicker1.Value
End SubDTPicker1 - MS Date and Time objektum
DTPicker1_Change() - akkor hajtódik végre amikor kiválasztasz egy dátumot
Range("C10":"C20").Value = DTPicker1.Value - egy tartományt tölt fel a kiválasztott dátummal(azért tettem idézőjelek közé a kettőspontot, mert különben egy tapsikoló smiley lenne ott)
Selection = DTPicker1.Value - az épp kiválasztott a cellát vagy cellákat tölti fel a kiválasztott dátummalRemélem erre gondoltál
Fire.
-
Delila_1
veterán
Vegyük úgy, hogy a lapjaid neve Csoport_1, Csoport_2, és Csoport_3, a cikkszámok az A oszlopban vannak, az árak pedig B-ben.
A kereső lapon az A-ban a cikkszám, a következő háromban az ár, amit az Fkeres függvény ír be.
A B oszlop képlete:=HA(HIBÁS(FKERES($A2;Csoport_1!$A:$B;2;HAMIS));"";FKERES($A2;Csoport_1!$A:$B;2;HAMIS))
Ezt a képletet jobbra húzod a D oszlopig, és a Csoport_1-et átírod Csoport_2-re, illetve Csoport_3-ra. Ezután a 3 képletet együtt lemásolod, ameddig szükséges.
Lehetne úgy is, hogy a 3 képletet valahova messzebb teszed, mondjuk H-tól J-ig, B-be pedig =max(H2:J2)
-
VladimirR
nagyúr
leteznek ra programok, viszont azok - amennyire tudom - mind brute force modszerrel probaljak megtorni az allomanyt, ami meglehetosen lassu
ilyeneket millioszam talalhatsz google segitsegevel, de tapasztalatom sajnos nincs, hogy melyik milyen eredmennyel/sebesseggel dolgozik, igy ajanlani kozuluk nem tudok
a masik gond e programokkal, hogy tobbnyire fizetosek, s a probaverzio csak pl 3 karakter hosszu jelszavakat tud kitalalnimasik lehetoseg lehet, hogy mondjuk exportalod a doksit valami mas formatumba, s aztan visszakonvertalok xsl-be, bar nem tudom, milyen dokumentumrol van szo, s hogy ez eyaltalan megoldhato-e
-
Delila_1
veterán
Lehet, hogy a táblát nem $ jelekkel adtad meg. Ha a tábla pl. $A$1:$E$100, a képletet lehúzva is az marad. $ jelek nélkül viszont a második cellában már A2:E101, a harmadikban A3:E102, és így tovább.
Még az is lehet a hiba oka, hogy utolsó paraméterként nem megfelelő értéket adtál. Nézd meg a súgót ezügyben. -
Delila_1
veterán
Nem írtam, hogy ez a Munka1 nevű lapon működik. Ha másképp hívják a lapodat, javítsd ki a makróban. Ezután működnie kell. A makró bevitelével van esetleg gondod?
Remélem, jól értettem a feladatot. Ha csak azt akarod, hogy az A oszlop celláiban ugyanaz szerepeljen, mint a B-ben, akkor simán át kell másolnod az oszlopot, de Te úgy írtad, hogy az A celláinak a B oszlop azonos sorú cellájának nevét akarod adni.
-
-
Gh0sT
addikt
Jogos, a lottóba nem gondoltam bele, oda VKERES kell:
=HA(HIBÁS(VKERES(B2;$B$8003:$F$8003;1;HAMIS))=IGAZ;0;1)
Itt is lehet szummázni a Totóhoz hasonlóan és a DARABTELI-vel kell kiválogatni a találatokat.
A keresésre inkább valami autószűrő kellene a szummázott oszlopokra. Már ha lehet ilyent csinálni. Az elég egyszerű.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Csak én is rosszul értelmeztem a problémád, mert azt hittem, hogy az érvényesített cellában van "szépséghiba" az üres cellával, nem pedig a lenyíló listájában...
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Építő/felújító topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Először égett le egy újságnál a GeForce RTX 5090
- Konkrét moderációval kapcsolatos kérdések
- Samsung Galaxy A56 - megbízható középszerűség
- Opel topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Sorozatok
- Fujifilm X
- Videó stream letöltése
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Assassin's Creed Shadows Collector's Edition PC
- Vírusirtó, Antivirus, VPN kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Felújított számítógépek számlával, garanciával! Ingyen Foxpost!
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával!
- Azonnali készpénzes Apple Macbook Air felvásárlás személyesen / csomagküldéssel korrekt áron
- QNAP TS-870U-RP 8 lemezes Rack NAS
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: FOTC
Város: Budapest