Normal InputBox sadece metin kabul eder. Ama kullanıcının mouse ile bir Excel aralığını seçmesini istiyorsanız Application.InputBox kullanmalısınız.
Kod Örneği
Dim Alan As Range
On Error Resume Next 'İptal'e basarsa hata vermesin
Set Alan = Application.InputBox("Lütfen toplanacak alanı mouse ile seçin:", Type:=8)
On Error GoTo 0
If Not Alan Is Nothing Then
MsgBox "Seçilen alanın toplamı: " & Application.Sum(Alan)
End If
On Error Resume Next 'İptal'e basarsa hata vermesin
Set Alan = Application.InputBox("Lütfen toplanacak alanı mouse ile seçin:", Type:=8)
On Error GoTo 0
If Not Alan Is Nothing Then
MsgBox "Seçilen alanın toplamı: " & Application.Sum(Alan)
End If
Bu yöntemle kullanıcı dostu interaktif makrolar yapabilirsiniz.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap