Treść zadania

Najlepsze rozwiązanie

• 

  1 0

  antekL1 22.4.2014 (13:21)

  Masz w załączniku przykład arkusza, który to robi.
  (ale pokolorować pól mi się nie udało)
  
  UWAGA!
  Przy otwieraniu pliku z załącznika trzeba zgodzić się na makra!
  
  ==========================
  
  W komórce L2 (błękitnej) wołam funkcję f(n, zakres) gdzie:
  
  n - ilość pól do sprawdzenia (tutaj: 6*3 = 18 pól (zaznaczonych
  zakres - E1:J3 może być dowolny zakres, ciągły
  
  Tego "n" też w zasadzie można by się pozbyć, licząc ilość pól w "zakres"
  wewnątrz funkcji f, ale mi się nie chciało.
  
  Kod funkcji - otwórz edytor: Narzędzia --> Edytor Visual Basic
  Masz też go tutaj. W razie pytań pisz na priv.
  
  ==============================
  
  Option Explicit
  
  Function f(n As Integer, ByRef lista As Range) As String
  Dim i As Integer
  Dim blad As Integer
  Dim minus As Integer
  Dim znak As String
  
  blad = 0
  minus = 0
  
  ' Petla sprawdzajaca
  For i = 1 To n
  znak = lista.Cells(i).Value
  If znak = "-" Then minus = 1
  If Not ((znak = "-") Or (znak = "X") Or (znak = "0")) Then
  blad = 1
  End If
  Next i
  
  ' Napis - zmiana
  f = ""
  If blad = 1 Then
  f = "Zły znak (nie -,X,0) w komórkach"
  Else
  If minus = 1 Then
  f = "Czekamy"
  Else
  f = "Całość"
  End If
  End If
  End Function
  
  ==============================

  Załączniki

  • przyklad.xls (29 KB)

  Dodawanie komentarzy zablokowane - Zgłoś nadużycie