| ''' Hücreye ait yorum bilgisini döndürür. | |
| ''' Örnek Kullanım; =getComment(A2) | |
| ''' | |
| Function getComment(xCell As Range) As String | |
| On Error Resume Next | |
| getComment = xCell.Comment.Text | |
| End Function |
| ''' Hücredeki değeri değiştirir. | |
| ''' A2 = 100,99 | |
| ''' Örnek Kullanım; =replaceDecimalSep(A2) = 100.99 | |
| ''' | |
| Function replaceDecimalSep(xCell As Range) As String | |
| On Error Resume Next | |
| replaceDecimalSep = Replace(CStr(xCell.Value), ",", ".") | |
| End Function |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment