Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro using a cell reference
I have an aplication called DPlot that can take commands from inside excel
using macros. I managed to interact already with it using the following: - Sub DownElevation() ' ' DownElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,-1)]" DDETerminate Channel End Sub Sub UpElevation() ' ' UpElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,1)]" DDETerminate Channel End Sub Sub LeftAzimuth() ' ' LeftAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(-1,)]" DDETerminate Channel End Sub Sub RightAzimuth() ' ' RightAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(1,)]" DDETerminate Channel End Sub I created a button for each macro and that works fine. But the problem is that to acheive the disired result I have to click a lot of times on each button. I know that I can replace the 1 and -1 with higher numbers but then that will be too course. I was wondering if and how I could replace the 1 and -1 numbers with cell contents, which cells contents are controlled via a scroll bar inside excel. I know how to use the scroll bars, but I cannot find the correct way to declare the cells inside the macro and subsequently how to use them/their value. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro using a cell reference
Can you do something like:
DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]" -- Best Regards, Luke M "Jason Falzon" wrote in message ... I have an aplication called DPlot that can take commands from inside excel using macros. I managed to interact already with it using the following: - Sub DownElevation() ' ' DownElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,-1)]" DDETerminate Channel End Sub Sub UpElevation() ' ' UpElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,1)]" DDETerminate Channel End Sub Sub LeftAzimuth() ' ' LeftAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(-1,)]" DDETerminate Channel End Sub Sub RightAzimuth() ' ' RightAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(1,)]" DDETerminate Channel End Sub I created a button for each macro and that works fine. But the problem is that to acheive the disired result I have to click a lot of times on each button. I know that I can replace the 1 and -1 with higher numbers but then that will be too course. I was wondering if and how I could replace the 1 and -1 numbers with cell contents, which cells contents are controlled via a scroll bar inside excel. I know how to use the scroll bars, but I cannot find the correct way to declare the cells inside the macro and subsequently how to use them/their value. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro using a cell reference
Yes this works as it takes the value of my cell, but the problem is that I'd
like the macro to continuasly refresh so as it takes the new value immediately, as the application calls for the cell value to change frequently through a scroll bar. "Luke M" wrote: Can you do something like: DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]" -- Best Regards, Luke M "Jason Falzon" wrote in message ... I have an aplication called DPlot that can take commands from inside excel using macros. I managed to interact already with it using the following: - Sub DownElevation() ' ' DownElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,-1)]" DDETerminate Channel End Sub Sub UpElevation() ' ' UpElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,1)]" DDETerminate Channel End Sub Sub LeftAzimuth() ' ' LeftAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(-1,)]" DDETerminate Channel End Sub Sub RightAzimuth() ' ' RightAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(1,)]" DDETerminate Channel End Sub I created a button for each macro and that works fine. But the problem is that to acheive the disired result I have to click a lot of times on each button. I know that I can replace the 1 and -1 with higher numbers but then that will be too course. I was wondering if and how I could replace the 1 and -1 numbers with cell contents, which cells contents are controlled via a scroll bar inside excel. I know how to use the scroll bars, but I cannot find the correct way to declare the cells inside the macro and subsequently how to use them/their value. . |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro using a cell reference
Wrap this around it and put it in ThisWorkbook
Private Sub Workbook_SheetChange() End Sub "Jason Falzon" wrote: Yes this works as it takes the value of my cell, but the problem is that I'd like the macro to continuasly refresh so as it takes the new value immediately, as the application calls for the cell value to change frequently through a scroll bar. "Luke M" wrote: Can you do something like: DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]" -- Best Regards, Luke M "Jason Falzon" wrote in message ... I have an aplication called DPlot that can take commands from inside excel using macros. I managed to interact already with it using the following: - Sub DownElevation() ' ' DownElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,-1)]" DDETerminate Channel End Sub Sub UpElevation() ' ' UpElevation Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(,1)]" DDETerminate Channel End Sub Sub LeftAzimuth() ' ' LeftAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(-1,)]" DDETerminate Channel End Sub Sub RightAzimuth() ' ' RightAzimuth Macro ' Macro recorded 24/03/2010 ' ' Channel = DDEInitiate("DPlot", "System") DDEExecute Channel, "[ContourViewChange(1,)]" DDETerminate Channel End Sub I created a button for each macro and that works fine. But the problem is that to acheive the disired result I have to click a lot of times on each button. I know that I can replace the 1 and -1 with higher numbers but then that will be too course. I was wondering if and how I could replace the 1 and -1 numbers with cell contents, which cells contents are controlled via a scroll bar inside excel. I know how to use the scroll bars, but I cannot find the correct way to declare the cells inside the macro and subsequently how to use them/their value. . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using cell as worksheet reference (macro) | Excel Discussion (Misc queries) | |||
absolute cell reference macro | Excel Discussion (Misc queries) | |||
Cell Reference Macro | Excel Discussion (Misc queries) | |||
cell reference in macro | Excel Discussion (Misc queries) | |||
variable cell reference in a macro | Excel Discussion (Misc queries) |