-
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
-
Delila_1
veterán
Mivel nem árultad el, hol lesznek az adatok, a D2:E8 tartományra írtam meg, majd átalakítod a makrókat.
Sub Start()
UserForm1.ListBox1.List = Sheets("Munka1").Range("E2:E8").Value
UserForm1.Show
End SubPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim sor%, usor%, nev$
sor% = Me.ListBox1.ListIndex + 1
usor% = Cells(Rows.Count, "A").End(xlUp).Row + 1
nev$ = Me.ListBox1.List(Me.ListBox1.ListIndex)
Range("B" & usor%) = nev$
Range("A" & usor%) = Range("D" & Application.WorksheetFunction.Match(nev$, Columns(5), 0))
End Sub -
Delila_1
veterán
Például így oldhatod meg.
A listbox tartománya a Munka1 lap A1:A10.Ezzel indítod a userformot.
Sub start()
UserForm1.ListBox1.List = Sheets("Munka1").Range("A1:A10").Value
UserForm1.Show
End SubA listbox kiválasztott elemén duplaklikkre beírja az elemet a füzet aktuális cellájától egy cellával jobbra.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim sor As Integer
sor = Me.ListBox1.ListIndex + 1
Selection.Offset(, 1) = Range("A" & sor)
End SubA +1 azért kell, mert az index nullával kezdődik.
-
#15111
Fire/SOUL/CD
félisten
Attas
#15108
Űrlap vezérlőjét nem lehet állítani. használj ActiveX vezérlőt(CommandButton), jobb égér rajta/Tulajdonságok/ és a BackColor tulajdonságnál módosíthatod a színét.
(ForeColor meg az írás színe)Dj Sügi
Ha több feltétel nem lesz, azaz nem lesz még, hogy 15M feletti érték is lesz, akkor sima cellaformázással is kivitelezhető.
Persze az kérdéses számomra, hogy pl a 999999-ből hogyan is lesz 999E, mert 999000 esetén még érthető.Mindegy, azért beteszem a formázást, arra ügyelj, hogy a formázásban több szóköz van egymás után, nem véletlenül, viszont ha pl Firefox-ot használsz, akkor amikor kimásolod majd a formátumot, az eltávolítja a felesleges szóközöket, ami ebben az esetben hibás működést von majd maga után.
Chrome vagy Dragon rendesen tudja másolni vagy kézzel bepötyögöd.[<1000]###" fő";[<1000000]#####0 " E";#######0 " M"
-
-
#15082
Fire/SOUL/CD
félisten
Attas
#15081
-
#15041
Fire/SOUL/CD
félisten
Attas
#15040
-
bugizozi
őstag
Simán beírod a nevüket egy sorba...Pl:
Első kód:
Sub vmi()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End SubMásodik kód:
Sub vmi2()
vmi
End SubHa lefuttatod a második kódot (vmi2), az "megíhvja" az első kódot (vmi) és az fog lefutni
-
Új hozzászólás Aktív témák
Fferi50- Xbox Series X|S
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen billentyűzetet vegyek?
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Bittorrent topik
- WoW avagy World of Warcraft -=MMORPG=-
- Netfone
- Társasjáték topic
- További aktív témák...
- MacBook felvásárlás!! MacBook, MacBook Air, MacBook Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060 8GB GAMER PC termékbeszámítással
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3360
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest