Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to save entire Cell in a variable and put it back later?
Hello -
I wrote a little deleteCell() function that deletes a cell and shifts the cells below up. I had to do that because most of the sheet is locked and I don't want the user to fool with it. So I wanted to give the option of a undelete as well. I store the .Value and ..Interior.ColorIndex in a string and integer respectively. I was wondering if I could store the entire cell in an object or something like that? I want to keep all the formatting including character font etc. ... I tried ... ' Global dim gCell as object Set gCell = lSheet.Cell(1,1) This works ... just not when I try to assign it back later ... lSheet.Cell(1,1) = gCell I cannot just copy it to the clipboard because the user might put other stuff there in-between the calls. How can I make this work to easily store and restore the format of the cell. Would the CellFormat type work instead of the Object type? Thanks, Joe |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to save entire Cell in a variable and put it back later?
Joe,
You could hide a column and store a copy of the cell there. Jim Cone San Francisco, USA "Joe HM" wrote in message ups.com... Hello - I wrote a little deleteCell() function that deletes a cell and shifts the cells below up. I had to do that because most of the sheet is locked and I don't want the user to fool with it. So I wanted to give the option of a undelete as well. I store the .Value and .Interior.ColorIndex in a string and integer respectively. I was wondering if I could store the entire cell in an object or something like that? I want to keep all the formatting including character font etc. ... I tried ... ' Global dim gCell as object Set gCell = lSheet.Cell(1,1) This works ... just not when I try to assign it back later ... lSheet.Cell(1,1) = gCell I cannot just copy it to the clipboard because the user might put other stuff there in-between the calls. How can I make this work to easily store and restore the format of the cell. Would the CellFormat type work instead of the Object type? Thanks, Joe |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to save entire Cell in a variable and put it back later?
I would store the cell and format with contents on a hidden worksheet. If
hidden new cell is named from within that sheet then the range is not visable to the user and hidden columns or rows bug some people. "Joe HM" wrote: Hello - I wrote a little deleteCell() function that deletes a cell and shifts the cells below up. I had to do that because most of the sheet is locked and I don't want the user to fool with it. So I wanted to give the option of a undelete as well. I store the .Value and ..Interior.ColorIndex in a string and integer respectively. I was wondering if I could store the entire cell in an object or something like that? I want to keep all the formatting including character font etc. ... I tried ... ' Global dim gCell as object Set gCell = lSheet.Cell(1,1) This works ... just not when I try to assign it back later ... lSheet.Cell(1,1) = gCell I cannot just copy it to the clipboard because the user might put other stuff there in-between the calls. How can I make this work to easily store and restore the format of the cell. Would the CellFormat type work instead of the Object type? Thanks, Joe |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to save entire Cell in a variable and put it back later?
"Joe HM" wrote in message
ups.com... Hello - I wrote a little deleteCell() function that deletes a cell and shifts the cells below up. I had to do that because most of the sheet is locked and I don't want the user to fool with it. So I wanted to give the option of a undelete as well. I store the .Value and .Interior.ColorIndex in a string and integer respectively. I was wondering if I could store the entire cell in an object or something like that? I want to keep all the formatting including character font etc. ... I tried ... ' Global dim gCell as object Set gCell = lSheet.Cell(1,1) This works ... just not when I try to assign it back later ... lSheet.Cell(1,1) = gCell maybe you need to copy property_by_property from "memory object" to another cell [maybe not all of them, but at least interesting ones]? something like: sub cell_put(cell as range, gcell as variant) with cell do .value=gcell.value .format=gcell.format 'rest of interesting props here end with end sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
To give back ground colour for entire row on certain condition | Excel Discussion (Misc queries) | |||
How to save same excel workbook in different folders as a back up | Excel Discussion (Misc queries) | |||
Issue with save xls file to html and than back to xls | Excel Discussion (Misc queries) | |||
SAVE is not available in Excel under FILE. How do I get it back? | Excel Discussion (Misc queries) | |||
Sending variable data to a web site to be computed then brought back to Excel | Excel Programming |