Nhờ các anh chị rút gọn giúp dòng lệnh trong VBA

[Drghost]

Chào các anh chị trong GPE

nhờ các anh chị rút gọn giúp dòng lệnh cho đơn giản giúp ah
(Các lênh này để import dữ liệu từ excel sang word dùng bookmark)


.Bookmarks("A1").Range.Text = ws.Range("N4").Value
.Bookmarks("A2").Range.Text = ws.Range("N4").Value
.Bookmarks("A3").Range.Text = ws.Range("N4").Value
Cảm ơn các anh chị

 

[tam888]

Chào các anh chị trong GPE

nhờ các anh chị rút gọn giúp dòng lệnh cho đơn giản giúp ah
(Các lênh này để import dữ liệu từ excel sang word dùng bookmark)


.Bookmarks("A1").Range.Text = ws.Range("N4").Value
.Bookmarks("A2").Range.Text = ws.Range("N4").Value
.Bookmarks("A3").Range.Text = ws.Range("N4").Value
Cảm ơn các anh chị

Có 3 dòng rut gọn làm chi nữa?

 

[Drghost]

Mình trích dẫn thôi chứ dữ lieu nguồn từ file excel rất nhiều mà lặp lại nhiều lần lắm bạn ah

 

[tam888]

Mình trích dẫn thôi chứ dữ lieu nguồn từ file excel rất nhiều mà lặp lại nhiều lần lắm bạn ah

Nhiều cụ thể là như thế nào, copy ra đây, thì mới có hướng xử lý
Còn 3 dòng thế này dùng vòng for cũng phải 3 dòng

 

[Drghost]

Cụ thể là thế này ạ
mình có file hợp đồng dùng bookmark trong word để lấy thông tin từ excel. Cell N4 dung lặp lại tới 74 vị trí khác nhau bạn ah nên thủ công thì khó kiểm soát nên mình nhờ giúp rút gọn lại lênh đó bạn

 

[tam888]

Cụ thể là thế này ạ
mình có file hợp đồng dùng bookmark trong word để lấy thông tin từ excel. Cell N4 dung lặp lại tới 74 vị trí khác nhau bạn ah nên thủ công thì khó kiểm soát nên mình nhờ giúp rút gọn lại lênh đó bạn

Vẫn không rõ, còn nếu như 3 dòng sau

.Bookmarks("A1").Range.Text = ws.Range("N4").Value
.Bookmarks("A2").Range.Text = ws.Range("N4").Value
.Bookmarks("A3").Range.Text = ws.Range("N4").Value

Thì rút gọn kiểu này

For i=1 to 3
    .Bookmarks("A" & i).Range.Text = ws.Range("N4").Value
Next i

hoặc sợ truy cập N4 ở sheet nhiều thì dùng biến trung gian (tg)

[CODE]
tg = ws.Range("N4").Value
For i=1 to 3
    .Bookmarks("A" & i).Range.Text = tg
Next i

[/CODE]

kiểu như vậy

 

[Quang_Hải]

Chào các anh chị trong GPE

nhờ các anh chị rút gọn giúp dòng lệnh cho đơn giản giúp ah
(Các lênh này để import dữ liệu từ excel sang word dùng bookmark)


.Bookmarks("A1").Range.Text = ws.Range("N4").Value
.Bookmarks("A2").Range.Text = ws.Range("N4").Value
.Bookmarks("A3").Range.Text = ws.Range("N4").Value
Cảm ơn các anh chị

Tạm sửa vầy nhưng thấy hơi kỳ kỳ
.Bookmarks("A1:A3").Range.Text = ws.Range("N4").Value