پیغام خطا
Collapse
این تاپیک قفل است.
X
X
-
-
-
سلام
اینم فایل پیوست
وقتی کلید ها را فشا میدم این پیغام ظاهر میشود
فایل های پیوست شده[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]کامنت
-
سلام،
علت، استفاده از کلمات و حروف فارسی هست.
خط دوم ساب sort1 رو با کد زیر جایگزین کنید.
کد:ActiveWorkbook.Worksheets("Abrang").ListObjects("Table1").Sort.SortFields.Add Key:=Range("Table1[[#All],[" & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & "]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
[CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
[/CENTER]کامنت
-
سلام،
علت، استفاده از کلمات و حروف فارسی هست.
خط دوم ساب sort1 رو با کد زیر جایگزین کنید.
کد:ActiveWorkbook.Worksheets("Abrang").ListObjects("Table1").Sort.SortFields.Add Key:=Range("Table1[[#All],[" & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & "]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]کامنت
کامنت