- Xiaomi 14 Ultra - Leica hercegnő
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Poco F7 – bajnokesélyes
- iPhone topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Milyen hagyományos (nem okos-) telefont vegyek?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy S25 - végre van kicsi!
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple iPhone 17 Pro Max – fennsík
-
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
-
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- Bambu Lab 3D nyomtatók
- Sokkal drágább lett az „olcsó” Tesla, mint várták
- Autós topik látogatók beszélgetős, offolós topikja
- Gran Turismo
- ASUS routerek
- Xiaomi 14 Ultra - Leica hercegnő
- OLED TV topic
- Linux kezdőknek
- Felforgatná Kína a technológiai világrendet
- Elektromos autók - motorok
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Vírusirtó, Antivirus, VPN kulcsok
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vadiúj garanciás kèszleten lèvő lapok! Kamatmentes rèszletre is!
- HP Thunderbolt 4 kábel
- BESZÁMÍTÁS! Asus X370 R5 2600 8GB DDR4 250GB SSD 1TB HDD GTX 1650 4GB Zalman T7 Chieftec 400W
- Dell D6000 univerzális dokkoló USB-C/ USB-A, DisplayLink & Dell WD15 (K17A) USB-C + 130-180W töltő
- Általános igazgatóhelyettes tábla üvegből eladó
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest