Pytanie : Błąd wiadomość opierać się na uzasadnienie reguła - VB wydarzenie treser

Cześć, budować na poprzedzający odpowiedź z ten pytanie.  I dołączać kartoteka dla reference.

I ustawiać dane uzasadnienie podręczny użytkownik tworzyć conflct z mila już wyznaczać mila.  Użytkownik być terytorium spreadsheet i zdarzać się, tak, że być dlaczego I ostrzegać the użytkownik i zatrzymywać.

I am dla sposób the podręczny z the szczegół the konflikt?  Na przykład, mieć the podręczny the użytkownik podręczny jednakowy "The milowy pasmo ty wchodzić do konflikt z Istniejący terytorium na I-35.  Jeżeli pytanie być pytanie ty zamierzać, zadawalać przystosowywać Terytorium na I-35 stosownie "

Thanks Harfang i ich praca na i-35 poprzednio, mówić "I być zupełnie pewny I znać the najlepszy metoda wszystkie rząd który pokrywać się w VB, więc I sugerować ty pytać nowy powiązany pytanie (using the odpowiedni połączenie w ten pytanie). The kryterium być:

Droga = R I BegMile < E I EndMile > B

R: aktualny rząd Road
E: aktualny rząd Końcówka Mile
B: aktualny rząd Początkujący Milowy "

My poufałość z VBA wewnątrz przodować limitied macros I kopiować z the sieć… I nigdy pisać jeden myself.

Any pomysł jeżeli jeden móc robić?

Thank ty!


Territory-test.xls (20 KB) (Kartoteka Typ Szczegół)
example file
Territory-test.xls (20 KB) (Kartoteka Typ Szczegół)
example file
Related Rozwiązanie: Determine jeżeli uprawomocniony dane już być used

Odpowiedź : Błąd wiadomość opierać się na uzasadnienie reguła - VB wydarzenie treser

Zmartwiony Savants, I być littlem niedbały, tutaj być rewidować wersja. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Jawny Okręt podwodny CheckRoad (iRow Jako Integer)
    Ciemnawy lLastRow Długo
    
    LastRow& = Komórka (Rows.Count, 3).End (xlUp). Rząd
    sRoad = Komórka (iRow, 2).Value
    Początek = Komórka (iRow, 3).Value
    Koniec = Komórka (iRow, 4).Value
    bWarning = Fałszywy
    
    Dla IX = 2 LastRow
        Jeżeli IX <> iRow Wtedy
            Jeżeli Komórka (IX, 2).Value = sRoad Wtedy
                Jeżeli Komórka (IX, 3).Value >= Początek I Komórka (IX, 3).Value <>= Początek I Komórka (IX, 4).Value  <>
Inne rozwiązania  
 
programming4us programming4us