پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1

    آخرین بازدید
    15 _ 05 _ 2013
    تاریخ عضویت
    February_2010
    نوشته ها
    4
    امتیاز
    2
    سپاس
    0
    سپاس شده
    0 در 0 پست

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

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

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

  2.  

  3. #2


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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]
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. سپاس ها (2)


  5. #3

    آخرین بازدید
    15 _ 05 _ 2013
    تاریخ عضویت
    February_2010
    نوشته ها
    4
    امتیاز
    2
    سپاس
    0
    سپاس شده
    0 در 0 پست

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

    تشکر

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

  6. #4


    آخرین بازدید
    05 _ 02 _ 2017
    تاریخ عضویت
    January_2015
    نوشته ها
    9
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست

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

  7. #5


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    May_2013
    محل سکونت
    تهران
    نوشته ها
    60
    امتیاز
    135
    سپاس
    4
    سپاس شده
    79 در 34 پست

    با سللم

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

    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

  8. سپاس ها (2)


  9. #6


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    May_2013
    محل سکونت
    تهران
    نوشته ها
    60
    امتیاز
    135
    سپاس
    4
    سپاس شده
    79 در 34 پست

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

  10. #7


    آخرین بازدید
    05 _ 02 _ 2017
    تاریخ عضویت
    January_2015
    نوشته ها
    9
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست

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

  11. #8


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    May_2013
    محل سکونت
    تهران
    نوشته ها
    60
    امتیاز
    135
    سپاس
    4
    سپاس شده
    79 در 34 پست

    با سلام

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

  12. سپاس ها (2)


  13. #9


    آخرین بازدید
    05 _ 02 _ 2017
    تاریخ عضویت
    January_2015
    نوشته ها
    9
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست

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


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

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

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

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

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

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

فرم site:exceliran.com

انتقال site:exceliran.com

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

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

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