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

موضوع: help: نوشتن کدی برای انتقال اطلاعات از یوزر فرم به شیت

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1

    آخرین بازدید
    2013/05/15
    تاریخ عضویت
    February 2010
    نوشته ها
    4
    امتیاز
    2
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    a.miri به Yahoo ارسال پیام

    help: نوشتن کدی برای انتقال اطلاعات از یوزر فرم به شیت

    سلام
    من تازه شروع به یاد گیری vba نمودم
    میخوام کد زیر رو بدونم و برای کار خودم بست بدم:
    "کدی که اطلاعات textbox1 در یوزر فرم را با commandbutton1 هر دفعه به اولین سلول خالی در ستون A منتقل کنه."
    ممنون میشم کسی کمکم کنه.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: help: نوشتن کدی برای انتقال اطلاعات از یوزر فرم به شیت

    با درود فراوان

    به دو روش زیر می توانید انجام بدهید

    روش اول

    Private Sub CommandButton1_Click()
    Dim n
    n = Application.WorksheetFunction.CountA(Sheet1.Range( "A1:A1000"))
    Sheet1.Range("A1").Offset(n, 0) = TextBox1.Text
    End Sub


    روش دوم

    Private Sub CommandButton2_Click()
    Dim c As Range
    For Each c In Range("A1:A1000")
    If c = "" Then
    c.Value = TextBox1.Text
    Exit For
    End If
    Next
    End Sub


    فایل نمونه:
    [attachment=1132]
    فايل هاي پيوست شده فايل هاي پيوست شده

  3. سپاس ها (2)


  4. #3

    آخرین بازدید
    2013/05/15
    تاریخ عضویت
    February 2010
    نوشته ها
    4
    امتیاز
    2
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    a.miri به Yahoo ارسال پیام

    تشکر

    بسیا عالی و ممنون جناب شمس العلما

  5. #4


    آخرین بازدید
    2020/10/31
    تاریخ عضویت
    February 2015
    نوشته ها
    10
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    حالا یه سوال برای منم که تازه واردم این سوال و دارم که اگه تعداد تکست باکس ها زیاد بشه باید چیکار کرد
    ببخشید تاپیک قدیمی رو بالا آوردم خیلی گشتم هیچی پیدا نکردم که به صورت آماتور باشه

  6. #5


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

    با سللم

    خیلی ساده به شکل زیر

    Private Sub CommandButton1_Click()
    ' adres jahat soal = Excel.saeed@gmail.com
    'Tarif Moteghayer
    Dim emptyRow As Long


    'Excel.saeed@gmail.com
    ' faal kardan sheet mored nazar jahat enteghal dade ha
    Sheets("data").Activate


    'peyda kardan radif khali ba moteghayer = emptyRow
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


    'be tedad textbox dar form i radif neveshte mishavad
    Cells(emptyRow, 1).Value = TextBox1.Value ' avalin radif dar soton A
    Cells(emptyRow, 2).Value = TextBox2.Value ' avalin radif dar soton B
    Cells(emptyRow, 3).Value = TextBox3.Value ' avalin radif dar soton C
    Cells(emptyRow, 4).Value = TextBox4.Value ' avalin radif dar soton D
    Cells(emptyRow, 5).Value = TextBox5.Value ' avalin radif dar soton E


    End Sub

    با اضافه شدن هر تکست باکس یک ردیف به انتهای برنامه اضافه میشود.
    مثلا تکست باکس 6 میشود :
    Cells(emptyRow, 6).Value = TextBox5.Value ' avalin radif dar soton F

  7. سپاس ها (2)


  8. #6


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

    Cells(emptyRow, 6).Value = TextBox6.Value ' avalin radif dar soton F

  9. #7


    آخرین بازدید
    2020/10/31
    تاریخ عضویت
    February 2015
    نوشته ها
    10
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    مرسی از توجه و حسن اخلاق شما
    من چند تا یوزر فرم دارم چطور هر کدوم رو شیت خودش هدایت کنم

  10. #8


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

    با سلام

    خیلی خیلی ساده
    در مثال بالا خط برنامه
    Sheets("data").Activate
    در شیت دیتا ثبت میکند کافی است شما این خط را مجدد تایپ و بجای کلمه دیتا نام شیت جدید را وارد کنید .
    البته با ورودی های خودش مثلا تکست باکس یا سایر ورودی های یوزر فرم
    موفق باشید

  11. سپاس ها (2)


  12. #9


    آخرین بازدید
    2020/10/31
    تاریخ عضویت
    February 2015
    نوشته ها
    10
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    عاشقتم مرسی از لطفت ذوست خوبم


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

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

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

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

  1. گرافیک و منو در یوزر فرم
    توسط shamsololama در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 15
    آخرين نوشته: 2015/08/29, 08:10
  2. قرار دادن نمودار در یوزرفرم
    توسط s.cheraghi در انجمن آموزش موضوعات (گرافيك ،چارت ،نمودار)
    پاسخ ها: 2
    آخرين نوشته: 2013/03/02, 18:42
  3. طراحی یوزر فرمی که به هر شیت لینک بشه
    توسط mo-aslani در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 26
    آخرين نوشته: 2012/09/28, 10:03
  4. یوزرفرم
    توسط sonbol در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/03/13, 16:52
  5. فراخوانی یوزرفرم
    توسط MEYTI در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 8
    آخرين نوشته: 2011/04/24, 19:42

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

طریقه وارد شدن اطلاعات اکسل به یوزرفرم در اپارات

فرم site:exceliran.com

انتقال site:exceliran.com

انتقال اطلاعات یوزرفرم در اکسل

ایجاد فرم ورود اطلاعات برای هرشیت

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

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

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