Has Text Enough Space in a cell
Hello,
I would like to test if myValue has enough space (place) to be written in a cell. I know the width of my cell with Set selected_cell = Target.Cells(1, 1) Debug.Print selected_cell .Width What is the width of the value? Dim myValue as string myValue = "a value from database" selected_cell.value = myValue Reason: I would like that the whole value has place in the cell, otherwise I would shorten the value. I need A function like width(cell, myValue) this depends on the font in the cell Any Hints Thanks Marcel |
Has Text Enough Space in a cell
I find it simpler to use Autofit.
"Marcel" wrote in message ... Hello, I would like to test if myValue has enough space (place) to be written in a cell. I know the width of my cell with Set selected_cell = Target.Cells(1, 1) Debug.Print selected_cell .Width What is the width of the value? Dim myValue as string myValue = "a value from database" selected_cell.value = myValue Reason: I would like that the whole value has place in the cell, otherwise I would shorten the value. I need A function like width(cell, myValue) this depends on the font in the cell Any Hints Thanks Marcel |
All times are GMT +1. The time now is 01:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com