Excel'de hücre içeriğini değiştir

Microsoft Excel'de iki hücrenin içeriğini değiştirmek için kolay bir yol var mı?

Kolayca, geçici hücrelere kopyalamaya veya VBA komut dosyaları veya benzeri bir şeyler yazmaya gerek kalmadan bir klavye kısayolu veya menü öğesi demek istiyorum. Başka bir deyişle, sadece iki hücreyi seçmenin ve bazı menü öğelerini tıklatmanın ya da içeriklerini değiştirecek bazı tuş kombinasyonlarına basmanın bir yolunu arıyorum. Elbette, bunu yapmanın bir yolu olmalı?

Gönderen: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

Bazen, iki bitişik hücrelerin değiştirilmesi gerekir. Kolayca elle yapabiliriz. Aşağıdaki ekran görüntüsüne bakın, A4 ve B4 hücrelerini değiştirmek istiyorum, lütfen aşağıdakileri yapın:

1. Değiştirmek istediğiniz hücreyi seçin. Bu örnekte, A4 hücresini seçin.

2. Shift tuşuna basın ve imleci sağ kenarlığa getirin.

3. Sonra imleci B4 hücresinin sağ kenarına sürükleyin.

4. “工” görüntülendiğinde, fareyi bırakın.

5. Ve iki hücre içeriği değiştirildi.

Bu yöntemle iki bitişik satır veya sütunu da değiştirebiliriz.

Bitişik aynı boyutlu dikdörtgen aralıkları için özel durum için, bu cevapta açıklanan yöntemi benzer bir soruya kullanabilirsiniz .

1. Sağ veya alt menzili seçin
2. Ctrl+ Tuşlarına basınX
3. Bitişik aralığı seçin (yani doğrudan yukarı veya sola doğru)
4. Ctrl+ ' Ya basın +(bu +genellikle =tuşun üstündedir, bu da Ctrl+ Shift+' ya dönüşür =)

Tüm bitişik satırları veya sütunları değiştirmek için aynı işlemi kullanabileceğinizi unutmayın.

Kolayca, geçici hücrelere kopyalamaya veya VBA komut dosyaları ya da benzeri bir şeyler yazmaya gerek kalmadan bir klavye kısayolu ya da menü öğesi demek istiyorum. Sadece iki hücreyi seçmenin ve bazı menü öğelerini tıklatmanın ya da içeriklerini değiştirecek bazı tuş kombinasyonlarına basmanın bir yolunu arıyorum.

Bu kısıtlamayı neden uyguladın? Bir makro oluşturmak bu önemsiz hale getirir. Bildiğim kadarıyla, başka bir şekilde yapılamaz. Makroyu bir düğmeye veya kısayol tuşuna atayabilirsiniz.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

Hayır. Excel'de iki hücrenin içeriğini, kendi makrolarınızı yazmadan değiştirmenin bir yolu yoktur.

EDIT: Şimdi, Excel'in daha yeni sürümlerinde hücre içeriklerini değiştirmenin kolay bir yolu olabilir gibi gözüküyor, bu nedenle bu cevap muhtemelen artık güncel değil.

Takas edilecek hücrelerin ilk seti seçip vurmak ctrl+ x:

Değiştirmek istediklerinize BESIDE hücreleri seçin ve ctrl+ tuşuna basın +.

Panoya en çok 25 öğe yapıştırabilirsiniz, böylece ctr + tab veya cmd + tab mac komutlarını kullanarak kolayca değiştirilebilirler

• Değiştirmek istediğiniz alt hücreyi seçin
• Ctrl+ XTuşlarına basın ve değiştirmek istediğiniz hücreye gidin.
• Ctrl+ Shift+ Tuşlarına basın=

Değişim gerçekleştirilecek

Bu yazıyı okudum, ancak tam aralıkları değiştirmek için bir makroya ihtiyacım vardı. Ayrıca renkleri değiştirmem gerekiyordu. Başlangıçta gönderilen makroyu biraz modlanmış, bu birisi için faydalı olabilir.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub