Metin kutusundaki metni Excel'deki hücre içeriğine nasıl dönüştürebilirim?
Bir sayfada bazı metin kutuları varsa ve metin kutularındaki içerikleri aşağıda gösterilen ekran görüntüsü gibi ayrı ayrı hücrelere dönüştürmek istiyorsanız, bu işi çözmenin Excel'de tek tek girmekten başka hızlı bir yolu var mı? Bu yazıda, bu sorunla ilgili size bir iyilik yapacak bir makro tanıtıyorum.
Metin kutusu içeriğini VBA ile hücreye dönüştürün
Metin kutusu içeriğini VBA ile hücreye dönüştürün
Makro kodu dışında, metin kutularını hücre içeriklerine hızlı bir şekilde dönüştürebilecek hiçbir hile yoktur.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve ardından aşağıdaki kodu modül komut.
VBA: Metin kutularını hücreye dönüştürün
Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
Dim xRg As Range
Dim xRow As Long
Dim xCol As Long
Dim xTxtBox As TextBox
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xRg.Row
xCol = xRg.Column
For Each xTxtBox In ActiveSheet.TextBoxes
Cells(xRow, xCol).Value = xTxtBox.Text
xTxtBox.Delete
xRow = xRow + 1
Next
End Sub
3. Basın F5 tuşuna bastığınızda, metin kutusu içeriğini dışa aktaracağınız hücreyi seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK. Artık tüm metin kutuları hücre içeriğine dönüştürüldü.
İpucu: Yukarıdaki VBA, çalıştırdıktan sonra metin kutularını kaldıracaktır, metin kutularını tutmak istiyorsanız, lütfen kodu değiştirin xTxtBox.Sil için 'xTxtBox.Sil.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!