Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
Presently in my code I have:
UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
UserForm1.TextBox1.Text = Format(str6,"#,##0.00;(#,##0.00)")
UserForm1.Show vbModeless -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Presently in my code I have: UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
Now with:
UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") UserForm1.Show vbModeless I'm seeing "No Change" from before. hummm (No part is affected, from beginning to end of string) Jim "Bob Phillips" wrote in message : UserForm1.TextBox1.Text = Format(str6,"#,##0.00;(#,##0.00)") UserForm1.Show vbModeless -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Presently in my code I have: UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
Jim,
Your original post was a bit confusing as you said ... Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" and then said ... Which shows up (in Userform) as: 22 ... so I assumed there was some string manipulation going on to extract 22 from str6. If you pass that original str6 value to the textbox, of course it won't get formatted, it is not a number. Can you clarify a bit? -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Now with: UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") UserForm1.Show vbModeless I'm seeing "No Change" from before. hummm (No part is affected, from beginning to end of string) Jim "Bob Phillips" wrote in message : UserForm1.TextBox1.Text = Format(str6,"#,##0.00;(#,##0.00)") UserForm1.Show vbModeless -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Presently in my code I have: UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
Sure Bob - Thanks for looking into - here's the full code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Dim str5 As String Dim str6 As String Cancel = True 'This line prevents Excel from Going into the EDIT MODE On Error Resume Next If Not Target.HasFormula Then MsgBox "Amt represents a single-cell", vbQuestion Exit Sub 'If the Target Cell does not have a formula Exit Macro End If If Target.Count 1 Then Exit Sub 'If the target cell count is greater than 1 Exit Sub str1 = Right(Target.Formula, Len(Target.Formula) - 1) 'Captures the Formula without the initial "=" sign If InStr(str1, "!") = 0 Then Exit Sub 'If the formula DOES NOT refer to a sheet other than the Current sheet Exit Sub str2 = Left(str1, WorksheetFunction.Find("!", str1) - 1) 'Capture the SheetName Only str3 = Mid(str1, WorksheetFunction.Find("!", str1) + 1, 8) 'Capture the Cell reference Only str4 = Sheets(str2).Range(str3).Formula 'Capture the formula in the SheetName.Cellreference str5 = WorksheetFunction.Substitute(Right(str4, Len(str4) - 1), "+", "" & vbCr & "") 'If you find a + then 'drop what follows it down a row str6 = WorksheetFunction.Substitute(str5, "-", "" & vbCr & "" & "-") 'If you find a - then drop what follows it 'down a row and then appends a - in the first position UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") '<< Latest chg UserForm1.Show vbModeless End Sub Does this help? Jim "Bob Phillips" wrote in message : Jim, Your original post was a bit confusing as you said ... Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" and then said ... Which shows up (in Userform) as: 22 ... so I assumed there was some string manipulation going on to extract 22 from str6. If you pass that original str6 value to the textbox, of course it won't get formatted, it is not a number. Can you clarify a bit? -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Now with: UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") UserForm1.Show vbModeless I'm seeing "No Change" from before. hummm (No part is affected, from beginning to end of string) Jim "Bob Phillips" wrote in message : UserForm1.TextBox1.Text = Format(str6,"#,##0.00;(#,##0.00)") UserForm1.Show vbModeless -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Presently in my code I have: UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating string as "#,###.00"
What is the formula in the target cell?
-- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Sure Bob - Thanks for looking into - here's the full code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Dim str5 As String Dim str6 As String Cancel = True 'This line prevents Excel from Going into the EDIT MODE On Error Resume Next If Not Target.HasFormula Then MsgBox "Amt represents a single-cell", vbQuestion Exit Sub 'If the Target Cell does not have a formula Exit Macro End If If Target.Count 1 Then Exit Sub 'If the target cell count is greater than 1 Exit Sub str1 = Right(Target.Formula, Len(Target.Formula) - 1) 'Captures the Formula without the initial "=" sign If InStr(str1, "!") = 0 Then Exit Sub 'If the formula DOES NOT refer to a sheet other than the Current sheet Exit Sub str2 = Left(str1, WorksheetFunction.Find("!", str1) - 1) 'Capture the SheetName Only str3 = Mid(str1, WorksheetFunction.Find("!", str1) + 1, 8) 'Capture the Cell reference Only str4 = Sheets(str2).Range(str3).Formula 'Capture the formula in the SheetName.Cellreference str5 = WorksheetFunction.Substitute(Right(str4, Len(str4) - 1), "+", "" & vbCr & "") 'If you find a + then 'drop what follows it down a row str6 = WorksheetFunction.Substitute(str5, "-", "" & vbCr & "" & "-") 'If you find a - then drop what follows it 'down a row and then appends a - in the first position UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") '<< Latest chg UserForm1.Show vbModeless End Sub Does this help? Jim "Bob Phillips" wrote in message : Jim, Your original post was a bit confusing as you said ... Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" and then said ... Which shows up (in Userform) as: 22 ... so I assumed there was some string manipulation going on to extract 22 from str6. If you pass that original str6 value to the textbox, of course it won't get formatted, it is not a number. Can you clarify a bit? -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Now with: UserForm1.TextBox1.Text = Format(str6, "#,##0.00;(#,##0.00)") UserForm1.Show vbModeless I'm seeing "No Change" from before. hummm (No part is affected, from beginning to end of string) Jim "Bob Phillips" wrote in message : UserForm1.TextBox1.Text = Format(str6,"#,##0.00;(#,##0.00)") UserForm1.Show vbModeless -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "JMay" wrote in message ... Presently in my code I have: UserForm1.TextBox1.Text = str6 UserForm1.Show vbModeless Where str6 = "22(vbcr)33.18(vbcr)-125(vbcr)1191.56" Which shows up (in Userform) as: 22 33.18 -125 1191.56 What can I further do to format somewhere(?) to get (in the userform) as: 22.00 33.18 (125.00) 1,191.56 ?? Thanks in advance.. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
=SUBSTITUTE(C4,"~?#","") will this work to remove multiple string | Excel Worksheet Functions | |||
Converting "uppercase" string data to "lower case" in CSV file | Excel Discussion (Misc queries) | |||
text string: "91E10" in csv file auto converts to: "9.10E+11" | Excel Discussion (Misc queries) | |||
Converting string "061123" into a date "23/11/06" | Excel Programming | |||
Making "examp le" become "examp_le" in a string | Excel Programming |