home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / Komentar.bas < prev    next >
BASIC Source File  |  2002-01-03  |  579b  |  32 lines
  1. Attribute VB_Name = "Komentar"
  2. Function FinT(Bunka)
  3.       FinT = Bunka.FormulaLocal
  4.    End Function
  5.  
  6. Sub Komentar()
  7. On Error GoTo ErrorHandler
  8. Application.ScreenUpdating = False
  9.     For Each c In Selection
  10.     If c.HasFormula = True Then
  11.         f = FinT(c)
  12.         c.AddComment f
  13.     Else
  14.         c.Comment.Delete
  15.     End If
  16.     Next
  17.     Exit Sub
  18. ErrorHandler:
  19.     Select Case Err.Number
  20.         Case 1004
  21.             c.Comment.Delete
  22.         Case 91
  23.             Resume Next
  24.     End Select
  25.     Resume
  26. Application.ScreenUpdating = True
  27. End Sub
  28.  
  29.  
  30.  
  31.  
  32.