سلام من 36ردیف داده سالانه به صورت افقی و 12 ردیف ماهانه به صورت عمودی دارم اگه بخوام همه اونا به ترتیب سال زیر هم در یک ستون قرار بگیرند چکار کنم
اینم نمونه ای از داده هام
Book2
اینم نمونه ای از داده هام
Book2
-
-
سلام[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] -
سلام
عذرخواهی میکنم اشتباه از من بوده!...
کد:Sub Append() Dim LR As Long, LC As Integer, j As Integer LC = Cells(1, Columns.Count).End(xlToLeft).Column Range("a1").EntireColumn.Insert For j = 3 To LC + 1 LR = Cells(Rows.Count, j).End(xlUp).Row Range(Cells(2, j), Cells(LR, j)).Copy Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1) Next j 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]کامنت
-
سلام
اگر تونستید فایل رو باز کنید پس با فایلهای فشرده مشکل ندارید....
درباره ماکرونویسی و فعال کردن ماکرو چقدر اطلاع دارید؟ (نوار زرد رنگ یعنی Enable Content رو فعال می کنید؟)
من فایل رو چند بار چک کردم موردی نداشت!!![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]کامنت
-
البته کمی آسون نیست که حدس زد که در کدوم قسمت مشکل وجود داره! میدونید که فایل های اکسلی که xlsm هستند اغلب اوقات! دارای کد می باشند (یه کم آموزش)!...!
بعد از این با باز کردن چنین فایل هایی اخطاری که به صورت نوار زرد رنگ هست ظاهر میشه و با فعال کردن اون (Enable)می تونید کد رو اجرا کنید و برای سوال شما من گزینه ای قرار دادم که با کلیک کردن روی اون به نتیجه می رسید (در ستونA)!
اینم ویدئو نحوه انجام ماکرو ها
به دو طریق :
ویدئو اول
ویدئو دوم
برای دیدن با کیفیت بهتر دانلود کنید!
همچنین برای فعال سازی تب develoer :
Last edited by rahi_feri; 2016/11/25, 02:37.[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]کامنت
کامنت