Excel Makrolarına Visual Basic Düzenleyici ile Diyalog Kutuları Ekleme - mankenler

Excel 2013 makrolarınıza iletişim kutuları eklemek için InputBox işlevini kullanabilirsiniz. Makroyu çalıştırdığınızda, bu Visual Basic işlevi, Excel'in yeni çalışma sayfasında mantıklı olan başlığı girebileceğiniz bir Giriş iletişim kutusu görüntülemesine neden olur. Sonra makro, o metni geçerli hücrenin içine koyar ve bu metni biçimlendirir, eğer makroyu bir sonraki adım için eğitirsen.

Aksi takdirde vakumlanmış bir makroya etkileşim eklemek için InputBox işlevini kullanmanın ne kadar kolay olduğunu görmek için, şu anda metni "Mind Over Media" alanına giren Şirket_Adı makronun ad için sizi gerçekten isteyen birine dönüştürme adımlarını izleyin. girmek istediğiniz. InputBox işlevi aşağıdaki sözdizimini kullanır:

Bu işlevde, yalnızca

istemi 'dur. Bu işlevde, Giriş Kutusu (istem [başlık] [varsayılan] [xpos] [ypos] [yardım dosyası, bağlam] > argüman, argümanın geri kalanının isteğe bağlı olmasıyla gereklidir. istem bağımsız değişkeni, Giriş iletişim kutusunun içinde görüntülenen ve yeni bir değer girmek (veya bu durumda yeni bir şirket adı) isteyen iletiyi belirtir.

istem bağımsız değişkeni en fazla 1, 024 karakter olabilir. İsteğe bağlı mesajın iletişim kutusunun içindeki farklı satırlarda görünmesini isterseniz, metinde Chr (13) ve Chr (10) işlevlerini girin (sırasıyla ileti içine bir satır başı ve bir satır besleme eklemek için).

İsteğe bağlı başlık bağımsız değişkeni, Giriş iletişim kutusunun başlık çubuğunda hangi metnin görüntüleneceğini belirtir. Bir başlık argümanı belirtmezseniz, Excel başlık çubuğundaki uygulamanın adını görüntüler. İsteğe bağlı varsayılan bağımsız değişkeni, Giriş iletişim kutusunun altındaki metin kutusuna otomatik olarak görünen varsayılan yanıtı belirtir.

Varsayılan bir argüman belirtmezseniz, Giriş kutusunda metin kutusu boş kalır.

xpos ve ypos isteğe bağlı bağımsız değişkenler, ekranın sol kenarından iletişim kutusunun sol kenarına kadar yatay mesafeyi ve dikey mesafeyi ekranın üst kenarından iletişim kutusunun üst kenarına gidin. Bu bağımsız değişkenleri belirtmezseniz, Excel, giriş iletişim kutusunu yatay olarak ortalar ve ekranın dikey olarak aşağı doğru yaklaşık üçte birine konumlandırır.

helpfile ve bağlam isteğe bağlı bağımsız değişkenler, kullanıcıya Giriş iletişim kutusunun işleyişini açıklamak için kullanabileceğiniz özel Yardım dosyasının adını ve ayrıca, kabul ettiği verileri.

Excel Yardım sisteminde kullanılmak üzere özel bir yardım dosyası oluşturma işleminin bir parçası olarak, konuyu içeriğine uygun bir bağlam numarası atarsınız; daha sonra bunun için bağlam bağımsız değişkeni olarak belirtilir. InputBox işlevi.

Bu işlev için bir yardım dosyası ve bağlam bağımsız değişkeni belirttiğinizde, Excel, Yardım penceresindeki özel yardım dosyasına erişmek için kullanıcıların tıklatabileceği Özel Giriş iletişim kutusuna bir Yardım düğmesi ekler.

Kod satırını InputBox işleviyle makroya ekleyebilmeniz için satırın gitmesi gereken yeri Visual Basic komutlarında bulmanız gerekir. Etkin hücreye Mind Over Media metni girmek için Company_Name makrosu aşağıdaki Visual Basic komutunu kullanır:

ActiveCell. FormulaR1C1 = "Ortam Üzerine Zihin"

Makroya etkileşim eklemek için, InputBox işlevini, bu ActiveCell'in hemen üzerindeki Kod penceresinde bir satıra yerleştirmeniz gerekir. FormulaR1C1 deyimi aşağıdaki gibidir:

Ekleme noktasını, ActiveCell'in başına kod penceresinde yerleştirin. FormulaR1C1 deyimini seçin ve yeni bir satır eklemek için Enter tuşuna basın.

Şimdi yeni bir çizgi eklediniz, ekleme noktasını yukarıya getirmeniz gerekiyor.
Ekleme noktasını yeni satırın başına getirmek için yukarı ok tuşlarına basın.

Bu satırda, istem bağımsız değişkenini InputBox işlevine sağlayan bir değişken oluşturmak istiyorsunuz. Bunu yapmak için, değişkenin adını (bu durumda InputMsg) ve ardından onun geçerli girdisini belirtin. Mesaj metnini, eşit işaretin sağ tarafında kapalı çift çifte çift tırnak işareti içine koyduğunuzdan emin olun.
Satır 8'de InputMsg değişkenini oluşturmak için aşağıdaki kodu yazın ve yeni bir satır başlatmak için Enter tuşuna basın 9:
```
InputMsg = "Bu çalışma sayfasının şirket adını veya unvanını aşağıdaki metin kutusuna girin ve sonra Tamam'ı tıklatın: "
```
Ardından, InputBox işlevi için isteğe bağlı başlık bağımsız değişkenini sağlayan InputTitle adlı bir değişken oluşturursunuz. Bu değişken, "Elektronik Tablo Başlığı" metnini Giriş iletişim kutusunun başlığı olarak görmenizi sağlar. Yine, iletişim kutusu başlık çubuğunun adını tırnak işaretleri içine koyduğunuzdan emin olun.
Satır 9'da InputTitle değişkenini oluşturmak ve sonra yeni bir satır 10 eklemek için Enter tuşuna basarak aşağıdaki kodu yazın:
```
InputTitle = "E-tablo Başlığı"
```
Sonra isteğe bağlı olan bir değişken adı DefaultText oluşturursunuz varsayılan bağımsız değişkeni InputBox işlevine. Bu değişken, "Mind Over Media" metnini, özel Şirket Adı Girişi iletişim kutusunun altındaki metin kutusunda varsayılan girdi olarak görür.
10. satırda DefaultText değişkenini oluşturmak için aşağıdaki kodu yazın ve sonra yeni bir satır 11 eklemek için Enter tuşuna basın:
```
DefaultText = "Mind Over Media"
```
Daha sonra, CompanyName adlı bir final değişkeni oluşturursunuz girişi olarak InputBox işlevi (yeni oluşturduğunuz InputMsg, InputTitle ve DefaultText değişkenlerini kullanarak) ve bu işlevin sonuçlarını saklar.
Satır 11'de InputBox işlevini kullanan SpreadsheetTitle değişkeni oluşturmak için aşağıdaki kodu yazın:
```
SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)
```
Son olarak, "Mind Over Media" değerini değiştiriyorsunuz, ActiveCell'de.FormulaR1C1 mülkü, SpreadsheetTitle değişkeniyle (e-tablo başlığı girişi iletişim kutusuna girilen her şey tarafından belirlenir) değişir ve dolayısıyla makrodaki bu sabitin gerçekten bu girişi etkileşimli hale getirme araçlarıyla değiştirir.
Satır 12'de "Mind Over Media" ı seçin ve onu SpreadsheetTitle (tırnak işareti olmadan) ile değiştirin.
Visual Basic araç çubuğundaki Kaydet düğmesini tıklatarak düzenlenmiş makroyu kaydedin ve ardından Microsoft Excel Görünümü düğmesine tıklayarak veya Alt + F11 tuşlarına basarak çalışma sayfasına geri dönün. Daha sonra VIEW (Görünüm) sekmesinin Window (Pencere) grubundaki Hide (Gizle) düğmesini tıklatın.

Şimdi, yeni bir çalışma kitabı açmaya ve Ctrl + N tuşlarına basarak düzenlenmiş makroyu çalıştırmaya hazırsınız.

Rakam, etkileşimli hale getiren ifadeleri ekledikten sonra Düzenlenen Şirket_Adı makrosuyla birlikte Kod penceresini gösterir.

Aşağıdaki resim, çalışma sayfasındaki Elektronik Tablo Başlığı iletişim kutusunu gösterir. Bu girdi iletişim kutusu şimdi otomatik olarak görünür ve Şirket_Name makrosunun düzenlenmiş ve tamamen etkileşimli sürümünü çalıştırdığınızda girmenizi ister.

Devam etmek ve mevcut hücreye Mind Over Media'yı girip makro komutlarının geri kalanını kullanarak biçimlendirmek için, bu özel diyalog kutusunda Tamam'ı tıklatmanız yeterlidir. Başka bir şirketin adını girmek ve biçimlendirmek için, Tamam'ı tıklamadan önce şirketin adını (otomatik olarak metin kutusundaki Mind Over Media'nın yerine geçer) yazmanız yeterlidir.