-
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
-
enzo_ferrari
tag
leírom a fontosabbakat:
a ''panelstart'' csak annyi, hogy feljön egy ablak amiben a megjeleníteni kívánt adatok vannak. Ezzel nincs gond.
A ''gomb'' makró azt csinálja, hogy amikor megnyitom a file-t ako a fenti menübe (ahol vannak a mentés, stb ikonok) berak az elejére egy szmájli ikont, amihez szeretném a ''Panelstart'' makrót rendelni. Amikor kilépek a file.-ból ako a gombot leszedi a menüsorból...
Most csak úgy műxik, hogy feljön a szmájli, de amikor rákattintok akkor feljön a Hozzárendelés a gombhoz ablak és ott már ki tudom jelölni, hogy rendelje hozzá a ''Panelstart''ot. Na ezt a lépést akarom elkerülni, megoldani makróval. -
enzo_ferrari
tag
a következő a problémám, de ez idáig oké:
Sub Panelstart()
I = 2
DialogSheets(''Panel1'').EditBoxes(''Beviteli mező 27'').Text = Format(Worksheets(''Munka1'').Cells(I, 1), ''#,##0'')
DialogSheets(''Panel1'').EditBoxes(''Beviteli mező 28'').Text = Format(Worksheets(''Munka1'').Cells(I, 2), ''#,##0'')
DialogSheets(''Panel1'').EditBoxes(''Beviteli mező 29'').Text = Format(Worksheets(''Munka1'').Cells(I, 3), ''#,##0'')
DialogSheets(''Panel1'').EditBoxes(''Beviteli mező 30'').Text = Format(Worksheets(''Munka1'').Cells(I, 4), ''#,##0'')
DialogSheets(''Panel1'').Show
End Sub
Sub gomb()
Application.CommandBars(''Standard'').Controls.Add Type:=msoControlButton, ID _
:=2950, Before:=1
End Sub
Sub Auto_Open()
Application.Run ''gomb''
End Sub
Sub gomb_le()
Application.CommandBars(''Standard'').Controls(1).Delete
End Sub
Sub Auto_Close()
Application.Run ''gomb_le''
End Sub
a kérdés:
hogy tudom megcsinálni, hogy a menübe berakott gomb (szmájli gomb) akkor is eltűnjön, ha új munkafüzetet nyitok és nem csak a munkafüzet bezárásakor?
a másik, hogy hogy a rákba tudom a szmájli gombhoz hozzárendelni egyből a ''Panelstart'' makrót? (odáig oké, hogy berakja, de nem rendeli hozzá egyből a makrót és annak nem ismerem a parancsát)
köszi
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Tiltott lett Lufthansa-csoport repülőin power bankot használni
- exHWSW - Értünk mindenhez IS
- Futás, futópályák
- OLED TV topic
- Xbox tulajok OFF topicja
- Synology NAS
- Motoros topic
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Iparági legendával erősít az Intel
- További aktív témák...
- HP EliteOne 800 G5 All-in-One i5-8500 32GB 1000GB 23.8" Érintőkijelző!! 1 év garancia
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RX 7600 8GB Rampage SHIVA ADATA 600W
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- Xiaomi 11 Lite 5G NE 256GB, Kártyafüggetlen, 1 Év Garanciával
- HP EliteOne 800 G6 All-in-One i5-10500 32GB 1000GB 24" Érintőkijelző!! 1 év garancia
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest
sajnos ennyire nem vagyok otthon...én vagyok a szájbarágós típus.. 
Fferi50
