صفحه 2 از 2 نخستنخست 12
نمایش نتایج: از شماره 11 تا 15 , از مجموع 15

موضوع: درخواست آموزش شماره دهی خودکار در اکسل

  1. #11


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

    با سلام

    فایل پیوست را ملاحظه بفرمایید
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2015/08/31 در ساعت 12:20

  2. سپاس ها (2)


  3.  

  4. #12


    آخرین بازدید
    2017/01/06
    تاریخ عضویت
    June 2015
    محل سکونت
    تبريز
    نوشته ها
    15
    امتیاز
    11
    سپاس
    19
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام
    استاد عزيز ممنون از زحمتي كه كشيديد
    خدا آقا كوچولوتون رو براتون سلامت نگه بداره
    يه سوال ديگه داشتم
    ميشه ماكرو تكراري بودن شماره رو گير نده و جلوگيري نكنه
    ضمنا اين كنترل تكراري بودن رو از كجا اضافه فرموديد؟ توي ديتا وليديشن كه نبود! هر چقد گشتم پيداش نكردم

  5. #13


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

    با سلام

    در قسمت کدهای ویژوال بیسیک اکسل اضافه شده است.

    در فایل جدید در صورت تکراری بودن شماره به شما پیغام میدهد و ثبت نیز مینماید

    کد PHP:
    Sub test()

    Sheet2.Cells(Sheet2.Rows.Count"A").End(xlUp).Row
    1
    1

    For 2 To Z

    If Sheet2.Range("A" I).Value Sheet1.Range("H20").Value Then

    MsgBox ChrW
    (1575) & ChrW(1740) & ChrW(1606) & ChrW(32) & ChrW(1588) & ChrW(1605_
    ChrW(1575) & ChrW(1585) & ChrW(1607) & ChrW(32) & ChrW(1575) & ChrW(1586) & _
    ChrW
    (32) & ChrW(1602) & ChrW(1576) & ChrW(1604) & ChrW(32) & ChrW(1605) & _
    ChrW
    (1608) & ChrW(1580) & ChrW(1608) & ChrW(1583) & ChrW(32) & ChrW(1575) & _
    ChrW
    (1587) & ChrW(1578) & ChrW(46)

    1
    Exit For

    End If
    Next I

    If <> 0 Then
    With Sheet2
    .Range("A" Z).Value Sheet1.Range("H20").Value
    .Range("B" Z).Value Sheet1.Range("H21").Value
    .Range("C" Z).Value Sheet1.Range("E23").Value
    .Range("D" Z).Value Sheet1.Range("B24").Value
    .Range("E" Z).Value Sheet1.Range("B25").Value
    .Range("F" Z).Value Sheet1.Range("F25").Value
    .Range("G" Z).Value Sheet1.Range("B25").Value
    End With
    End 
    If




    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2015/08/31 در ساعت 14:01

  6. سپاس ها (2)


  7. #14


    آخرین بازدید
    2017/01/06
    تاریخ عضویت
    June 2015
    محل سکونت
    تبريز
    نوشته ها
    15
    امتیاز
    11
    سپاس
    19
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام مجدد مهندس
    با زحمتاي ما
    آقا من مجدد به يه مشكلي برخوردم
    شماره رو كه پاك مي كنم ديگه ركورد نمي كنه
    يه زحمت مي كشين بهم كمك كنين
    فايل اصلي رو تو پيوست گذاشتم
    يه ماكرو داره براي پرينت گيري از فرم و پاك كردن اطلاعات
    ماكروي ثبت و ركورد اطلاعات هم اگه ميشه بياد وسط پرينت و پاك كردن اطلاعات
    يعني اول پرينت، بعد ثبت ركورد اطلاعات (بدون شماره، كلا شماره Care نشه بهتره) بعد پاك كردن اطلاعات
    ممنون مي شم از زحمتتاتون
    فايل هاي پيوست شده فايل هاي پيوست شده

  8. #15


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

    با سلام

    فایل نهایی را ملاحظه بفرمایید
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2015/09/01 در ساعت 14:48



صفحه 2 از 2 نخستنخست 12

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

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

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

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

  1. درخواست آموزش پیشرفته Vlookup
    توسط miladman88 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 28
    آخرين نوشته: 2015/09/19, 11:48
  2. درخواست آموزش شماره دهی خودکار در اکسل
    توسط pedrambogy در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 9
    آخرين نوشته: 2012/11/22, 12:50
  3. پاسخ ها: 4
    آخرين نوشته: 2012/09/02, 11:04
  4. آموزش : چگونو به راست كليك در اكسل منويي اضافه كنيم
    توسط mshahin در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2012/07/17, 10:07

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

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

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

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

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