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

[amirgolshan]

با سلام،

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


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

سپاس

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

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

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

[amirgolshan]

خیلی‌ ممنونم.

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

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


ممنون

[m.estreji]

خیلی‌ ممنونم.

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

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


ممنون

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

[amirgolshan]

با سلام،

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

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


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

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

Non-Available
Available
Lack of information


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


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

[amirgolshan]

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

[s.cheraghi]

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

[shamsololama]

با سلام،

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

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


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

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

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]

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

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

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

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


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


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

دانلود