Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display VB code result in cell instead of message box?
Please reivew your previous post
------------------ I assume the checkbox names are checkbox1, checkbox2 and so on..Launch VBE using Alt+F11. Insert a module and paste the below code.. In worksheet the below formula will return the value =GetCheckBoxValue() Function GetCheckBoxValue() As Long For intTemp = 1 To 4 If ActiveSheet.OLEObjects("CheckBox" & intTemp).Object.Value = True Then GetCheckBoxValue = GetCheckBoxValue + 1 End If Next End Function If this post helps click Yes --------------- Jacob Skaria "Leigh Douglass" wrote: Is it possible to get the result of the code below to show in a cell on my spreadsheet instead of displaying in a message box? Thanks Leigh Private Sub GetResult() ' counter MsgBox -1 * (CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4) ' binary encoded MsgBox -1 * (CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4) End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
display message while code is running | Excel Programming | |||
change from message box to result in cell | Excel Programming | |||
Display message box after each line of code? | Excel Programming | |||
Use VBA code to display message if combobox selection not in list | Excel Programming | |||
UserForm - display text message then run code | Excel Programming |