انتخاب از یک لیست با درج اعداد در سلول مجاور در اکسل

[جینگیل]

سلام دوستان
خیلی وقت پیش فایل اکسلی را درست کرده بودم که در ستونی که بصورت کمبوباکس بود و گزینه های "زن- مرد - هیچ کدام" داشت اگر ۱ میزدم میشد زن اگر ۲ میزدم میشد مرد و... اینجوری لازم به انتخاب از توی لیست نبود ولی هرچی حالا فک میکنم یادم نمیاد چطور انجام میدادم الان این حالت را برای ثبت گروه خونی می خوام (a-b- ab-o) تالازم نباشد هی گیبرد را از فارسی به انگلیسی تغییر بدم


میدونم سوالم یکم خنده داره ولی خب چ کنم یادم رفته دیگه
حالاکسی هست منو راهنمایی کند

[sabertb]

سلام دوستان
خیلی وقت پیش فایل اکسلی را درست کرده بودم که در ستونی که بصورت کمبوباکس بود و گزینه های "زن- مرد - هیچ کدام" داشت اگر ۱ میزدم میشد زن اگر ۲ میزدم میشد مرد و... اینجوری لازم به انتخاب از توی لیست نبود ولی هرچی حالا فک میکنم یادم نمیاد چطور انجام میدادم الان این حالت را برای ثبت گروه خونی می خوام (a-b- ab-o) تالازم نباشد هی گیبرد را از فارسی به انگلیسی تغییر بدم


میدونم سوالم یکم خنده داره ولی خب چ کنم یادم رفته دیگه
حالاکسی هست منو راهنمایی کند

عنوان سوال رو اصلاح کنید این جور عناوین برای سوال ها خلاف مقررات است.
نمونه فایلی که میگید برای زن و مرد و ... هست هم بزارید تا منظورتون بهتر منتقل بشه . من شخصا فکر میکنم با data Validation این کار آسون تر است نیازی هم به انتخاب زبان صفحه کلید نیست.

[جینگیل]

بله چشم برای عنوان حرفتون کاملا صحیح است
برای سوالم اگر منظورم نامفهومه فایل بذارم ؟ اخه فایلم خیلی حجیمه نمیشه ارسال کنم

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

فک کنم با فرمول ایف بشه حالا اساتید راهنمایی کنند ممنون میشم(مثلا با نوشتن عدد یک از لیستم گروه خونی a انتخاب کنه)

[generalsamad]

با سلام
اگه فایل نمونه بذارید بهتره که سریعتر به جواب میرسید

[جینگیل]

ممنون از همگی
فایل نمونه را میگذارم لطفا راهنمایی کنید

[generalsamad]

با سلام
از روش توابع جستجو میشه به جواب رسید
البته با Vba جالبتره
فایل ضمیمه بر اساس توابع جستجو حل شده اگه وقت شد کد Vba رو هم قرار میدم
فایل ضمیمه گردید

[khakzad]

از این فرمول هم میشه استفاده کرد.
دیگه نیازی به tableنیست

=CHOOSE(E4,"A","B","AB","O")

[generalsamad]

با سلام
این کد Vba هم که میتونید استفاده کنید
بصورت ساده نوشته شده

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 100
    If (Cells(i, 1) = "1") Then
        Cells(i, 1) = "A"
    End If
    If (Cells(i, 1) = "2") Then
        Cells(i, 1) = "B"
    End If
    If (Cells(i, 1) = "3") Then
        Cells(i, 1) = "AB"
    End If
    If (Cells(i, 1) = "4") Then
        Cells(i, 1) = "O"
    End If
Next i
End Sub 

این کد رو در Worksheet رویداد SelectionCHange قرار بدید
توضیح کد: در سلول A1:A100 اگه عدد 1 وارد کنید مقدار A ثبت میشود عدد2 مقدار B،عدد3 مقدار AB و عدد 4 مقدار O ثبت میشود.

[جینگیل]

ممنونم دوستان گرامی

آقای generalsamad
کدی که لطف کردید و نوشتید را کپی میکنم ولی کار نمیکنه نمیدونم چرا نمیتونم

[mch2v]

شما کد رو کجا کپی میکنید؟؟؟؟
باید تو قسمت vb در اکسل کپی کنید

[iranweld]

ممنونم دوستان گرامی

آقای generalsamad
کدی که لطف کردید و نوشتید را کپی میکنم ولی کار نمیکنه نمیدونم چرا نمیتونم

با سلام
و کسب اجازه از جنرال صمد
در فایل پیوست که تست شد جواب داد

[جینگیل]

هورا حلللللللل شد ممنونننننننننننننننننننننننننننننننن

اما یک سوال اگر داده های من ۲۰۰۰ باشه و ستون گروه خونی در ch واقع شده باشه باید چگونه در کد تغییر بدهم ؟؟؟

[generalsamad]

با سلام
طبق کدی که من گذاشتم اینطور تغییر خواهد کرد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 2000
    If (Cells(i, 86) = "1") Then
        Cells(i, 86) = "A"
    End If
    If (Cells(i, 86) = "2") Then
        Cells(i, 86) = "B"
    End If
    If (Cells(i, 86) = "3") Then
        Cells(i, 86) = "AB"
    End If
    If (Cells(i, 86) = "4") Then
        Cells(i, 86) = "O"
    End If
Next i
End Sub 

[جینگیل]

یک دنیاااااااااااااااااااااااااااااااااا سپاسسسسسسسسسسسسسسسسسسسسسسسسسس