ديكشنري

**ali66** · 2012/05/04, 01:59

RE: ديكشنري

مریم جان در زیر ماژولی برای درخواست شما قرار دادم که خودم هم تستش کردم و جواب داده . که در برنامه زیر مقدار 11 که a رو کوچیکتر از آن قرار دادم شماره سطر آخرین واژه ی موجود شما در بانک دیکشنریتون هستش و باید متناسب با اطلاعات خوتون آپدیتش بکنید. در ادامه لیست خودم هم قرار میدم . البته لازم به ذکر هستش که من اطلاعاتم رو از سطر 2 شروع کردم و دلیل اینکه مقادیر ابتدایی a و i برابر 2هست نیز همین هستش.
[hr]
Sub f()
a = 2
i = 2
Do While Sheet1.Cells(i, 1) <> ""
If Sheet1.Cells(i, 1) = Sheet2.Cells(a, 1) Then
Sheet1.Cells(i, 2) = Sheet2.Cells(a, 2)
i = i + 1
a = 2
Else
If a < 11 Then
a = a + 1
Else
i = i + 1
a = 2
End If
End If
Loop
End Sub[hr]
bank
y آ
w ل
u ب
t ی
r س
q ش
p ت
o ن
i م
e ک

test
q ش
w ل
e ک
z
r س
t ی
y آ
u ب
i م
o ن
p ت

**s.cheraghi** · 2012/05/04, 02:27

RE: ديكشنري

با سلام و تشکر از علی آقا

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

Dictionary

**shamsololama** · 2012/05/04, 10:23

RE: ديكشنري

نوشته اصلی توسط maryam62

فرض كنيد
در شيت اول در ستون اول يك سري كلمه فارسي داريم(در هر سلول مي تواند چند كلمه باشد)
در شيت دوم در ستون اول ان تمام كلمات فارسي و در ستون دوم معاني آنها وجود دارد.

مي خوام در شيت اول در ستون دوم معادل انگليسي هر كلمه نوشته بشه.

dictionary

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

ولی در مورد پیدا کردن یک کلمه در یک لیست و اینکه معنی آن را پیدا کرده و مقابل آن بنویسد راهای زیادی هست که می توان از حلقه های مثل For و یا For Each استفاده کرد اما با شرایطی که شما گفته اید که در یک سل می تواند چند کلمه باشد اگر از چند کلمه یکی از آنها را در نظر داشته باشیم نمی توان سل شیت یک را یا سل شیت دو مقایسه کرد چون در آن حالت کل سل را در نظر میگیرد و نیاز هست حتما دوسل کاملا شبیه به هم باشد
مثلا در شیت یک اگر داشته باشیم "شاگرد-محصل- دانش آموز" و این را بخواهیم در شیت دو پیدا کنید و مقابل این سل در شیت یک بنویسید ممکن است هیچ کلمه ای را معادل آن پیدا نکند اگر در شیت دو این کلمات را به همین صورت در یک سل ننوشته باشید
پس نیاز هست که از این چند کلمه هرکدام را جدا گانه در نظر بگیرد و جستجو کند
و همچنین برعکس آن اگر در شیت دو نیز چند کلمه هم معنی را در یک سل نوشته باشید باز هم با این مشکل بر خواهید خورد
که یا میوانید کلمات هر سل را ابتدا جدا کرد و سپس برای جستجو از فایند در کد استفاده کینم که اگر در شیت دو هم چند کلمه در یک سل بود با مشکلی مواجه نشود

**Javid Mokhtari** · 2012/05/04, 11:14

RE: ديكشنري

با سلام.
این فایل به عنوان نمونه می باشد در صورت تایید اشکالاتش رفع خواهد شد:
Dic

**maryam62** · 2012/05/04, 12:10

RE: ديكشنري

نوشته اصلی توسط ali66

مریم جان در زیر ماژولی برای درخواست شما قرار دادم که خودم هم تستش کردم و جواب داده . که در برنامه زیر مقدار 11 که a رو کوچیکتر از آن قرار دادم شماره سطر آ---ین واژه ی موجود شما در بانک دیکشنریتون هستش و باید متناسب با اطلاعات خوتون آپدیتش بکنید. در ادامه لیست خودم هم قرار میدم . البته لازم به ذکر هستش که من اطلاعاتم رو از سطر 2 شروع کردم و دلیل اینکه مقادیر ابتدایی a و i برابر 2هست نیز همین هستش.
[hr]
Sub f()
a = 2
i = 2
Do While Sheet1.Cells(i, 1) <> ""
If Sheet1.Cells(i, 1) = Sheet2.Cells(a, 1) Then
Sheet1.Cells(i, 2) = Sheet2.Cells(a, 2)
i = i + 1
a = 2
Else
If a < 11 Then
a = a + 1
Else
i = i + 1
a = 2
End If
End If
Loop
End Sub[hr]
bank
y آ
w ل
u ب
t ی
r س
q ش
p ت
o ن
i م
e ک

test
q ش
w ل
e ک
z
r س
t ی
y آ
u ب
i م
o ن
p ت

برنامه ي بالا فقط در حالتي جواب ميده كه توي هر سلول يك مقدار باشه. اگر در يك سلول داشته باشيم y o u براش چيزي در نظر نميگيره.
با تشكر از وقتي كه گذاشتيد[hr]

نوشته اصلی توسط s.cheraghi

با سلام و تشکر از علی آقا

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

Dictionary

با تشكر فراوان از آقاي چراغي.
بايد معذرت بخوام چون انگار سوالم رو واضح مطرح نكردم. برنامه شما دقيقا كارو برعكس انجام ميده و ديكشنري ميسازه. در صورتي كه مي خواستم از اطلاعات شيت 2 (ديكشنري) استفاده بشه و معادل اطلاعات داخل ستون اول از شيت اول در ستون دوم شيت1 درج بشه.

[hr]

نوشته اصلی توسط shamsololama

نوشته اصلی توسط maryam62

فرض كنيد
در شيت اول در ستون اول يك سري كلمه فارسي داريم(در هر سلول مي تواند چند كلمه باشد)
در شيت دوم در ستون اول ان تمام كلمات فارسي و در ستون دوم معاني آنها وجود دارد.

مي خوام در شيت اول در ستون دوم معادل انگليسي هر كلمه نوشته بشه.

dictionary

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

ولی در مورد پیدا کردن یک کلمه در یک لیست و اینکه معنی آن را پیدا کرده و مقابل آن بنویسد راهای زیادی هست که می توان از حلقه های مثل For و یا For Each استفاده کرد اما با شرایطی که شما گفته اید که در یک سل می تواند چند کلمه باشد اگر از چند کلمه یکی از آنها را در نظر داشته باشیم نمی توان سل شیت یک را یا سل شیت دو مقایسه کرد چون در آن حالت کل سل را در نظر میگیرد و نیاز هست حتما دوسل کاملا شبیه به هم باشد
مثلا در شیت یک اگر داشته باشیم "شاگرد-محصل- دانش آموز" و این را بخواهیم در شیت دو پیدا کنید و مقابل این سل در شیت یک بنویسید ممکن است هیچ کلمه ای را معادل آن پیدا نکند اگر در شیت دو این کلمات را به همین صورت در یک سل ننوشته باشید
پس نیاز هست که از این چند کلمه هرکدام را جدا گانه در نظر بگیرد و جستجو کند
و همچنین برعکس آن اگر در شیت دو نیز چند کلمه هم معنی را در یک سل نوشته باشید باز هم با این مشکل بر خواهید خورد
که یا میوانید کلمات هر سل را ابتدا جدا کرد و سپس برای جستجو از فایند در کد استفاده کینم که اگر در شیت دو هم چند کلمه در یک سل بود با مشکلی مواجه نشود

با تشكر از نكاتي كه ذكر كرديد.
آدرس فايل: http://s3.picofile.com/file/7372377953/Dictionary1.xlsx.html
[hr]

نوشته اصلی توسط jansiz hayat

با سلام.
این فایل به عنوان نمونه می باشد در صورت تایید اشکالاتش رفع خواهد شد:
Dic

با تشكر فراوان از وقتي كه گذاشتيد، برنامتون جواب داد.

**s.cheraghi** · 2012/05/04, 13:28

RE: ديكشنري

پوزش بابت فایل اشتباه

**ali66** · 2012/05/04, 19:05

RE: ديكشنري

نه مریم جان
من این برنامه رو برای تعداد کاراکترهای متفاوت تست کرده ام و جواب داده
البته باید بگم که واژه ای که در شیت 1 قرار داره می باید به لحاظ تعداد کاراکتر و نحوه نوشتن با بانک دیکشنری شما کاملا یکسان باشه و اگر فرمول exact رو بنویسی مقدار true به شما بده.
اگر به گونه دیگری باشد برنامه جواب نمی ده.
در ادامه تستی که برای این برنامه و بانک دیکشنری رو قرار دادم و شما می تونی کاملا نتیجه رو ببینی .
test
bank
dic

**maryam62** · 2012/05/04, 21:56

RE: ديكشنري

نوشته اصلی توسط ali66

نه مریم جان
من این برنامه رو برای تعداد کاراکترهای متفاوت تست کرده ام و جواب داده
البته باید بگم که واژه ای که در شیت 1 قرار داره می باید به لحاظ تعداد کاراکتر و نحوه نوشتن با بانک دیکشنری شما کاملا یکسان باشه و اگر فرمول exact رو بنویسی مقدار true به شما بده.
اگر به گونه دیگری باشد برنامه جواب نمی ده.
در ادامه تستی که برای این برنامه و بانک دیکشنری رو قرار دادم و شما می تونی کاملا نتیجه رو ببینی .
test
bank
dic

بازم متشكرم اما من در اين حالت جواب نگرفتم
[hr]

نوشته اصلی توسط jansiz hayat

با سلام.
این فایل به عنوان نمونه می باشد در صورت تایید اشکالاتش رفع خواهد شد:
Dic

برنامه ميتونه طوري تغيير كنه كه جايي كه رشته پيدا ميشه position اون رو برگردونه و در سلول نتيجه، معادل كلمه هم دقيقا در همان مكان قرار بگيره تا ترتيب كلمات حفظ بشه.

**ali66** · 2012/05/05, 00:35

RE: ديكشنري

پس احتمالا اگر من منظور شما رو درست متوجه شده باشم می خوای دیکشنری باشه که با استفاده از بانک لغات شما یک جمله رو برگردون کنه (حالا از فارسی به انگلیسی و یا بالعکس)؟
حالا اگر اینطوری هستش دلیل انجام چنین کاری رو می تونم بدونم چیه؟

**maryam62** · 2012/05/05, 07:48

RE: ديكشنري

نوشته اصلی توسط ali66

پس احتمالا اگر من منظور شما رو درست متوجه شده باشم می خوای دیکشنری باشه که با استفاده از بانک لغات شما یک جمله رو برگردون کنه (حالا از فارسی به انگلیسی و یا بالعکس)؟
حالا اگر اینطوری هستش دلیل انجام چنین کاری رو می تونم بدونم چیه؟

سلام. بله درست متوجه شديد. فرض كنيد اطلاعات فارسي هر سلول طي روندي داخل يك combo box قرار ميگيرند حالا ميخوام معادل انگليسي combo ها ساخته بشه و مهمه كه دقيقا معادل هر آيتم بهش نسبت داده بشه يعني ترتيبشون هم حفظ بشه .

**prince_saeed** · 2012/05/22, 16:04

RE: ديكشنري

با سلام

زکات علم نشر آن است

دومین برنامه خودم رو در سایت عالیتون قرار می دم
این برنامه میتونه جمله شمارو تا 1000 کاراکتر بگیره و معانی مختلف تک تک
کلماتش رو بهتون نشون بده

ازش استفاده کنید و نظرتون رو اعلام کنید

jovial1359@yahoo.com

http://uploadkon.ir/uploads/fb8082527b1ce23732baf5b37d5528f8.rar

**Javid Mokhtari** · 2012/05/22, 22:31

RE: ديكشنري

با سلام و تشکر از دوست خوبمون.
اما بیشتر ، کد ها به درد ما می خوره تا خود برنامه.اگه رمز رو هم بدین با اصول برنامه نویسی شما هم آشنا میشیم...........با تشکر...........

**Javid Mokhtari** · 2012/05/25, 13:32

RE: ديكشنري

نوشته اصلی توسط prince_saeed

با سلام
دومین برنامه خودم رو در سایت عالیتون قرار می دم
این برنامه میتونه جمله شمارو تا 1000 کاراکتر بگیره و معانی مختلف تک تک
کلماتش رو بهتون نشون بده

ازش استفاده کنید و نظرتون رو اعلام کنید

برای خروج از برنامه فکر کنم کد Application.Quit مناسب تر باشه.چون کد Close فقط WorkBook رو میبنده.

**khakzad** · 2012/05/25, 13:58

RE: ديكشنري

نوشته اصلی توسط prince_saeed

با سلام

زکات علم نشر آن است

دومین برنامه خودم رو در سایت عالیتون قرار می دم
این برنامه میتونه جمله شمارو تا 1000 کاراکتر بگیره و معانی مختلف تک تک
کلماتش رو بهتون نشون بده

ازش استفاده کنید و نظرتون رو اعلام کنید

jovial1359@yahoo.com

http://uploadkon.ir/uploads/fb8082527b1ce23732baf5b37d5528f8.rar

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