کد ماکرو جهت پاک کردن سلول های خاص

**generalsamad** · 2021/05/09, 10:35

با سلام
از این کد میتوان استفاده کرد
کافیست sheet مورد نظر و محدوده را وارد کنید

کد PHP:


Sub clearcontent()
Sheet14.Range("F3:F21").ClearContents
End Sub

**armey** · 2021/05/11, 02:39

- - - Updated - - -

نوشته اصلی توسط generalsamad

با سلام
از این کد میتوان استفاده کرد
کافیست sheet مورد نظر و محدوده را وارد کنید

کد PHP:



سپاسگذارم از لطف و آموزش شما
در مورد ماکرو خیلی مبتدی هستم امکانش هست بفرمایید این دستور رو چجوری مرتبتش کنم با یه دکمه ؟
یا اگه لطف بفرمایید فایل بازرید از روش متوجه بشم 
Sub clearcontent()
Sheet14.Range("F3:F21").ClearContents
End Sub

سپاسگذارم از لطف و آموزش شما
در مورد ماکرو خیلی مبتدی هستم امکانش هست بفرمایید این دستور رو چجوری مرتبتش کنم با یه باتن ؟

یا اگه رو فایل بزارید بتونم از روش الگو بگیرم یاد بگیرم

**armey** · 2021/05/11, 03:37

ضمن عرض ادب و ارادت
با سپاس بیکران

در پست زیر آموزش بود
انجام شد

بسیار سپاسگذارم ازتون

فقط یه نکته

چرا وقتی کاری با ماکرو انجام میشه دیگه
undo
کار نمیکنه یعنی حالا اگه اشباهی شد و پاک شد
دیگه نمیشه بازگشت ؟

عذر زحمات بنده رو بپذیرید یه سوال دیگه داشتم در تکمیل همون فایل اینکه :

میخوام با زدن دیکمه یا همون باتون در یک یا چند سلول خاص متنی نوشته بشه

مثال : با زدن دکمه در سولهای وضعیت نوشته بشه دارای گارانتی
با زدن دکمه دیگر نوشته بشه فاقد گارانتی

یا مثلا تکست باکس باشه اگه تیک زدیم تو اون سلول ها بزنه دارای گارانتی و اگر نبود بزنه فاقد گارانتی

**generalsamad** · 2021/05/11, 09:18

با سلام
کدها به صورت مبتدی نوشته شده

کد PHP:


Sub clearcontent()
Sheet1.Range("A1:A10").ClearContents
End Sub
Sub chkstatus()
Dim i As Integer
For i = 11 To 20
    If Range("A" & i) = Range("B1") Then
        Range("B" & i) = "گارانتی"
    End If
Next i
End Sub
Sub chkstatus2()
Dim i As Integer
For i = 11 To 20
    If Range("A" & i) = Range("B1") Then
        Range("B" & i) = "فاقد گارانتی"
    End If
Next i
End Sub