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

موضوع: ماکرو شرطی از بین رفتن اکسل

  1. #1

    آخرین بازدید
    2018/11/28
    تاریخ عضویت
    April 2014
    نوشته ها
    1
    امتیاز
    11
    سپاس
    1
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    ماکرو شرطی از بین رفتن اکسل

    سلام
    یه ماکرو میخوام که اگر توی شیت main سلولهای cell k10=cell M10 بود هیچی اگر مساوی نبودن فایل اکسل اکسپایر بشه
    ممنون میشم راهنماییم کنین
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2018/12/05
    تاریخ عضویت
    March 2015
    نوشته ها
    9
    امتیاز
    13
    سپاس
    2
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    سلام دوستان عزیز
    من هم همین مشکل دارم
    لطفا جواب بدید
    میخوام ماکرویی ایجاد کنم که مقدار دو سلول در یک شیت رو ( مثلا sheet 1 )مورد بررسی قرار بده
    اگه دو مقدار مساوی بود به شیت دیگه ( مثلا sheet 2 ) هدایت بشه در غیر این صورت پیغام خطا بده
    ممنون میشم اساتید عزیز جواب بدن

  5. #3


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    کد زیر رو امتحان کنید.سلول a1 و b1 از شیت 1 مقایسه میشن.
    کد:
    Sub test() If Range("a1").Value = Range("b1").Value Then Sheet2.Activate Else MsgBox "The numbers are not equal.", 48 End If End Sub
    ای برادر تو همه اندیشه ای


  6. #4


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط saeed_goli144 نمایش پست ها
    سلام
    یه ماکرو میخوام که اگر توی شیت main سلولهای cell k10=cell M10 بود هیچی اگر مساوی نبودن فایل اکسل اکسپایر بشه
    ممنون میشم راهنماییم کنین
    کد زیر رو امتحان کنید.

    کد:
    Sub test() If Range("m10").Value <> Range("k10").Value Then MsgBox "This workbook is Expired and will now close !!!" ActiveWorkbook.Close End If End Sub
    ای برادر تو همه اندیشه ای


  7. #5


    آخرین بازدید
    2018/12/05
    تاریخ عضویت
    March 2015
    نوشته ها
    9
    امتیاز
    13
    سپاس
    2
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    از دوست عزیزم amir_ts کمال تشکر رو دارم
    یه سوال دیگه داشتم هم داشتم
    فرمول یا دستوری هست که بشه سریال هارد و cpu رو تو دوتا سلول مجزا وارد کرد؟
    اگه هست ممنون می شم فرمول یا دستور مورد نظر که باید تو هر سلول وارد کرد رو بگیم
    بازم تشکر میکنم از همه دوستان عزیز

  8. #6


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    فرمول یا دستوری هست که بشه سریال هارد و cpu رو تو دوتا سلول مجزا وارد کرد؟
    با سلام
    دوست عزیز سوال شما با موضوع اصلی مطرح شده همخوانی نداره لطفا" از مدیران درخواست جابه جایی موضوع رو پیگیری کنید تا هم به قوانین انجمن احترام بزاریم و هم کمکی کنیم برای راحت تر پیدا کردن موضوع مطرح شده برای دیگران عزیزانی که ممکنه همین سوال براشون پیش بیاد.

    کد های زیر رو امتحان کنید.
    کد:
    Sub ProcessorInfo() Dim cimv2, PInfo, PItem As Variant Dim PubStrComputer As String PubStrComputer = "." Set cimv2 = GetObject("winmgmts:\\" & PubStrComputer & "\root\cimv2") Set PInfo = cimv2.ExecQuery("Select * From Win32_Processor") For Each PItem In PInfo Range("a1").Value = PItem.ProcessorId MsgBox ("Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId) Next PItem End Sub
    کد:
    Sub HDSerialNumber() Dim fsObj As Object Dim drv As Object Dim HDSerialNum As Variant Set fsObj = CreateObject("Scripting.FileSystemObject") Set drv = fsObj.Drives("C") HDSerialNum = Left(Hex(drv.SerialNumber), 4) _ & "-" & Right(Hex(drv.SerialNumber), 4) Range("b1").Value = HDSerialNum MsgBox ("HDSerialNumber: " & HDSerialNum) End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای

  9. سپاس ها (1)


  10. #7


    آخرین بازدید
    2018/12/05
    تاریخ عضویت
    March 2015
    نوشته ها
    9
    امتیاز
    13
    سپاس
    2
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    خیلی خیلی ممنون دوست عزیز
    معذرت میخوام از بابت اینکه نمیدونستم باید سوالم رو کجا مطرح کنم
    بازم ممنون
    ویرایش توسط azizi.mohsen : 2016/05/11 در ساعت 21:50

  11. #8

    آخرین بازدید
    2018/02/04
    تاریخ عضویت
    July 2017
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    مرسی از راهنمایی خوبتان ممنونم.
    این نیز بگذرد


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

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

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

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

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

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

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

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

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