انتقال اطلاعات از لیست باکس به شیت

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

    • 2019/07/02
    • 57

    [حل شده] انتقال اطلاعات از لیست باکس به شیت

    سلام دوستان من داخل فرمم vba لیست باکسی دارم که میخوام با کلیک روی لیست باکس ستون های لیست باکس به شیت مثلا دو انتقال داده بشه
    مثلا
    ستون 1 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون a از ردیف 4 تا ردیف ... بریزه
    ستون 2 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون c از ردیف 4 تا ردیف ... بریزه
    ستون 3 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون d از ردیف 4 تا ردیف ... بریزه
    ستون 4 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون b از ردیف 4 تا ردیف ... بریزه
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    در فایل پیوست محتویات لیست باکس بصورت ستونی در msgbox نمایش داده میشود کدهای بعدی برای انتقال به شیت را مطابق خواسته خود انجام دهید


    Click image for larger version

Name:	Untitled.png
Views:	1
Size:	119.0 کیلو بایت
ID:	135835

    کد PHP:
    Private Sub ListBox1_Click()

            
            For 
    0 To ListBox1.ListCount 1
                
                
                  msg1 
    msg1 vbNewLine ListBox1.List(i0)
                  
    msg2 msg2 vbNewLine ListBox1.List(i1)
                  
    msg3 msg3 vbNewLine ListBox1.List(i2)
                  
    msg4 msg4 vbNewLine ListBox1.List(i3)
                  
    msg5 msg5 vbNewLine ListBox1.List(i4)
                  
            
    Next i
              
    MsgBox msg1
    MsgBox msg2
    MsgBox msg3
    MsgBox msg4
    MsgBox msg5
            

        
    End Sub 
    فایل های پیوست شده

    کامنت

    • سید مسعود قمی

      • 2019/07/02
      • 57

      #3
      خیلی ممنون از جوابتون ولی یکم برام سخت بود
      لطفا راحتر بگید
      من میخوام مثلا محتوای ستون 0 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های c6 تا c30
      بعد محتوای ستون 1 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های d6 تا d30
      بعد محتوای ستون 2 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های e6 تا e30
      و ...

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        فایل پیوست را بررسی کنید

        Click image for larger version

Name:	Untitled.png
Views:	1
Size:	120.9 کیلو بایت
ID:	135837
        فایل های پیوست شده

        کامنت

        • سید مسعود قمی

          • 2019/07/02
          • 57

          #5
          ممنون استاد فقط ی راهنمایی دیگه هم میخواستم
          چجوری میشه مثلا ردیف های خالی بین c6 تا e30 رو با کد vba حذف کنم

          کامنت

          • iranweld

            • 2015/03/29
            • 3341

            #6
            نوشته اصلی توسط سید مسعود قمی
            ممنون استاد فقط ی راهنمایی دیگه هم میخواستم
            چجوری میشه مثلا ردیف های خالی بین c6 تا e30 رو با کد vba حذف کنم

            با این کد

            کد PHP:
            Range("c3:e30").ClearContents 

            کامنت

            چند لحظه..