close

Hi,
I wonder if anyone can help. I have some cells that have lots of text
in - after around 1100 it seems to cut of the text. So ,if I do a row
'autofit' height it doesn't show all the text - however if I click the
fx button it shows it all - making sense?

I need to be able to print the file showing all the text - has anyone
got any idea how I can do this please?

Thanks in advance for any help!!

Viv--
hicksviv
------------------------------------------------------------------------
hicksviv's Profile: www.excelforum.com/member.php...oamp;userid=33455
View this thread: www.excelforum.com/showthread...hreadid=532620If you pepper alt-enters (to force new lines within the cell) every 80-100
characters, you'll be able to see more characters.
hicksviv wrote:
gt;
gt; Hi,
gt; I wonder if anyone can help. I have some cells that have lots of text
gt; in - after around 1100 it seems to cut of the text. So ,if I do a row
gt; 'autofit' height it doesn't show all the text - however if I click the
gt; fx button it shows it all - making sense?
gt;
gt; I need to be able to print the file showing all the text - has anyone
gt; got any idea how I can do this please?
gt;
gt; Thanks in advance for any help!!
gt;
gt; Viv
gt;
gt; --
gt; hicksviv
gt; ------------------------------------------------------------------------
gt; hicksviv's Profile: www.excelforum.com/member.php...oamp;userid=33455
gt; View this thread: www.excelforum.com/showthread...hreadid=532620

--

Dave Peterson


Thanks Dave - is there anyway to automate this? I have quite a few
cells with too much text!--
hicksviv
------------------------------------------------------------------------
hicksviv's Profile: www.excelforum.com/member.php...oamp;userid=33455
View this thread: www.excelforum.com/showthread...hreadid=532620I guess you could look at the value in each cell and plop in those alt-enters.

I always wanted more control over where the line would break, though.

hicksviv wrote:
gt;
gt; Thanks Dave - is there anyway to automate this? I have quite a few
gt; cells with too much text!
gt;
gt; --
gt; hicksviv
gt; ------------------------------------------------------------------------
gt; hicksviv's Profile: www.excelforum.com/member.php...oamp;userid=33455
gt; View this thread: www.excelforum.com/showthread...hreadid=532620

--

Dave Peterson

Try this against a copy (or close without saving)...

Option Explicit
Sub testme01()
Dim myRng As Range
Dim myCell As Range
Dim myStr As String
Dim iCtr As Long
Dim jCtr As Long

Set myRng = Selection

For Each myCell In myRng.Cells
If myCell.HasFormula Then
'skip it
Else
If Len(myCell.Value) gt; 800 Then
myStr = myCell.Value
For iCtr = 80 To Len(myStr) Step 80
Do
jCtr = iCtr
If Mid(myStr, jCtr, 1) = quot; quot; Then
Mid(myStr, jCtr, 1) = vbLf
Exit Do
Else
jCtr = jCtr 1
End If
Loop
Next iCtr
myCell.Value = myStr
End If

End If
Next myCell

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
www.mvps.org/dmcritchie/excel/getstarted.htm

Dave Peterson wrote:
gt;
gt; I guess you could look at the value in each cell and plop in those alt-enters.
gt;
gt; I always wanted more control over where the line would break, though.
gt;
gt; hicksviv wrote:
gt; gt;
gt; gt; Thanks Dave - is there anyway to automate this? I have quite a few
gt; gt; cells with too much text!
gt; gt;
gt; gt; --
gt; gt; hicksviv
gt; gt; ------------------------------------------------------------------------
gt; gt; hicksviv's Profile: www.excelforum.com/member.php...oamp;userid=33455
gt; gt; View this thread: www.excelforum.com/showthread...hreadid=532620
gt;
gt; --
gt;
gt; Dave Peterson

--

Dave Peterson

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()