İ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ın açıldığı zaman bir ədədi avtomatik olaraq necə artırmaq olar?

Hər dəfə iş kitabını açarkən bir sıra hüceyrəni avtomatik olaraq 1 tərəfindən artırmaq istəyirsinizsə əlbəttə ki, əl ilə 1 əlavə edə bilərsiniz. Lakin, Excel sənədini açarkən nömrəyə avtomatik olaraq 1 əlavə etmək üçün daha yaxşı bir üsul varmı?

İş kitabının VBA kodu ilə açıldığı zaman bir ədədi avtomatik olaraq artırın


İş kitabının VBA kodu ilə açıldığı zaman bir ədədi avtomatik olaraq artırın


Aşağıdakı sadə VBA kodu, iş kitabının hər dəfə açıldığı zaman avtomatik olaraq nömrənin hüdudu üçün 1 əlavə etməyinizə kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Layihə-VBAProject pane, cüt basın BuWorkbook açmaq üçün Modulessonra, aşağıdakı kodu kopyalayıb moduluna yapışdırıb, ekran görüntüsünə baxın:

VBA kodu: İş kitabının açıldığı zaman bir ədədi avtomatik olaraq artırın:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

Qeyd: Yuxarıda göstərilən kodda, Sheet1 A2 avtomatik olaraq artırmaq istədiyiniz nömrə olan hesabatı və hüceyrəsidir. Xahiş edirik onları ehtiyacınıza dəyişdirin.

3. Sonra Excel faylını olaraq saxlamalısınız Excel Macro Enabled İş Kitabı formatına baxın, ekran görünüşünə baxın:

İndi, bu xüsusi iş kitabını açdığınızda Sheet2 içindəki A1 hücresindeki sayı avtomatik olaraq 1 əlavə olunacaq.

Qeyd: Bu kod yalnız sayı hüceyrəsinə tətbiq olunur.



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.

Be the first to comment.