| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill Color
Any scripts can call out the Fill Color by a customized shortcut key? It
will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
something like this could be run by a shortcut key........
Sub pwz() ActiveCell.Offset(0, 1).Interior.Color = vbRed End sub this fills the cell one cell to the right from the active cell............ hope it gets you started. :) susan On Jun 24, 10:12*am, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? *It will be excellent if it can be popped up nearby the active cell. *Thanks in advance for any help! Pat |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Function GetColorindex() Application.Dialogs(xlDialogPatterns).Show End Function -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pwz" wrote in message ... Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Assign this to shortcut key.
Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell ..Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
I think that I voiced out my request in an unclear way. Bob's solution is
the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
How will you call Bob's function with a shortcut key?
Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Application.OnKey "^+K","GetColorindex"
-- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Gord Dibben" <gorddibbATshawDOTca wrote in message ... How will you call Bob's function with a shortcut key? Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message . .. Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Yes, this is also exactly what I'm trying to do, besides assigning the macro
to keys. "Bob Phillips" wrote in message ... Application.OnKey "^+K","GetColorindex" -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Gord Dibben" <gorddibbATshawDOTca wrote in message ... How will you call Bob's function with a shortcut key? Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Thanks Bob.
Gord On Tue, 24 Jun 2008 17:20:22 +0100, "Bob Phillips" wrote: Application.OnKey "^+K","GetColorindex" |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Dear Gorb,
I changed his solution to a Sub routine and then assigned it to a key. The pattern is then poped for my selection. "Gord Dibben" <gorddibbATshawDOTca wrote in message ... How will you call Bob's function with a shortcut key? Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message . .. Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
Function works fine.
-- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pwz" wrote in message ... Dear Gorb, I changed his solution to a Sub routine and then assigned it to a key. The pattern is then poped for my selection. "Gord Dibben" <gorddibbATshawDOTca wrote in message ... How will you call Bob's function with a shortcut key? Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
|
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Fill Color
OK
I mis-read the original posting. Gord On Wed, 25 Jun 2008 00:26:21 +0800, "pwz" wrote: Dear Gorb, I changed his solution to a Sub routine and then assigned it to a key. The pattern is then poped for my selection. "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . How will you call Bob's function with a shortcut key? Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote: I think that I voiced out my request in an unclear way. Bob's solution is the nearest one to what I want. I in fact want to use one cumstomized shortcut key to call out the Fill Color which originally locates in the Formatting Toolbar. Thanks to you all! "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Assign this to shortcut key. Sub test() With ActiveCell MsgBox .Interior.ColorIndex End With End Sub If you want the value placed in an adjacent cell.............. Sub test() With ActiveCell .Offset(0, 1).Value = .Interior.ColorIndex End With End Sub Gord Dibben MS Excel MVP On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote: Any scripts can call out the Fill Color by a customized shortcut key? It will be excellent if it can be popped up nearby the active cell. Thanks in advance for any help! Pat |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Match TextBox Back Color to Cell Fill Color | Excel Programming | |||
| change fill color of a range of cells based on color of a cell? | Excel Programming | |||
| My fill color and font color do not work in Excel Std Edition 2003 | Excel Discussion (Misc queries) | |||
| Excel 2003 will not display color fonts or color fill cells | Excel Worksheet Functions | |||
| My excel 2003 wont let me fill cells with color or color the tabs. | New Users to Excel | |||
![pwz[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
