جدا کردن اسامی از ویرگول و جستجوی آنها

[hamid_rm]

با سلام دوستان
کدی از VB هست که بتونه ویرگول رو از اسامی جدا کنه ؟؟ مثل فایل زیر. مثلاً میتونم اسم انتخاب شده رو یه جایی مثل یک Txtbox بیارم؟؟


میخوام وقتی یک قسمتی رو انتخاب میکنم فرم روی صفحه ظاهر بشه و قسمت انتخاب شده رو درون Textbox نشون بده.

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

[iranweld]

با استفاده از دستور INSTR میتوانید موقعیت کارکتر ویرگول را در جمله بدست آورید

Sub test()
Dim xx, yy As Integer
xx = InStr(1, Range("A1"), "¡")
yy = InStr(xx, Range("A1"), ChrW(40)) - 3
MsgBox Mid(Range("A1"), xx + 2, yy - xx)

End Sub 

[hamid_rm]

آقا دستتون درد نکنه ممنون- من الآن با کمک این کدی که شما دادی میتونم ببینم ویرگول چندمین کاراکتره ولی حالا برای اینکه اسمها را از هم جدا کنم و هرکدوم رو در یک Textbox بریزم نیاز دارم از توابع Left و Right هم استفاده کنم. هرکاری میکنم نمیتونم در کد VB اونها رو بیارم. الآن چی کار کنم؟

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

[hamid_rm]

آقا جان ممنون - درست شد.
یک مشکل همیشگی دارم - اینکه چطور میتونیم از حلقه خارج بشیم؟
مثل این :

For i = 1 To k


If Range(b & i).Value = "" Then


Row = Range("a" & i).Row


End If


Next

الآن اینجا من میخوام وقتی شرط بر قرار شد و اون مقدار رو در متغیر Row قرار داد، دیگه بقیش رو نره و for رو ول کنه بیاد بیرون.

[hamid_rm]

جناب Iranweld با تشکر از راه حلتون. اگر ممکنه خط 2 یا 3 ی کد ارسالیتون رو برام توضیح بدید. چون میخوام ببینم چه کار کنم که قسممت اول سلول رو چطور روی مسیج باکس نشون بدم. الآن قسمت دوم ( اسم دوم) میاد رو پیغام. اگر مثلاً تا 6 اسم بود چی کار کنم؟؟؟ لطفاً راهنمایی بفرمایید... با تشکر

[iranweld]

جناب Iranweld با تشکر از راه حلتون. اگر ممکنه خط 2 یا 3 ی کد ارسالیتون رو برام توضیح بدید. چون میخوام ببینم چه کار کنم که قسممت اول سلول رو چطور روی مسیج باکس نشون بدم. الآن قسمت دوم ( اسم دوم) میاد رو پیغام. اگر مثلاً تا 6 اسم بود چی کار کنم؟؟؟ لطفاً راهنمایی بفرمایید... با تشکر

با سلام

در دستور

xx = InStr(1, Range("A1"), "¡") 

اولین موقعیت از نظر چندمین کارکتر علامت ویرگول بدست میاید

در دستور

yy = InStr(xx, Range("A1"), ChrW(40)) - 3 

اولین موقعیت کارکتر پرانتز باز "(" بعد از ویرگول بدست میاید

بجای msgbox یک یوزر فرم و یک تکست باکس ایجاد نمایید و مقدار حاصل را به تکست باکس اختصاص دهید

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

[iranweld]

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


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

[hamid_rm]

آقای Iranweld عزیز
با تشکر از زحمات شما، این قسمتChrW(40 یعنی چی ؟؟ شما گفتید اولین پرانتز رو بعد از ویرگول نشان میدهد. اما در کد خط قبلیش با "،" این کد ویرگول رو پیدا میکرد. برای همین فکر کردم این معنیش میشه پرانتز!!!!!