کدهای به نظر یکسان ولی یک جواب نمیده

[علی فاطمی]

با سلام
اگر دوستان لطف کنن و فایل پیوست رو ببینن یک تکست باکس و دوتا کامن باتن وجود داره

Private Sub CommandButton1_Click()
Sheets(TextBox1.Text).Select
Sheets(TextBox1.Text).Range("A1") = "ok"
End Sub

Private Sub CommandButton2_Click()
Dim a
a = Application.WorksheetFunction.Count(Sheet1.Range("a1:a10"))
Sheets(a).Select
Sheets(a).Range("A1") = "Nok"
End Sub

توی تکست باکس عدد 1 رو وارد کنید و کامن باتن یک رو بزنید. در شیتی که با عدد 1 نام گذاری شده ودر سلول a1 کلمه ok ثبت میشه
از طرفی دستور count که در کامن باتن 2 قرار داره هم جوابش میشه یک . از نظر من مبتدی دوتا دستور باید یه خروحی داشته باشند ولی کامن بات 2 اجرا نمیشه و ارور داره . لطفا راهنمایی بفرمائید.
ممنون از توجه شما.

[mokaram]

مشکل شما تو فرمول زیر هست

a = Application.WorksheetFunction.Count(Sheet1.Range("a1:a10")) 

تو شیت یک مقداری نیست بنابراین a برابر با صفر میشه و تو خط بعدی هم نوشتید :

Sheets(a).Select
Sheets(a).Range("A1") = "Nok" 

که شیت صفر وجود نداره و ارور میده
در ضمن بهتر تو فرمول خط اول به جای Count از counta استفاده کنید

[علی فاطمی]

مشکل شما تو فرمول زیر هست

a = Application.WorksheetFunction.Count(Sheet1.Range("a1:a10")) 

تو شیت یک مقداری نیست بنابراین a برابر با صفر میشه و تو خط بعدی هم نوشتید :

Sheets(a).Select
Sheets(a).Range("A1") = "Nok" 

که شیت صفر وجود نداره و ارور میده
در ضمن بهتر تو فرمول خط اول به جای Count از counta استفاده کنید

ممنون از توجه شما
فرمایش شما صحیحه . حالا اگر توی سل a1 شیت 1 عدد 1 رو بزاریم دستور count قطعا باید یک بشه . بعد از اون باید بره توی شیتی که اسمش 1 هستش nok رو قرار بده ولی nok رو توی a1 شیت1 میزاره ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Ali Parsaei]

ممنون از توجه شما
فرمایش شما صحیحه . حالا اگر توی سل a1 شیت 1 عدد 1 رو بزاریم دستور count قطعا باید یک بشه . بعد از اون باید بره توی شیتی که اسمش 1 هستش nok رو قرار بده ولی nok رو توی a1 شیت1 میزاره ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

به دليل اين است که نوع متغيير درست تعريف نشده، شما بايد نوع متغيير را از نوع string بگذاريد،
ببينيد (1)sheets ارجاع به اولين شيت کار برگ است ولي ("1")sheets ارجاع به شيتي با نام يک است، حال اگر نوع متغيير را درست تعريف نکنيد وقتي مي نويسيد (sheets(a اين دو تا جابجا ممکن است بشود.

[علی فاطمی]

به دليل اين است که نوع متغيير درست تعريف نشده، شما بايد نوع متغيير را از نوع string بگذاريد،
ببينيد (1)sheets ارجاع به اولين شيت کار برگ است ولي ("1")sheets ارجاع به شيتي با نام يک است، حال اگر نوع متغيير را درست تعريف نکنيد وقتي مي نويسيد (sheets(a اين دو تا جابجا ممکن است بشود.

ممنون از توجه شما.

[Amir Ghasemiyan]

ممنون از توجه شما.

دوست عزيز همونطور كه قبلا گفته شد شما بايد از دستور couta استفاده كنيد. count اعداد رو ميشماره نه خانه هاي پرشده رو.بقيه كدتون درسته