İ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

Excel-də xüsusi bir hüceyrəni tıkladığınızda bir təqvim necə açılır?

Bir iş yerində sütun aralığını ehtimal etsəniz, daxil olunan tarixləri tez-tez daxil edin və dəyişdirin, ancaq tarixə əl ilə daxil olmaq və ya dəyişdirmək çox cansıxıcıdır. Əl ilə sütun aralığına yazmadan tarixləri tez bir zamanda necə daxil etmək olar? Bu yazı, müəyyən bir aralıkta hüceyrələrə tıklandığında bir təqvim yaratmağı, daha sonra takvimdeki tarixi seçdikten sonra avtomatik olaraq seçilmiş hüceyrəyə daxil etməkdən bəhs edir.

VBA kodu ilə xüsusi bir hüceyrəni tıkladığınızda bir təqvim açın

Təqvim ilə UserForm yaradın

Təqibə hücumu tıkladığınızda aktivləşdirin


Tarix seçicisi (asanlıqla təqvimdən müəyyən tarix formatına malik olan tarixi seçin və seçilmiş hüceyrəyə daxil edin):

Basın Kutools > Taxmaq > Tarixi daxil edinƏlavə etmə tarixi informasiya qutusuna bir tarix formatını daxil edin, bu tarixi seçilmiş bir hüceyrəyə düzgün olaraq daxil etmək üçün müəyyən bir tarixə iki dəfə basın. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi pulsuz sınaq yükləyin!


VBA kodu ilə xüsusi bir hüceyrəni tıkladığınızda bir təqvim açın


Xahiş edirik bu problemi asta addım kimi həll edin.

Qeyd: Bu metod yalnız Microsoft Excel 32-bit üzərində işləyə bilər.

Təqvim ilə UserForm yaradın

Bir hüceyrəni tıklayaraq açacağınız təqvimdən ibarət olan bir UserForm yaradın.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > İstifadəçi Formatı.

3. Sonra a İstifadəçi Formatı və bir Toolbox windows açılır, in Toolbox, hər hansı bir nəzarət və sağ klikləyin, sonra seçin Əlavə nəzarət sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

4. İçində Əlavə nəzarət informasiya qutusunu yoxlamaq üçün aşağı diyirləyin Microsoft MonthView Control seçimi Mövcud nəzarət qutusuna basın və sonra basın OK düyməsini basın.

5. Sonra görəcəksən Aylıq görünüş düyməsinə əlavə olunur Toolbox pəncərə. Xahiş edirik, bu MonthView düyməsini basın və İstifadəçi Formunda bir Təqvim yaratmaq üçün UserForm1 pencerəsini basın.

QeydUserForm'un sərhədini sürükleyerek daxil edilmiş təqvimə uyğun olaraq UserForm penceresinin ölçüsünü dəyişə bilərsiniz.

6. Daxil edilmiş təqvimi UserForm1-da və Kodu Pəncərə, aşağıdakı VBA script ilə orijinal kodu əvəz edin.

VBA kodu: təqvimlə istifadəçi formasını yaradın

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Qeyd: Bu kod təqvimdən tarixi seçdikdən sonra seçilmiş hüceyrəyə tarixi daxil etməyə kömək edə bilər.

Təqibə hücumu tıkladığınızda aktivləşdirin

İndi tıklayarkən takvimi açmaq üçün müəyyən hüceyrələri müəyyənləşdirməlisiniz. Xahiş edirik bunu edin.

7. Solda təqvim açmaq üçün tıklayacağınız hüceyrələri olan hesabat adını cüt vurun Layihə bölməni daxil edin və sonra aşağıdakı kodu daxil edin və kodunu daxil edin. Ekran görüntüsünə baxın:

VBA kodu: Təqvimə açılacaq hüceyrəni basın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Qeyd: kodda, A2: A10, təqvim açılmaq üçün tıklayacağınız hüceyrələrdir. Xahiş olunur, ehtiyac duyduğunuz hüceyrə üçündür.

8. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

Hal-hazırda, cari iş yerindəki göstərilən aralığın içərisində hər hansı bir hüceyrəni tıkladığınızda bir təqvim göstərilən ekran görüntüsünün altından açılır. Təqvimdən tarixi seçdikdən sonra tarix seçilmiş hüceyrəyə avtomatik olaraq daxil edilir.


Əlaqəli məqalələr:



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.
    jeet · 1 months ago
    Hi, Is it possible to put the date picker pop-up for multiple column, as in my sheet I have "start date", "end date" and "agreement date". if yes then how?
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi jeet,
      Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
  • To post as a guest, your comment is unpublished.
    Giuseppe · 3 months ago
    Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
  • To post as a guest, your comment is unpublished.
    Sam · 3 months ago
    if i try to select a row, the pop up will activate and the date appears in each cell in that row


    how can i avoid this
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Sam,
      The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
  • To post as a guest, your comment is unpublished.
    cevat · 3 months ago
    tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
  • To post as a guest, your comment is unpublished.
    MG · 1 years ago
    Hello everyone,

    Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


    Thank you in advance.
    • To post as a guest, your comment is unpublished.
      Chris · 3 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.