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

موضوع: ساخت ديتابيس به كمك اكسل

  1. #1


    آخرین بازدید
    2019/04/01
    تاریخ عضویت
    January 2014
    نوشته ها
    55
    امتیاز
    32
    سپاس
    39
    سپاس شده
    22 در 9 پست
    تعیین سطح نشده است

    Nuclear ساخت ديتابيس به كمك اكسل

    سلام بر اساتيد گرامي!
    در فايل پيوست extractor.xlsx, متغيير هاي من نام، نام خانوادگي و دانشگاه هستند. اگر در شيت Data دقت كنيد متغييرهايي ديگري مانند شغل هم داريم كه اونا به درد من نمي خورند. ميخوام به اكسل بگم كه هرجا اين متغييرها رو ديدي، مقدار جلوي اونو جدا كن و به شيت بعدي منتقل كن و يك ديتابيس اونجا بساز! خوشبختانه تمام متغييرام جلوشون علامت ":" هست. با چه ماكرويي بايد اين كار رو كرد؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


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

    با سلام

    یک ماکرو اولیه برای شما تهیه گردید

    کد PHP:
    Sub test()

    On Error Resume Next

    2

    Z1 
    Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))

    For 
    1 To Z1

    Z2 
    Sheet1.Cells(Sheet1.Rows.CountJ).End(xlUp).Row

    For 1 To Z2

    xx 
    Cells(iJ)
    ZZ Cells(iJ).Offset(10)



    yy InStr(1xx"Material Name:")

    If 
    yy >= 1 Then

    Sheet2
    .Range("A" K) = 1

    Sheet2
    .Range("B" K) = Right(xxLen(Cells(iJ)) - 15)

    Sheet2.Range("C" K) = Right(ZZLen(ZZ) - 12)

    1

    Exit For

    End If

    Next

    Next


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2019/04/01
    تاریخ عضویت
    January 2014
    نوشته ها
    55
    امتیاز
    32
    سپاس
    39
    سپاس شده
    22 در 9 پست
    تعیین سطح نشده است

    بسيار ممنون از پاسختون و وقتي كه گذاشتين.. مشكل من هم همينه. بعضي جاها متغييرها پشت سر هم نيستن.

  6. #4


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

    با سلام
    در فایل جدید مشکل برطرف شد

    کد PHP:
    Sub test()

    Macro1

    On Error Resume Next

    2

    z1 
    Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))


    For 
    1 To z1

    Z2 
    Sheet1.Cells(Sheet1.Rows.CountJ).End(xlUp).Row

    For 1 To Z2

    xx 
    Cells(iJ)
    zz Cells(iJ).Offset(10)



    yy InStr(1xx"Material Name:")

    If 
    yy >= 1 Then

    Sheet2
    .Range("A" K) = 1

    Sheet2
    .Range("B" K) = Right(xxLen(Cells(iJ)) - 15)

    End If


    yy InStr(1xx"Trade Name:")

    If 
    yy >= 1 Then

    Sheet2
    .Range("C" K) = Right(xxLen(xx) - 12)

    1

    Exit For

    End If

    Next

    Next

    Sheet2
    .Select

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده

  7. سپاس ها (1)



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

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

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

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

  1. پاسخ ها: 21
    آخرين نوشته: 2019/02/17, 12:10
  2. وارد كردن اطلاعات از اكسل به ديتابيس بيمه تامين اجتماعي
    توسط sajad2000 در انجمن ارتباط با سایر نرم افزارها و اشتراک گذاری
    پاسخ ها: 2
    آخرين نوشته: 2014/04/13, 12:20
  3. برداشتن پسورد ديتابيس
    توسط sajad2000 در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/03/10, 14:40
  4. بازي فلش تنيس (swf)
    توسط Amir Ghasemiyan در انجمن بازی های اکسلی - Excel Games
    پاسخ ها: 6
    آخرين نوشته: 2014/01/26, 18:04

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

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

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

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

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

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