artas71 rašė:
Googlinau, sako liaudis internete, kad yra formulė suskaičiuoti pabrauktas (underline) celes excelyje. Gal kas žino?
Reikia su vba parašyti funkciją ir paskui naudoti formulę.
Turi būti įjungtas macro leidimas.
Štai pavyzdys,kodas knygos modulyje:
www.failai.lt/59dd3qbsvqji/__Underline_Funkc.xls.htm
_____________________
O geriausiai,mano galva,be jokių formulių-tik su kodu,veikiančiu prie reikšmių pakeitimu.
Kodas į ThisWorkbook:
rašė: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim c As Range
Range("B1").Value = 0 'čia išvedami paskaičiavimai
For Each c In Range("A1:A10") ' diapazonas su reikšmėmis
If c.Font.Underline = xlUnderlineStyleSingle Then
Range("B1").Value = Range("b1").Value + 1
End If
Next c
Calculate
Application.ScreenUpdating = True
End Sub
Diapazonas reikšmių (A1:A10) ir skaičiavimų išvedimas(A1) keičiamas pagal save.Veikia visuose lapuose.Jei norima tik tam tikrame lape-dedame į lapo modulį.