سلام دوستان میشه برای ساخت دفتر روزنامه کمکم کنید فایل اکسل زیر باز کنید متوجه میشد ایراد کارم کجاست ممنون میشم راهنماییم کنید با تشکر
-
-
سلام
لطفا چک کنید...![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] -
سلام
لطفا چک کنید...!
محدوده رو می تونید تغییر بدید!
برای یادگیری نحوه کارکرد توابع آرایه ای (برداری) یا به انگلیسی Array Functions رو جستجو و مطالعه کنید![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]کامنت
-
سلام ممنون اره خودشه فقظ یه سوال چظور میتونم این جدول سرچ رو توی پند شیت داشته باشم کپی زدم نشد ممنون از اینکه جواب میدینکامنت
-
سلام ممنون از جوابتون چطور میشه جدولی رو که توی فایل زیر هست درون یک شیت دیگر قرار داد؟
مثلا در هر شیت یک جدول باشه با یک نام که محتویات آن از جدولی که مرجع هست در شیت اول استفاده میشود.کامنت
-
چه باحالجووونکامنت
-
سلام
خب همین کار رو در شیت های دیگه هم انجام بدید! فقط آدرسا متفاوت میشه!
اگه نتونستید فایل نمونه بگذارید! ولی حتما خودتون امتحان کنید!
اگه حجم داده زیاده (بیشتر از 10 هزار رکورد) با تعداد شیت های بالا و سیستمتون ضعیف ( رم و سی پی یو پایین) این راه پیشنهاد نمیشه![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]کامنت
-
با سلام
در فایل پیوست با پیوت تیبل گزارشگیری شده است بررسی بفرماییدکامنت
-
سلام
ممنون بابت راهنمایی و روشی که فرمودین ولی من بیشتر کنجکاو شدم برا یادگیری فرمول بالا که چطور میتونم اون فرمول رو کامل کنم برا شیت دیگر و بدونم ایراد کارم کجاست و کجای فرمول بالا رو اشتباه نوشتمکامنت
-
سلام
من انجام دادم ولی بنظر درست نمیاد ممنون میشم راهنمایم کنید ایراد کارم کجاست.
فرمول اولیه در همان شیت IFERROR(INDEX($A:$F؛SMALL(IF($C$3:$C$10=$K$1؛ROW($ C$3:$C$10))؛ROWS($J$3:J3))؛COLUMNS($J$3:J3))؛"")
فرمول تغییر یافته برای شیت های بعدی
=IFERROR(INDEX(Sheet1!$A:$F؛SMALL(IF(Sheet1!$C$3:$ C$10=$K$1؛ROW(Sheet1!$C$3:$C$10))؛ROWS($J$3:J3))؛C OLUMNS($J$3:J3))؛"")
این فرمول استفاده کردم ولی جواب نداد محدوده که A:F شیت یک باید باشه و ستون جستجو هم که C شیت یک سلولی هم که باید نام حساب تایپ کنیم همون K1 توی همون شیت هست به فرض مثال شیت دوم که الان هستیم پس نیاز نداره چیزی اضافه بشه بهش قسمت های اخرم بنا به هر سلول چون ادرس نسبی هست تغییر میکنه.
الان به نظر شما من کجای این فرمول اشتباه کردم؟
ممنون از راهنمایی و وقتی که میزارین جواب میدینکامنت
-
با سلام
فایل پیوست را بررسی بفرماییدکامنت
کامنت