چاپ یک سطر از یک شیت در یک فرم در شیت دیگر

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

    • 2019/11/08
    • 142
    • 38.00
    #1

    [حل شده] چاپ یک سطر از یک شیت در یک فرم در شیت دیگر

    ضمن عرض ادب و احترام خدمت دوستان عزیز و اعضای محترم سایت

    یه کد دارم که
    میاد به ترتیب
    سطر اول از سیت داده ها رو در یک
    فرم در شیتی دیگر
    جاگذاری میکند و دستور چاپ را میدهد و این کار تا
    رسیدن به سطری خالی در شیت داده ادامه دارد

    کد:
    Sub Print_Form_CRM()

    Dim x As Integer
    x = 2
    Do
    Call Fill_Form(x)
    Sheets("crm-form").PrintOut
    x = x + 1
    
    Loop Until IsEmpty(Sheets("crm").Cells(x, 3))


End Sub
    حالا ما اگه بیاییم فرم رو کوچک تر کنیم بگونه ایی که بجای اطلاعات یک سطر
    اطلاعات 4 سطر در یک فرم جا شود

    فرض که قرارداد قرار است چاپ شود
    در حالت فرمول بالا
    سطر اول در فرم جاگذاری و چاپ می شود

    در حالتی که اکنون نیاز است

    فرم کوچکتر شده و و در یک برگ عا4
    چهار
    قرارداد جا می شود


    حالا باید فرمان
    گونه ایی باشد که
    سطر
    یک و دو و سه و چهار
    را به فرم منتقل کند مطابق تکست باکسهایی که کد دادم
    بعد بره سراغ بعدی

    کد:
    Sub Print_Form_CRM()

    Dim x As Integer
    x = 2
    Do
    Call Fill_Form(x)
    Sheets("crm-form").PrintOut
    x = x + 1
    
    Loop Until IsEmpty(Sheets("crm").Cells(x, 3))


End Sub



Sub Fill_Form(x As Integer)


Sheets("crm-form").Shapes("TextBox 2").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 3").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 5").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 6").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 7").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 12").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 8").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 9").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 10").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 11").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 13").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 19").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 29").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 20").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 21").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 22").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 23").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 24").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 25").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 26").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 27").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 28").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 13").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 30").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 31").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 32").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 33").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 34").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 35").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 36").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 37").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 38").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 39").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 40").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 41").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 51").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 42").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 43").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 44").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 45").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 46").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 47").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 48").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 49").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 50").DrawingObject.Text = Sheets("crm").Cells(x, 13)

End Sub
    برچسب ها: هیچ‌کدام
    • armey

      • 2019/11/08
      • 142
      • 38.00
      #2
      فکر کنم موضوع اینه من به
      تکست باکس دوگفتم برو ایکس یم رو بخون
      و به
      تکسک باکس 19 هم دوباره گفتم برو ایکس یک رو بخون

      درحالی که تکسن باکس 19
      دیگه فرم2 و سطر دو رو شامل میشه باید بهش بگم ایکیک از سطر دو

      تا
      تسکت سی که میشه سطر سه
      و
      تکست 41 که میشه سطر چهار

      - - - Updated - - -

      اعضای عزیز حجم آپلودم پر شده اگه مقدوره راهنمایی بفرمایید چجوری تخلیه میشه کرد

      - - - Updated - - -

      https://s19.picofile.com/file/8434964118/%D8%B4%DB%8C%D8%AA_%D9%85%D8%B1%D8%AC%D8%B9.jpg


      https://s19.picofile.com/file/8434964150/%D9%87%D8%AF%D9%81.jpg

        کامنت

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