Setiap kali jadual Excel dibuka, bilangan penggunaan dikurangkan sebanyak satu Set 1000 kali untuk membuka 1000 kali.

1 Tetapkan bilangan kali jadual Excel digunakan, buka sekali dan kemudian sekali Sebagai contoh, tetapkan 1000 kali untuk membuka 1000 kali

Dalam Excel, untuk menetapkan bilangan kali penggunaan, anda boleh menulis. kod menggunakan VBA. Di bawah ialah contoh kod VBA untuk mengurangkan bilangan penggunaan sebanyak satu setiap kali helaian Excel dibuka, menetapkannya kepada 1000 kali. Ini boleh mengawal kekerapan penggunaan jadual Excel untuk memastikan ia tidak melebihi bilangan kali yang ditetapkan.

Private Sub Workbook_Open()
    ' 获取当前使用次数
    Dim usageCount As Integer
    usageCount = Sheets("Settings").Range("A1").Value

    ' 判断是否还有剩余使用次数
    If usageCount > 0 Then
        ' 减少使用次数
        Sheets("Settings").Range("A1").Value = usageCount - 1
        MsgBox "剩余使用次数：" & (usageCount - 1)
    Else
        ' 提示使用次数已用尽
        MsgBox "使用次数已用尽，无法再打开。"
        ' 关闭Excel表
        ThisWorkbook.Close
    End If
End Sub

Dalam contoh ini, anggap bilangan penggunaan disimpan dalam sel A1 lembaran kerja bernama "Tetapan". Setiap kali helaian Excel dibuka, kod akan menyemak bilangan penggunaan yang tinggal Jika ada baki, bilangan penggunaan akan dikurangkan sebanyak satu dan gesaan akan muncul. Jika bilangan penggunaan telah habis, gesaan akan muncul dan helaian Excel akan ditutup.

2 Gunakan VBA dalam Excel untuk menulis kod yang mengehadkan bilangan kali anda boleh menggunakan Excel

Untuk menggunakan VBA dalam Excel untuk menulis kod yang mengehadkan bilangan kali anda boleh menggunakannya, anda boleh menggunakan kod yang serupa dengan contoh di atas. Berikut ialah contoh yang lebih umum yang boleh digunakan dengan mana-mana lembaran kerja dan sel yang ditentukan:

Private Sub Workbook_Open()
    ' 指定使用次数存储的工作表和单元格
    Dim ws As Worksheet
    Dim countCell As Range
    Set ws = Worksheets("Settings")
    Set countCell = ws.Range("A1")

    ' 获取当前使用次数
    Dim usageCount As Integer
    usageCount = countCell.Value

    ' 判断是否还有剩余使用次数
    If usageCount > 0 Then
        ' 减少使用次数
        countCell.Value = usageCount - 1
        MsgBox "剩余使用次数：" & (usageCount - 1)
    Else
        ' 提示使用次数已用尽
        MsgBox "使用次数已用尽，无法再打开。"
        ' 关闭Excel表
        ThisWorkbook.Close
    End If
End Sub

Dalam contoh ini, anda boleh menentukan lembaran kerja dan sel tempat kiraan penggunaan disimpan dengan mengubah suai Worksheets("Settings").Range("A1").

Ringkasan

1. (1) Untuk menetapkan bilangan penggunaan dalam Excel, anda boleh melakukannya dengan menulis kod menggunakan VBA. Dalam kod sampel, bilangan penggunaan dikurangkan setiap kali jadual Excel dibuka Apabila bilangan penggunaan mencapai sifar, ia tidak boleh dibuka lagi.
2. (2) Gunakan kod VBA untuk menentukan secara fleksibel lembaran kerja dan sel yang menyimpan bilangan kegunaan, dan merealisasikan fungsi universal mengehadkan bilangan penggunaan.

Atas ialah kandungan terperinci Setiap kali jadual Excel dibuka, bilangan penggunaan dikurangkan sebanyak satu Set 1000 kali untuk membuka 1000 kali.. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!