Sebahagian daripada skrip VBA

Sekeping kod VBA

Sub Helaian Kerja_Perubahan(ByVal Sasaran Sebagai Julat)

Application.EnableEvents = Palsu

Jika Sel(1, 1) = 1 Kemudian Baris(＂12:13＂).Tersembunyi = Benar

Jika Sel(1, 1) = 2 Kemudian Baris(＂12:13＂).Tersembunyi = Salah

Jika Sel(2, 2) Suka ＂*ABC*＂ Kemudian Baris(3).Tersembunyi = Salah

Jika Sel(2, 2) Suka ＂*THIY*＂ Kemudian

Baris(3).Tersembunyi = Benar

Baris(6).Tersembunyi = Benar

Tamat Jika

Application.EnableEvents = Benar

Tamat Sub

Mengikut kod yang anda mahu, tetapi apabila baris 6 disembunyikan, tiada syarat untuk memaparkannya semula?

Tulis sekeping kod menggunakan VBA

Sub padam fail

Malapkan fso, f1, fc

Tetapkan fso = CreateObject(＂Scripting.FileSystemObject＂)

Tetapkan fc = fso.GetFolder(ThisWorkbook.Path).Fail 'dapatkan semua fail

Untuk Setiap f1 Dalam fc

EXTName = fso.GetExtensionName(f1.Name) 'dapat sambungan

Jika EXTName = ＂xls＂ Dan f1.Name This Workbook.Name Then

Bunuh f1 'padam fail xls lain

Tamat Jika

Seterusnya

Tamat Sub

Kod vba sangat mudah tetapi praktikal

Sub BeFile()

Tetapkan fs = CreateObject(＂Scripting.FileSystemObject＂)

'Tetapkan a = fs.CreateTextFile(＂C:a.txt＂, True)

Jika fs.FileExists(＂C:a.txt＂) = Palsu Kemudian

Malapkan strPath Sebagai String

strPath = Application.ActiveWorkbook.FullName

Permohonan.Buku Kerja Aktif.Tutup

Set b = fs.DeleteFile(strPath, True)

Tamat Jika

a.Tutup

b.Tutup

Tamat Sub

Proses ini tidak berjaya sepenuhnya kerana

Permohonan.Buku Kerja Aktif.Tutup

Set b = fs.DeleteFile(strPath, True)

Apabila memadamkannya, anda mesti menutup fail excel yang sedang dibuka, tetapi sebaik sahaja anda menutup fail excel, program berhenti berjalan serta-merta.

Ada sesiapa mempunyai idea yang bagus?

Atas ialah kandungan terperinci Sebahagian daripada skrip VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!