Dëshironi t'i jepni vetes ose përdoruesve tuaj një mënyrë të shpejtë për të kërkuar dhe hapur një skedar në Excel? Kjo makro përdor një teknikë të thjeshtë që hap një kuti dialogu miqësore, duke ju lejuar të kërkoni dhe të hapni skedarin Excel që zgjidhni.
Si funksionon makroja
Kjo makro hap kutinë e dialogut që shihni këtu, duke i lejuar përdoruesit të shfletojë dhe të hapë një skedar Excel.
Kutia e dialogut Open aktivizohet nga makro.
Ja se si funksionon kjo makro:
Nën makro1()
'Hapi 1: Përcaktoni një variabël String
Dim FName si variant
'Hapi 2: Metoda GetOpenFilename aktivizon kutinë e dialogut
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Zgjidhni një Libër Pune për Hapje", _
MultiSelect:=E rreme)
'Hapi 3: Nëse është zgjedhur një skedar, hapeni atë!
Nëse FName <> False Atëherë
Librat e punës.Hap emrin e skedarit:=FName
Fundi Nëse
Fundi Nën
Në hapin 1, makro deklaron një variabël Variant që mban emrin e skedarit që zgjedh përdoruesi. FName është emri i ndryshores suaj.
Në Hapin 2, ju përdorni metodën GetOpenFilename për të thirrur një kuti dialogu që ju lejon të shfletoni dhe zgjidhni skedarin që ju nevojitet.
Metoda GetOpenFilename mbështet disa parametra të personalizueshëm. Parametri FileFilter ju lejon të specifikoni llojin e skedarit që po kërkoni. Parametri Titulli ju lejon të ndryshoni titullin që shfaqet në krye të kutisë së dialogut. Parametri MultiSelect ju lejon të kufizoni përzgjedhjen në një skedar.
Nëse përdoruesi zgjedh një skedar nga kutia e dialogut, ndryshorja FName plotësohet me emrin e skedarit të zgjedhur. Në hapin 3, kontrolloni për një variabël bosh FName. Nëse ndryshorja nuk është bosh, përdorni metodën Open të objektit Workbooks për të hapur skedarin.
Si të përdorni makro
Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11 në tastierën tuaj.
Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.
Zgjidhni Fut → Modul.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.
(Opsionale) Cakto makro në një buton.