انتخاب از table

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kazem1359

    • 2018/06/08
    • 331
    • 39.00

    [حل شده] انتخاب از table

    سلام
    در فایل زیر در قسمت یوزرفرم اطلاعات جدول موجود در شیت 2 وارد لیست باکس میشه حالا چطور می تونم با کلیک برروی یک مورد از ردیف های موجود در لیست باکس فقط نوشته داخل ستون اولی وارد یکی از تکس باکسها بشه به شرطی که تکس باکس پر باشه (یعنی خالی نباشه)

    ممنون

  • majid_mx4

    • 2012/06/25
    • 699

    #2
    سلام لطفا فایل ضمیمه را بررسی نمایید.

    توضیح : روی لیست باکس دبل کلیک کنید . اگر تکست باکس پر باشد آن را به عدد ستون اول بر می گرداند.

    کد:
    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Dim str As String
        Dim i As Long
    
        
        For i = 0 To ListBox1.ListCount - 1
    
            If ListBox1.Selected(i) Then
              
                str = ListBox1.List(i)
           
      
    End If
        Next
        
         Dim ctrl As Control
    
        
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "TextBox" Then
                
            If ctrl.Value <> "" Then
           ctrl.Value = str
            End If
            End If
        Next ctrl
     
     
     
     
      
     
    End Sub
    موفق باشید میر
    فایل های پیوست شده

    کامنت

    • kazem1359

      • 2018/06/08
      • 331
      • 39.00

      #3
      سلام استاد گرامی دست شما درد نکنه عالیه ولی 2 مورد را اگر حل نمایید سپاسگذارم :
      بنده گفتم نوشته ستون اول وارد تکست باکس بشه حالا چطور می تونم به جای ستون اول ، ستون دوم را قرار بدم .
      یک مورد دیگه اینه که : اگر تکست باکس پر بود و با دابل کلیک روی ردیف مورد نظر ، نوشته ستون دوم علاوه بر تکست باکس پر ، وارد تکست باکس 3 هم بشه (حتی اگر خالی باشه)
      ممنون

      کامنت

      • majid_mx4

        • 2012/06/25
        • 699

        #4
        با سلام

        میتوانید از دستورات زیر استفاده نمایید.

        کد:
        Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
         Dim str As String
            Dim i As Long
        
            
            For i = 0 To ListBox1.ListCount - 1
        
                If ListBox1.Selected(i) Then
                  
                    str = ListBox1.List(i, 1)
               
          
        End If
            Next
            
             Dim ctrl As Control
        
            
            For Each ctrl In Me.Controls
                If TypeName(ctrl) = "TextBox" Then
                    
                If ctrl.Value <> "" Then
               ctrl.Value = str
                End If
                End If
            Next ctrl
         
         
         TextBox3.Value = str
         
          
         
        End Sub
        موفق باشید میر

        کامنت

        چند لحظه..