Làm thế nào để chuyển đổi văn bản trong hộp văn bản thành nội dung ô trong Excel?
Nếu có một số hộp văn bản trong một trang tính và bạn muốn chuyển đổi nội dung trong các hộp văn bản thành các ô riêng biệt như hình minh họa bên dưới, có cách nào nhanh chóng để giải quyết công việc này ngoại trừ việc nhập từng cái một trong Excel không? Trong bài viết này, tôi giới thiệu một macro để giúp bạn giải quyết vấn đề này.
Chuyển đổi nội dung hộp văn bản thành ô bằng VBA
Chuyển đổi nội dung hộp văn bản thành ô bằng VBA
Ngoại trừ mã macro, không có thủ thuật nào có thể nhanh chóng chuyển đổi hộp văn bản thành nội dung ô.
1. nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà sau đó dán mã bên dưới vào Mô-đun kịch bản.
VBA: Chuyển đổi hộp văn bản thành ô
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. nhấn F5 để chạy mã, một hộp thoại bật ra để nhắc bạn chọn một ô để xuất nội dung hộp văn bản. Xem ảnh chụp màn hình:
4. nhấp chuột OK. Bây giờ tất cả các hộp văn bản đã được chuyển đổi thành nội dung ô.
Mẹo: VBA trên sẽ xóa các hộp văn bản sau khi chạy, nếu bạn muốn giữ các hộp văn bản, vui lòng thay đổi mã xTxtBox.Xóa đến 'xTxtBox.Delete.
Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. |
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!