نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: کمک در باره vba

  1. #1


    آخرین بازدید
    2024/01/14
    تاریخ عضویت
    May 2015
    نوشته ها
    110
    امتیاز
    76
    سپاس
    42
    سپاس شده
    23 در 19 پست
    تعیین سطح نشده است

    Sad کمک در باره vba

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



    Y = ActiveSheet.Cells(5).Column

    K = ActiveSheet.Cells(35).Column

    For i = Y To K

    If Cells(4, i) <> "*" Then

    If Cells(3, i).Value = "ali" Then

    Cells(6, i).Value = "D

    Else


    Cells(6, i).Value =""


    End If
    End If

    Next i

    End Sub

    در فرمول گفته شده اگه شروط بر قرار بود در سلول 6 بنویس دی مشکل اینجاست میشه کاری کرد در قسمت else در صورتی که شرط برقرار نباشد سلول را پاک کند(فرمولی که من نوشتم در صورت برقرار نبودن شرط ، خالی میزاده سلول رو ولی اگه از قبل چیزی در سلول نوشته شده باشه سلول را پاک نمیکنه)

    با تشکر





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

  2.  

  3. #2


    آخرین بازدید
    2021/06/21
    تاریخ عضویت
    May 2013
    محل سکونت
    تهران
    نوشته ها
    68
    امتیاز
    145
    سپاس
    4
    سپاس شده
    89 در 38 پست
    سطح اکسل
    45.00 %

    با سلام
    به نظر من بهتر است با توجه به شرایط موجود از and , Or استفاده بشود . در صورت لزوم از if تو در تو .

    بعد از مطالعه or - and اگر مشگلی بود بفرمائید - راهنمائی میشود

    موفق باشید

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    هیچ مشکلی در اجرای ماکرو وجود ندارد
    در فایل اول در صورتیکه یک شرط برقرار بود سلول پاک میشود
    در فایل دوم در صورتیکه هر دو شرط برقرار بود سلول پاک میشود
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book1.xls اطلاعات (34.0 کیلو بایت, 14 نمایش)
    • نوع فایل: xls Book11.xls اطلاعات (33.5 کیلو بایت, 12 نمایش)
    ویرایش توسط iranweld : 2015/10/29 در ساعت 12:10

  6. سپاس ها (2)


  7. #4


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امین نیما نمایش پست ها
    با سلام خدمت دوستان و اساتید
    این PHP را مشاده بفرمایید

    Y = ActiveSheet.Cells(5).Column

    K = ActiveSheet.Cells(35).Column

    For i = Y To K

    If Cells(4, i) <> "*" Then

    If Cells(3, i).Value = "ali" Then

    Cells(6, i).Value = "D

    Else


    Cells(6, i).Value =""

    End If
    End If

    Next i

    End Sub

    در فرمول گفته شده اگه شروط بر قرار بود در سلول 6 بنویس دی مشکل اینجاست میشه کاری کرد در قسمت else در صورتی که شرط برقرار نباشد سلول را پاک کند(فرمولی که من نوشتم در صورت برقرار نبودن شرط ، خالی میزاده سلول رو ولی اگه از قبل چیزی در سلول نوشته شده باشه سلول را پاک نمیکنه)

    با تشکر
    سلام

    محتوای سلول شما زمانی پاک میشه که شرط اول (Cells(4, i) <> "*") برقرار باشه ولی شرط دوم (Cells(3, i).Value = "ali") برقرار نباشه!
    اگه میخواین که سلول زمانی پاک بشه که هر دو شرط برقرار نباشه دو IF را در قالب یک IF که از AND استفاده میکنه بنویس از راه زیر استفاده کن:
    کد PHP:
    If -(Sheet1.Cells(41).Text <> "*") + -(Sheet1.Cells(31).Text "ali") = 2 Then

    else
         
    Sheet1.Cells(61).Clear
    End 
    If 
    در یادگیری سیر نشوید

    برای ارتباط بیشتر به سایت ExcelPedia سربزنید.
    برگزاری دوره های آموزش اکسل در تهران
    آموزش توابع اکسل

  8. سپاس ها (1)


  9. #5


    آخرین بازدید
    2024/01/14
    تاریخ عضویت
    May 2015
    نوشته ها
    110
    امتیاز
    76
    سپاس
    42
    سپاس شده
    23 در 19 پست
    تعیین سطح نشده است

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

    محتوای سلول شما زمانی پاک میشه که شرط اول (Cells(4, i) <> "*") برقرار باشه ولی شرط دوم (Cells(3, i).Value = "ali") برقرار نباشه!
    اگه میخواین که سلول زمانی پاک بشه که هر دو شرط برقرار نباشه دو IF را در قالب یک IF که از AND استفاده میکنه بنویس از راه زیر استفاده کن:
    کد PHP:
    If -(Sheet1.Cells(41).Text <> "*") + -(Sheet1.Cells(31).Text "ali") = 2 Then

    else
         
    Sheet1.Cells(61).Clear
    End 
    If 
    با تشکر از راهنمایی شما اگه از این دستور استفاده کنم کل سلول پاک میشه من میخوام فقط نوشته توی سلول پاک بشه نه جداول و رنگ سلول دستوری هست که فقط نوشته توی سلول رو پاک کنه ؟
    Sheet1.Cells(6, 1).Clear
    با تشکر از شما

  10. #6


    آخرین بازدید
    2024/01/14
    تاریخ عضویت
    May 2015
    نوشته ها
    110
    امتیاز
    76
    سپاس
    42
    سپاس شده
    23 در 19 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    هیچ مشکلی در اجرای ماکرو وجود ندارد
    در فایل اول در صورتیکه یک شرط برقرار بود سلول پاک میشود
    در فایل دوم در صورتیکه هر دو شرط برقرار بود سلول پاک میشود
    اقا تشکر میکنم دستور LCase مشکل را حل کرد فقط این دستور چه کاری انجام میده راهنمایی بفرمایید ممنون میشم

  11. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    اگر در سلول حروف درشت نوشته شده باشه همه رو تو محاسبات با حروف کوچیک کلمه مورد نظر برابر میبینه
    مثلا ali=Ali=ALI=aLI

  12. سپاس ها (1)


  13. #8


    آخرین بازدید
    2024/01/14
    تاریخ عضویت
    May 2015
    نوشته ها
    110
    امتیاز
    76
    سپاس
    42
    سپاس شده
    23 در 19 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    اگر در سلول حروف درشت نوشته شده باشه همه رو تو محاسبات با حروف کوچیک کلمه مورد نظر برابر میبینه
    مثلا ali=Ali=ALI=aLI

    با تشکر از تمامی دوستان و اساتید محترم


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

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

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

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

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

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

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

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