LibreOffice 24.8 Bantuan
Defines the error message that is displayed when invalid data is entered in a cell.
Anda juga dapat memulai makro dengan pesan kesalahan. Makro contoh disediakan di akhir halaman ini.
Menampilkan pesan kesalahan yang Anda masukkan di wilayah Isi ketika data yang tidak valid dimasukkan dalam sel. Jika diaktifkan, pesan ditampilkan untuk mencegah entri yang tidak valid.
Dalam kedua kasus, jika Anda memilih "Berhenti", entri yang tidak valid dihapus dan nilai sebelumnya dimasukkan kembali dalam sel. Hal yang sama berlaku jika Anda menutup dialog "Peringatan" dan "Informasi" dengan mengklik tombol Batalkan. Jika Anda menutup dialog dengan tombol OKE, entri yang tidak valid tidak dihapus.
Pilih tindakan yang Anda inginkan terjadi ketika data yang tidak valid dimasukkan dalam sel. Tindakan "Hentikan" menolak entri yang tidak valid dan menampilkan dialog yang harus Anda tutup dengan mengklik OKE. Tindakan "Peringatan" dan "Informasi" menampilkan dialog yang dapat ditutup dengan mengklik OKE atau Batalkan. Entri yang tidak valid hanya ditolak ketika Anda mengklik Batalkan.
Buka dialog Macro di mana Anda dapat memilih makro yang dieksekusi ketika data yang tidak valid dimasukkan dalam sel. Makro dieksekusi setelah pesan kesalahan ditampilkan.
Masukkan judul makro atau pesan kesalahan yang ingin Anda tampilkan ketika data yang tidak valid dimasukkan dalam sel.
Masukkan pesan yang ingin Anda tampilkan ketika data yang tidak valid dimasukkan dalam sel.
Below is a sample function that can be called when an error occurs. Note that the macro takes in two parameters that are passed on by LibreOffice when the function is called:
CellValue: The value entered by the user, as a String.
CellAddress: The address of the cell where the value was entered, as a String prefixed with the sheet name (e.g: "Sheet1.A1").
The function must return a Boolean value. If it returns True, the entered value is kept. If the function returns False, the entered value is erased and the previous value is restored.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "Invalid value: " & "'" & CellValue & "'"
msg = msg & " in cell: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "Accept anyway?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Error message")
ExampleValidity = (iAnswer = IDYES)
End Function