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 |
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 |