İ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ə bir və ya tək bir hüceyrədə cəmi çalışıram

Bu yazıda, Excel-də bir və ya tək bir hüceyrədə cəmi çalışan bir üsul göstəriləcək. Məsələn, A1 hüceyrəsi hazırda 10 kimi başqa bir nömrə girərkən bir sıra 5 tutur, A1 nəticəsi dəyəri 15 (10 + 5) olacaq. Bunu asanlıqla əldə etmək üçün aşağıdakıları edə bilərsiniz.

VBA kodu ilə bir və ya bir vahidə cəmi çalışırıq


VBA kodu ilə bir və ya bir vahidə cəmi çalışırıq


Aşağıdakı VBA kodları bir hüceyrədə cəmi işləməyə kömək edə bilər. Xahiş edirik addım-addım kimi edin.

1. İş yerini açın, cəmi onu davam etdirəcəyiniz hüceyrə var. Sekanın sekmesini sağa vurun və seçin Kodları baxın kontekst menyusundan.

2. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərə, VBA kodunun altına kopyalayın və Kod penceresine yapışdırın. Ekran görüntüsünə baxın:

VBA kodu: Bir və ya tək bir hüceyrədə cəmi çalışırıq

Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False

If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
        If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
       Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
    End If
End If

EndF:
  Application.EnableEvents = True
mRangeNumericValue = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
       mRangeNumericValue = Target.Range("A1").Value
   End If
End If
err0:
End Sub

QeydKod: A1, cəmi daxilində çalışacaqsınız. Xahiş edirik ehtiyac duyduğunuz bir hüceyrəni seçin.

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

Nömrələri A1 hücresinə yazarkən, bundan sonra göstərilən ekran görüntüsünün aşağıda göstərildiyi kimi, cəmi işləməyəcəkdir.



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.