VBA.Mania

vbamania.pl

Dziś jest sobota, 28 kwietnia 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Jak uniewrażliwić makro na wielkość liter? otwarty rozpoczął: Marie postów: 3

napisał: Marie postów: 22 umieszczony: 14 maja 2012 15:27
	Dziękuję - zdaje się działa jak na razie działa tak jak ja wcześniej chciałam : )

napisał: admin postów: 613 umieszczony: 14 maja 2012 13:58
	Witam, Ja bym zrobil tak: Sub Znajduj() Dim i As Integer, j As Integer Dim d1 As Long, d2 As Long Dim flag As Boolean Set a1 = Sheets("Spis") Set a2 = Sheets("Nowy sprzęt") d1 = a1.Cells(Rows.Count, "A").End(xlUp).Row d2 = a2.Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To d2 s = a2.Cells(i, 1).Value flag = False For j = 1 To d1 If UCase(a1.Cells(j, 1).Value) = UCase(s) Then a1.Cells(j, 1).Interior.ColorIndex = 8 flag = True End If Next j If flag = False Then a2.Cells(i, 1).Interior.ColorIndex = 3 Next i End Sub

napisał: Marie postów: 22 umieszczony: 14 maja 2012 12:23
	Witam, Mam takie makro, które z jednego arkusza wyszukuje wpisy w drugim arkuszu. Działa bezbłędnie jednakże ma jedną wadę, jak wyrażenie różni się wielkością liter to już jego nie wykrywa. Jak poprawić ten kod, by nie "przejmował" się wilkością liter w wyszukiwanej frazie? Sub Znajduj() Dim i As Integer, j As Integer Dim d1 As Long, d2 As Long Dim flag As Boolean Set a1 = Sheets("Spis") Set a2 = Sheets("Nowy sprzęt") d1 = a1.Cells(Rows.Count, "A").End(xlUp).Row d2 = a2.Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To d2 s = a2.Cells(i, 1).Value flag = False For j = 1 To d1 If a1.Cells(j, 1).Value = s Then a1.Cells(j, 1).Interior.ColorIndex = 8 flag = True End If Next j If flag = False Then a2.Cells(i, 1).Interior.ColorIndex = 3 Next i End Sub

wstecz 1 dalej

wszystkich stron: 1