Aşağıdakileri girin Etkinlik Makrosu çalışma sayfası kod alanında:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
t = Target.Text & ","
t2 = t & "cats,dogs,cheeese monkeys"
Application.EnableEvents = False
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=t2
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
Application.EnableEvents = True
End Sub
Sonra hücreye bir değer girin A1 .
Çalışma sayfası kodu olduğu için kurulumu çok kolaydır ve kullanımı otomatiktir:
- Excel penceresinin altındaki sekme adını sağ tıklatın
- Kod Görüntüle'yi seçin - bu bir VBE penceresi getirir
- öğeleri yapıştırın ve VBE penceresini kapatın
Herhangi bir endişeniz varsa, önce bir deneme çalışma sayfasında deneyin.
Çalışma kitabını kaydederseniz, makro onunla birlikte kaydedilir.
Excel'in daha sonra 2003 sürümünü kullanıyorsanız, kaydetmeniz gerekir.
.xlsx yerine .xlsm dosyası.
Makroyu kaldırmak için:
- VBE pencerelerini yukarıdaki gibi açın
- kodu temizle
- VBE penceresini kapatın
Genel olarak makrolar hakkında daha fazla bilgi için bkz.
http://www.mvps.org/dmcritchie/excel/getstarted.htm
ve
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Etkinlik Makroları (çalışma sayfası kodu) hakkında daha fazla bilgi için bkz.
http://www.mvps.org/dmcritchie/excel/event.htm
Bunun çalışması için makrolar etkinleştirilmelidir!