ساخت فرم چاپ در اکسل

[bluetoo3]

با سلام
من توی اکسل یه لیست دارم که اطلاعات کارمندها سیو شده
دنبال راه حلی هستم بتونم با کلیک بر روی سلول چاپ ، اطلاعات رو به شیت دیگر برده و چاپ بگیرم
مثل فایل نمونه
همچین چیزی امکان داره ؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

با سلام
من توی اکسل یه لیست دارم که اطلاعات کارمندها سیو شده
دنبال راه حلی هستم بتونم با کلیک بر روی سلول چاپ ، اطلاعات رو به شیت دیگر برده و چاپ بگیرم
مثل فایل نمونه
همچین چیزی امکان داره ؟

سلام دوست عزيز
بله امكان پذيره. فقط بايد كدنويسي انجام بشه

اين كدهايي كه در اختيارتون ميذارم رو در كدهاي شيت 1 كپي كنيد. بعد هر سلولي كه از ستون چاپ انتخاب كنيد اطلاعات مربوط به آن را در شيت بعدي كپي ميكند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr(5) As Variant
If Not Intersect(Target, Range("H:H")) Is Nothing Then
    For i = 1 To 6
        arr(i - 1) = Target.Offset(, i - 7).Value
    Next i
End If


With Sheet2
    .Range("H4").Value = arr(5)
    .Range("D6").Value = arr(0)
    .Range("G6").Value = arr(1)
    .Range("D17").Value = arr(2)
    .Range("G17").Value = arr(3)
End With
End Sub

[bluetoo3]

سلام دوست عزيز
بله امكان پذيره. فقط بايد كدنويسي انجام بشه

اين كدهايي كه در اختيارتون ميذارم رو در كدهاي شيت 1 كپي كنيد. بعد هر سلولي كه از ستون چاپ انتخاب كنيد اطلاعات مربوط به آن را در شيت بعدي كپي ميكند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr(5) As Variant
If Not Intersect(Target, Range("H:H")) Is Nothing Then
    For i = 1 To 6
        arr(i - 1) = Target.Offset(, i - 7).Value
    Next i
End If


With Sheet2
    .Range("H4").Value = arr(5)
    .Range("D6").Value = arr(0)
    .Range("G6").Value = arr(1)
    .Range("D17").Value = arr(2)
    .Range("G17").Value = arr(3)
End With
End Sub

ممنونم دوست عزیز دقیقا همون که می خواستم
تشکر فراوان

[Amir Ghasemiyan]

ممنونم دوست عزیز دقیقا همون که می خواستم
تشکر فراوان

خواهش ميكنم
پس اگر جواب سوالتون رو گرفتين لطفا تاپيك رو حل شده كنيد