Tech
Forums
Jobs
Books
Events
Interviews
Live
More
Learn
Training
Career
Members
Videos
News
Blogs
Login
Sign Up
Ask Question
1
Reply
Add a Combo Box in a Excel cell Using VBA
Dinesh Santhalingam
May 8 2017 5:40 AM
317
Reply
Set
objGEXCELapp
=
GetObject
(, "EXCEL.Application")
If Err.Number
<
>
0 Then
Err.Clear
Set
objGEXCELapp
=
CreateObject
("EXCEL.Application")
End If
objGEXCELapp.Application.Visible
=
True
Set
objGEXCELwkBks
=
objGEXCELapp
.Application.Workbooks
Set
objGEXCELwkBk
=
objGEXCELwkBks
.Add
Set
objGEXCELwkShs
=
objGEXCELwkBk
.Worksheets(1)
Set
objGEXCELSh
=
objGEXCELwkBk
.Sheets(1)
objGEXCELSh.Cells(1, "A") = "Name"
objGEXCELSh.Cells(1, "B") = "Age"
objGEXCELSh.Cells(1, "C") = "Weight"
objGEXCELSh.Cells(1, "D") = "Height"
objGEXCELSh.Cells(1, "E") = "Sex"
objGEXCELSh.Cells(1, "F") = "Your Option"
objGEXCELSh.Cells(i, "A") = Dhini
objGEXCELSh.Cells(i, "B") = 22
objGEXCELSh.Cells(i, "C") = 73
objGEXCELSh.Cells(i, "D") = 165
objGEXCELSh.Cells(i, "E") = Male
objGEXCELSh.Cells(i, "F") = Here I need a Combobox to occupy in a cell to select
I need a combobox in my cell .Please give me a solution.
Upload Source Code
Select only zip and rar file.
Post
Reset
Cancel
Answers (
1
)
Next Recommended Forum
I want some Extension of file from a selected folder in VBA?
UnZip RAR file using Framework 3.5