İ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

Digər hesabatı hüceyrələrinə istinad edərkən hüceyrə formatını necə saxlamaq olar?

Ümumiyyətlə, hüceyrə yalnız başqa hüceyrəyə istinad edərkən hüceyrə dəyərini saxlayır, amma bu yazıda mən başqa bir hüceyrəyə istinad edərkən hüceyrə dəyərlərini saxlamaq və formatlaşdırmaq üçün bir VBA kodunu təqdim edirəm və hüceyrə dəyərləri və dəyişiklikləri aşağıdakı kimi dəyişir ekran görüntüsü göstərilir.
1-ə istinad edərkən doc formatlaşdırmağa davam edin

VBA ilə başqa bir hüceyrəyə istinad edərkən hüceyrə formatında saxlayın


VBA ilə başqa bir hüceyrəyə istinad edərkən hüceyrə formatında saxlayın


Bu işi idarə etmək üçün yalnız kodu aşağıda göstərməlisiniz.

1. İstifadə etdiyiniz iş kitabını aktivləşdirin, basın Alt + F11 açmaq üçün düyməni basın Proqram üçün Microsoft Visual Basic penceresindeki ve referans hücresini yerleştireceğiniz hesabat adına çift basın Layihə-VBAProject boş skript göstərmək üçün bölməni. Bu vəziyyətdə mən hüceyrəyə müraciət etmək istəyirəm A1 ci Sheet1. Ekran görüntüsünə baxın:
2-ə istinad edərkən doc formatlaşdırmağa davam edin

2. Aşağıdakı kodu skriptə daxil edin və VBA kodunda, lazım olduğunuzda hüceyrə referanslarını daxil edin.

VBA: Başqa bir hüceyrəyə istinad edərkən formatlama və dəyərləri saxlayın

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

Qeyd: A1 istinad xanı, B1 in Sheet 2 istinad xanasına keçidləmək və SheX1-də A1 ilə dəyərlər və formatlaşdırmaq istədiyiniz hüceyrədir.

Sheet1-də A1 hücresində dəyərləri və ya formatları dəyişdirəndə, Sheet1-də B2-in hüceyrəsi iki dəfə istinad hüceyrəsinə vurularkən dəyişdiriləcəkdir.


Rənglə hesablayın

Bəzi hallarda, birdən çox rəngli bir sıra calues ​​ola bilər və istədiyiniz nədir eyni rəng əsasında hesablamaq / ümumi dəyərlər, necə tez hesablamaq olar?
ilə Excel üçün Kutools's Rənglə hesablayınrənglə bir çox hesablamanı tez bir zamanda edə bilərsiniz və ayrıca hesablanmış nəticə hesabatını yarada bilər.
Rənglə doc sayı


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.
    Dustin · 3 months ago
    Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
  • To post as a guest, your comment is unpublished.
    Dustin · 3 months ago
    Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
  • To post as a guest, your comment is unpublished.
    Justin · 4 months ago
    Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
  • To post as a guest, your comment is unpublished.
    Amy Napier · 6 months ago
    hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
    • To post as a guest, your comment is unpublished.
      Sunny · 6 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.