آخرین ارسالها

صفحه: [1] 2 3 ... 10
1
سلام استاد عزیزززززززز :D
فقط می تونم بدگم خدا خیرتون بده  :-\
شما مسائل اکسلی چندیدن ساله من رو که خیلی وقت هست ذهنم درگیرش هست به بهترین نحو ممکن حل می کنید خیلی خیلی ممنونم ازتون  :)
آخرین ماکرو مرتب سازی تاریخ فوق العاده ست خیلی عالیهههه ممنونممم
در مورد مبحث شماره ردیف :
اگر اشتباه نکرده باشم دلیلش اینه که در این جدولی که در این پست گذاشتم فرمولش به سلول درستی اشاره می کنه ولی تو فایلی که در بخش برنامه نویسی گذاشتم فرمولش به جای درستی اشاره نمی کنه !
تو این فایل : فرمول از عنوان سطر گرفته تا یک سلول بالای سطر جاری رو مد نظر قرار میده ! و به خاطر همین تا زمانی که یک سطر بالای ، سطر جاری در فیلد تاریخ ، مقداری درج بشه فرمول بدرستی تعداد سطرها را تا سطر بالا می شماره ! و با فیلتر کردن هم به مشکلی بر نمی خوره و درست عمل می کنه !
اگه نکته همین بود لطفا تایید کنید تا در پست مربوطه هم جواب رو درج کنم خیلی ممنونم  :)
راستی یه سوال : 
زمانی که زیر جدول داشتم تایپ می کردم تا ردیف های جدول ایجاد بشه دستم خورد به چیزی و خاصیت Auto expand  ! غیر فعال شد و دیگه با نوشتن مقدار جدید زیر سطر جدول ، سطر های جدول بسط داده نمیشن ! تنظیماتش رو هر چقدر گشتم موفق نشدم پیدا کنم و به حالت قبل برگردونم لطفا در صورت امکان راهنمایی بفرماید :-X

2
باسلام
چگونه می توانیم کاری کنیم که وقتی در یک cell سلول دابل کلیک می کنیم یک جدول که قبلا ایجاد شده است بصورتpopup باز شود؟
با تشکر
3
سپاسگزارم
4
سلام
ازبابت وجودخطادرمحاسبه ارزش افزوده دراکسل فاکتور رسمی،دراین انجمن مطرح کنم؟
5
اینم کد برای تاریخ های در غیر فرمت جدول!
لزومی نداره انتخاب کنید و با اجرا کد تمام ستون ها یی که تیتر اون ها شامل تاریخ میشه چک می شوند و اون هایی که فرمتشون لازم به اصلاحه، اصلاح میشوند!

6
سلام
در مورد شماره ردیف هم عجیب بود و هم جالب که چرا به ذهنم نرسید !!!    :-\ :-\
البته شما خودتون جواب خودتون رو دادید و نیازی به برنامه نویسی نیست!
من دلیلش رو نمیگم و مطمئنم خودتون متوجه میشید  و فقط ویدئویی می فرستم از فایل خودتون که نشون میده شماره ردیف درست کار میکنه! (توضیحات : فرمول خودتونه و من کاری نکردم!)
فقط وقتی فهمیدید خودتون جواب رو در پست خودش توضیح بدید!
ممنون
لینک فیلم :
http://s4.picofile.com/file/8286885584/New_WinRAR_ZIP_archive.zip.html
7
سلام
من که ایرادی ندیدم و اجرا کردم و درست بود!
این کد هم می گذارم که نیازی به وارد کردن اسم جدول نباشه! تو این کد همه جداول موجود در شیت فعال که ستون تاریخشون دارای شرط "/" باشه تغییر فرمت میدن! و البته کدی که شما اجرا کردید به نظر کمی تغییرات داشته احتمالا! چون تو اینجا شرط کاراکتر "/" موجوده که اگه در جای سوم باشه عمل میکنه!
موضوعی رو یادم رفت بگم حتما نیازی به این که جدول باشه تا کد اجرا بشه نیست و من فکر کردم کار شما با جدوله! در اسرع وقت کدی برای حالت بدون جدول قرار میدم! (البته من هم دیر پست آخر شما رو دیدم!)....
البته به نظرم جدول باشه برای شماره ریف ها که می خواستید فرمولش راحت تر  اوتومات پر میشه و نیازی به درگ نیست!
Sub changeformat()
Dim r As Range
Dim i As Long
Dim objLB As ListObject, TableName As String
   
Application.ScreenUpdating = False
For Each objLB In ActiveSheet.ListObjects
        TableName = objLB.Name

    Set r = Sheet1.ListObjects(TableName).DataBodyRange
   
    For j = 1 To r.Columns.Count
        For i = 1 To r.Rows.Count
            If InStr(r.Cells(i, j).Value, "/") = 3 Then
                r.Cells(i, j).Value = Right(r.Cells(i, j).Value, 4) & "/" & Mid(r.Cells(i, j).Value, 4, 2) & "/" & Left(r.Cells(i, j).Value, 2)
            End If
         Next i
    Next j
Next objLB
Application.ScreenUpdating = False

End Sub
8
سلام
چرا ماکرو ؟
و چرا کد؟

9
با این کد هر تعداد ستون با این فرمت باشه به فرمت مورد نظر تبدیل میشند! نام جدول مهمه !
چک کنید....!

سلام استاد عزیز
کد ماکرویی که زحمت کشیدید رو در Table مدنظر قرار دادم و فقط نام Table رو تغییر دادم ولی ماکرو اجرا نمیشه ! دلیلش چی هست ؟ممنونم

Sub changeformat()
Dim r As Range
Dim i As Long

Application.ScreenUpdating = False

    Set r = Sheet1.ListObjects("Table56").DataBodyRange
   
    For j = 1 To r.Columns.Count
        For i = 1 To r.Rows.Count
            If InStr(r.Cells(i, j).Value, "/") = 3 Then
                r.Cells(i, j).Value = Right(r.Cells(i, j).Value, 4) & "/" & Mid(r.Cells(i, j).Value, 4, 2) & "/" & Left(r.Cells(i, j).Value, 2)
            End If
         Next i
    Next j
   
Application.ScreenUpdating = False

End Sub




* در قسمت شماره ردیف هم  همچنان در ایجاد شماره ردیفی که بشه در Table در حالت فیلتر قابلیت اصلاح رو داشته باشه گیر کردیم استاد  :( *
10
انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : پیوت تیبل
« آخرين ارسال توسط salari 30 بهمن 1395 - 23:16 »
سلام/موجودی هردفعه که خریدانجام میشه بایدکسربشه ودیگه اضافه نمیشه.مثلا 2000 همینطورکم می شود تاصفربشود.
ممنونم
صفحه: [1] 2 3 ... 10