Tạo Liên kết trong VBA (1 người xem)

[maithanh2011]

Các bạn viết giúp mình 1 code trong VBA:
ví dụ trong excel:
Trong ô B1 ta nhập công thức: = 5*5*6 =150 thì ô A1 sẽ có dạng tex: Bê tông có kích thước: = 5*5*6.
Mong nhận được trả lời của các bạn qua mail: tthqueson@gmail.com

 

[jack nt]

Giả sử bạn nhập công thức vào ô A1 và xuất ra ô A2 thì code thế này:
Range("A2").NumberFormat = "@"
Range("A2") = "Bê tông có kích thuoc:" & Range("A1").Formula

Lưu ý:
- bạn dùng menu định dạng luôn A2 là Text thì không cần dòng thứ nhất
- ở dòng hai muốn xuất hiện chính xác chữ "Bê tông có kích thước:" thì cần chút thủ thuật, có nhiều cách, bạn có thể search trên diễn đàn. (trong màn hình VBA code, bạn chỉ nhập được các ký tự theo chuẩn ascii 8 bits (từ 0 đến 255)

nếu bạn có UserForm thì add vào đó TextBox1, nhập "Bê tông có kích thước:". dòng thứ 2 sửa thành:
Range("A2") = UserForm.TextBox1.Text & Range("A1").Formula
bạn cũng có thể nhập vào một ô nào đó trong excel và làm tương tự...
và nhiều cách khác, google ra cả đống.

các ký hiệu A1, A2, TextBox1 cần sửa cho phù hợp với bài toán của bạn

P/S: điều chỉnh: lúc đầu tui chỉ viết Range("A2") = Range("A1").Formula nên cần định dạng A2 là text để tránh hiển thị value. còn khi có thêm "Bê tông có kích thước:" thì nó là text rồi không cần dòng thứ nhất nữa.

 

[nmhung49]

Các bạn viết giúp mình 1 code trong VBA:
ví dụ trong excel:
Trong ô B1 ta nhập công thức: = 5*5*6 =150 thì ô A1 sẽ có dạng tex: Bê tông có kích thước: = 5*5*6.
Mong nhận được trả lời của các bạn qua mail: tthqueson@gmail.com

THử code này copy vào Sheet 1 với dữ liệu của bạn

[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B5]) Is Nothing Then
'Thay đổi [B3:B5] thích hợp tức là vùng nhập công thức
With Application
.EnableEvents = False

Target.Offset(, -1).Value = Range("A1").Value & Target.Formula

.EnableEvents = True
End With
End If
End Sub


[/GPECODE]

Diễn đàn không có nhiệm vụ gửi vào email của bạn.