تبدیل تابع به 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