ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Adding a scroll bar to a cell to scroll its contents. (https://www.excelbanter.com/excel-programming/394987-adding-scroll-bar-cell-scroll-its-contents.html)

SkyKid

Adding a scroll bar to a cell to scroll its contents.
 
Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?

Bernard Liengme

Adding a scroll bar to a cell to scroll its contents.
 
Sorry, no can do.
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"SkyKid" wrote in message
...
Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear
for
the cell....

Or does anyone have an alternative solution to this?




Vergel Adriano

Adding a scroll bar to a cell to scroll its contents.
 
This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


Vergel Adriano

Adding a scroll bar to a cell to scroll its contents.
 
This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


SkyKid

Adding a scroll bar to a cell to scroll its contents.
 
That sounds like a good idea.... I didnt even t hink about using text
boxes...thanks

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


SkyKid

Adding a scroll bar to a cell to scroll its contents.
 
How would that idea work in C#? I'm having some issues trying to find where
the multiline and scrollbars properties for a text box exist in C#

"SkyKid" wrote:

That sounds like a good idea.... I didnt even t hink about using text
boxes...thanks

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


Vergel Adriano

Adding a scroll bar to a cell to scroll its contents.
 
I'm not familiar with C#, but in VB (and VBA), I am able to access the
TextBox directly as an object inside the worksheet. I assume it would be
similar in C#.

Here's how I would do it in VB. I replaced fmScrollBarsVertical with it's
integer value of 2.


Dim xlApp As New Excel.Application
Dim xlWb As Excel.Workbook
xlWb = xlApp.Workbooks.Open("C:\TEMP\Sample.xls")

With xlWb.Sheets("Sheet1")
.TextBox1.MultiLine = True
.TextBox1.ScrollBars = 2 'fmScrollBarsVertical
MsgBox(.textbox1.text)
End With

xlWb.Close(False)
xlApp.Quit()



--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

How would that idea work in C#? I'm having some issues trying to find where
the multiline and scrollbars properties for a text box exist in C#

"SkyKid" wrote:

That sounds like a good idea.... I didnt even t hink about using text
boxes...thanks

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


Vergel Adriano

Adding a scroll bar to a cell to scroll its contents.
 
by the way, this works with the assumption that the workbook already has a
textbox control named "TextBox1"....


--
Hope that helps.

Vergel Adriano


"Vergel Adriano" wrote:

I'm not familiar with C#, but in VB (and VBA), I am able to access the
TextBox directly as an object inside the worksheet. I assume it would be
similar in C#.

Here's how I would do it in VB. I replaced fmScrollBarsVertical with it's
integer value of 2.


Dim xlApp As New Excel.Application
Dim xlWb As Excel.Workbook
xlWb = xlApp.Workbooks.Open("C:\TEMP\Sample.xls")

With xlWb.Sheets("Sheet1")
.TextBox1.MultiLine = True
.TextBox1.ScrollBars = 2 'fmScrollBarsVertical
MsgBox(.textbox1.text)
End With

xlWb.Close(False)
xlApp.Quit()



--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

How would that idea work in C#? I'm having some issues trying to find where
the multiline and scrollbars properties for a text box exist in C#

"SkyKid" wrote:

That sounds like a good idea.... I didnt even t hink about using text
boxes...thanks

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


lwidjaya

Adding a scroll bar to a cell to scroll its contents.
 
Hi,
I have the same problem. I tried to use your code but I don't know how to
link it to the cell. Can we link this code to a specific cell?
Thanks.

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?


lwidjaya

Adding a scroll bar to a cell to scroll its contents.
 
Hi, disregard my previous question. I was such a dummy. :P

"lwidjaya" wrote:

Hi,
I have the same problem. I tried to use your code but I don't know how to
link it to the cell. Can we link this code to a specific cell?
Thanks.

"Vergel Adriano" wrote:

This might be a very crude solution but maybe it would give you an idea.

Add a textbox to the worksheet and name it as TextBox1. Then paste this
code in the worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count 1 Then Exit Sub

TextBox1.Left = Target.Left
TextBox1.Top = Target.Top
TextBox1.Width = Target.Width
TextBox1.Height = Target.Height
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.LinkedCell = Target.Address

End Sub





--
Hope that helps.

Vergel Adriano


"SkyKid" wrote:

Is that possible? I have many cells with a sepcific height. If the
contents of the cell exceed the height I would want a scrollbar to appear for
the cell....

Or does anyone have an alternative solution to this?



All times are GMT +1. The time now is 05:53 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com