source/text/scalc/01/12120300.xhp | 57 +++++++++++++++++++++++---------------
1 file changed, 35 insertions(+), 22 deletions(-)
New commits:
commit 19c8e31a7159740f3a2048e459b0237786d0a995
Author: Rafael Lima <rafael.palma.l...@gmail.com>
AuthorDate: Sat Jul 10 17:06:46 2021 +0200
Commit: Olivier Hallot <olivier.hal...@libreoffice.org>
CommitDate: Mon Jul 12 14:12:24 2021 +0200
tdf#143211 Improve macro example in Validity check
Change-Id: Ic6a3db771731d21879897b2b6a45c5ce003e524e
Reviewed-on: https://gerrit.libreoffice.org/c/help/+/118715
Tested-by: Jenkins
Reviewed-by: Olivier Hallot <olivier.hal...@libreoffice.org>
diff --git a/source/text/scalc/01/12120300.xhp
b/source/text/scalc/01/12120300.xhp
index 771c03cc5..43da7d8c3 100644
--- a/source/text/scalc/01/12120300.xhp
+++ b/source/text/scalc/01/12120300.xhp
@@ -1,6 +1,4 @@
<?xml version="1.0" encoding="UTF-8"?>
-
-
<!--
* This file is part of the LibreOffice project.
*
@@ -21,20 +19,20 @@
<helpdocument version="1.0">
<meta>
-<topic id="textscalc0112120300xml" indexer="include" status="PUBLISH">
-<title id="tit" xml-lang="en-US">Error Alert</title>
-<filename>/text/scalc/01/12120300.xhp</filename>
-</topic>
-<history>
-<created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created>
-</history>
+ <topic id="textscalc0112120300xml" indexer="include" status="PUBLISH">
+ <title id="tit" xml-lang="en-US">Error Alert</title>
+ <filename>/text/scalc/01/12120300.xhp</filename>
+ </topic>
+ <history>
+ <created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created>
+ </history>
</meta>
<body>
<section id="fehlermeldung">
-<bookmark xml-lang="en-US"
branch="hid/modules/scalc/ui/erroralerttabpage/ErrorAlertTabPage"
id="bm_id3156024" localize="false"/>
-<bookmark xml-lang="en-US"
branch="hid/modules/scalc/ui/erroralerttabpage/@@nowidget@@" id="bm_id3156024"
localize="false"/>
-<paragraph role="heading" id="hd_id3153821" xml-lang="en-US" level="1"><link
href="text/scalc/01/12120300.xhp" name="Error Alert">Error
Alert</link></paragraph>
-<paragraph role="paragraph" id="par_id3153379" xml-lang="en-US"><ahelp
hid="modules/scalc/ui/erroralerttabpage/ErrorAlertTabPage">Define the error
message that is displayed when invalid data is entered in a
cell.</ahelp></paragraph>
+ <bookmark xml-lang="en-US"
branch="hid/modules/scalc/ui/erroralerttabpage/ErrorAlertTabPage"
id="bm_id3156024" localize="false"/>
+ <bookmark xml-lang="en-US"
branch="hid/modules/scalc/ui/erroralerttabpage/@@nowidget@@" id="bm_id3156024"
localize="false"/>
+ <paragraph role="heading" id="hd_id3153821" xml-lang="en-US" level="1"><link
href="text/scalc/01/12120300.xhp" name="Error Alert">Error
Alert</link></paragraph>
+ <paragraph role="paragraph" id="par_id3153379" xml-lang="en-US"><ahelp
hid="modules/scalc/ui/erroralerttabpage/ErrorAlertTabPage">Define the error
message that is displayed when invalid data is entered in a
cell.</ahelp></paragraph>
</section>
<paragraph role="paragraph" id="par_id3154138" xml-lang="en-US">You can also
start a macro with an error message. A sample macro is provided at the end of
this page.</paragraph>
<section id="howtoget">
@@ -58,15 +56,30 @@
<paragraph role="heading" id="hd_id3154510" xml-lang="en-US" level="3">Error
message</paragraph>
<paragraph role="paragraph" id="par_id3149122" xml-lang="en-US"><ahelp
hid="modules/scalc/ui/erroralerttabpage/errorMsg">Enter the message that you
want to display when invalid data is entered in a cell.</ahelp></paragraph>
<section id="examplemakro">
-<h3 id="hd_id881545240342781">Sample macro:</h3>
-<bascode>
- <paragraph role="bascode" id="par_id31545240174027" xml-lang="en-US"
localize="false">Function ExampleValidity(CellValue as String, TableCell as
String)</paragraph>
- <paragraph role="bascode" id="par_id341545240202382" xml-lang="en-US"
localize="false"> Dim msg as string</paragraph>
- <paragraph role="bascode" id="par_id11545240206618" xml-lang="en-US"
localize="false"> msg = "Invalid value: " & "'" & CellValue &
"'"</paragraph>
- <paragraph role="bascode" id="par_id841545240210171" xml-lang="en-US"
localize="false"> msg = msg & " in table: " & "'" & TableCell
& "'"</paragraph>
- <paragraph role="bascode" id="par_id531545240216611" xml-lang="en-US"
localize="false"> MsgBox msg ,16,"Error message"</paragraph>
- <paragraph role="bascode" id="par_id971545240220293" xml-lang="en-US"
localize="false">End Function</paragraph>
-</bascode>
+ <h3 id="hd_id881545240342781">Sample macro:</h3>
+ <paragraph role="paragraph" id="par_id521625929022780">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 %PRODUCTNAME when the function is
called:</paragraph>
+ <list type="unordered">
+ <listitem>
+ <paragraph id="par_id981625929097216"
role="listitem"><emph>CellValue</emph>: The value entered by the user, as a
String.</paragraph>
+ </listitem>
+ <listitem>
+ <paragraph id="par_id421625929100152"
role="listitem"><emph>CellAddress</emph>: The address of the cell where the
value was entered, as a String prefixed with the sheet name (e.g:
"Sheet1.A1").</paragraph>
+ </listitem>
+ </list>
+ <paragraph role="paragraph" id="par_id101625929384030">The function must
return a Boolean value. If it returns <literal>True</literal>, the entered
value is kept. If the function returns <literal>False</literal>, the entered
value is erased and the previous value is restored.</paragraph>
+ <bascode>
+ <paragraph role="bascode" localize="false"
id="par_id31545240174027">Function ExampleValidity(CellValue as String,
CellAddress as String) as Boolean</paragraph>
+ <paragraph role="bascode" localize="false" id="par_id341545240202382">
Dim msg as String</paragraph>
+ <paragraph role="bascode" localize="false" id="par_id11545240206618">
Dim iAnswer as Integer</paragraph>
+ <paragraph role="bascode" localize="false" id="par_id841545240210171">
Dim MB_FLAGS as Integer</paragraph>
+ <paragraph role="bascode" id="par_id531545240216611"> msg = "Invalid
value: " & "'" & CellValue & "'"</paragraph>
+ <paragraph role="bascode" id="bas_id971625928577365"> msg = msg & "
in cell: " & "'" & CellAddress & "'"</paragraph>
+ <paragraph role="bascode" id="bas_id181625928577640"> msg = msg &
Chr(10) & "Accept anyway?"</paragraph>
+ <paragraph role="bascode" localize="false" id="bas_id711625928577798">
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2</paragraph>
+ <paragraph role="bascode" id="bas_id941625928578118"> iAnswer = MsgBox
(msg , MB_FLAGS, "Error message")</paragraph>
+ <paragraph role="bascode" localize="false" id="bas_id11625928661345">
ExampleValidity = (iAnswer = IDYES)</paragraph>
+ <paragraph role="bascode" localize="false" id="par_id971545240220293">End
Function</paragraph>
+ </bascode>
</section>
</body>
</helpdocument>
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
