Prev: Retaining Links in .pptx from .xlsx files
Next: Date calculations
From: Preschool Mike on 9 Apr 2010 20:46
Thanks Steve, I'll give this a try and let you know how it goes.
--
Mike Mast
Special Education Preschool Teacher


"Steve Rindsberg" wrote:

> In article <1494401D-83B1-4C08-AE46-922CA05A6875(a)microsoft.com>, Preschool Mike
> wrote:
> > I'm trying to use a userform to collect a list of words (i.e., 20) to later
> > diplay in a shape or textbox (as flash cards) in my presentation.. What's
> > the best way to collect and store my list? I know I could do something like
> > word1 = userform1.textbox1.text, word2 = userform1.textbox2.text and so on
> > but I thought an array would simplifiy things. The only problem is I'm
> > completely confused when it comes to using arrays. Also, I guess since I'm
> > here, how would I later retrieve my list for display in one textbox, one word
> > at a time (e.g., click my word button and the first word appears and click my
> > word button again and the second word appears).
>
> ' AirCode
> Dim arayWords(1 to 20) as String
>
> arayWords(1)= userform1.textbox1.text
> arayWords(2)= userform1.textbox2.text
> ' and so on
>
> ' Or you could give each of the text boxes a
> ' predictable name, say MyText1, MyText2 and so on,
> ' then
>
> Dim oCtl as Control
> Dim x as long
> x = 1
> For each oCtl in Userform1.Controls
> If Instr(oCtl.Name,"MyText") > 0 Then
> arayWords(x) = .Item(x).text
> x = x+1
> End If
> Next
>
> To display them, something like this:
>
> Sub MyWord()
> ' would need to have arayWords declared as public
> ' at top of module
> Static WordIndex as Long
> ' reset the counter if we've used all the words
> If WordIndex > 20 then WordIndex = 1
> MsgBox arayWords(WordIndex)
> WordIndex = WordIndex + 1
> End Sub
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>
> .
>
From: Preschool Mike on 9 Apr 2010 21:01
Thanks David for your patience and spelling that out for me. I guess my
confusion started with how do I get 20 text boxes from my userform to go into
one array. I get it if I would use something like an InputBox with a For
Loop: (e.g., it keeps asking until all 20 have been entered). I've read your
book over and over and have started reading Microsoft Visual Basic 2005 as
well as Joshn Walkenbach's, Excel 2007 Power Programming with VBA. Actually
I read Microsoft Visual Basic 2005 before I read yours. I've found that
after reading yours it has helped with understanding the others. Yours is by
far is an excellent place to start for anyone wanting to learn VB.
--
Mike Mast
Special Education Preschool Teacher


"David Marcovitz" wrote:

> Mike,
>
> I'm guessing you read the section in my book about arrays and are still
> confused so I'm not sure I can explain it any better, but I'll try.
>
> You know what a variable is, a place to store one piece of information.
> An array is simply a bunch of numbered boxes to store multiple pieces of
> the same kind of information. For example if you want a bunch of words,
> you could use:
>
> Dim myword1 As String
> Dim myword2 As String
> Dim myword3 As String
> ....
>
> I do this a lot because it is easy to understand. However, you might
> want to simplify this by using an array. If you want an array with 20
> items, you would do
>
> Dim myword(20) As String
>
> The tricky part about this is that it gives you 20 items, numbered 0
> through 19:
>
> myword(0), myword(1), myword(2), ..., myword(19)
>
> Only a computer geek starts counting at 0 so this is confusing. Steve,
> in his example, uses the nice trick to tell the computer that he wants
> to start counting at 1:
>
> Dim myword(1 To 20) As String
>
> Now, you have:
>
> myword(1), myword(2), myword(3), ..., myword(20)
>
> This might confuse a computer geek, but it is much easier for the rest
> of us.
>
> Now, once you have an array, you can pretend that you don't have an
> array and just access the elements of the array like you would a bunch
> of individual variables:
>
> myword(1) = "mom"
> myword(2) = "dad"
> myword(3) = "cat"
> ....
> myword(20) = "noodle"
>
> That will work fine, but it defeats the purpose of having an array
> (except that you have only one simple Dim statement). The power of the
> array is that you can access different elements by number. This is great
> if you want to access one randomly (e.g., generate a random number
> between 1 and 20, put it in the variable myRandNum and then access
> myWord(myRandNum) ), or if you want to use a variable in any other way
> to decide which array element to access (perhaps, based on which button
> is pressed or which slide you are on). It is also great if you want to
> cycle through the elements of the array:
>
> For i = 1 To 20
> MsgBox myWord(i)
> Next i
>
> This just displays each element of the array in succeeding message boxes.
>
> Two other quick notes about arrays. Arrays can be multidimensional so
> you could, for example, use an array to represent a checkerboard,
> referring to rows and columns. But that gets a bit more complicated and
> is beyond what you want to know now. You also don't need to know in
> advance how many elements the array is going to have (possibly you want
> to define it based on user input). For that you can read the section of
> my book about ReDim.
>
> I hope this makes it a little clearer, and I hope Steve's code does what
> you want.
>
> --David
>
> On 4/8/10 7:54 PM, Preschool Mike wrote:
> > I'm trying to use a userform to collect a list of words (i.e., 20) to later
> > diplay in a shape or textbox (as flash cards) in my presentation.. What's
> > the best way to collect and store my list? I know I could do something like
> > word1 = userform1.textbox1.text, word2 = userform1.textbox2.text and so on
> > but I thought an array would simplifiy things. The only problem is I'm
> > completely confused when it comes to using arrays. Also, I guess since I'm
> > here, how would I later retrieve my list for display in one textbox, one word
> > at a time (e.g., click my word button and the first word appears and click my
> > word button again and the second word appears).
> >
> > Thanks so much!
>
>
> --
> David M. Marcovitz
> Author of _Powerful PowerPoint for Educators_
> http://www.PowerfulPowerPoint.com/
> Microsoft PowerPoint MVP
> Associate Professor, Loyola University Maryland
> .
>
From: Preschool Mike on 10 Apr 2010 08:45
Steve I'm having a problem with part of your code. I get a message "Invalid
or uqualified reference" to the .Item(x).Text part of the code. Can you
help me fix this?

Thanks
--
Mike Mast
Special Education Preschool Teacher


"Steve Rindsberg" wrote:

> In article <3b2747dd-c66a-4135-aebb-
> a1f4c84450e5(a)g30g2000yqc.googlegroups.com>, Tamutka wrote:
> > On Apr 9, 3:26 am, Steve Rindsberg <ab...(a)localhost.com> wrote:
> > > In article <1494401D-83B1-4C08-AE46-922CA05A6...(a)microsoft.com>, Preschoo
> > l Mike
> > > wrote:
> > >
> > > > I'm trying to use a userform to collect a list of words (i.e., 20) to l
> > ater
> > > > diplay in a shape or textbox (as flash cards) in my presentation.. W
> > hat's
> > > > the best way to collect and store my list? I know I could do somethi
> > ng like
> > > > word1 = userform1.textbox1.text, word2 = userform1.textbox2.text an
> > d so on
> > > > but I thought an array would simplifiy things. The only problem is I
> > 'm
> > > > completely confused when it comes to using arrays. Also, I guess sin
> > ce I'm
> > > > here, how would I later retrieve my list for display in one textbox, on
> > e word
> > > > at a time (e.g., click my word button and the first word appears and cl
> > ick my
> > > > word button again and the second word appears).
> > >
> > > ' AirCode
> > > Dim arayWords(1 to 20) as String
> > >
> > > arayWords(1)= userform1.textbox1.text
> > > arayWords(2)= userform1.textbox2.text
> > > ' and so on
> > >
> > > ' Or you could give each of the text boxes a
> > > ' predictable name, say MyText1, MyText2 and so on,
> > > ' then
> > >
> > > Dim oCtl as Control
> > > Dim x as long
> > > x = 1
> > > For each oCtl in Userform1.Controls
> > > If Instr(oCtl.Name,"MyText") > 0 Then
> > > arayWords(x) = .Item(x).text
> > > x = x+1
> > > End If
> > > Next
> > >
> > > To display them, something like this:
> > >
> > > Sub MyWord()
> > > ' would need to have arayWords declared as public
> > > ' at top of module
> > > Static WordIndex as Long
> > > ' reset the counter if we've used all the words
> > > If WordIndex > 20 then WordIndex = 1
> > > MsgBox arayWords(WordIndex)
> > > WordIndex = WordIndex + 1
> > > End Sub
> > >
> > > ========================
> > ======
> > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> > >
> > > PPTools add-ins for PowerPointhttp://www.pptools.com/
> >
> > Hi,
> > I am confused and curious: this seems very interresteing, but I do not
> > know how and where to use. Can anyone explain me more deeply, please?
> > Or show me an example?
>
> My understanding is that Mike wants to keep a list of words (entered in a
> dialog box/user form) and then each time a user clicks a button in PowerPoint
> during a presentation, to display one of those words.
>
> Putting the words into an array allows him to create and hold the list.
> The code in MyWord shows how to retrieve the next word from the array (list
> of words). In real life, he'd modify MyWord to do something other than
> simply display the word in a MsgBox.
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>
> .
>
From: Steve Rindsberg on 10 Apr 2010 15:12
In article <A73E4B2A-1120-4078-ADE2-9B8DA147F364(a)microsoft.com>, Preschool Mike
wrote:
> Steve I'm having a problem with part of your code. I get a message "Invalid
> or uqualified reference" to the .Item(x).Text part of the code. Can you
> help me fix this?

Pesky aircode. ;-)

This should go at the top of a module:
Option Explicit
Public arayWords(1 To 20) As String

This can be in your form:

Private Sub CommandButton1_Click()
' this loads the array with text from the userform
Dim oCtl As Control
Dim x As Long
x = 1
For Each oCtl In UserForm1.Controls
If InStr(oCtl.Name, "MyText") > 0 Then
arayWords(x) = oCtl.Text
x = x + 1
End If
Next
End Sub

Private Sub CommandButton2_Click()
' This is to text MyWord
' I assigned this to another button click on the form
Call MyWord
End Sub


Sub MyWord()
' would need to have arayWords declared as public
' at top of module
Static WordIndex As Long
' reset the counter if we've used all the words
If WordIndex > 20 Then WordIndex = 1
If WordIndex < 1 Then WordIndex = 1
MsgBox arayWords(WordIndex)
WordIndex = WordIndex + 1
End Sub



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


From: Preschool Mike on 11 Apr 2010 16:26
That did the trick. I like how you coded it to start over when it gets to
the last word. Thanks for your help!
--
Mike Mast
Special Education Preschool Teacher


"Steve Rindsberg" wrote:

> In article <A73E4B2A-1120-4078-ADE2-9B8DA147F364(a)microsoft.com>, Preschool Mike
> wrote:
> > Steve I'm having a problem with part of your code. I get a message "Invalid
> > or uqualified reference" to the .Item(x).Text part of the code. Can you
> > help me fix this?
>
> Pesky aircode. ;-)
>
> This should go at the top of a module:
> Option Explicit
> Public arayWords(1 To 20) As String
>
> This can be in your form:
>
> Private Sub CommandButton1_Click()
> ' this loads the array with text from the userform
> Dim oCtl As Control
> Dim x As Long
> x = 1
> For Each oCtl In UserForm1.Controls
> If InStr(oCtl.Name, "MyText") > 0 Then
> arayWords(x) = oCtl.Text
> x = x + 1
> End If
> Next
> End Sub
>
> Private Sub CommandButton2_Click()
> ' This is to text MyWord
> ' I assigned this to another button click on the form
> Call MyWord
> End Sub
>
>
> Sub MyWord()
> ' would need to have arayWords declared as public
> ' at top of module
> Static WordIndex As Long
> ' reset the counter if we've used all the words
> If WordIndex > 20 Then WordIndex = 1
> If WordIndex < 1 Then WordIndex = 1
> MsgBox arayWords(WordIndex)
> WordIndex = WordIndex + 1
> End Sub
>
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>
> .
>
First  |  Prev  |  Next  |  Last
Pages: 1 2 3
Prev: Retaining Links in .pptx from .xlsx files
Next: Date calculations