Hỏi về Insert Comment 2 cột?

[emgaingayngo]

Em có 1 cột gồm 10 dòng ,em muốn đem nội dung của nó vào trong comment, trong comment chứa 2 cột mỗi cột là 5 dòng. Mong GPE giúp em đoạn mã. Thanks!

 

[sealand]

Bạn thử Code này xem:

Sub test()
Dim i
Dim Rg, Clls As Range
Dim nd As String
On Error GoTo Thoat
Set Rg = Application.InputBox("Chon vung bo xung Comment", , ActiveCell, , , , , 8)
For i = 1 To 5
nd = nd & Space(5) & Left(Sheet1.Cells(i, 1) & Space(10), 10) & Left(Sheet1.Cells(i + 5, 1) & Space(10), 10) & Chr(10)
Next
For Each Clls In Rg.Cells
Clls.ClearComments
Clls.AddComment nd
Next
Thoat:
End Sub

 

[ndu96081631]

Em có 1 cột gồm 10 dòng ,em muốn đem nội dung của nó vào trong comment, trong comment chứa 2 cột mỗi cột là 5 dòng. Mong GPE giúp em đoạn mã. Thanks!

Có phải giống thế này không:




Nếu đúng là thế này thì đâu có khó gì đối với bạn chứ

 

[emgaingayngo]

Có phải giống thế này không:

Nếu đúng là thế này thì đâu có khó gì đối với bạn chứ

Dạ đúng dzậy, nhưng em chưa có kinh nghiệm chia cột. Nhân tiện nhờ bác xem lại giúp em đoạn code hôm trước bị bí, em đã giải quyết rồi nhưng thấy nó chưa gọn lắm.
link : http://www.giaiphapexcel.com/forum/showthread.php?34537-Chạy-hoài-không-dừng!i
upload file lên đây luôn.
Cảm ơn bác!

 

[sealand]

Một điều quan trọng là việc phân cột trong Comment là việc chèn các ký tự hay Space, do vậy cột rất dễ bị xê dịch nhất là các ký tự. Nguyên do, độ rộng các ký tự hay Space không bằng nhau. Để khắc phục ta phải thiết lập Font của Comment là Courier. Nhưng việc thay đổi này lại ảnh hưởng tới Font của hệ thống.
Vậy nếu thực sự cần thiết hãy làm.

 

[ChanhTQ@]

Nhân tiện nhờ bác xem lại giúp em đoạn code hôm trước bị bí, em đã giải quyết rồi nhưng thấy nó chưa gọn lắm.
link : http://www.giaiphapexcel.com/forum/showthread.php?34537-Chạy-hoài-không-dừng!i
upload file lên đây luôn.

File nào vậy, sao mình không biết file nào để mở hết vậy?

Còn tại đây http://www.giaiphapexcel.com/forum/showthread.php?34537-Chạy-hoài-không-dừng!i#11 thì không đủ trình độ tiếng Việt để hiểu bạn!

Thôi đành chờ sung rụng vậy!

 

[emgaingayngo]

File nào vậy, sao mình không biết file nào để mở hết vậy?

File ở bài số 4 đó bác.