Xin code Form nhập liệu kết quả là cột dọc và hàng ngang (2 người xem)

saomai6692 · 7/6/18

Em mong các anh chị giúp đỡ viết code VBA nhập liệu từ from, kết quả khi nhập là cột và dòng hàng ngang. Cảm ơn

be_09 · 7/6/18

saomai6692 đã viết:
Em mong các anh chị giúp đỡ viết code VBA nhập liệu từ from, kết quả khi nhập là cột và dòng hàng ngang. Cảm ơn

Trong File có 2 phần, bạn muốn cả 2 hay chỉ nhập liệu phần màu xanh.
Nên giải thích cụ thể, bạn nêu chung chung và ngắn gọn quá không thể hiểu nổi.

phulien1902 · 7/6/18

saomai6692 đã viết:
Em mong các anh chị giúp đỡ viết code VBA nhập liệu từ from, kết quả khi nhập là cột và dòng hàng ngang. Cảm ơn

Bạn bỏ Meger A19 đi và dùng Code:

PHP:

Sub Copy_ABC()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("DON_THUOC")
        LR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
        .Range("C3:C7").Copy
        .Range("A" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("E7").Copy
        .Range("F" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("G7").Copy
        .Range("G" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

saomai6692 · 7/6/18

be09 đã viết:
Trong File có 2 phần, bạn muốn cả 2 hay chỉ nhập liệu phần màu xanh.
Nên giải thích cụ thể, bạn nêu chung chung và ngắn gọn quá không thể hiểu nổi.

Dạ, em chỉ nhập phần màu xanh thôi ạ. Em cảm ơn

Bài đã được tự động gộp: 7/6/18

phulien1902 đã viết:

Bạn bỏ Meger A19 đi và dùng Code:

PHP:

Sub Copy_ABC()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("DON_THUOC")
        LR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
        .Range("C3:C7").Copy
        .Range("A" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("E7").Copy
        .Range("F" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("G7").Copy
        .Range("G" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Anh chị ơi, giải thích rõ hộ em chút nữa nhé. Em cảm ơn

be_09 · 7/6/18

saomai6692 đã viết:
Dạ, em chỉ nhập phần màu xanh thôi ạ. Em cảm ơn
Anh chị ơi, giải thích rõ hộ em chút nữa nhé. Em cảm ơn

2 vấn đề quan trọng cần suy nghĩ và quan tâm đến là số phiếu (hoặc số Hóa đơn), hay tên người mua hàng (hay cái gì đó). Để căn cứ nó mà truy vấn lại phiếu khi cần.

Trong File bạn thiếu 2 vấn đề này.

saomai6692 · 8/6/18

Vang ạ, em đã đính chính lại rồi. Kinh mong các anh,các chị giúp đỡ. Em cảm ơn

phulien1902 · 8/6/18

saomai6692 đã viết:
Vang ạ, em đã đính chính lại rồi. Kinh mong các anh,các chị giúp đỡ. Em cảm ơn

Tại Sheets("DON_THUOC"), nhập DL màu xanh vào các cột màu vàng?

be_09 · 8/6/18

phulien1902 đã viết:
Tại Sheets("DON_THUOC"), nhập DL màu xanh vào các cột màu vàng?

Sheet DON_THUOC khi nhấn nút những chỗ tô màu xanh sẽ được lưu vào sheet THEODOI_DONTHUOC (sheet này phải xóa bớt cột cho phù hợp nội dung).

saomai6692 · 8/6/18

phulien1902 đã viết:
Tại Sheets("DON_THUOC"), nhập DL màu xanh vào các cột màu vàng?

Anh chị ơi, ý em là bây giờ không nhập vào ô cột màu vàng nữa, chỉ nhập vào màu xanh thôi, theo form cũ của các anh chị đó. Em cảm ơn

phulien1902 · 8/6/18

be09 đã viết:
Sheet DON_THUOC khi nhấn nút những chỗ tô màu xanh sẽ được lưu vào sheet THEODOI_DONTHUOC (sheet này phải xóa bớt cột cho phù hợp nội dung).

Em thấy chủ Topic thiết kế Form Sheet cẩu thả quá.

saomai6692 · 8/6/18

be09 đã viết:
Sheet DON_THUOC khi nhấn nút những chỗ tô màu xanh sẽ được lưu vào sheet THEODOI_DONTHUOC (sheet này phải xóa bớt cột cho phù hợp nội dung).

Em chưa giám xóa sợ mất đi cái gốc, nếu anh chị sửa sẽ khó tìm. Em cảm ơn

phulien1902 · 8/6/18

saomai6692 đã viết:
Anh chị ơi, ý em là bây giờ không nhập vào ô cột màu vàng nữa, chỉ nhập vào màu xanh thôi, theo form cũ của các anh chị đó. Em cảm ơn

Bạn thử:

PHP:

Sub Copy_DL()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("DON_THUOC")
        LR = Sheets("THEODOI_DONTHUOC").Cells(Rows.Count, "B").End(xlUp).Row + 1
        .Range("C3").Copy
        Sheets("THEODOI_DONTHUOC").Range("A" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C4").Copy
        Sheets("THEODOI_DONTHUOC").Range("J" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C5").Copy
        Sheets("THEODOI_DONTHUOC").Range("K" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C6").Copy
        Sheets("THEODOI_DONTHUOC").Range("L" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C7").Copy
        Sheets("THEODOI_DONTHUOC").Range("M" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C7").Copy
        Sheets("THEODOI_DONTHUOC").Range("M" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("E7").Copy
        Sheets("THEODOI_DONTHUOC").Range("N" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("G7").Copy
        Sheets("THEODOI_DONTHUOC").Range("O" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

saomai6692 · 8/6/18

phulien1902 đã viết:

Bạn thử:

PHP:

Sub Copy_DL()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("DON_THUOC")
        LR = Sheets("THEODOI_DONTHUOC").Cells(Rows.Count, "B").End(xlUp).Row + 1
        .Range("C3").Copy
        Sheets("THEODOI_DONTHUOC").Range("A" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C4").Copy
        Sheets("THEODOI_DONTHUOC").Range("J" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C5").Copy
        Sheets("THEODOI_DONTHUOC").Range("K" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C6").Copy
        Sheets("THEODOI_DONTHUOC").Range("L" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C7").Copy
        Sheets("THEODOI_DONTHUOC").Range("M" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("C7").Copy
        Sheets("THEODOI_DONTHUOC").Range("M" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("E7").Copy
        Sheets("THEODOI_DONTHUOC").Range("N" & LR).PasteSpecial xlPasteValues, Transpose:=True
        .Range("G7").Copy
        Sheets("THEODOI_DONTHUOC").Range("O" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Lỗi là do em không nói rõ đã làm cho các anh chị GPE vất vả mất thời gian. Em xin lỗi nhé ! Em xin thêm và rõ hơn rằng: Bình thường thì nhập dữ liệu từ form ra kết quả là hàng ngang. Nay em xin code nhập liệu cũng từ form nhưng ra kết quả là cột dọc, hàng ngang như file đính kèm. Em trân trọng cảm ơn và đã làm phiền các anh chị

be_09 · 8/6/18

saomai6692 đã viết:
Em chưa giám xóa sợ mất đi cái gốc, nếu anh chị sửa sẽ khó tìm. Em cảm ơn

Tôi sửa lại toàn bộ File trên, kiểm tra lại xem xem có đúng yêu cầu không.
1/ Sheet DON_THUOC dùng nhập liệu.
2/ Sheet TRICH_LOC dùng truy vấn lại đơn thuốc hoặc tên bệnh nhân, gõ 1 trong 2 thứ tại B3 hoặc C3 (hoặc gõ cùng lúc 2 thứ) và nhấn nút, sau đó sang Sheet DON_THUOC xem kết quả.

phulien1902 · 8/6/18

saomai6692 đã viết:
Lỗi là do em không nói rõ đã làm cho các anh chị GPE vất vả mất thời gian. Em xin lỗi nhé ! Em xin thêm và rõ hơn rằng: Bình thường thì nhập dữ liệu từ form ra kết quả là hàng ngang. Nay em xin code nhập liệu cũng từ form nhưng ra kết quả là cột dọc, hàng ngang như file đính kèm. Em trân trọng cảm ơn và đã làm phiền các anh chị

Xin hỏi vấn đề của bạn đã được giải quyết xong chưa vậy? Nếu xong rồi thì bạn gửi File lên làm gì nữa?

saomai6692 · 8/6/18

phulien1902 đã viết:
Xin hỏi vấn đề của bạn đã được giải quyết xong chưa vậy? Nếu xong rồi thì bạn gửi File lên làm gì nữa?

Em cảm ơn, vì chưa xong do vậy em tải file lên muốn giải thích rõ hơn mong các anh chị giúp đỡ.

be_09 · 8/6/18

saomai6692 đã viết:
Em cảm ơn, vì chưa xong do vậy em tải file lên muốn giải thích rõ hơn mong các anh chị giúp đỡ.

Sao không tải File bài 14 xem có đúng yêu cầu không? kết quả thế nào đúng hay chưa đúng, cần thêm hoặc bớt cái gì rồi hãy nêu ý kiến tiếp.

phulien1902 · 8/6/18

saomai6692 đã viết:
Em cảm ơn, vì chưa xong do vậy em tải file lên muốn giải thích rõ hơn mong các anh chị giúp đỡ.

Tôi có 1 vài lời tham gia với bạn sau khi đã đọc 1 số bài của bạn:
1. Bạn cần đưa ra vấn đề rõ ràng:
+ Input?
+Output?
2.Cái gì đã làm được, cái gì chưa làm được, cần được trợ giúp từ các thành viên.
Cứ hỏi đi, hỏi lại, nói đi, nói lại làm loãng chủ đề, làm tốn dung lượng của diễn đàn.
Chỉ có vậy thôi.

be_09 · 8/6/18

be09 đã viết:
.

Tôi sửa bài sao lại thành viết bài vậy.

saomai6692 · 8/6/18

be09 đã viết:
Tôi sửa lại toàn bộ File trên, kiểm tra lại xem xem có đúng yêu cầu không.
1/ Sheet DON_THUOC dùng nhập liệu.
2/ Sheet TRICH_LOC dùng truy vấn lại đơn thuốc hoặc tên bệnh nhân, gõ 1 trong 2 thứ tại B3 hoặc C3 (hoặc gõ cùng lúc 2 thứ) và nhấn nút, sau đó sang Sheet DON_THUOC xem kết quả.

Anh chị ơi, #14 em đã tải và xem, nhưng nhập liệu phải là dữ liệu có sẵn trong form, không viết trực tiếp vào ô màu xanh. Em cảm ơn ạ

Xin code Form nhập liệu kết quả là cột dọc và hàng ngang (2 người xem)

Người dùng đang xem chủ đề này

Thành viên hoạt động

File đính kèm

Biên Hòa, Đồng Nai

GPE - My love

Thành viên hoạt động

Biên Hòa, Đồng Nai

Thành viên hoạt động

File đính kèm

GPE - My love

Biên Hòa, Đồng Nai

Thành viên hoạt động

GPE - My love

Thành viên hoạt động

GPE - My love

Thành viên hoạt động

File đính kèm

Biên Hòa, Đồng Nai

File đính kèm

GPE - My love

Thành viên hoạt động

Biên Hòa, Đồng Nai

GPE - My love

Biên Hòa, Đồng Nai

Thành viên hoạt động

Đếm ngược thời gian