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

موضوع: ثبت اطلاعات در تكس باكس و انتقال در شيت ديگر

  1. #1


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    Question ثبت اطلاعات در تكس باكس و انتقال در شيت ديگر

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

  2.  

  3. #2


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط مائده نمایش پست ها
    سلام اساتيد محترم
    درفايل پيوست ارسالي در شيت فرم آ زماني كه دكمه ماكرو ايجاد ميزنيم در قسمت شرح يه سري اطلاعات مينويسيم و كليد ثبت نهايي ميزنيم اطلاعات نوشته شده در شيت ديتا به صورت بايگاني و رديفي ذخيره بشه
    ممنون ميشم كد يوزرفرم كامل كنيد
    با درود
    کد زیر را برای کلید ثبت نهایی وارد کنید.
    کد PHP:
    Private Sub CommandButton1_Click()
        
    Dim EndRow As Integer
        On Error Resume Next
        EndRow 
    Sheets("data").Range("A:A").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
        Sheets
    ("data").Cells(EndRow 11).Value Me.TextBox1.Text
        MsgBox 
    "Submited Description."
        
    Me.TextBox1.Text ""
        
    Me.TextBox1.SetFocus
    End Sub 


  4. #3


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    [QUOTE=abootorab;45497]با درود
    کد زیر را برای کلید ثبت نهایی وارد کنید.

    سلام
    با تشكر فراوان از شما استاد گرامي
    ممنون كد كامل شد


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

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

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

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

  1. كارتكس تركيبي انبار ( به دو روش ميانگين متوازن و Fifo ) - مخصوص انبارداري و حسابداري
    توسط misammisam در انجمن دفتر روزنامه و كل و كارت انبار در اكسل
    پاسخ ها: 6
    آخرين نوشته: 2017/01/12, 13:31
  2. [حل شده] قفل كردن شيت و اجراي تغييرات با دادن پيغام مسيج باكس
    توسط مائده در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2015/11/14, 15:59
  3. كاربرد چند تكس باكس با هم
    توسط موری در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 1
    آخرين نوشته: 2015/09/01, 21:26
  4. محدود كردن كمبوباكس يا تكست باكس
    توسط 4017 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/08/19, 00:56
  5. استفاده از چك باكس جهت فعال يا غير فعال كردن ليست باكس
    توسط 4017 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/07/23, 09:42

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

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

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

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

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

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