MAKE UNIQUE DATA VALIDATION BY DULICATE DATA
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'Thay so cua cot chua du lieu Data Validation
Call MakeDatavalidation
End If
End Sub
Sub MakeDatavalidation()
On Error Resume Next
Dim TenVungCoDatavalidation As String
TenVungCoDatavalidation = "D2:D9" 'Thay vung bat ky muon dat Data Validation
Range(TenVungCoDatavalidation).Validation.Delete
Dim TenODauCoDuLieu As String
Dim DongCuoi As Double
TenODauCoDuLieu = "A2" 'Thay o bat ky bat dau vung co du lieu
DongCuoi = Range(TenODauCoDuLieu).End(xlDown).Row
Dim DatavalidationList As String
DatavalidationList = Join(MakeUnique(Range("A2:A" & DongCuoi)), ",")
Range(TenVungCoDatavalidation).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=DatavalidationList
End Sub
Function MakeUnique(drng As Range) As Variant
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Dim dt
dt = drng.Value
On Error Resume Next
For i = 1 To drng.Rows.Count
For j = 1 To drng.Columns.Count
dic.Add dt(i, j), dt(i, j)
Next j
Next i
MakeUnique = dic.keys
End Function
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «MAKE UNIQUE DATA VALIDATION BY DULICATE DATA», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.