Hirdetés
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Bemutatta a Huawei a Band 10 okoskarkötőt
- Redmi Note 15 Pro 5G – a szokásosat?
- Poco F3 - a mindenes, de nem mindenkinek
- Samsung Gear S3 - második kör
- One mobilszolgáltatások
- Poco F8 Pro – titkos favorit lehet belőle
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Kiszivárgott, mikor érkezik a Galaxy S26
-
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
-
Fferi50
Topikgazda
válasz
botond187
#22788
üzenetére
Szia!
Paraméterezheted is a makrót.
Csinálsz egy táblázatot, amelybe berakod egy-egy oszlopba a "főcikk" tól-ig cikkszámokat, a másik 2 oszlopba pedig a hozzátartozó "kiegészítő" cikkek tól-ig határait.
Ezután a makródnak azt kell megnéznie, hogy az adott cikkszám mely határok közé esik és onnan kivenni a hozzátartozó határértékeket.
Kicsit csúnya mert még egy for ciklus van benne, de most hirtelen nem jut jobb eszembe (pedig biztosan van).For xx= 1 to 200
cikkszam=cells(xx,1).value
kiegalso=""
kiegfelso=""
for zz=1 to főcikkfeltételszám
if cikkszam>=cells(zz,10).value and cikkszam<=cells(zz,11).value then
kiegalso=cells(zz,12).value
kiegfelso=cells(zz,13).value
exit for
endif
next
if kiegalso<>"" then
kieg=""
for yy=1 to 200
if cells(yy,1).value>=kiegalso and cells(yy,1).value<=kiegfelso then
if kieg="" then
kieg=cells(yy,1).value
else
kieg=kieg & elválasztó & cells(yy,1).value
endif
endif
next
if kieg<>"" then
cells(xx,2).value=kieg
endif
endif
nextA határokat tartalmazó táblázat a 10-12. oszlopban van. A ciklushatárokat igazítsd a feltöltött sorokhoz.
A belső yy-os ciklus elvileg indulhat xx -től egy (1) helyett, ha a kiegészítő termékek cikkszáma nagyobb, mint a főtermékeké és a cikkszámok sorba vannak rendezve. A működéshez ez nem szükséges, akkor marad az 1, mint cikluskezdő (hiszen lehet, hogy az első cikkszám nem főtermék, hanem kiegészítő).Üdv.
Új hozzászólás Aktív témák
- Okos Otthon / Smart Home
- Bittorrent topik
- Forza sorozat (Horizon/Motorsport)
- Milyen alaplapot vegyek?
- AMD Navi Radeon™ RX 6xxx sorozat
- E-book olvasók
- Formula-1
- Miért vezet mindenki úgy, mint egy állat?
- Kínai és egyéb olcsó órák topikja
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Xiaomi 14 512GB,Újszerű,Dobozaval,12 hónap garanciával
- Surface Pro 7+ i5-1135G7 16G 256GB 1 év garancia
- BESZÁMÍTÁS! Lenovo Legion 5 16RX9 Gamer notebook - i7 14650HX 32GB DDR5 1TB SSD RTX 4070 8GB
- Legjobb kijelzős!!! HP ZBook Power 15 G8 i7-11850H 32GB 1000GB Nvidia RTX A2000 1 év garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50

