Cho em xin hỏi về cách định vi ô trong vba (3 người xem)

[giahuyks93]

Em có file excel như file ?
Và có 2 cái bảng . Khi e insert thì e sẽ tạo thêm dòng cho cùng lúc cho 2 bảng e có làm 1 cái form ấy ? Nhưng vấn đề em thắc mắc là khi insert bảng trên thì bảng dưới bị nhảy dòng không insert theo đúng ý mình muốn ? cho e hỏi là có cách nào đặt mảng động để khi bảng trên nhảy dòng thì bảng dưới cũng nhảy dòng theo và insert theo ý mình muốn và insert thêm dòng cho cùng lúc 2 bảng ? ( Không cần đặt tên cho mảng)

Insert dòng được chèn vào giữa dòng 1 và dòng 2 của mỗi bảng

A/c vào xem file rồi hướng dẫn e với

 

[giaiphap]

Em có file excel như file ?
Và có 2 cái bảng . Khi e insert thì e sẽ tạo thêm dòng cho cùng lúc cho 2 bảng e có làm 1 cái form ấy ? Nhưng vấn đề em thắc mắc là khi insert bảng trên thì bảng dưới bị nhảy dòng không insert theo đúng ý mình muốn ? cho e hỏi là có cách nào đặt mảng động để khi bảng trên nhảy dòng thì bảng dưới cũng nhảy dòng theo và insert theo ý mình muốn và insert thêm dòng cho cùng lúc 2 bảng ? ( Không cần đặt tên cho mảng)

Insert dòng được chèn vào giữa dòng 1 và dòng 2 của mỗi bảng

A/c vào xem file rồi hướng dẫn e với

Bạn sửa code nút OK của bạn như sau:

Private Sub CommandButton1_Click()
Dim c As Range
Set c = Sheet1.Range("D4:D65000").Find("STT", , xlValues, xlWhole, , , True)
Range("D5:I" & 5 + TB1.Value).EntireRow.Insert
c.Offset(2).Resize(TB2.Value).EntireRow.Insert
End Sub

 

[giahuyks93]

Em cám ơn a . Cho e hỏi a có thể giải thích về cái code đó 1 xíu cho với

 

[giahuyks93]

Cho e hỏi thêm 1 cái nữa ạ . e tạo 1 dòng đặt tên là O1 khi insert ra giá trị ô đó sẽ bị thay đổi . thì làm cách nào e có thể xác định dc ô đó nhập vào ô đó 1 giá trị bất kì dù có insert bao nhiêu dòng ?

 

[giaiphap]

Em cám ơn a . Cho e hỏi a có thể giải thích về cái code đó 1 xíu cho với

Không biết nên giải thích gì nửa đây. Tôi ngạy cái vụ giải thích này lắm, nói đại bạn cố mà tiêu hóa nghe.

Private Sub CommandButton1_Click()
Dim c As Range [COLOR=#ff0000][B]'Khai báo biến c là kiểu dữ liệu vùng (Range)[/B][/COLOR]
Set c = Sheet1.Range("D4:D65000").Find("STT", , xlValues, xlWhole, , , True)
[B][COLOR=#ff0000]'Đặt biến c là cái ô tìm được giá trị [/COLOR][COLOR=#0000ff]"STT"[/COLOR][COLOR=#ff0000] trong cái vùng từ D2 đến D65000.[/COLOR][/B]
Range("D5:I" & 5 + TB1.Value).EntireRow.Insert
[B][COLOR=#ff0000]'Chèn TB1 dòng vào bảng 1 ở giữa số thứ tự 1 và 2[/COLOR][/B]
c.Offset(2).Resize(TB2.Value).EntireRow.Insert
[COLOR=#ff0000][B]'Chèn TB2 dòng vào bảng 2 dựa vào vùng c tìm được [/B][/COLOR][COLOR=#0000ff][B]"STT"[/B][/COLOR][COLOR=#ff0000][B] và dịch chuyển xuống dưới 2 dòng.[/B][/COLOR]
End Sub

 

[giahuyks93]

Vâng e cám ơn a rất nhiều ^^!

 

[giaiphap]

Cho e hỏi thêm 1 cái nữa ạ . e tạo 1 dòng đặt tên là O1 khi insert ra giá trị ô đó sẽ bị thay đổi . thì làm cách nào e có thể xác định dc ô đó nhập vào ô đó 1 giá trị bất kì dù có insert bao nhiêu dòng ?

Khi bạn đặt tên cho ô nếu Insert dòng thì cái tên đó vẫn thay đổi theo mà bạn. VD bạn chọn ô muốn đặt tên và thực hiện đặt tên cho ô đó như trong hình, sau đó bạn thêm dòng hay cột tùy ý và xem lại tên ô bạn đặt khi nãy vẫn tham chiếu đúng vào giá trị ô bạn đặt khi nảy.

 

[giahuyks93]

Anh GiaiPhap giúp e 1 lần nữa với. . Cũng như cái trên như cái này mở rộng yêu cầu ra là insert cho khối ô C12:R15 và cái bảng ở dưới cũng v và thuộc tính bảng ( mấy cái Đường kẻ r định dạng nét màu chữ nó giống như khối ô đó ) . insert ra theo ý mình muốn . a giúp e xem xet với . Em nghĩ mãi từ khuya hôm qua đến giờ vẫn ko ra được @@

Giải pháp của e nghĩ ra là Cột A e đánh số và dựa vào giá trị trong ô để xác định khối ô đã chọn nhưng e ko làm được mong a xem xét giúp e với