تبدیل تابع به vba

[amir0914]

سلام. از دوستان قبلا برای رنگی کردن سلول دارای ممیز تابع زیر رو ارائه کرده بودن. میشه این تابع رو توی vba اجرا کرد؟

تابع :

=IF(FIND(".";C1;1)>1;1;0)

[iranweld]

با سلام

از دستور INSTR استفاده کنید

Sub TEST()

If InStr(1, Range("C1"), ".") > 1 Then

MsgBox "OK"

End If

End Sub 

[amir0914]

خیلی ممنون آقای مهندس. این vba با اون تابع فرق میکنه. میخوام که در ستون c سلول هایی که دارای ممیز می باشند رنگی بشه. عکس تابع رو پیوست کردم که خودتون تهیه کرده بودین :

[iranweld]

با سلام

از قابلیت رویدادها در اکسل استفاده کنید. چنانچه دیتای شما در ستون A باشد

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
    On Error Resume Next
    
    If IsNumeric(Target) And InStr(1, Target, ".") > 0 Then
    
    Target.Interior.ColorIndex = 4
    
    Else
    
    Target.Interior.ColorIndex = 0
    
    End If
    
    End If
    
    End Sub