Aku hanya perlu untuk mengaktifkan suatu lembar kerja. Saya memiliki sebuah variabel string yang membuat nama lembar kerja.
Akan Makro berikut membantu anda?
Sub activateSheet(sheetname As String)
'activates sheet of specific name
Worksheets(sheetname).Activate
End Sub
Pada dasarnya anda ingin membuat penggunaan .Mengaktifkan fungsi. Atau anda dapat menggunakan .Pilih fungsi seperti:
Sub activateSheet(sheetname As String)
'selects sheet of specific name
Sheets(sheetname).Select
End Sub
Saya akan merekomendasikan anda untuk menggunakan lembar kerja's indeks alih-alih menggunakan lembar kerja's nama, dengan cara ini anda juga dapat loop melalui lembar "secara dinamis"
for i=1 to thisworkbook.sheets.count
sheets(i).activate
'You can add more code
with activesheet
'Code...
end with
next i
Hal ini juga akan meningkatkan kinerja.
Cara alternatif untuk (bukan dinamis) link teks untuk mengaktifkan lembar kerja tanpa macro adalah untuk membuat string yang dipilih aktual link. Anda dapat melakukan ini dengan memilih sel yang berisi teks dan tekan CTRL+K kemudian pilih opsi/tab 'Tempat dalam dokumen ini' dan pilih tab yang ingin anda aktifkan. Jika anda akan klik teks (yang sekarang link) dikonfigurasi lembar akan menjadi aktif/dipilih.