Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?

Bu makale, Excel'de belirli bir aralıktaki bir hücre değiştirildiğinde Outlook aracılığıyla bir e-posta göndermekten bahsediyor.

Belirli bir aralıktaki hücre VBA kodu ile değiştirilirse e-posta gönderin

Belirli bir aralıktaki hücre VBA kodu ile değiştirilirse e-posta gönderin

İnanılmaz! Excel'de Chrome, Firefox ve Safari gibi Verimli Sekmeleri Kullanma!

Zamanınızın% 50'sinden tasarruf edin ve her gün binlerce fare tıklamasını azaltın!

Belirli bir çalışma sayfasında A2:E11 aralığındaki bir hücre değiştirildiğinde etkin çalışma kitabı eklenmiş olarak otomatik olarak yeni bir e-posta oluşturmanız gerekirse, aşağıdaki VBA kodu size yardımcı olabilir.

1. Belirli bir aralıktaki değiştirilmiş hücreye göre e-posta göndermeniz gereken çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:

2. Açılırken Uygulamalar için Microsoft Visual Basic penceresi, lütfen VBA kodunu kopyalayıp Kod penceresine yapıştırın.

VBA kodu: Belirtilen aralıktaki hücre Excel'de değiştirilirse e-posta gönderin

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

notlar:

3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, A2: E11 aralığındaki herhangi bir hücre değiştirilir, güncellenmiş çalışma kitabının ekli olduğu yeni bir e-posta oluşturulur. Ve konu, alıcı ve e-posta gövdesi gibi belirtilen tüm alanlar e-postada listelenecektir. Lütfen e-postayı gönderin.

not: VBA kodu, yalnızca Outlook'u e-posta programınız olarak kullanıyorsanız çalışır.

İlgili yazılar:

• Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden nasıl e-posta gönderilir?
• Excel'de düğme tıklanırsa e-posta nasıl gönderilir?
• Excel'de son tarih karşılanmışsa e-posta nasıl gönderilir?
• Çalışma kitabı Excel'de güncellenirse e-posta hatırlatıcı veya bildirim nasıl gönderilir?

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...