If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
limit comments to only 600 words
I have created a text box but I want the text length to be equal to or less
than 600 words. How do I do that in Excel 2003 please |
#2
|
|||
|
|||
limit comments to only 600 words
Assuming you are using the 'Control Toolbox' textbox, in the worksheet module
that the textbox is located [assuming the name of the textbox is TextBox1], put... Private Sub TextBox1_Change() If Len(TextBox1.Value) 600 Then TextBox1.Value = Left(TextBox1.Value, 600) End If End Sub -- Hope this helps. If it does, please click the Yes button. Thanks in advance for your feedback. Gary Brown "Tim" wrote: I have created a text box but I want the text length to be equal to or less than 600 words. How do I do that in Excel 2003 please |
#3
|
|||
|
|||
limit comments to only 600 words
OOPS!!!
Read your request incorrectly. I first read it as 600 letters. Here's the correct answer for word count... Private Sub TextBox1_Change() Dim iWordCount As Integer iWordCount = 600 If Len(TextBox1.Value) - Len(Application.WorksheetFunction. _ Substitute(TextBox1.Value, " ", "")) iWordCount - 1 Then TextBox1.Value = _ Left(TextBox1.Value, Application.WorksheetFunction. _ Find("~", Application.WorksheetFunction. _ Substitute(TextBox1.Value, " ", "~", iWordCount - 1))) End If End Sub -- Hope this helps. If it does, please click the Yes button. Thanks in advance for your feedback. Gary Brown "Tim" wrote: I have created a text box but I want the text length to be equal to or less than 600 words. How do I do that in Excel 2003 please |
Thread Tools | |
Display Modes | |
|
|