حذف اطلاعات از جدول با استفاده از vba

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • امین نوروزی

    • 2018/12/05
    • 6

    پرسش حذف اطلاعات از جدول با استفاده از vba

    با درود
    من جدولی رو از طریق userform مطابق با کد زیر ایجاد کردم
    درصورتی که بخوام اطلاعاتی از این فرم رو ویرایش یا حذف کنم باید از چه دستوری استفاده کنم
    (جدول حاوی نام=textbox1،نام خانوادگی=textbox2 و... می باشد)
    سپاس فراوان
    کد:
    Private Sub CommandButton1_Click()
    
    If TextBox1.Text = "" Then
    MsgBox "insert name"
    Exit Sub
    End If
    
    
    Dim i As Long
    i = Range("a" & Rows.Count).End(xlUp).Row + 1
    Range("a" & i).Value = TextBox1.Text
    Range("b" & i).Value = TextBox2.Text
    Range("c" & i).Value = TextBox3.Text
    
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    End Sub
    Last edited by Amir Ghasemiyan; 2018/12/12, 11:37. دلیل: قرار دادن كدها در تگ مربوطه
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

    #2
    سلام دوست عزيز

    متوجه سوالتون نشدم. منظورتون اينه كه بجاي textbox1 مثلا بنويسيد name ؟ يعني نام آبجكت ها تغيير كنه؟

    کامنت

    • امین نوروزی

      • 2018/12/05
      • 6

      #3
      این کدهایی که در بالا ذکر کردم مربوط به ورود اطلاعات با استفاده از فرم داخل سلول های اکسل بود
      درخواستم این بود که
      میخوام بعد ورود اطلاعات، فرمی ایجاد کنم که اطلاعات رو داخلش حذف یا ویرایش کنم
      به عبارت دیگه فرمی که اطلاعات داخل سلول هارو نمایش، حذف یا ویرایش کنه
      سپاس

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4598
        • 100.00

        #4
        نوشته اصلی توسط امین نوروزی
        این کدهایی که در بالا ذکر کردم مربوط به ورود اطلاعات با استفاده از فرم داخل سلول های اکسل بود
        درخواستم این بود که
        میخوام بعد ورود اطلاعات، فرمی ایجاد کنم که اطلاعات رو داخلش حذف یا ویرایش کنم
        به عبارت دیگه فرمی که اطلاعات داخل سلول هارو نمایش، حذف یا ویرایش کنه
        سپاس
        كد نويسي كه ميخوايد تقريبا سنگينه پيشنهاد ميكنم از ابزار form استفاده كنيد
        در قسمت customize ribbon ميتونيد پيداش كنيد.
        اميدوارم بتونه نياز شما رو رفع كنه.

        کامنت

        • امین نوروزی

          • 2018/12/05
          • 6

          #5
          متوجه شدم
          سپاس فراوان پاسخ شما

          کامنت

          • Amir Ghasemiyan

            • 2013/09/20
            • 4598
            • 100.00

            #6
            نوشته اصلی توسط امین نوروزی
            متوجه شدم
            سپاس فراوان پاسخ شما
            دوست عزيز اگر پاسخ سوالتون رو دريافت كرديد لطفا تاپيك رو حل شده كنيد

            کامنت

            چند لحظه..