Excel95: "Please Wait" dialog box and Partial Sums

Excel95: "Please Wait" dialog box and Partial Sums

Post by Inaki Ecenar » Mon, 20 Apr 1998 04:00:00



Hi,

I posted two questions more than a week ago, and I haven't had any
answer, which really surprises me. Maybe it's because my news server
had any problem (it does have problems quite often).

Anyway, I'm posting the questions again, I'm sure someone will be able
to answer them:

1) "Please Wait" dialog box.

I have a routine that takes a few seconds to complete, and I want to
show the user a "Please Wait" dialog box. I found the tip to do it on
the Internet (I believe it was in J.Walk's site), and it works quite
well, except for one thing:

I want to update a label in the dialog box to tell the user the
percent completed, time left, or any other information. I try to
update the dialog box using

DialogSheets("...").Labels("...").Text = "..."

but it doesn't work. I have found that the previous sentence updates
the DialogSheet, but not the dialog that is active.

Attached goes a small file (WAITDLG.XLS) with a sample Please Wait
Dialog which doesn't update the seconds elapsed label.

Does anyone know what I should do to update the labels in the dialog
box?

2) Partial Sums

I have a small database in which the first field (column A) is a 3 or
4 digit code and the second field (column B) is a amount.

I want to sum all the amounts for the codes that start with "1".

One way to do it would be to create a new field (column C) with the
formula =LEFT(A;1) and then use =SUM.IF(C;1;A).

The problem is that if the user adds another record to the table, then
I would have to create the third field for that new record.

I'm sure there has to be a more elegant way of doing this sum,
probably with matrix formulas. I have tried using the matrix formula:

{=SUM(IF(LEFT(A;1)="1";B;0))}

but I get the #VALUE error message.

Can someone please help me?

If you know the answer to any of these questions I would really
appreciate it.
Thanks in advance,
Inaki

D? ? >
t?    

t???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????y???     t???  

      t???t??????????????????????????? ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????Root Entry  ????????

Fhs??c?

€ Book

???? ????;? _VBA_PROJECT

?\?c?
 ]?c?
dir

???? ????

          t???        !"#$%&'()*+,-./0123456789:t???<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvt???xyzt???|}~ t???a ]

k*\G{000204F3-0000-0000-C000-000000000046}#1.0#9#C:\WINDOWS\SYSTEM\VBAEN32.OLB#Visual Basic For Applications 0 p*\G{00020813-0000-0000-C000-000000000046}#1.0#9#C:\MSOffice\Excel\XL5EN32.OLB#Microsoft Excel 5.0 Object Librarye

Q ???????
         ? s ,5 ??????????????????????????????????????????????????????????????

443525fe04
8352c8173
*D
?????????

????????????????????????????????????????????*????????????????????????j?????????????????????????????????????????????????????????????????????????€????J?????????????????????????????????????????????????????????????????????????????????4?????????????????????????????????????????????????????T????`????????????????????@???????????????? a????????????????????t?????????????????????????????????????????????????? ????????????????????????????????????????????????????????T????????
?????????????????
t€+????a?a???? a??
????
?@? ???? ?? ???? ??y
????$&*????,??N ????8??R????B??? ????J??%o????P??o????T??K?????`??9z????n??{i????t&@` ???????,???????????????  ?????V ?????? v????aa?????&es ??????????????????
?ExcelVBALibro1Mdulo1_EvaluateOnShowApplicationSendKeysMsgBoxWaitNowTimeValueLDialogSheetsHideDoLongProcessi??LabelscTextDlgLong.xlsAuto_OpenMod1?ShowDialogShowWaitDlg.xls
??

0
???
?????????????????????????????
??

443525fe04
???????????? ?  SummaryInformation(

???? ????w DocumentSummaryInformation8
????????????{$

CompObj
????????????€o

???

????

 ?
  ??????

L ?
X?
T(
(
d
v
z?l
^ v?(
`
z?p $?$
   T? TheLabel$
  d? Dlg1$
?   p  ? D?

6
? 4?a
6
? ?  D?4?(
v
4??  j
4?    00:00:01v
D?? j
D?e ?$
?   p    ?6
`
?  4?D? ? ?(
v
z?? v?8?(
L
 xT      ?
 ?
4?
D?
 ??2G\"G €Iei  G e `ZmP ?dDI? G
  G&
e
?VmP46G1DX<I?
E

  <5  (?
E $!G<  

:?
E
G<
    DialogShee?(
(
   l?
~$
?   p   \?6
J
N \?(
?
 ??
,??
<??
L?   l? This won't be seen?
\?v
\?? ?
\?L?<?,? ?(
?  (
  l? Dlg1$
?   p  ?  ?

6
?N  ?(
L
 `?      ?
,?
<?
L?
\?
\<(
(
  l? Dlg1$
?   p  ? \?

6
N \?(
L
  <   \?
^???2? `??
`??? $
???  `??? t??????????????????????????????????????????????????????????????????????????????? ???? ???? ???????????????????????????????????? ??(
?
??@
?
??K
?
??? ??L
?
??C??

s ,5
 *\R0*#4
 *\Rffff*8352c8173
 *\R0*#6
 *\R1*#1
 *\R1*#81?
??

??  4
t?????
?????    ? ??$
t?????
??
??  to ????z?
@? T
t?????
??Zx?? ??L?? ??G????????????????????????????????????????????????????????????????????@????????????????????????????????
L???? ????????

???????? lME?? ??6??

0
 ,G
??D
X1G
E$
G
 Gt "

  6  

??
??"

  0

  J0

   L

  6T

 h
??
??
??"

l
  p
 ??

   x

 (b?

 "Z

  ?

 
????

? L- Dlg1$€
B@kg1? -
~ @B@J
- This won't be seenA@T
A@ N- Dlg1$€
B@?k03?  Y @s  ?
?se ?- TheLabel- Dlg1$€
%a
( j- 00:00:01$t
  @B@`
 b ??A@k
            3
?
  a\6
IEI                                                  B
? =


?? _VBA_PROJECT?
   ?
 OnShow  
ShowDialog

=

" 8
X
@

"


1 ?  

 Arial1
? ?

 Arial1
?  

 Arial1
? ?

 Arial1 ?  

 Arial1 ??  

 Helv     #,##0\ "Pts";\-#,##0\ "Pts"  #  #,##0\ "Pts";[Red]\-#,##0\ "Pts"  $ !#,##0.00\ "Pts";\-#,##0.00\ "Pts"  ) &#,##0.00\ "Pts";[Red]\-#,##0.00\ "Pts"  ?*<_-* #,##0\ "Pts"_-;\-* #,##0\ "Pts"_-;_-* "-"\ "Pts"_-;_-@_-  B)?_-* #,##0\ _P_t_s_-;\-* #,##0\ _P_t_s_-;_-* "-"\ _P_t_s_-;_-@_-  G,D_-* #,##0.00\ "Pts"_-;\-* #,##0.00\ "Pts"_-;_-* "-"??\ "Pts"_-;_-@_-  J+G_-* #,##0.00\ _P_t_s_-;\-* #,##0.00\ _P_t_s_-;_-* "-"??\ _P_t_s_-;_-@_-   #,##0"Pts"_);\(#,##0"Pts"\)  # #,##0"Pts"_);[Red]\(#,##0"Pts"\)  $|!#,##0.00"Pts"_);\(#,##0.00"Pts"\)  )&#,##0.00"Pts"_);[Red]\(#,##0.00"Pts"\)  A>_ * #,##0_)"Pts"_ ;_ * \(#,##0\)"Pts"_ ;_ * "-"_)"Pts"_ ;_ @_   D?A_ * #,##0_)_P_t_s_ ;_ * \(#,##0\)_P_t_s_ ;_ * "-"_)_P_t_s_ ;_ @_   IaF_ * #,##0.00_)"Pts"_ ;_ * \(#,##0.00\)"Pts"_ ;_ * "-"??_)"Pts"_ ;_ @_   L?I_ * #,##0.00_)_P_t_s_ ;_ * \(#,##0.00\)_P_t_s_ ;_ * "-"??_)_P_t_s_ ;_ @_    ? #,##0\ ;\(#,##0\)\    - #,##0.0\ ;\(#,##0.0\)\ ???
?? ?
?? ?
?? ?
?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?? ? ?
   ??? ?  ??? ?  a?? ?  ?? ?          ?? ?
  €
?
  € ?
  € ?
  € ?
 €?
  € ?
b  Sheet1 ?
 Dlg1 q   Mod1
            3  
   

d

  ??MbP?_

*
+
?

€ %
 ?? ""
   
&LIEI, &D&R&F?

?
& M&d2?' M&d2?( ??y~??) ??y~??M?
HP DeskJet 340 Printer 4

?€
        d
        ,

,

HP DeskJet 340 PrinterLPT1

3
     

, ...

read more »

 
 
 

Excel95: "Please Wait" dialog box and Partial Sums

Post by Axel Link » Mon, 20 Apr 1998 04:00:00



> I want to update a label in the dialog box to tell the user the
> percent completed, time left, or any other information. I try to
> update the dialog box using

have a look at http://www.j-walk.com/ss/excel/tips/they have an example
for that, I think.

Quote:> 2) Partial Sums

> I have a small database in which the first field (column A) is a 3 or
> 4 digit code and the second field (column B) is a amount.

> I want to sum all the amounts for the codes that start with "1".

> One way to do it would be to create a new field (column C) with the
> formula =LEFT(A;1) and then use =SUM.IF(C;1;A).

> The problem is that if the user adds another record to the table, then
> I would have to create the third field for that new record.

> I'm sure there has to be a more elegant way of doing this sum,
> probably with matrix formulas. I have tried using the matrix formula:

> {=SUM(IF(LEFT(A;1)="1";B;0))}

> but I get the #VALUE error message.

> Can someone please help me?

sorry, no idea for that...
bye
axel

--
===============================================

Lanfermannteich 36, 59192 Bergkamen
-----------------------------------------------
PGP Fingerprint:
5D57 5E8E 5D6A B091 12F9  FE84 40AF 404B 4F32 03AC

-----------------------------------------------
http://www.inka.de/sites/linke
Before sending Spam or junk mail or any kind of ads please read
http://www.inka.de/sites/linke/spamoff.html
-----------------------------------------------
Wer sagt: hier herrscht Freiheit, der lgt, denn Freiheit herrscht nicht.
Erich Fried

 
 
 

Excel95: "Please Wait" dialog box and Partial Sums

Post by Robert Gree » Tue, 21 Apr 1998 04:00:00


Hi Inaki,

try:

{=SUM(IF(LEFT(A;1)=1;B;0))}

You are comparing strings and not values in your formula.

HTH

Robert


> Hi,

> 2) Partial Sums

> I have a small database in which the first field (column A) is a 3 or
> 4 digit code and the second field (column B) is a amount.

> I want to sum all the amounts for the codes that start with "1".

> One way to do it would be to create a new field (column C) with the
> formula =LEFT(A;1) and then use =SUM.IF(C;1;A).

> The problem is that if the user adds another record to the table, then
> I would have to create the third field for that new record.

> I'm sure there has to be a more elegant way of doing this sum,
> probably with matrix formulas. I have tried using the matrix formula:

> {=SUM(IF(LEFT(A;1)="1";B;0))}

> but I get the #VALUE error message.

> Can someone please help me?

> If you know the answer to any of these questions I would really
> appreciate it.
> Thanks in advance,
> Inaki

> D? ?

  vcard.vcf
< 1K Download
 
 
 

Excel95: "Please Wait" dialog box and Partial Sums

Post by Jeff Spenc » Wed, 29 Apr 1998 04:00:00


Inaki,

    I was working this VERY SAME problem today.  I came up with a poor
solution, but it works.  I also got the dialog box code from J-Walk's
page, but wanted to have it display two or three updates while it was
working.  Here's what I came up with:

If you have a routine that calls the dialog box (that in turn calls your
massive code), break it up into two or three sections.  For example:
instead of calling "SystemInit", I call SystemInit1, systemInit2, and
SystemInit3.  Then copy the dialog sheet twice, and replace the wait
text.  So in other words, use J-walk's idea three times in a row.  I know,
you end up with 3 dialog sheets and 6 routines, but it's the best I've
come up with so far.  To the user, the dialog box seems to change its
text, as opposed to 3 dialog boxes popping up, so aesthetically it looks
OK.

If anyone has anything better, I'd like to hear it... please?


> Hi,

> I posted two questions more than a week ago, and I haven't had any
> answer, which really surprises me. Maybe it's because my news server
> had any problem (it does have problems quite often).

> Anyway, I'm posting the questions again, I'm sure someone will be able
> to answer them:

> 1) "Please Wait" dialog box.

> I have a routine that takes a few seconds to complete, and I want to
> show the user a "Please Wait" dialog box. I found the tip to do it on
> the Internet (I believe it was in J.Walk's site), and it works quite
> well, except for one thing:

> I want to update a label in the dialog box to tell the user the
> percent completed, time left, or any other information. I try to
> update the dialog box using

> DialogSheets("...").Labels("...").Text = "..."

> but it doesn't work. I have found that the previous sentence updates
> the DialogSheet, but not the dialog that is active.

> Attached goes a small file (WAITDLG.XLS) with a sample Please Wait
> Dialog which doesn't update the seconds elapsed label.

> Does anyone know what I should do to update the labels in the dialog
> box?

> 2) Partial Sums

> I have a small database in which the first field (column A) is a 3 or
> 4 digit code and the second field (column B) is a amount.

> I want to sum all the amounts for the codes that start with "1".

> One way to do it would be to create a new field (column C) with the
> formula =LEFT(A;1) and then use =SUM.IF(C;1;A).

> The problem is that if the user adds another record to the table, then
> I would have to create the third field for that new record.

> I'm sure there has to be a more elegant way of doing this sum,
> probably with matrix formulas. I have tried using the matrix formula:

> {=SUM(IF(LEFT(A;1)="1";B;0))}

> but I get the #VALUE error message.

> Can someone please help me?

> If you know the answer to any of these questions I would really
> appreciate it.
> Thanks in advance,
> Inaki

> D? ?

 
 
 

Excel95: "Please Wait" dialog box and Partial Sums

Post by Inaki Ecenar » Sat, 02 May 1998 04:00:00


On Tue, 28 Apr 1998 14:58:27 -0500, Jeff Spence

This is quite a clever solution.

I was looking for a percent-completed solution, and I don't think
having 100 dialog boxes would be a very nice solution :-)

Anyway, your idea is quite interesting. Changing the message one or
two times is enough to inform the user that the routine has not
cracked.

Thanks,
Inaki

Quote:>    I was working this VERY SAME problem today.  I came up with a poor
>solution, but it works.  I also got the dialog box code from J-Walk's
>page, but wanted to have it display two or three updates while it was
>working.  Here's what I came up with:

>If you have a routine that calls the dialog box (that in turn calls your
>massive code), break it up into two or three sections.  For example:
>instead of calling "SystemInit", I call SystemInit1, systemInit2, and
>SystemInit3.  Then copy the dialog sheet twice, and replace the wait
>text.  So in other words, use J-walk's idea three times in a row.  I know,
>you end up with 3 dialog sheets and 6 routines, but it's the best I've
>come up with so far.  To the user, the dialog box seems to change its
>text, as opposed to 3 dialog boxes popping up, so aesthetically it looks
>OK.

>If anyone has anything better, I'd like to hear it... please?

I?aki Ecenarro

 
 
 

Excel95: "Please Wait" dialog box and Partial Sums

Post by Stephen Bulle » Mon, 04 May 1998 04:00:00


Hi Inaki,

Quote:> I was looking for a percent-completed solution, and I don't think
> having 100 dialog boxes would be a very nice solution :-)

> Anyway, your idea is quite interesting. Changing the message one or
> two times is enough to inform the user that the routine has not
> cracked.

You may want to investigate wksprgrs.zip on my web page...

 Regards

 Stephen Bullen
 Microsoft MVP - Excel
 http://www.BMSLtd.co.uk

 
 
 

1. Excel95: "Please Wait" dialog box - WaitDlg.xls (0/1)

Hi,

I have a routine that takes a few seconds to complete, and I want to
show the user a "Please Wait" dialog box. I found the tip to do it on
the Internet (I believe it was in J.Walk's site), and it works quite
well, except for one thing:

I want to update a label in the dialog box to tell the user the
percent completed, time left, or any other information. I try to
update the dialog box using

DialogSheets("...").Labels("...").Text = "..."

but it doesn't work. I have found that the previous sentence updates
the DialogSheet, but not the dialog that is active.

Attached goes a small file with a sample Please Wait Dialog which
doesn't update the seconds elapsed label.

Does anyone know what I should do to update the labels in the dialog
box?

Thanks in advance,
I?aki

I?aki Ecenarro

2. format "inquiry failed"

3. !!!!!"""""IMPORTANTE"""""!!!!!

4. sale amiga 500

5. K7s5a """"ich krieg die KRIESE"""""

6. Terminal emulator with user-definable terminal?

7. Scanner not in "Select Source" dialog box

8. Atari CDROM

9. Dialog box"File format is not valid",how to solve

10. EXCEL : Help with multiple Dialog Boxes "Out of stack error."

11. IE 5's "File Download" Dialog box???

12. How to bypass "Save As" dialog box in PDF Writer on NT?