Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box Improvements
This code counts the characters and spaces in a cell. Could the message box
be modified to also show the sum of characters and spaces, as well as a text statement €śCharacters 255 will not paste€ť? Sub CountCharacters() Dim StringLength As Integer Dim EmptySpaces As Integer Dim I As Integer Dim CellRef As Variant CellRef = Trim(ActiveCell.Value) StringLength = Len(ActiveCell.Value) For I = 1 To Len(ActiveCell.Value) If Mid(CellRef, I, 1) = " " Then EmptySpaces = EmptySpaces + 1 Next MsgBox "Characters: " & StringLength & Chr(10) & "Empty Spaces: " & EmptySpaces End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box Improvements
Do you mean
MsgBox "Characters: " & StringLength & Chr(10) & _ "Empty Spaces: " & EmptySpaces & Chr(10) & _ "CharCharacters 255 will not paste" -- HTH Bob Phillips "Phil Hageman" wrote in message ... This code counts the characters and spaces in a cell. Could the message box be modified to also show the sum of characters and spaces, as well as a text statement "Characters 255 will not paste"? Sub CountCharacters() Dim StringLength As Integer Dim EmptySpaces As Integer Dim I As Integer Dim CellRef As Variant CellRef = Trim(ActiveCell.Value) StringLength = Len(ActiveCell.Value) For I = 1 To Len(ActiveCell.Value) If Mid(CellRef, I, 1) = " " Then EmptySpaces = EmptySpaces + 1 Next MsgBox "Characters: " & StringLength & Chr(10) & "Empty Spaces: " & EmptySpaces End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box Improvements
Hi Bob,
Getting closer. Need somehting like: Characters 215 Spaces 22 Total 237 Text message is good. Phil "Bob Phillips" wrote: Do you mean MsgBox "Characters: " & StringLength & Chr(10) & _ "Empty Spaces: " & EmptySpaces & Chr(10) & _ "CharCharacters 255 will not paste" -- HTH Bob Phillips "Phil Hageman" wrote in message ... This code counts the characters and spaces in a cell. Could the message box be modified to also show the sum of characters and spaces, as well as a text statement "Characters 255 will not paste"? Sub CountCharacters() Dim StringLength As Integer Dim EmptySpaces As Integer Dim I As Integer Dim CellRef As Variant CellRef = Trim(ActiveCell.Value) StringLength = Len(ActiveCell.Value) For I = 1 To Len(ActiveCell.Value) If Mid(CellRef, I, 1) = " " Then EmptySpaces = EmptySpaces + 1 Next MsgBox "Characters: " & StringLength & Chr(10) & "Empty Spaces: " & EmptySpaces End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box Improvements
MsgBox "Characters: " & StringLength & vbnewline & _
"Spaces: " & EmptySpaces & vbNewLine & _ "Total " & StringLength + EmptySpaces -- HTH Bob Phillips "Phil Hageman" wrote in message ... Hi Bob, Getting closer. Need somehting like: Characters 215 Spaces 22 Total 237 Text message is good. Phil "Bob Phillips" wrote: Do you mean MsgBox "Characters: " & StringLength & Chr(10) & _ "Empty Spaces: " & EmptySpaces & Chr(10) & _ "CharCharacters 255 will not paste" -- HTH Bob Phillips "Phil Hageman" wrote in message ... This code counts the characters and spaces in a cell. Could the message box be modified to also show the sum of characters and spaces, as well as a text statement "Characters 255 will not paste"? Sub CountCharacters() Dim StringLength As Integer Dim EmptySpaces As Integer Dim I As Integer Dim CellRef As Variant CellRef = Trim(ActiveCell.Value) StringLength = Len(ActiveCell.Value) For I = 1 To Len(ActiveCell.Value) If Mid(CellRef, I, 1) = " " Then EmptySpaces = EmptySpaces + 1 Next MsgBox "Characters: " & StringLength & Chr(10) & "Empty Spaces: " & EmptySpaces End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Overview Improvements for Excel Worksheets | Excel Discussion (Misc queries) | |||
Counting Consecutive Improvements | Excel Discussion (Misc queries) | |||
Improvements in Excel Pivot Table | Excel Discussion (Misc queries) | |||
Improvements for text finding functions | Excel Discussion (Misc queries) | |||
anyone have any improvements for my Weeks Function? | Excel Programming |