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

موضوع: نحوه ی آدرس دهی هدر های داخل شیت در فرم به تکس باکس ؟

  1. #1


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    نحوه ی آدرس دهی هدر های داخل شیت در فرم به تکس باکس ؟

    با سلام و احترام
    وقتی من دکمه ثبت رو میزنم ارور میده فایلم
    خواستم بدونم مشکل آدرس دهی و مشکل کدنویسیم در کجا هست؟

    فایل

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


  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    کد:
    Sub Row()
    Dim c As Range
    Dim i
    ActiveSheet.Select
    If Range("b2") = "" Then Exit Sub
    For Each c In Range("B2", Range("B65536").End(xlUp))
    If c.Value <> "" Then
    c.Offset(0, -1) = i + 1
    i = i + 1
    End If
    Next c
    End Sub
    ی ماژول تعریف کن و اینو وارد کنید

    از حالت table خارج کنید و کد ثبت اطلاعات رو اصلاخ کنید
    کد:
    Private Sub CommandButton1_Click()
    Sheet1.Select
    Range("A65536").End(xlUp).Select
    With Selection
        .Offset(1, 1) = TextBox1.Text
        .Offset(1, 2) = TextBox2.Text
        .Offset(1, 3) = TextBox4.Text
        .Offset(1, 4) = TextBox3.Text
        
    Call Row
    End With
    End Sub
    ویرایش توسط ali.b : 2017/03/19 در ساعت 16:39


  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    همون مازول 1 باشه اسمش درسته یا باید اسم خاصی تعریف کنم؟
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست


  6. #4


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    بله نیاز به تغییر اسم ماژول نیست
    فقط این کد رو قرار بدین همین و داده های ثبت اطلاعات رو اصلاح کنید


  7. سپاس ها (1)



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

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

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

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

  1. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

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

آدرس دهی در vba

آدرس دهی شیت در vba

آدرس دهی شیت در ماکرو

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

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

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