میخوام یه دکمه بسازم که وقتی روش کلیک میکنم از من یه کلمه بگیره و بعد اون کلمه رو تو آخرین سلول خالی اون ستون کپی کنه و بعد ستون رو بر اساس همون کلمه فیلتر کنه .
-
[COLOR=#00ff00][SIZE=5][B]One Life One Excell[/B][/SIZE][/COLOR] -
سلام دوست عزیز
برای این مساله یه یوزرفرم میسازیم و داخلش یه تکست باکس و یه دکمه میذاریم.
کد داخل دکمه که تخصیص متن به فیلد A8 و فیلترینگ رو انجام میده:
برای حذف فیلترینگ توی Event فعال شدن فرم این کد رو زدم:کد PHP:ActiveSheet.range("A8").Value = TextBox1.Text
ActiveSheet.range("$A$1:$A$7").AutoFilter Field:=1, Criteria1:=TextBox1.Text, Operator:=xlFilterValues
Unload Me
و در نهایت در یک ماژول کد نمایش فرم رو به دکمه داخل شیت اختصاص دادم.کد PHP:On Error Resume Next
ActiveSheet.range("$A$1:$A$7").AutoFilter.ShowAllData
فایل خدمت شما[CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
[/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester
[/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER] -
[COLOR=#00ff00][SIZE=5][B]One Life One Excell[/B][/SIZE][/COLOR]کامنت
-
خب این کارو که انجام میده دوست عزیز
فقط برای تعداد سطر بیشتر از ۷ تا، یه متغیر برای سطر آخر ستون A تعریف کنید مثل LastRow و مقدارش رو بذارید ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
و بجای اون بخش A8 این متغیر رو بذارید که آخرین سطرو بگیره
و تغییر دیگه ای هم که لازمه داده بشه بجای A7 توی رنج داده شده LastRow.Row-1 بخوره
Sent from my iPhone using Tapatalk[CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
[/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester
[/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]کامنت
-
[CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
[/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester
[/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]کامنت
کامنت