آخرین ارسالها
Private Sub Workbook_Open()
Macro1
End Sub
Sub slt()
Dim col, col2 As String, q, s As Integer
col = "b" 'نام ستون'
col2 = "ab" 'نام ستنون'
s = 1
q = 25
'با توچه به متغييرها مي خواهيم محدوده ذيل را انتخاب کنم متغر هاي را به چه صورت بايد وارد کنيد'
'select'
Range("b1:ab25").Select 'متغير ها را به چه صورت بايد جايگزين کنيم؟'
'با سپاس فراوان'
End Sub
=COUNTIFS($G7,$F$11&$F$10,$H7,$F$14)با سلام
لطفا فایل مورد ضمیمه را بررسی نمایید.
توضیح : فرمول قسمت کاندیشنال را تغییر دادم و بشکل زیر در آمدکد: [انتخاب]COUNTIFS($G7,$F$10,$H7,$F$14)
موفق باشید میر
Sub mir()
tname = ActiveSheet.ListObjects(1).Name
MsgBox tname
tname = ActiveSheet.ListObjects(2).Name
MsgBox tname
End Subبا سلام
دوست عزیز احتمالا این بخاطر اینه که شما هر بار جدول جدیدی میگیرید نام این جدول تغییر میکنه مثلا table27 میشود table30 و یا ....
سلام
بسیار بسیار سپاسگزارم از پاسخ گویی شما دوست عزیز؛ از این که وقت گذاشتین واقعا ممنونم.
دقیقا مشکل از Table بود، کاملا درست اشاره کردین. اما چند سوال دیگه برام مطرح شد و ممنون می شم اگه جواب بدین.
1. چرا هر دفعه عدد Table یکی بالا می ره؟ من تو اینترنت زیاد سرچ کردم اما جوابی نیافتم.
2. در مورد ListObject() هم چیز زیادی پیدا نکردم. من با C تو الکترونیک برنامه زیاد نوشتم، اما VBA نه. واسه همین با جزئیات این دستورات مشکل دارم. هر چند هم که کتاب برنامه نوسی ماکرو رو خریدم، اما زیاد جالب در نیامد و در مورد جدول ها و نکته های برنامه نویسی زیاد اشاره نکرده.
واسه همین معنی عدد 1 داخل پرانتز جلوی ListObject رو نفمهیدم.
3. آیا برنامه تغییر نام جدول که لطف کردین و گذاشتین رو باید ابتدای برنامه و قبل از شروع برنامه اصلی بزارم یا نه؟
4. لیست خروجی که من از سایت می گیرم زبان فارسیه. وقتی ضبط ماکرو می کنم و لیستم رو مثلا با نام ایران زمین فیلتر می کنم، می بینم تو برنامه ماکرو "ایران زمین" نوشته و اجرای ماکرو دفعه بعد مشکل پیدا میکنه. بعد از کلی دردسر وقتی سلول ایران زمین تو گزارشم رو کپی کردم و تو برنامه ماکرو Past کردم دیدم می نویسه: "ا?ران زم?ن" و وقتی به همین صورت گذاشتم برنامه کار کرد!!!
برنامه کامل که با ضبط ماکرو و کمک شما نوشتم به شرح زیره:
'
' xx Macro
'
'
sname = ActiveSheet.ListObjects(1).Name
ActiveSheet.ListObjects(sname).TableStyle = "TableStyleLight13"
Range("A1").Select
ActiveSheet.ListObjects(sname).TableStyle = "TableStyleLight17"
ActiveSheet.ListObjects(sname).Range.AutoFilter Field:=7, Criteria1:= _
"ملت"
Range(sname).Select
Range(sname).Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Columns("A:N").Select
Range("N1").Activate
Columns("A:N").EntireColumn.AutoFit
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Columns("G:H").Select
Selection.Delete Shift:=xlToLeft
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Range("C2").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("G2:G250") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C250") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:G250")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ChDir "C:\Users\Fatemeh\Desktop\Shoab"
ActiveWorkbook.SaveAs Filename:="C:\Users\Fatemeh\Desktop\Bank\Mellat PM.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Range("D231").Select
ActiveSheet.ListObjects(sname).Range.AutoFilter Field:=7
End Sub
باز هم تشکر و ببخشید که زیاد شد