سلام من یه حلقه نوشتم تا حدودی کارمو میکنه خیلی تلاش کردم بلد نیستم ولی تا یه جاهایی نوشتم خوب کار میکنه بقیش موندم چکار کنم کسی میتونه کمکم کنه فایل بفرستم یا کد رو برام اصلاح کنه؟
-
-
سلام این فایل همراه با کدی که نوشتم ببینید درسته کد اجرا کنید شاید متوجه شدید چی میخوامکامنت
-
کمکم کنیدکامنت
-
-
در فایل پیوست با رنگ مشخص کردم چه کاری میخوام بکنم این داده ها سه بعدی هست زمان طول و عرض که من میخوام طول و عرض بیارم یه جا و زمان یه طرف باشه زمان از 1 تا 12 هست 12 ماه سال رو شامل میشه. طول از 1 تا 21 و عرض از 1 تا 16 حالا من میخوام زمان ستون طول 1 رو که عر1ض 1 تا 16 داخلشه و زمان 1 پشت سرش برداره بچرخونه و تو شیت دیگه بزاره . بعد دوباره بیار طول 2 عرض 1 تا 16 رو برداره و ببره شیت دیگخ بچرخونه جلوی همون اعداد قبلی بزاره . همینجوری تا طول 21 بره و وقتی تموم شد بره حلقه دیگه ای طول 1 عرض 1 زمان 2 قلش زمان 1 بود حالا شد دو 16 تا 16 تا میره ماه بعدتو فایل هم با عکس دادم هم داخل فایل رنگی کردم ماکرویی که وشتم همین کار میکنه ولی نمیتونم یه بعد اضافه کنم که بره زمان 2 رو بخونه . ببره زیر زمان 1 اگه بازم متوجه نشدین میتونم یه فیلم کوچک اپلود کنم از روند کارفایل های پیوست شدهکامنت
-
-
با سلام
فایل پیوست را بررسی کنید.
بعد از اتمام ماکرو عناوین سر ستون ها و سطر ماه را بصورت دستی اضافه کنید
کد PHP:Sub Macro2()
Sheets("k").Cells.ClearContents
Application.ScreenUpdating = False
T = 1
Sheets("e").Select
z1 = Sheets("e").Cells(Sheets("e").Rows.Count, "A").End(xlUp).Row
For i = 3 To z1 Step 16
For j = 3 To 23
k1 = Application.WorksheetFunction.CountA(Sheets("k").Range(T & ":" & T)) + 1
Range(Cells(i, j), Cells(i + 15, j)).Copy
Sheets("k").Cells(T, k1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next
T = T + 1
Next
Sheets("k").Select
Application.ScreenUpdating = True
End Sub
Last edited by iranweld; 2019/03/16, 15:06.کامنت
کامنت