Sut i gymhwyso botwm i agor llyfr gwaith arall yn Excel?
Mewn taflen waith, gallwn fewnosod hyperddolen i gysylltu llyfr gwaith arall, fel y gall ei agor yn gyflym ac yn hawdd. Ond, a ydych erioed wedi ceisio creu botwm i agor llyfr gwaith arall trwy lyfr gwaith gweithredol?
Defnyddiwch botwm i agor llyfr gwaith arall gyda chod VBA
Defnyddiwch botwm i agor llyfr gwaith arall gyda chod VBA
Yn Excel, gallwn fewnosod botwm siâp, ac yna cysylltu cod ag ef. Gallwch ddatrys y swydd hon gyda'r camau canlynol:
1. Cliciwch Mewnosod > Siapiau > Petryal, gweler y screenshot:
2. Yna llusgwch y llygoden i dynnu botwm siâp, a'i fformatio yn ôl eich angen, gweler y screenshot:
3. Ac yna dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
4. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Agor llyfr gwaith penodol:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Nodyn: Yn y cod uchod, dylech newid llwybr ac enw'r ffeil C: \ Defnyddwyr \ DT168 \ Desktop \ test \ Book2.xlsx i lwybr go iawn y llyfr gwaith rydych chi am gysylltu ag ef.
5. Yna arbedwch a chau y ffenestr god hon, cliciwch ar y dde ar y botwm siâp rydych chi wedi'i greu, dewiswch Neilltuo Macro o'r ddewislen cyd-destun, yn y popped allan Neilltuo Macro blwch deialog, cliciwch yr enw macro Openworkbook_Cliciwch rydych chi wedi mewnosod dim ond nawr, a chlicio OK botwm, gweler y screenshot:
6. Nawr, pan gliciwch y botwm siâp:
(1.) Os nad yw'r llyfr gwaith yn bodoli, cewch y blwch prydlon canlynol:
(2.) Os yw'r llyfr gwaith yn bodoli, bydd yn cael ei agor ar unwaith, ac mae blwch prydlon hefyd yn cael ei popio allan i'ch atgoffa:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!