Bir metin kutusunda varsayılan değer nasıl ayarlanır?
Bir çalışma sayfasına hızlıca bir metin kutusu ekleyebilirsiniz, ancak bazen, diğer kullanıcıları ilgili bilgileri girmeleri konusunda uyarmak için metin kutusunda bir varsayılan değer görüntülemek istersiniz. Excel'de bu işi çözmek için herhangi bir fikriniz var mı?
VBA kodu ile bir metin kutusunda varsayılan değer ayarlama
VBA kodu ile bir metin kutusunda varsayılan değer ayarlama
Bir metin kutusunda varsayılan bir değer oluşturmak için aşağıdaki VBA kodu size yardımcı olabilir:
1. Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrol) seçeneklerine tıklayarak metin kutusunu ekleyin ve ardından ihtiyacınıza göre bir metin kutusu çiziniz, aşağıdaki ekran görüntüsüne bakınız:
2. Ardından metin kutusuna sağ tıklayın ve bağlam menüsünden Görünüm Kodu seçeneğini seçin, aşağıdaki VBA kodunu kopyalayın ve Microsoft Visual Basic for Applications penceresindeki orijinal kodun yerine yapıştırın:
VBA kodu: Metin kutusunda varsayılan değer ayarlama:
Private Sub TextBox1_GotFocus()
If Me.TextBox1.Value = "" Then
Me.TextBox1.Value = "Your name, please!"
End If
End Sub
Not: Yukarıdaki kodda, Textbox1 eklediğiniz metin kutusunun adıdır, varsayılan değeri “Lütfen adınızı girin!” kendi metninize değiştirebilirsiniz.
3. Ardından kod penceresini kaydedip kapatın, Tasarım modundan çıkın, şimdi metin kutusuna tıkladığınızda varsayılan metniniz otomatik olarak metin kutusunda görüntülenir, aşağıdaki ekran görüntüsüne bakınız:
İlgili makaleler:
Bir metin kutusunda yalnızca sayıların girilmesine nasıl izin verilir?
Metin kutusunda yazım denetimi nasıl uygulanır?
Excel'de değere göre metin kutusu rengi nasıl değiştirilir?
Bir metin kutusuna resim nasıl eklenir?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin