سلام کسی از دوستان علت خطای فرم من رو میدونه
-
-
سلام دوست عزیز
یکی از علتها اشتباهات تایپیه که مثلا Cells رو Calls نوشتید و Range رو Rang.
یکی دیگه از علتها اینه که برای MsgBox ها بجای vbQuestion = vbYes یا vbQuestion = vbYesNo باید مینوشتید vbYesNo، اون مقدار قبل مساوی و خود مساوی اضافه ست
یا مثلا WorksheetFunction.CountIf(Sheet1.Rang("A:A").Me.Te xtBox1.Value) بخاطر یه نقطه که باید کاما میبود خطا میده و باید بشه WorksheetFunction.CountIf(Sheet1.Rang("A:A"),Me.Te xtBox1.Value)
یا WorksheetFunction.VLoookup که 3 تا o داره و ...
یه سری بخشهاشم نفهمیدم
مثلا چرا q از نوع long گرفته میشه و توش مقدار double ریخته میشه و استفاده نمیشه : q = Application.WorksheetFunction.CountA(Sheet1.Rang(" A:A"))
در کل درست متوجه نشدم برنامه میخواد چه کاری انجام بده.
بهرحال در خدمتم[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]
کامنت