Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk muncul kotak mesej jika nilai sel berubah dalam julat dalam Excel?

Kadang-kadang anda perlu mengingatkan diri anda tentang perubahan dalam lingkungan dalam lembaran kerja tertentu. Oleh itu kotak mesej pop timbul akan memihak kepada anda jika nilai sel telah berubah dalam julat tertentu. Anda boleh mencapainya dengan kaedah VBA dalam artikel ini.

Kotak mesej pop up jika nilai sel berubah dalam julat dengan kod VBA


anak panah gelembung kanan biru Kotak mesej pop up jika nilai sel berubah dalam julat dengan kod VBA


Kod VBA berikut akan muncul kotak mesej jika nilai sel berubah dalam lingkungan tertentu pada lembaran kerja tertentu. Sila buat seperti berikut.

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik dua kali nama helaian (julat yang ditentukan wujud dalam) di bar kiri untuk membuka Kod tetingkap, kemudian salin dan tampal di bawah kod VBA ke dalam tetingkap.

Kod VBA: pop kotak mesej jika nilai sel berubah dalam julat

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Nota: anda boleh menukar julat yang ditetapkan A1: E19 dalam kod ke julat yang anda perlukan.

3. Akhbar Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

Buat masa sekarang, apabila nilai sel dalam lingkungan A1: E19 berubah, kotak mesej akan muncul secara automatik. Lihat tangkapan skrin:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.
    Ioannis Palierakis · 1 years ago
    Hi everyone & thanks for help!!!!

    How could I modify the VBA and say that if the Range B1:B50 is less than or equal to Range A1:B50 then MsgBox......?????
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Do you mean the total sum of range b1:b50?
  • To post as a guest, your comment is unpublished.
    igp · 1 years ago
    Hi everyone & thanks for the VBA.

    I was just wondering how to modify the VBA in case that I want the MsgBox only if for example the cell value B1 is <= than A1


    Thanks for your assistance!!!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Please try below VBA code:

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo ExitSub
      Dim One As Long
      Dim Two As Long
      One = Range("A1").Value
      Two = Range("B1").Value
      If Not (Application.Intersect(Range("A1:B1"), Target) Is Nothing) Then
      If (One > Two) Then
      MsgBox "Range(""A1"") > Range(""B1"")", vbInformation, "Kutools for Excel"
      End If
      End If
      ExitSub:
      End Sub
  • To post as a guest, your comment is unpublished.
    Naveen Ruppa · 1 years ago
    Considering the above example.(VBA code: pop up message box if cell value changes within a range)

    when the value of D14 has changed we get a pop up, in the similar way how to get the ID of that (column A of the same row (A14)).
    Thanks in advance, any response is appreciable.
  • To post as a guest, your comment is unpublished.
    Naveen · 1 years ago
    considering the above output there is a question.
    we got a pop message when the D14 has changed, in the similar can way can we get the ID (data of the same row of the column A) in the pop up message??