У меня есть выпадающий список для столбца A, в котором я хочу выбрать значение из выпадающего списка только в течение определенного времени (ie. 3 раза), после того как я выберу значение из выпадающего меню 3 раза, если я попытаюсь выбрать его 4-й раз, значение должно быть удалено из выпадающего списка или не может быть выбрано. Возможно ли это с помощью Excel или Google лист?
https://docs.google.com/spreadsheets/d/1nbXAkK565V24KDTAzE68q8rQgQWzn-jDJz_6piNYyEw/edit?usp=sharing
В приведенном выше листе Google, я выбрал красный 3 раза, теперь, если я хочу выбрать Красный 4 время, я не должен быть в состоянии выбрать, или красный должен быть удален из списка.
Я знаю, используя Excel VBA, я могу сделать то же самое, используя приведенный ниже код, но мы можем добавить то же самое на листы Google?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim lVal As Long
Dim check2 As Long
If Target.Count > 2 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
lVal = Application.WorksheetFunction _
.CountIf(Columns(Target.Column), _
"*" & newVal & "*")
If lVal > 3 Then
If newVal = "" Then
'do nothing
Else
MsgBox "Not available"
Target.Value = oldVal
End If
Else
If Target.Column >= 47 And Target.Column <= 56 Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub