Excel and ComboBox

[TomTJ]

Hello

I'm able to reproduce this example from MSDN to create a ComboxBox on Excel:

http://msdn.microsoft.com/en-us/library/aa...office.11).aspx

http://msdn.microsoft.com/en-us/library/aa...office.11).aspx

Does anyone have an idea to do this?

Thx

Tom

[TomTJ]

I founded how to do that combobox in H30 with datas from D5:D8. Here's a sample code:

#include <ExcelCOM_UDF.au3>

;Enum XlDVType

Const $xlValidateInputOnly = 0

Const $xlValidateWholeNumber = 1

Const $xlValidateDecimal = 2

Const $xlValidateList = 3

Const $xlValidateDate = 4

Const $xlValidateTime = 5

Const $xlValidateTextLength = 6

Const $xlValidateCustom = 7

;Enum XlDVAlertStyle

Const $xlValidAlertStop = 1

Const $xlValidAlertWarning = 2

Const $xlValidAlertInformation = 3

;Enum XlFormatConditionOperator

Const $xlBetween = 1

Const $xlNotBetween = 2

Const $xlEqual = 3

Const $xlNotEqual = 4

Const $xlGreater = 5

Const $xlLess = 6

Const $xlGreaterEqual = 7

Const $xlLessEqual = 8

Const $xlTrue = 1

Const $xlFalse = 0

$oExcel.Activesheet.Range("H30").Select()

$oExcel.Activesheet.Range("H30").Validation.Add($xlValidateList,$xlValidAlertStop,$xlBetween,"=$D5:$D8");, AlertStyle:=xlValidAlertInformation, Minimum:="5", Maximum:="10"

$oExcel.Activesheet.Range("H30").Validation.InputMessage = ""

$oExcel.Activesheet.Range("H30").Validation.ErrorMessage = ""

$oExcel.Activesheet.Range("H30").Validation.IgnoreBlank = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.InCellDropdown = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.ErrorTitle = ""

$oExcel.Activesheet.Range("H30").Validation.InputTitle = ""

$oExcel.Activesheet.Range("H30").Validation.ShowInput = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.ShowError = $xlTrue

Edited May 21, 2008 by TomTJ

[CHAFF]

$oExcel.Activesheet.Range("H30").Select()

$oExcel.Activesheet.Range("H30").Validation.Add($xlValidateList,$xlValidAlertStop,$xlBetween,"=$D5:$D8");, AlertStyle:=xlValidAlertInformation, Minimum:="5", Maximum:="10"

$oExcel.Activesheet.Range("H30").Validation.InputMessage = ""

$oExcel.Activesheet.Range("H30").Validation.ErrorMessage = ""

$oExcel.Activesheet.Range("H30").Validation.IgnoreBlank = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.InCellDropdown = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.ErrorTitle = ""

$oExcel.Activesheet.Range("H30").Validation.InputTitle = ""

$oExcel.Activesheet.Range("H30").Validation.ShowInput = $xlTrue

$oExcel.Activesheet.Range("H30").Validation.ShowError = $xlTrue

Hey man great post.....I'm trying to go the other direction. Do you know of a way to retrieve all the enteries ComboBoxes/Dropdown Box?

[CHAFF]

Hey man great post.....I'm trying to go the other direction. Do you know of a way to retrieve all the enteries ComboBoxes/Dropdown Box?

Ok I sort of figured it out....so to get the formula and therefore the range in the Validation cell then you would use.

MsgBox(0,"",$oExcel.ActiveSheet.Range("D3").Validation.Formula1)