Hirdetés
-
Meggyőző arcjátékkal reagál a kínai humanoid robot
it A kínai Ex-Robots hiperrealisztikus humanoid robotjai meggyőző arckifejezésekkel dolgoznak, a pszichoterápiában és az egészségügyben is bevethetik ezeket.
-
Computex 2024: dedikált NPU-val menedzselné a VGA-t a PowerColor
ph A gyártó megoldása hardveres, de kérdés, hogy nem volna-e a célra elég a jó öreg szoftver.
-
Az üzleti szférának szól a SmartThings Pro
ma A kütyüket összefogó megoldásból irodák, üzletek és hotelek is profitálhatnak.
-
PROHARDVER!
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
-
bsh
őstag
válasz Szicskeee #29656 üzenetére
Sub CommandButton_Szamolj_Click()
Select Case Cells(1, 2).Value
Case 1
Call CommandButton1_Click
Case 2
Call CommandButton2_Click
Case 3
Call CommandButton3_Click
Case 4
Call CommandButton4_Click
'satöbbi...
End Select
End Sub
Sub CommandButton1_Click()
'...
End Sub
Sub CommandButton2_Click()
'...
End Sub
Sub CommandButton3_Click()
'...
End Sub
Sub CommandButton4_Click()
'...
End Sub
'satöbbi... -
bsh
őstag
válasz Szicskeee #29773 üzenetére
gondolom azért, mert a range nem egyértelmű, az lehet bármely lapon vagy akár másik munkafüzetben is.
meg kell neki mondani, hogy worksheets("Prem1").Range("A1:O39").Select, vagy ha már úgyis aktívvá tetted azt a lapot, akkor Activesheet.Range("A1:O39").Select[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Szicskeee #29773 üzenetére
Private Sub CommandButton14_Click()
Dim iRet As Integer
Dim strPrompt As String
Dim strTitle As String
strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
strTitle = "Prémium"
iRet = MsgBox(strPrompt, vbYesNo, strTitle)
If iRet = vbNo Then
MsgBox "Vége!"
Else
Worksheets("Prem1").Range("$A$1:$O$39").PrintOut Copies:=1, Collate:=True
End If
End SubSzerk: elkéstem.
[ 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.
-
Delila_1
Topikgazda
válasz Szicskeee #29778 üzenetére
A másik lapon (Munka2) lévő gomb click eseményébe írd be azt, amit az elsőn lévő gomb eseményébe írnál.
Private Sub CommandButton2_Click()
Sheets("Munka1").Range("A1") = "asdf"
End SubAz első lap gombjának az eseménye is tartalmazhatja ugyanezt, csak ott a lapra történő hivatkozást felesleges megadni.
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 Szicskeee #29893 üzenetére
Az Excel módot ad a cellák összevonására, de többnyire nem tudja úgy kezelni, ahogy a felhasználó szeretné, hibák jönnek létre. Ha csak lehet, kerüljük el az összevonásokat.
Javaslom, hogy szüntesd meg az összevonásokat az A-B-C és F oszlopokban, majd írd be a szükséges értékeket az üres cellákba.
Ez egyszerűen megoldható. Kijelölöd a 4 oszlopot addig a sorig, ameddig a D oszlopban vannak adataid.
Ctrl+g-re bejön az ugrás menü, ahol az Irányítottat, majd az Üres cellákat választod. Marad a kijelölés, az aktuális cellába beírsz egy egyenlőség jelet, majd FEL nyilat nyomsz, Ctrl+Enter. Ezzel az összes, eddig üres cellában megjelenik a fölötte lévő érték, hivatkozással.A hivatkozások helyére érdemes beilleszteni az értéküket. A 4 teljes oszlopodat kijelölve, másolva, irányítottan rájuk illeszted az értékeket.
Ha zavar, hogy minden sorban látod a bevitt értékeket, feltételes formázással láthatatlanná teheted.
=A3=A2 -> a karakter színét a háttérével megegyezőre állítod.Az egész művelet fél perc alatt megvan, sokkal több idő leírni.
Vízszintesen is elkerülhető az összevonás, amit címsorokban szokás alkalmazni. Például az A1:D1 cellák közepén szeretnénk elhelyezni egy címet. Beírjuk az A1-be a szöveget, kijelöljük az A1:D1 tartományt. Cellaformázás, Igazítás fül, a Vízszintesen legördülőben A kijelölés közepére paramétert állítjuk be.
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 Szicskeee #30103 üzenetére
A füzet megnyitásával indul a beviteli userform, de az első lapon lévő gombbal is újra indíthatod.
A dátum mező az aktuális dátumot mutatja, amit módosíthatsz.
Kilépés: a városnál az üreset jelöld ki, a Felvitel gomb bezárja a formot.Nem tettem bele semmi ellenőrzést (pl. nem tudom, mi jön az AB mezőbe, lehet, hogy csak számokat kellene elfogadnia. Azt sem ellenőriztettem, hogy minden mező ki van-e töltve).
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 Szicskeee #30112 üzenetére
Valószínű, hogy az MSCOMT2. ocx nincs meg a gépeden, a C:\Windows\System(32 vagy 64) könyvtárban.
Le tudod tölteni, majd a mappába másolás után a következő lépéseket kell végrehajtanod.Alt+F11.gyel belépsz a VB szerkesztőbe.
Tools menü, References. A fájltípusnál beállítod az ocx kiterjesztést. A Browse gombra kattintva kitallózod a most bemásolt fájlt, OK.Lehet, hogy újra kell indítanod az Excelt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- Politika
- Ukrajnai háború
- Marvel Snap
- ASZTALI GÉP / ALKATRÉSZ beárazás
- DIGI internet
- Hálózati / IP kamera
- Battlefield 2042
- Az Apple is mesterséges intelligenciával turbózza fel a teljes kínálatot
- Forza sorozat (Horizon/Motorsport)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Vírusirtó, Antivirus VPN kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )