[Trợ giúp] Tạo cái nút click thực hiện lệnh (1 người xem)

[hmgiang2009]

Như tiêu tiêu đề thì mình mong muốn mọi người giúp đỡ cho mình trong cái file Excel này với được không:
View attachment 166482

- Cách mình muốn mình làm là: Mỗi khi mình nhấn vào ô Click GHI thì các dữ liệu ở BẢNG 1 và BẢNG 2 sẽ được gán thứ tự theo các tiêu đề vào 1 dòng BẢNG 3. Khi mình nhấn vào ô Click NHẬP MỚI thì dữ liệu ở BẢNG 1 và BANG 2 sẽ được xóa trắng.
- Rất mong được sự ghé đọc bài trợ giúp và giúp đỡ cho mình của mọi người ạ!

 

[quanluu]

Như tiêu tiêu đề thì mình mong muốn mọi người giúp đỡ cho mình trong cái file Excel này với được không:
View attachment 166482

- Cách mình muốn mình làm là: Mỗi khi mình nhấn vào ô Click GHI thì các dữ liệu ở BẢNG 1 và BẢNG 2 sẽ được gán thứ tự theo các tiêu đề vào 1 dòng BẢNG 3. Khi mình nhấn vào ô Click NHẬP MỚI thì dữ liệu ở BẢNG 1 và BANG 2 sẽ được xóa trắng.
- Rất mong được sự ghé đọc bài trợ giúp và giúp đỡ cho mình của mọi người ạ!

Sub NhapMoi()
    Range("C6:D18").ClearContents
    Range("I6:I100").ClearContents
End Sub
Sub Ghi()
    Dim lr As Integer
    lr = Range("L65000").End(3).Row + 1
    Range("L" & lr & ":P" & lr).FormulaR1C1 = "=OFFSET(R19C5,COLUMN()-12,,1,)"
    Range("L" & lr & ":P" & lr).Value = Range("L" & lr & ":P" & lr).Value
    Range("K" & lr) = Range("K" & lr - 1) + 1
End Sub

 

[hmgiang2009]

Sub NhapMoi()
    Range("C6:D18").ClearContents
    Range("I6:I100").ClearContents
End Sub
Sub Ghi()
    Dim lr As Integer
    lr = Range("L65000").End(3).Row + 1
    Range("L" & lr & ":P" & lr).FormulaR1C1 = "=OFFSET(R19C5,COLUMN()-12,,1,)"
    Range("L" & lr & ":P" & lr).Value = Range("L" & lr & ":P" & lr).Value
    Range("K" & lr) = Range("K" & lr - 1) + 1
End Sub

Cảm ơn bạn quanluu 1989 đã đọc và giúp đỡ bài viết của mình, bạn có thể chi rõ cho mình các bước đầu để nhập code đó cụ thể hơn được k bạn

 

[quanluu]

Cảm ơn bạn quanluu 1989 đã đọc và giúp đỡ bài viết của mình, bạn có thể chi rõ cho mình các bước đầu để nhập code đó cụ thể hơn được k bạn

Đầu tiên, Bạn nhấn Alt + F11/ Insert/ Module/ Paste code trên
Tại sheet làm việc, Insert button (hoặc shape) tương ứng với Nhập mới và ghi, chuột phải vào nó chọn assign macro chọn macro tương ứng.
Bạn nên tham khảo thêm về VBA.

 

[hmgiang2009]

Đầu tiên, Bạn nhấn Alt + F11/ Insert/ Module/ Paste code trên
Tại sheet làm việc, Insert button (hoặc shape) tương ứng với Nhập mới và ghi, chuột phải vào nó chọn assign macro chọn macro tương ứng.
Bạn nên tham khảo thêm về VBA.

Cảm ơn bạn đã lần nữa giúp đỡ cho mình, mình thấy rất hay và thú vị, nên mình tham lam hơn một chút mong bạn sẽ giúp đỡ mình tiếp với nhé:
- Khi mình Ghi thì tạo ra được rất nhiều dòng: VD là 10 dòng, và có cách nào giúp mình ghi mới và sửa lại cái dòng số thứ tự VD như là dòng số 6 được k bạn.
- Cảm ơn bạn quanluu1989 rất rất nhiều

 

[quanluu]

Cảm ơn bạn đã lần nữa giúp đỡ cho mình, mình thấy rất hay và thú vị, nên mình tham lam hơn một chút mong bạn sẽ giúp đỡ mình tiếp với nhé:
- Khi mình Ghi thì tạo ra được rất nhiều dòng: VD là 10 dòng, và có cách nào giúp mình ghi mới và sửa lại cái dòng số thứ tự VD như là dòng số 6 được k bạn.
- Cảm ơn bạn quanluu1989 rất rất nhiều

Không hiểu ý bạn lắm, ý bạn là sửa lại những dữ liệu đã ghi rùi? Vì của bạn ko có cái gì để gọi lại thì bạn sửa trực tiếp trên bảng 3 ấy.

 

[hmgiang2009]

Không hiểu ý bạn lắm, ý bạn là sửa lại những dữ liệu đã ghi rùi? Vì của bạn ko có cái gì để gọi lại thì bạn sửa trực tiếp trên bảng 3 ấy.

Xin cảm ơn quanluu1989. Nhờ bạn chỉ giúp thêm cho mình về cái vụ này nữa với:
- Nếu như BẢNG 1 và BẢNG 2 nằm ở Sheet1, BẢNG 3 nằm ở sheet 2, thì mình thêm cái code như thế nào hả bạn
Cảm ơn bạn rất nhiều

 

[quanluu]

Xin cảm ơn quanluu1989. Nhờ bạn chỉ giúp thêm cho mình về cái vụ này nữa với:
- Nếu như BẢNG 1 và BẢNG 2 nằm ở Sheet1, BẢNG 3 nằm ở sheet 2, thì mình thêm cái code như thế nào hả bạn
Cảm ơn bạn rất nhiều

Thưc chất trong code mình dùng công thức offset: =OFFSET(R19C5,COLUMN()-12,,1,)
Bạn thêm tên sheet trc R19C5 coi: teeeenssheet.R19c5,COLumn()......

 

[hmgiang2009]

Thưc chất trong code mình dùng công thức offset: =OFFSET(R19C5,COLUMN()-12,,1,)
Bạn thêm tên sheet trc R19C5 coi: teeeenssheet.R19c5,COLumn()......

Xin cảm ơn bạn quanluu1989. Bạn giúp cho mình thêm về cái lỗi này với
- Khi mình tạo xong thì đã kiểm tra là thực hiện được hết rồi, đến khi lưu lại rồi mở ra nó báo lỗi này là do bị gì hả bạn, bạn giúp mình giải quyết được k

 

[quanluu]

Xin cảm ơn bạn quanluu1989. Bạn giúp cho mình thêm về cái lỗi này với
- Khi mình tạo xong thì đã kiểm tra là thực hiện được hết rồi, đến khi lưu lại rồi mở ra nó báo lỗi này là do bị gì hả bạn, bạn giúp mình giải quyết được k


View attachment 166551

Bạn lưu file dạng macro nhé (xlsm, xls, xlsb...)

 

[hmgiang2009]

Bạn lưu file dạng macro nhé (xlsm, xls, xlsb...)

Một lần nữa xin đa tạ sư phụ quanluu1989

 

[hmgiang2009]

Xin cảm ơn bạn rất nhiều