دریک فایل اکسل دوشیت وجود دارد که این دو شیت باهم رابطه دارند (مثلا سلول a1 شیت 1 مساوی سلول a1 شیت 2 ) میخاهم اگر در سلول a1 شیت 2 مطلبی را قرار دهم وقالب ان هرچFormat.xlsxه بود(مخصوصا رنگ ) ، قالب آن در سلول شیت 1 هم اعمال شود .
اعمال قالب یک سلول درسلول شیت دیگر(رنگ،فونت وغیره)
Collapse
این تاپیک قفل است.
X
X
-
سلام
دریک فایل اکسل دوشیت وجود دارد که این دو شیت باهم رابطه دارند (مثلا سلول a1 شیت 1 مساوی سلول a1 شیت 2 ) میخاهم اگر در سلول a1 شیت 2 مطلبی را قرار دهم وقالب ان هرچFormat.xlsxه بود(مخصوصا رنگ ) ، قالب آن در سلول شیت 1 هم اعمال شود .برچسب ها: هیچکدام -
سلام یه راه اینه...!
کد:Private Sub Worksheet_Activate() Application.ScreenUpdating = False Application.EnableEvents = False Sheets("Sheet2").Select Selection.Copy Sheets("Sheet1").Select ActiveSheet.Paste Application.CutCopyMode = False Application.ScreenUpdating = True Application.EnableEvents = True End Subفایل های پیوست شده[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT] -
سلام
هرچند اون چیزی که مد نظر من بود نیست اما جالب بود حالا چطوری میشه با این روش اطلاعات رو کپی کنیم داخل یه فایل دیگه اکسل (مثلا از شیت یک فایل یک به شیت یک فایل دو)
کامنت
-
-
با فرمول نمیشه فرمت رو کپی کرد!... فقط میشه مقدار رو برگردند..!
مگه این که یه تابع جدید تعریف کرد!!![B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]کامنت
-
کامنت



کامنت