İ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 hüceyrədə dəyişən dəyərləri necə yazmaq olar?

Excel-də tez-tez dəyişən bir hüceyrə üçün hər dəyişən dəyəri necə yazmaq olar? Məsələn, C2 hücresindeki orijinal dəyər 100 sayını dəyişərkən 100, 200 nömrəsinə dəyişərkən 100 əsl dəyəri qeyd etmək üçün avtomatik D2 hücresində göstərilir. 200-ı 300-ə dəyişmək üçün davam edin, 200 sayı D3-a daxil olacaq, 300-ə 400-ə dəyişmək 300-ni D4-ə və s. Göstərəcəkdir. Bu yazıda yer alan metod onu əldə etməyə kömək edə bilər.

VBA kodu ilə bir hüceyrədə dəyişən dəyərləri yazın


VBA kodu ilə bir hüceyrədə dəyişən dəyərləri yazın


Aşağıdakı VBA kodu Excel-də bir hüceyrədə dəyişən hər bir dəyəri qeyd etməyə kömək edə bilər. Xahiş edirik bunu edin.

1. İş səhifəsində dəyişən dəyərləri qeyd etmək istədiyiniz hüceyrə var, hesabatı sekmesini sağa vurun və sonra basın Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

2. Sonra da Proqramlar üçün Microsoft Visual Basic Pəncərənin açılışı, VBA kodu aşağıda Kod pencerəsinə daxil edin.

VBA kodu: bir hüceyrədə dəyər dəyişən qeyd

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

Qeydlər:

1. Kodda, C2 bütün dəyişən dəyərlərini qeyd etmək istədiyiniz hüceyrədir. D2 C2-ın ilk dəyişən dəyərini dolduracaq hüceyrədir.

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

İndi, C2 hücresindəki dəyərləri dəyişdirdiyiniz hər dəfə, əvvəlki dəyişən dəyərlər D2 və D2-dakı hüdudlarda qeyd ediləcək.



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.
    Marky Mark · 20 hours ago
    Try This

    Dim xVal As String
    Dim iVal As Integer
    Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    iVal = Application.WorksheetFunction.Count(Range("F:F"), 1)
    xCount = iVal
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
    Range("E3").Offset(xCount, 0).Value = Range("C2").Value
    Range("F3").Offset(xCount, 0).Value = Now
    xCount = xCount + 1
    Else
    If xVal <> Range("C2").Value Then
    Range("E3").Offset(xCount, 0).Value = Range("C2").Value
    Range("F3").Offset(xCount, 0).Value = Now
    xCount = xCount + 1
    End If
    End If
    Application.EnableEvents = True
    End Sub
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
    End Sub
  • To post as a guest, your comment is unpublished.
    Jackie · 6 days ago
    Hi! Thanks for the code, but I have a question

    Is there a way to modify the code, such that it records the value if the cell daily, or on certain days, which I specify in a separate column?


    Thanks!
  • To post as a guest, your comment is unpublished.
    Anthony · 1 months ago
    Hello, Would it be possible to apply this for more than one cell ?
  • To post as a guest, your comment is unpublished.
    John · 2 months ago
    How do I save the number as soon as it is generated not after a new number is generated? The problem I am having is the number is not recorded right away but after a second number is created; this means neither the cell that I am recording or the cell that is the target have the number...how can I record as soon as the number is generated? Thanks for your help!
  • To post as a guest, your comment is unpublished.
    Yusuf · 4 months ago
    Peki bu kaydı yatay olarak nasıl kaydedeceğiz. Satırlara değil Sütunlara kaydetmesini istiyorum. Teşekkürler