حذف سل‌های خالی‌ در کمبکس

[amirgolshan]

با سلام،

چگونه میشود ، کاری کرد ک سل های خالی ( blank) ستون "A " در کمبکس دیده نشوند و فقط سلهای که دارای مقدار هستند نشان داده شود ؟


آدرس دريافت فايل :
http://persiandrive.com/889287

سپاس

[mokaram]

RE: حذف سلهای خالی در کمبکس

از این کد استفاده کن

dim c as range
for each c in sheet1.range("a2:a100")
if c<>"" then
combobox1.additem c.value
end if
next c

[amirgolshan]

RE: حذف سلهای خالی در کمبکس

خیلی ممنونم.

آیتمهای ستون "A  " وجود دارند و غیر قابل تغییر هستند و باید براساس آنها کار کنم.

از کد شما نتونستم استفاده کنم. خطا میدهد در سطر ۴.


ممنون

[m.estreji]

RE: حذف سلهای خالی در کمبکس

خیلی ممنونم.

آیتمهای ستون "A  " وجود دارند و غیر قابل تغییر هستند و باید براساس آنها کار کنم.

از کد شما نتونستم استفاده کنم. خطا میدهد در سطر ۴.


ممنون

دوست عزیزمون کد رو صحیح نوشتن احتمالا" اسم کمبو باکس شما combobox1 نیست که خطا میدهد

[amirgolshan]

RE: حذف سلهای خالی در کمبکس

با سلام،

خیلی سپاسگزارم.

من تسلط به کد نویسی ندارم ، شاید به همین دلیل هست ک نیمیتونم از کد شما درست استفاده کنم.
به هر حال از کمک و راهنمایی کاملِ شما دوستان عزیز خیلی ممنونم.


در فایل پیوست ، من مجدداً نتونستم از این کد استفاده کنم.

هدف من این هست ک در کمبکس فقط ۳ آیتم زیر نمایش داده شود :

Non-Available
Available
Lack of information


آدرس دريافت فايل :
http://persiandrive.com/661986


مجدداً سپاسگزارم از راهنمایی شما.

[amirgolshan]

RE: حذف سلهای خالی در کمبکس

کیست مرا یاری دهد ؟

[s.cheraghi]

RE: حذف سلهای خالی در کمبکس

فایل ضمیمه رو ببینید

[shamsololama]

RE: حذف سلهای خالی در کمبکس

با سلام،

خیلی سپابدزارم.

من تسلط به کد نویسی ندارم ، شاید به همین دلیل هست ک نیمیتونم از کد شما درست استفاده کنم.
به هر حال از کمک و راهنمایی کاملِ شما دوستان عزیز خیلی ممنونم.


در فایل پیوست ، من مجدداً نتونستم از این کد استفاده کنم.

هدف من این هست ک در کمبکس فقط ۳ آیتم زیر نمایش داده شود :

Non-Available
Available
Lack of information


آدرس دريافت فايل :
http://persiandrive.com/661986


مجدداً سپابدزارم از راهنمایی شما.

با درود فراوان

در کدی که دوست عزیزمون نوشته بودن و مشکلی هم نداشت برای برنامه شما با مشکل بر میخورین دلیلش هم اینه که شما نیاز دارین در کومبوباکس دو ستون را اد کنید یعنی هم ستون A هم ستون B چون بر اساس انتخاب از کمبو می خواهید تکست باکس را پر کنید برای همین یک خط کد دیگه هم نیاز دارین که بهش اضافه کنید یعنی خط ششم تا ستون دوم کمبو باکس هم اضاف شود هرچند در کمبو نمایش داده نمیشه (البته اگر بخواین می تونین نمایشش بدین)

Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Sheet1.Range("a1:a100")
If c <> "" Then
ComboBox1.AddItem c.Value
ComboBox1.List(ComboBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
End If
Next c
End Sub


فایل نمونه:

[attachment=1031]

[mahdiking]

RE: حذف سلهای خالی در کمبکس

با تشکر از همه جوابهایی که اساتید عزیز دادند

ای نمونه کد هم میتونه این کار رو انجام بده
با این خصوصیت که ردیف های تکراری رو هم حذف میکنه

.................................................. .....................

Private Sub UserForm_Initialize()

Dim col As New Collection
Dim r As Long
Dim m As Long

m = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
For r = 1 To m
If Sheet1.Range("A" & r).Value <> "" Then
col.Add Item:=Sheet1.Range("A" & r).Value, Key:=CStr(Sheet1.Range("A" & r).Value)
End If
Next r
For r = 1 To col.Count
Me.ComboBox1.AddItem col( r)
Next r


End Sub


.................................................. ..................


این هم نمونه فایل

دانلود