Application.InputBox ile Hücre Seçtirmek

Gelişmiş InputBox

Normal InputBox sadece metin alır. Application.InputBox (Type:=8) kullanırsanız kullanıcı ekranda hücre tarayabilir.

VBA Kodu:

Sub HucreSec()
    Dim alan As Range
    Set alan = Application.InputBox("Lütfen boyanacak alanı fareyle seçin:", "Alan Seçimi", Type:=8)
    alan.Interior.Color = vbGreen
End Sub

Ne Göreceksiniz? Bir kutucuk açılacak. Kullanıcı fareyle tabloyu seçip Tamam dediği an, seçtiği tüm hücreler yeşile boyanacaktır.