پرسش دیتا ولیدیشن

[fokker]

با سلام

آیا راهی وجود داره که وقتی با دیتا ولیدیشن، لیستی ایجاد کردیم. بدون افزایش عرض سلولی که دارای لیست کشوئی است ، بتوان عرض خود لیست را افزایش داد تا بزرگتر شدن عرض سلول جلوگیری کرد. ممنون

چون میخوام برای کل سال (365) سلول درنظر بگیرم و تمام آنها هم باید دارای لیست کشوئی باشند، در نتیجه منجر به این میشه که از لحاظ ابعاد و اندازه فایل بسیار بزرگی ایجاد بشه و کارکردن باهاش سخت بشه.

[fokker]

help

[fokker]

با جستجو در اینترنت کدهای زیر رو پیدا کردم. اساتید میتونن بررسی کنن که جواب میده یا نه، چون در فایل خودم گذاشتم دیدم که تغییری ایجاد نشد. حالا یا کدها اشتباه است یا باید یک قسمتی از کد رو تغییر داد که من نمی دونم.

[COLOR=#242729][FONT=Consolas]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/FONT][/COLOR]  If Target.Cells.Count > 1 Then Exit Sub
   If Target.Address = "$H$1" Then 'adjust this range to your drop down list
       Target.Columns.ColumnWidth = 30 'adjust to your needs
   Else
       Columns(8).ColumnWidth = 8 'adjust column number to column with drop down values
   End If [COLOR=#242729][FONT=Consolas]End Sub[/FONT][/COLOR]

و

[COLOR=#101094][FONT=inherit]Private[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Worksheet_SelectionChange[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#101094][FONT=inherit]ByVal[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Target [/FONT][/COLOR][COLOR=#101094][FONT=inherit]As[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Range[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]  [/FONT][/COLOR][COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Target[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Count [/FONT][/COLOR][COLOR=#303336][FONT=inherit]>[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Exit[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Target[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Column [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]4[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
       Target[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Columns[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]ColumnWidth [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]20[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#101094][FONT=inherit]End[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]End[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR]

[fokker]

این نمونه پیوستی رو هم پیدا کردم اما نمیدونم چطور عرض لیست رو زیاد کرده >>>

[iranweld]

با سلام
از قابلیت یوزر فرم استفاده کنید که بمحض انتخاب یکی از سلول های ستون مورد نظر ، یوزر فرم باز شده و بعد از انتخاب آیتم ، یوزر فرم بسته میشود

در فایل پیوست با کلیک روی هر سلول ستون a یوزر فرم باز شده و پس از انتخاب آیتم یوزر فرم بسته میشود

[fokker]

با سلام
از قابلیت یوزر فرم استفاده کنید که بمحض انتخاب یکی از سلول های ستون مورد نظر ، یوزر فرم باز شده و بعد از انتخاب آیتم ، یوزر فرم بسته میشود

در فایل پیوست با کلیک روی هر سلول ستون a یوزر فرم باز شده و پس از انتخاب آیتم یوزر فرم بسته میشود

[ATTACH=CONFIG]17292[/ATTACH]

سلام ممنون استاد عزیز:

اگه بخوام برای تک تک سلول های محدوده e4 تا nf42 ، اون رو ایجاد کنم به چه صورت باید عمل کنم میشه راهنمایی کنید لطفا. سپاس

[iranweld]

محدوده مورد نظر را مطابق تصویر پیوست اصلاح کنید

[fokker]

محدوده مورد نظر را مطابق تصویر پیوست اصلاح کنید

[ATTACH=CONFIG]17293[/ATTACH]

استاد محدوده رو به e4 تا nf42 تغییر دادم اما خطا میده بررسی فرمایید لطفا

[iranweld]

چون فایل به فرمت اکسل 2003 ذخیره شده است لذا همین فایل را با فرمت 2010اکسل macro Enableذخیره کنید

[fokker]

استاد عزیز. اطلاعات درون فرم رو چطور میشه وارد کرد یا تغییر داد ؟؟؟؟

[Alireza]

استاد عزیز. اطلاعات درون فرم رو چطور میشه وارد کرد یا تغییر داد ؟؟؟؟

سلام با اجازه از استاد عزیز

Private Sub UserForm_Initialize()
For i = 1 To 10
ComboBox1.AddItem "xx" & i
Next
End Sub 

این کد اطلاعات combobox هست حالا بر اساس نیازتون تغییرش بدید
مثل این کد

Me.ComboBox1.List = Worksheets("Sheet1").Range("B12:B376").Value 

[fokker]

ببخشید من میخوام بجای xهای موجود در فرم ، اطاعلات دیگه ای وارد کنم حقیقتا روشش رو نمیدونم
میخوام در در لیست کشوئی فرم، یازده مورد دیده بشه که در زیر اسم می برم ، اما نمی دونم چه باید بکنم

خیلی زیاد موثر
خیلی موثر
متوسط موثر
نسبتا موثر
موثر
ناموثر
نسبتا ناموثر
متوسط ناموثر
خیلی ناموثر
خیلی زیاد ناموثر
فاقد ارزش بررسی

[Alireza]

ببخشید من میخوام بجای xهای موجود در فرم ، اطاعلات دیگه ای وارد کنم حقیقتا روشش رو نمیدونم
میخوام در در لیست کشوئی فرم، یازده مورد دیده بشه که در زیر اسم می برم ، اما نمی دونم چه باید بکنم

خیلی زیاد موثر
خیلی موثر
متوسط موثر
نسبتا موثر
موثر
ناموثر
نسبتا ناموثر
متوسط ناموثر
خیلی ناموثر
خیلی زیاد ناموثر
فاقد ارزش بررسی

فایل قبلی شما رو اصلاح کردم

[fokker]

اگر در محدوده ای که برای نمایش یوزرفرم تعریف کردیم، بخوایم تغییراتی اعمال کنیم چه باید کرد؟؟

مثلا بخوایم یوزرفرم در دو محدوده با کلیک بر روی سلول ها نمایش داده بشه؟؟؟
محدوده B3 تا F5 و محدوده H3 تا K5
یعنی در ستون G3 تا G5 که بین دو محدوده نامبرده بالا است یوزرفرم اجرا نشه؟
کد فعلی مورد استفاده بصورت زیر است

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("b3:k5")) Is Nothing Then        UserForm1.Show        End If
End Sub 

[iranweld]

با سلام

این کدها را اصلاح کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("b3:f5")) Is Nothing Then UserForm1.Show

If Not Intersect(Target, Me.Range("h3:k5")) Is Nothing Then UserForm1.Show
 
End Sub 

یا بدین صورت

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("b3:f5, h3:k5")) Is Nothing Then UserForm1.Show

 
End Sub