Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format a string before write to a cell
Hi All
How to format a string before write to a cell ? Trial Run Status , Remark and Reason for Stop Formatting are bold. Also, how to underline ? ..... '~~ Status ALL GPD_Remark = "" '~~ Trial Run Status If Application.Selection.Range(GPD.STATUS_ADD & ir).Value < "" Then GPD_Remark = "Trial Run Status:" & Chr(10) & Application.Selection.Range(GPD.STATUS_ADD & ir).Value & Chr(10) End If '~~ Remark If Application.Selection.Range(GPD.Remark_Add & ir).Value < "" Then GPD_Remark = GPD_Remark & "Remark :" & Chr(10) & Application.Selection.Range(GPD.Remark_Add & ir).Value & Chr(10) End If '~~ Reason If Application.Selection.Range(GPD.Reason_Add & ir).Value < "" Then GPD_Remark = GPD_Remark & "Reason for Stop Formatting :" & Chr(10) & Application.Selection.Range(GPD.Reason_Add & ir).Value End If If GPD_Remark < "" Then .Range(MES.STATUS_ALL_ADD & get_row(Rng_KEY.Address)).Value = GPD_Remark End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format a string before write to a cell
You have to format the cell where you want to place the comment.
With Range("A1").Font .Bold = True .Underline = True End With Regards, Per "moonhk" skrev i meddelelsen ... Hi All How to format a string before write to a cell ? Trial Run Status , Remark and Reason for Stop Formatting are bold. Also, how to underline ? .... '~~ Status ALL GPD_Remark = "" '~~ Trial Run Status If Application.Selection.Range(GPD.STATUS_ADD & ir).Value < "" Then GPD_Remark = "Trial Run Status:" & Chr(10) & Application.Selection.Range(GPD.STATUS_ADD & ir).Value & Chr(10) End If '~~ Remark If Application.Selection.Range(GPD.Remark_Add & ir).Value < "" Then GPD_Remark = GPD_Remark & "Remark :" & Chr(10) & Application.Selection.Range(GPD.Remark_Add & ir).Value & Chr(10) End If '~~ Reason If Application.Selection.Range(GPD.Reason_Add & ir).Value < "" Then GPD_Remark = GPD_Remark & "Reason for Stop Formatting :" & Chr(10) & Application.Selection.Range(GPD.Reason_Add & ir).Value End If If GPD_Remark < "" Then .Range(MES.STATUS_ALL_ADD & get_row(Rng_KEY.Address)).Value = GPD_Remark End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format a string before write to a cell
On Feb 18, 5:10*pm, "Per Jessen" wrote:
You have to format the cell where you want to place the comment. With Range("A1").Font * * .Bold = True * * .Underline = True End With Regards, Per "moonhk" skrev i ... Hi All How to format a string before write to a cell ? Trial Run Status , Remark *and Reason for Stop Formatting are bold. Also, how to underline ? .... * * * * * * * * * * * *'~~ Status ALL * * * * * * * * * * * *GPD_Remark = "" * * * * * * * * * * * *'~~ Trial Run Status * * * * * * * * * * * *If Application.Selection..Range(GPD.STATUS_ADD & ir).Value < "" Then * * * * * * * * * * * * * GPD_Remark = "Trial Run Status:" & Chr(10) & Application.Selection.Range(GPD.STATUS_ADD & ir).Value & Chr(10) * * * * * * * * * * * *End If * * * * * * * * * * * *'~~ Remark * * * * * * * * * * * *If Application.Selection..Range(GPD.Remark_Add & ir).Value < "" Then * * * * * * * * * * * * * GPD_Remark = GPD_Remark & "Remark :" & Chr(10) & Application.Selection.Range(GPD.Remark_Add & ir).Value & Chr(10) * * * * * * * * * * * *End If * * * * * * * * * * * *'~~ Reason * * * * * * * * * * * *If Application.Selection..Range(GPD.Reason_Add & ir).Value < "" Then * * * * * * * * * * * * * GPD_Remark = GPD_Remark & "Reason for Stop Formatting :" & Chr(10) & Application.Selection.Range(GPD.Reason_Add & ir).Value * * * * * * * * * * * *End If * * * * * * * * * * * *If GPD_Remark < "" Then * * * * * * * * * * * * *.Range(MES.STATUS_ALL_ADD & get_row(Rng_KEY.Address)).Value = GPD_Remark * * * * * * * * * * * *End If Hi All Thank for you suggestion. Not all text are bold. Just part of text are bold. e.g. Title is bold Line 2 is normal This line is bold This line is normal. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to write 1234567890123456789 into a cell with number format | Excel Discussion (Misc queries) | |||
00234566 write this format cell | Excel Discussion (Misc queries) | |||
Search column for string and write to cell | Excel Programming | |||
Write/Paste RTF or HTML string into one cell?? | Excel Programming | |||
Can not write string to a cell | Excel Programming |