نویسنده موضوع: ایجاد چند جدول در یک شیت  (دفعات بازدید: 125 بار)

paython8

  • کاربر تازه‌وارد
  • *
  • ارسال: 23
  • جمع امتیازها: +0/-0
ایجاد چند جدول در یک شیت
« : 25 آبان 1399 - 15:55 »
سلام وقت بخیر

من یک جدول دارم که در شیت 1  کد ملی های تکراری و غیر تکراری را شناسایی و جدا می کند.
میخواستم 12 عدد از همین جدول را در شیت شماره1 داشته باشم.
هر چقدر فرمولشو تغییر دادم نشد.
لطفا یک نفر راهنماییم کنه.
فایل جدولمو پیوست می کنم همینجا

متشکرم.

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1936
  • جمع امتیازها: +740/-7
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #1 : 26 آبان 1399 - 08:42 »
با سلام

کلید های Alt+ F11 را فشاردهید و وارد محیط برنامه نویسی شوید کد زیر را کپی کنید.
Sub Mir_Uniq_Value()

Dim cell As Range

Lastrow = Cells(Rows.Count, "B").End(3).Row
Range("E2:E" & Lastrow).ClearContents

b = 2
For Each cell In Range("b2:b" & Lastrow)
NoOfCount = Application.WorksheetFunction.CountIfs(Range("B:B"), cell.Value)
If NoOfCount = 1 Then
Cells(b, 5) = cell.Value
b = b + 1
End If
Next
End Sub
وارد Module1 شوید وجایگزین دستورات قبلی کنید.

فایل را ذخیره کنید.
حال روی شیت1 رایت کلیک کرده و گزینه Move Or Copy را انتخاب و تیک Create a copy در نزدیکی کلید Ok را زده و کلید Ok  فشاردهید.
ذخیره کنید
کار تمام است
موفق باشید میر

paython8

  • کاربر تازه‌وارد
  • *
  • ارسال: 23
  • جمع امتیازها: +0/-0
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #2 : 29 آبان 1399 - 13:36 »
سلام جناب میر عزیز
ممنون بابت راهنمایی
ولی من میخوام که همه جدول هام داخل یک شیت باشه

فایل نمونه رو براتون ضمیمه کردم لطفا ببینید
میخوام کد ملی های غیر تکراری ستونA C,E,G,I داخل ستون کناری جدا شوند.


متشکرم.

majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1936
  • جمع امتیازها: +740/-7
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #3 : 1 آذر 1399 - 01:14 »
با سلام

لطفا کد زیر را بجای کد قبلی جایگزین کنید.

Sub Mir_Uniq_Value()
Dim lastColumn As Long
Dim Lastrow As Long

Lastrow = Sheet1.Cells(Rows.Count, "A").End(3).Row
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column / 2

DataCol = 1
DataRwo = 2

For i = 1 To lastColumn
    Sheet1.Range(Cells(2, DataCol + 1), Cells(Lastrow, DataCol + 1)).ClearContents

For Each cell In Sheet1.Range(Cells(2, DataCol), Cells(Lastrow, DataCol))
         NoOfCount = Application.WorksheetFunction.CountIfs(Sheet1.Columns(DataCol), cell.Value)
         If NoOfCount = 1 Then
        Cells(DataRwo, DataCol + 1) = cell.Value
        DataRwo = DataRwo + 1
    End If
Next
DataRwo = 2
DataCol = DataCol + 2

Next i
End Sub

سلامت باشید میر

paython8

  • کاربر تازه‌وارد
  • *
  • ارسال: 23
  • جمع امتیازها: +0/-0
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #4 : 1 آذر 1399 - 17:36 »
سلام
متشکرم
خیلی سپاسگزارم
فقط یک سوال :
چگونه تعداد ستون هایی که کد ملی غیر تکراری رو جدا می کنه رو از 5 عدد به 20عدد افزایش دهم؟

میشه فرمولشو برام بنویسید
متشکرم


فایل نمونه به همراه کدملی را براتون ضمیمه کردم

متشکرم جناب میر بزرگوارید.

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1936
  • جمع امتیازها: +740/-7
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #5 : 1 آذر 1399 - 23:05 »
با سلام

فایل ضمیمه را بررسی نمایید

موفق باشید میر

paython8

  • کاربر تازه‌وارد
  • *
  • ارسال: 23
  • جمع امتیازها: +0/-0
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #6 : 4 آذر 1399 - 18:30 »
با سلام

فایل ضمیمه را بررسی نمایید

موفق باشید میر


سلام
یک سوال دارم
اگر بخواهم همین فرمول  فایل ضمیمه شده  را در شیت شماره هفت داشته باشم کدام قسمت برنامه را باید تغییر دهم؟

لطفا راهنمایی کنید

متشکرم
جناب میر بزرگوار

majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1936
  • جمع امتیازها: +740/-7
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #7 : 5 آذر 1399 - 20:27 »
با سلام

دوست عزیز اینها فرمول نیستند بلکه ماکرو یا دستورات اجرایی هستند یا به عبارتی دیگر برنامه نویسی می باشد.

به محیط برنامه نویسی رفته و روی شیت هفت کلیک کنید هر صفحه ای که بخواهید اینکار انجام شود کافیست آن را کپی و به آن صفحه انتقال دهید.

دستورات کلی نیز تغییر کرده است .

موفق باشید.

paython8

  • کاربر تازه‌وارد
  • *
  • ارسال: 23
  • جمع امتیازها: +0/-0
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #8 : 5 آذر 1399 - 23:58 »
با سلام

دوست عزیز اینها فرمول نیستند بلکه ماکرو یا دستورات اجرایی هستند یا به عبارتی دیگر برنامه نویسی می باشد.

به محیط برنامه نویسی رفته و روی شیت هفت کلیک کنید هر صفحه ای که بخواهید اینکار انجام شود کافیست آن را کپی و به آن صفحه انتقال دهید.

دستورات کلی نیز تغییر کرده است .

موفق باشید.

سلام جناب آقای میر
متشکرم بابت راهنمایی هاتون

عذر خواهم ولی من وقتی ماکروهای برنامه نویسی شده را به فایل اکسل دیگری منتقل میکنم نمیدونم چرا اجرا نمیشه.
ببخشید آقای میر
اگر ممکن هست همین ماکروی برنامه نویسی شده را داخل شیت شماره هفت فایلی اکسلی که در پایین ضمیمه میکنم قرار دهید.

بی نهایت سپاسگزارم
متشکرم بزرگوار

majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1936
  • جمع امتیازها: +740/-7
پاسخ : ایجاد چند جدول در یک شیت
« پاسخ #9 : 6 آذر 1399 - 23:33 »
با سلام

با عرض پوزش یک قسمت کد اشتباه بود و اصلاح شد.
بجای Activesheet  نوشته بودم Sheet1 که اصلاح شد.
لطفا فایل ضمیمه را بررسی نمایید.


موفق باشید میر

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران