-
IT café
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
Topikgazda
válasz
Metathrone1 #15491 üzenetére
Át kell adnod a valami nevű változót a második makrónak. A vicc a dologban, hogy ha Workbook_Opennel indítod az első makrót, akkor az A1 cella lesz aktív hivatalból.
Private Sub Workbook_Open()
valami = InputBox("Írd be a neved", "Név")
Insert_date valami
End SubSub Insert_date(valami)
ActiveCell = valami
ActiveCell.Offset(, 1) = Date
End SubProgramozó: 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
Metathrone1 #15493 üzenetére
Az inputboxba beírt nevet tedd be egy távoli cellába, pl. a GX60000-be.
A másik makró
Sub Insert_date()
ActiveCell = Date
ActiveCell.Offset(, 1) = range("GX60000")
End SubEhhez a makróhoz rendelhetsz bill. kombinációt.
Az elsőből nem kell meghívnod a másodikat.Private Sub Workbook_Open()
Range("GX60000") = InputBox("Írd be a neved", "Név")
End Sub[ 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
Metathrone1 #15499 üzenetére
Például így:
Private Sub Workbook_Open()
Range("GX60000") = InputBox("Írd be a neved", "Név")
End SubProgramozó: 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
Metathrone1 #15501 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Metathrone1
csendes tag
válasz
Metathrone1 #15503 üzenetére
megoldottam
Új hozzászólás Aktív témák
- Eladó Steam kulcsok kedvező áron!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- 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
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Super Stardust és Power Rangers
- COLLECTOR! - World of Warcraft + 5 kiégészítője (Burning Crusade, Cataclysm, Mists of Pandaria...)
- Microsoft termékek akciós áron Azonnali szállítással Windows 11,10,8,8.1,Office 21,19,16 pro plus
- Steam játékok/kiegészítők ingyen
- Verstár '98 - A magyar líra klasszikusai félszáz költő összes verse