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

موضوع: ثبت داده*ها در دو محدوده (جدول) متفاوت (در يك محدوده را بلدم)

  1. #1


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    ثبت داده*ها در دو محدوده (جدول) متفاوت (در يك محدوده را بلدم)

    با سلام خدمت اساتيد محترم
    2 سوال قبلي بنده متاسفانه بدون پاسخ موند. البته سوال قبلي رو خودم حلش كردم

    حالا يه سوال ديگه دارم
    كد ثبت داده ها در يك جدول رو بلدم و مشكلي نيست. مشكل اينجاست كه ميخوام بعضي از داده ها در يك جدول ثبت بشه و بعضي ديگه در محدوده ديگه. اين كار بايد فقط با يك كليد انجام بشه. البته با كلك رشتي هم ميشه اين كار رو انجام داد. اما اين كار اصولي نيست. لطفا اساتيد راهنمايي بفرمايند. خيلي ممنون

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

  2.  

  3. #2


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    با سلام خدمت اساتيد محترم
    2 سوال قبلي بنده متاسفانه بدون پاسخ موند. البته سوال قبلي رو خودم حلش كردم

    حالا يه سوال ديگه دارم
    كد ثبت داده ها در يك جدول رو بلدم و مشكلي نيست. مشكل اينجاست كه ميخوام بعضي از داده ها در يك جدول ثبت بشه و بعضي ديگه در محدوده ديگه. اين كار بايد فقط با يك كليد انجام بشه. البته با كلك رشتي هم ميشه اين كار رو انجام داد. اما اين كار اصولي نيست. لطفا اساتيد راهنمايي بفرمايند. خيلي ممنون

    توضيح كلك رشتي: ( مثلا يه چك باكس مخفي طراحي كنيم و به اون دستور بديم كه هر وقت مقدارش true شد، اطلاعات رو بره در محدوده دوم ثبت كنه و بعد يكي از دستوراتي كه در كليد ثبت اطلاعات وارد مي كنيم، اين باشه كه مقدار چك باكس رو true كنه تا دستوراتش خود به خود اجرا بشه.)

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

  4. #3


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    سلام وعرض ادب، ممنون ازتوجه شما
    Private Sub CommandButton2_Click()
    Dim A As Range
    Dim find As Boolean
    find = False
    For Each A In Sheets("DARAMAD").Range("B13:B50000")
    If A = "" Then
    A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
    A.Offset(0, 1) = TextBox3.Value
    A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
    A.Offset(0, 3) = TextBox6.Value
    A.Offset(0, 4) = TextBox1.Value
    A.Offset(0, 5) = ComboBox4.Value
    A.Offset(0, 6) = TextBox4.Value
    A.Offset(0, 7) = TextBox5.Value


    MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


    UserForm_PROJE.Hide
    find = True
    Exit Sub
    End If
    Next A
    End Sub

  5. #4


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    سلام وعرض ادب، ممنون ازتوجه شما
    Private Sub CommandButton2_Click()
    Dim A As Range
    Dim find As Boolean
    find = False
    For Each A In Sheets("DARAMAD").Range("B13:B50000")
    If A = "" Then
    A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
    A.Offset(0, 1) = TextBox3.Value
    A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
    A.Offset(0, 3) = TextBox6.Value
    A.Offset(0, 4) = TextBox1.Value
    A.Offset(0, 5) = ComboBox4.Value
    A.Offset(0, 6) = TextBox4.Value
    A.Offset(0, 7) = TextBox5.Value


    MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


    UserForm_PROJE.Hide
    find = True
    Exit Sub
    End If
    Next A
    End Sub

    خب با این کد که شما فقط در یک شیت اطلاعاتتون رو وادر میکنید. برای شیت دیگه چه کدی نوشتین؟

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

  6. #5


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    خب با این کد که شما فقط در یک شیت اطلاعاتتون رو وادر میکنید. برای شیت دیگه چه کدی نوشتین؟

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

    خب همين ديگه، مشكل همينه، همين كد رو چه جوري تبديل كنم كه بتونم اطلاعات رو در دومحدوده ثبت كنم. شما حالا يه محدوده توي همين شيت بهش اضافه كنيد استاد
    بازم از لطفتون ممنونم

  7. #6


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    خب همين ديگه، مشكل همينه، همين كد رو چه جوري تبديل كنم كه بتونم اطلاعات رو در دومحدوده ثبت كنم. شما حالا يه محدوده توي همين شيت بهش اضافه كنيد استاد
    بازم از لطفتون ممنونم

    یک ساب دیگه مثلا با اسم aaa بسازید و همه این کدها رو داخلش قرار بدین فقط محدوده رو عوض کنید. بعد در ساب قبلی فراخوانی کنید. من یک نمونه کامل میذارم براتون.

    کد:
    Private Sub CommandButton2_Click()
    Dim A As Range
    Dim find As Boolean
    find = False
    For Each A In Sheets("DARAMAD").Range("B13:B50000")
    If A = "" Then
    A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
    A.Offset(0, 1) = TextBox3.Value
    A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
    A.Offset(0, 3) = TextBox6.Value
    A.Offset(0, 4) = TextBox1.Value
    A.Offset(0, 5) = ComboBox4.Value
    A.Offset(0, 6) = TextBox4.Value
    A.Offset(0, 7) = TextBox5.Value
    
    
    MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"
    
    
    UserForm_PROJE.Hide
    find = True
    Exit Sub
    End If
    Next A
    aaa
    End Sub
    
    '---------------------------------------------------
    
    Private Sub aaa()
    Dim A As Range
    Dim find As Boolean
    find = False
    For Each A In Sheets("DARAMAD").Range("D13:D50000")
    If A = "" Then
    A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
    A.Offset(0, 1) = TextBox3.Value
    A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
    A.Offset(0, 3) = TextBox6.Value
    A.Offset(0, 4) = TextBox1.Value
    A.Offset(0, 5) = ComboBox4.Value
    A.Offset(0, 6) = TextBox4.Value
    A.Offset(0, 7) = TextBox5.Value
    
    
    MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"
    
    
    UserForm_PROJE.Hide
    find = True
    Exit Sub
    End If
    Next A
    End Sub

  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    ممنون استاد خيلي عالي بود


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

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

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

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

  1. [حل شده] جستجوي يك مقدار در يك ستون
    توسط maziardm در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 4
    آخرين نوشته: 2015/11/11, 00:04
  2. نحوه اختصاص نتيجه يك فرمول به يك متغير در vb
    توسط misammisam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2014/05/19, 17:33
  3. Refresh كردن يك Pivot Table درون يك شيت كه Hidden شده است
    توسط arsalan135 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/03/03, 17:51
  4. sort كردن در يك جدول و مشاهده نتيجه در يك رديف
    توسط arsalan135 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/02/13, 10:12
  5. گذاشتن رمزهای متفاوت برای شیت های متفاوت
    توسط taknavaz123 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2013/04/15, 13:17

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

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

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

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

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