نمایش اطلاعات در یوزر فرم با کلیک روی تیتر وتونایی ثبت اطلاعات در ردیف

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • 60vahidsalehi

    • 2015/03/14
    • 34
    #1

    نمایش اطلاعات در یوزر فرم با کلیک روی تیتر وتونایی ثبت اطلاعات در ردیف

    با سلام من فرمی ساختم که

    با کلیک روی تیتر هر ردیف یک فرم باز میشه

    که اطلاعات اون ردیف رو نشون میده

    میخوام با کلید روی ثبت

    اطلاعات سلول تغییر کنه
    فایل های پیوست شده
    هرگز نبوده افاق این سان مخوف و تاریک
    برچسب ها: فرم, کلیک, یوزر, وتونایی, نمایش, اطلاعات, با, تیتر, ثبت, در, روی, ردیف
    • abootorab

      • 2014/10/17
      • 351
      #2
      نوشته اصلی توسط 60vahidsalehi
      با سلام من فرمی ساختم که

      با کلیک روی تیتر هر ردیف یک فرم باز میشه

      که اطلاعات اون ردیف رو نشون میده

      میخوام با کلید روی ثبت

      اطلاعات سلول تغییر کنه
      با درود
      اگه هدف شما ویرایش و ثبت اطلاعات هر ردیف هست در قسمت جزئیات UserForm5 ابتدا TabIndex تمام TextBoxها رو به ترتیب از راست به چپ و از شماره 1 الی 12 شماره گذاری کنید و سپس از کد زیر برای کلید "ثبت" درون UserForm5 استفاده کنید.
      امیدوارم منظورتونو درست متوجه شده باشم.
      کد PHP:
      Private Sub CommandButton1_Click()
          For       Each c In Me.Controls
                    If TypeOf c Is MSForms.TextBox Then Sheet3.Cells(ActiveCell.Row, c.TabIndex) = c.Value
          Next
      End Sub 

        کامنت

        • 60vahidsalehi

          • 2015/03/14
          • 34
          #3
          دوست عزیز کار نمیکنه میشه فایلب پیوست کنید؟
          هرگز نبوده افاق این سان مخوف و تاریک

            کامنت

            • Ali Parsaei
              مدير تالارتوابع اکسل

              • 2013/11/18
              • 1522
              • 71.67
              #4
              همانطور که جناب ابوتراب فرموده اند بايد:
              در قسمت جزئیات UserForm5 ابتدا TabIndex تمام TextBoxها رو به ترتیب از راست به چپ و از شماره 1 الی 12 شماره گذاری کنید
              در آن صورت کد مربوطه کار خواهد کرد. از کد زير هم مي شود استفاده کرد که نياز به مرتب کردن تب ها نباشد (ولي طبعا" کد جناب ابوتراب کوتاه تر و حرفه اي تر است):
              کد:
              Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 4).Value = TextBox5.Text
ActiveCell.Offset(0, 5).Value = TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text
ActiveCell.Offset(0, 7).Value = TextBox8.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
ActiveCell.Offset(0, 10).Value = TextBox10.Text
ActiveCell.Offset(0, 11).Value = TextBox11.Text
ActiveCell.Offset(0, 12).Value = TextBox12.Text
End
End Sub

              [SIGPIC][/SIGPIC]

                کامنت

                • abootorab

                  • 2014/10/17
                  • 351
                  #5
                  با درود و تشکر از جناب پارسای عزیز
                  دوست عزیز با روش زیر هم میتونید به هدفتون برسید، مزیتی که در این روش وجود داره اینه که نیاز به مرتب کردن TabIndex مربوط به TextBox ها نیست.
                  امیدوارم با این روش مشکلی نداشته باشین.
                  کد PHP:
                  Private Sub CommandButton1_Click()
                      For                   i = 1 To 12
                          Sheet3                  .Cells(ActiveCell.Row, i) = Me.Controls("TextBox" & i).Value
                      Next i
                  End Sub 

                    کامنت

                    قبلی template بعدی
                    چند لحظه..