پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 15

موضوع: ديكشنري

  1. #1


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    ديكشنري

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

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

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

  2.  

  3. #2


    آخرین بازدید
    09 _ 11 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    13
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 1 پست

    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 ت

  4. #3


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: ديكشنري

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

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

    Dictionary

  5. #4


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: ديكشنري

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

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

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

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

  6. #5


    آخرین بازدید
    2 ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,137
    امتیاز
    2467
    سپاس
    1,380
    سپاس شده
    1,923 در 604 پست

    jansiz hayat به Yahoo ارسال پیام

    RE: ديكشنري

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

  7. #6


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    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
    با تشكر فراوان از وقتي كه گذاشتيد، برنامتون جواب داد.

  8. #7


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: ديكشنري

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

  9. #8


    آخرین بازدید
    09 _ 11 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    13
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 1 پست

    RE: ديكشنري

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

  10. #9


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    RE: ديكشنري

    نقل قول نوشته اصلی توسط ali66
    نه مریم جان
    من این برنامه رو برای تعداد کاراکترهای متفاوت تست کرده ام و جواب داده
    البته باید بگم که واژه ای که در شیت 1 قرار داره می باید به لحاظ تعداد کاراکتر و نحوه نوشتن با بانک دیکشنری شما کاملا یکسان باشه و اگر فرمول exact رو بنویسی مقدار true به شما بده.
    اگر به گونه دیگری باشد برنامه جواب نمی ده.
    در ادامه تستی که برای این برنامه و بانک دیکشنری رو قرار دادم و شما می تونی کاملا نتیجه رو ببینی .
    test
    bank
    dic
    بازم متشكرم اما من در اين حالت جواب نگرفتم
    [hr]
    نقل قول نوشته اصلی توسط jansiz hayat
    با سلام.
    این فایل به عنوان نمونه می باشد در صورت تایید اشکالاتش رفع خواهد شد:
    Dic
    برنامه ميتونه طوري تغيير كنه كه جايي كه رشته پيدا ميشه position اون رو برگردونه و در سلول نتيجه، معادل كلمه هم دقيقا در همان مكان قرار بگيره تا ترتيب كلمات حفظ بشه.

  11. #10


    آخرین بازدید
    09 _ 11 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    13
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 1 پست

    RE: ديكشنري

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


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. ثبت اطلاعات با يكبار تغير
    توسط tohidi6405 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 05 _ 11 _ 2013, 15:06
  2. نمايش ساختار بانك اطلاعاتي مايكروسافت پروجكت در اكسل
    توسط mrexcel در انجمن آموزش ساير موضوعات در اكسل
    پاسخ ها: 0
    آخرين نوشته: 26 _ 10 _ 2010, 07:42

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد