İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

İş kitabını bağlamadan əvvəl müəyyən bir hüceyrə məcburi olaraq necə girə bilər?

Məsələn, real adı qeydiyyata ehtiyacı olan bir sorğunun aparılması üçün iş kitabını digər istifadəçilərə bölüşdükdə, istintaq altındakı hər bir istifadəçi B1-da adlarını yazmalıdırlar. Bəzi zamanlarda bəzi istifadəçilər istifadədən sonra iş kitabını adlarını daxil etmədən bağlaya bilərlər. Bu yazıda mən iş kitabını bağlamadan əvvəl xüsusi bir hüceyrə üçün zəruri olan bir VBA təqdim edirəm.

VBA ilə bir hüceyrə məcburi girin


yaxşı İş yerini qoruyun

Excel üçün Kutools İş yerini qoruyun funksiyası tez birdən çox təbəqəni və ya bütün iş kitabını tez bir zamanda qoruya bilər.
doc bir çox iş səhifəsini qorumaq

arrow mavi sağ bubble VBA ilə bir hüceyrə məcburi girin


Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

1. Zorunlu hüceyrəni ehtiva edən iş kitabını aktivləşdirin və basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Layihə pane, cüt basın BuWorkbookseçin və seçin İş kitabıƏvvəlcədən sağ bölmə siyahısından, sonra kodun skriptə qoyun. Ekran görüntüsünə baxın:

VBA: Bir hüceyrə məcburi olun

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

doc mandantory 1 daxil edin

3. Sonra bu kodu saxlayın və bu popping pəncərəsini bağlayın. İndi iş kitabını bağladığınızda B1 hücresi boşsa, aşağıda diyalog B1-da bir şey daxil etməyi xatırlatmaq üçün açılır. Ekran görüntüsünə baxın:
doc mandantory 2 daxil edin

Uc: B1 hücresini istədiyiniz digər hüceyrələrə dəyişə bilərsiniz.

doc download 1



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shea · 1 years ago
    Is there any way that I can Required cell f4 and F5 have data before closing or saving?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Just change B1 to F4 and F5 in the textbox to remind users.
  • To post as a guest, your comment is unpublished.
    zwaenepoel · 1 years ago
    Hello, thank you for this formula, it works!

    However, now I have created a template in which several cells are mandatory to fill out. But after creating the template and entering the macro, I cannot close it, because I have to fill out the cells :) So, I cannot send out a template...(where the mandatory cells must still be empty)


    Can you help me?

    Thanks!
  • To post as a guest, your comment is unpublished.
    Shabaaz · 1 years ago
    Did you ever fined an answer to this?
  • To post as a guest, your comment is unpublished.
    ashley · 2 years ago
    how do i make column D16-D300 mandatory if column B16-300 has values? I used the code below for row 16 and tried variations but it is not working. any help is greatly appreciated!


    'us business as a mandatory field- need to fix if none are there and window pops up

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Step 1: Check to see if Cell A1 is blank
    If Sheets("Sensitive Leave Tracker").Range("B16").Value "" And Sheets("Sensitive Leave Tracker").Range("D16").Value = "" Then

    'Step 2: Blank: cancel the Close and tell the user
    Cancel = True
    MsgBox "Cant close field required"
    'Step 3: Not Blank; Save and Close
    Else
    ActiveWorkbook.Close SaveChanges:=True

    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hello, sorry to reply so late. Here is the macro code you may be need. If it works, please let me know. Thanks!

      If Application.WorksheetFunction.CountA(Range("B16:B300")) > 0 Then

      If Application.WorksheetFunction.CountA(Range("D16:D300")) <> Range("D16:D300").Count Then

      MsgBox "Cell D16:D300 requires user input", vbInformation, "Kutools for Excel"

      Cancel = True

      End If

      End If