[mso] Help!
- From: "Sandy Crowley" <SCrowley@xxxxxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Tue, 30 Sep 2003 13:53:04 -0400
I have run Ray's script regarding AutoFillRowHeight but how do I tell it
to "run" after the user hits the Enter key so that it automatically
runs? Sorry folks, I'm just learning VBA.
Thanks.
=20
-----Original Message-----
From: Sandy Crowley=20
Sent: Tuesday, September 30, 2003 9:03 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Excel question
Thank you so much. I'll try it and let you know the outcome!
Sandy Crowley, SDA, CDT
Director of Administration | Senior Associate
Little Diversified Architectural Consulting
5815 Westpark Drive | Charlotte, NC 28217
D:704.561.5135 | M:704.408.0458 | F:704.561.8734
www.littleonline.com <http://www.littleonline.com/>=20
=20
-----Original Message-----
From: Ray Blake [mailto:ray@xxxxxxxxx]
Sent: Tuesday, September 30, 2003 1:35 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Excel question
Sandy,
Oddly enough I bumped into exactly the same problem on a project this
week. My research led me to this code which I found in an old issue of
the Excel Experts ezine, here:
http://www.j-walk.com/ss/excel/eee/eee011.txt
Macro by Jim Rech:
Excel does not support automatically adjusting the row height of a
merged cell with wrap text set. This procedure serves as a workaround.
Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count =3D 1 And .WrapText =3D True Then
Application.ScreenUpdating =3D False
CurrentRowHeight =3D .RowHeight
ActiveCellWidth =3D ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth =3D CurrCell.ColumnWidth +
MergedCellRgWidth
Next
.MergeCells =3D False
.Cells(1).ColumnWidth =3D MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight =3D .RowHeight
.Cells(1).ColumnWidth =3D ActiveCellWidth
.MergeCells =3D True
.RowHeight =3D IIf(CurrentRowHeight > PossNewRowHeight, =
_
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub
It worked for me.
Ray Blake
_____________
This email is from Ray Blake, Head of Software Design, GR Business
Process Solutions. It is confidential and intended for the addressee
only. The contents are private and may be legally privileged. If you
receive this email in error we would be grateful if you would advise the
sender and delete the email from your system.
For more information on the services that we offer please visit us at
our website: - www.grbps.com
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
Behalf Of Sandy Crowley
Sent: 29 September 2003 21:32
To: mso@xxxxxxxxxxxxx
Subject: [mso] Excel question
I have created an Excel form for Employee Reviews.
Comment Cell is a cell that has been merged across the width of the
document and sized to a specific height.
Problem: When a user types in the cell, the cell doesn't expand with the
text even though I have the "wrap text" box checked for that cell.
Has anyone run into this issue and how did you solve or work around it?
Thanks.
Sandy Crowley, SDA, CDT
Director of Administration | Senior Associate
Little Diversified Architectural Consulting
5815 Westpark Drive | Charlotte, NC 28217
D:704.561.5135 | M:704.408.0458 | F:704.561.8734
www.littleonline.com <http://www.littleonline.com/>
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx
or MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the
quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will
also allow you to change your email settings to digest or vacation (no
mail). //www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group,
send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an
invitation with instructions. Once you are a member of the files group,
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx
or MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the
quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will
also allow you to change your email settings to digest or vacation (no
mail). //www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group,
send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an
invitation with instructions. Once you are a member of the files group,
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx
or MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to=20
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the
quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will
also allow you to change your email settings to digest or vacation (no
mail). //www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group,
send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an
invitation with instructions. Once you are a member of the files group,
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
