Thêm danh sách bằng nhập danh pháp và số lượng - (Help) (1 người xem)

[dmtdmtbb]

- Mấy bữa nây nghĩ wài mè nghĩ hong zda.
- Pác nèo giúp em, đãi 1 chầu CàFé ... bình dân

- File này đã cập nhật mới, chú thích zỏ zàng zể hiểu !!!
View attachment 2402

 

[Nguyễn Duy Tuân]

Tôi không thấy dữ liệu nguồn của bạn đâu cả? Nếu nó nằm trong file Vattu.xls hôm trước bạn gửi thì mệt rồi. Vì dữ liệu của bạn không có quan hệ chặt chẽ giữa các chỉ tiêu.
Tôi hình dung yêu cầu của bạn, nó giống như trong sản xuất. Một sản phẩm A được làm bởi VL 1, VL2, VL3. Bây giờ cần lập báo cáo chi phí sản xuất từng sản phẩm.
Sản phẩm A
VL1 100.000đ
VL2 120.000đ
VL3 200.000đ
....

Nếu đúng bài toán như vậy, bạn cần phải tổ chức lại dữ liệu nguồn của bạn.
Xuất VL1, SLg 20 cho SPA . Khi đó trong bảng dữ liệu sẽ là:

Mã VL | SLG_XUAT | ĐTCF (đối tượng chi phí)
VL1 | 20 | SPA

Quan hệ chặt chẽ như vậy thì tất cả các bài toán đều có thể giải quyết được.

 

[dmtdmtbb]

- Pác xem qua cái này, trong đó có chi tiết cụ thể !

- Nhớ ghi sổ nợ 1 chầu CàFé ... bình dân nhé, nếu không ghi là ... sù hìhì

- View attachment 2401

 

[dmtdmtbb]

- Các pác xem dùm giải quyết theo cách này ok không nhé .
- Vì dử liệu Sheet Data cố định nên ta đặt tên và công thức cố định theo.
- Vậy khi ta nhập tên ( cvl1001 ) thì cụm ( B4:I5 ) được in ra.
- Bỏ luôn phần số lượng cho đơn giản, vấn đề là in ra 1 mảng đã được đặt tên khi nhập vào tên của nó.
- View attachment 2400

 

[Mr Okebab]

- Mấy bữa nây nghĩ wài mè nghĩ hong zda.
- Pác nèo giúp em, đãi 1 chầu CàFé ... bình dân

- File này đã cập nhật mới, chú thích zỏ zàng zể hiểu !!!
View attachment 2402

Bạn thân mến :

1. Nên viết yêu cầu bằng Tiếng Việt chuẩn, chắc rằng bạn không muốn người khác trả lời bạn bằng tiếng Miến Điện trong khi bạn và họ đang ở VN và đều là người VN

2. Các File bên dưới của bạn đều tải không được.

3. File vật tư của bạn bị Virus, vì vậy mình không mở ra được.

Không biết làm sao giúp bạn đây.

Thân!

 

[Nguyễn Duy Tuân]

Bạn cho biết mẫu báo cáo mới của bạn gồm các cột?
Bạn cần xem chi tiết từng công việc lớn một, hay kết hợp?
Câu hỏi của bạn vẫn hơi khó hiểu.

 

[dmtdmtbb]

- Công việc là như thế này.
- Sheet Data làm dử liệu cố định, có nhiều bộ công việc.
- Sheet VatTu thì thay đổi.
- Vậy khi Sheet VatTu thay đổi thay vì phải nhập lại từ đầu ta chỉ cần nhập mã danh pháp thì bộ công việc được in ra.
- View attachment VatTu.zip

 

[Nguyễn Duy Tuân]

Tôi đã xem kỹ dữ liệu của bạn. Nếu đơn giản thì có thể CTRL+G gõ tên CVL1003 copy rồi paste bên sheet "Vattu", có lẽ bạn không thích kiểu này. Còn để lập trình thì cũng được nhưng dữ liệu bên sheet Data của bạn quan hệ giữa các trường thông tin không được chặt chẽ lắm. Một CSDL mà quan hệ thông tin không chặt chẽ sẽ rất khó làm, khi mức độ công việc tăng, nó dẫn đến đường cụt. Nếu bạn chưa làm được tôi sẽ gửi code cho bạn sau vì dạo này bận quá (không có time ngồi trên máy).

 

[dmtdmtbb]

- Cái này làm theo kiểu mì ăn liền pác xem thử và cho ý kiến
http://tnq.vn/images/gpe/vattu.zip

-------------------------------------------

Private Sub cmdok_Click()
Dim tempcvl As String
tempcvl = "cvl1001"
If txtdp <> tempcvl Then
MsgBox " No !", vbOKOnly, "Error !"
Else
datacvl1001
End If
End Sub
---------------------------------------
Sub datacvl1001()
Dim coin As String
coin = txtcoin
Dim temptxt As Integer
temptxt = txtsoluong
Sheets("Data").Select
Range("G4").Select
ActiveCell.FormulaR1C1 = temptxt
Sheets("Data").Select
Range("B4:I5").Select
Range("I5").Activate
Selection.Copy
Sheets("Vat Tu").Select
Range(coin).Select
ActiveSheet.Paste
End Sub

 

[Nguyễn Duy Tuân]

Tôi viết cho bạn code mới tốt hơn. Bạn đọc kỹ code để có thể pha chế khi cần những tình huống khác.

Số nợ của bạn hiện nay là 1+1 = 2 Cafe đấy nhé!

 

[dmtdmtbb]

- Cám ơn bác rất nhiều !!!
- Em đã xem kỹ bài của bác nhưng vẫn không biết cách thêm bộ công việc vì khả năng có hạn.
- Xin bác chỉ thêm dùm em cách nhập bộ công việc mới

- Chắc phải nợ bác thêm 1 ly nữa thôi

 

[Nguyễn Duy Tuân]

Tại sheet "Vattu", tại cột B, bạn chọn mã CVL#### là được.

 

[dmtdmtbb]

- Ý em là cập nhật thêm bộ công việc khác, vd : cvl1021,cvl1022 ...
- Bác chỉ dùm em cách cập nhật thêm nhé.

 

[Nguyễn Duy Tuân]

- Ý em là cập nhật thêm bộ công việc khác, vd : cvl1021,cvl1022 ...
- Bác chỉ dùm em cách cập nhật thêm nhé.

Để thêm bộ công việc, bạn làm trình tự 2 việc:
1- Vào sheet "Data" tạo bộ công việc
2- Đặt tên lại vùng Data (do thêm các dòng mới). Đặt từ B4:Jx. x là dòng cuối cùng của bảng Data.

Chúc bạn thành công!

 

[dmtdmtbb]

- Bữa nào anh em mình đi uống cafe bác ơi.
- Cam ơn bác nhiều, bây giờ thì em đã hiểu (fugaca ...)
- Giờ chỉ còn luyện nội công cho thâm hậu để hiểu được bác viết code bên trong là gì !!!

 

[dmtdmtbb]

- Khi lấy giá trị từ Data thì danh pháp không con hiểu là String nên em thêm A đầu danh pháp.
- Bác fix lại dùm em chổ đó sau cho không cần thêm A mà vẫn hiểu là String vì danh pháp là cố định không thể thay đổi.


View attachment VatTu.zip

 

[Nguyễn Duy Tuân]

Tôi đã sửa lại cho bạn "ngon" rồi. Có 3 vấn đề bạn lưu ý.

+ Trong các sheet chứa dữ liệu gốc (gõ vào bằng tay), cột nào chứa giá trị là String thì hãy Format cả cột về dạng Text sau đó mới vào các giá trị, nếu đã vào rồi thì phải gõ lại.

+ Tôi đã chữa lại thủ tục UpdateData để đảm bảo làm việc tốt hơn.
Khi cần gõ lại công thức tại một ô, trong VBA chỉ cần
Sheets("Tên sheet").Range("Ô").Formula=Sheets("Tên sheet").Range("Ô").Formula

Nếu là công thức mảng (={..}) thì
Sheets("Tên sheet").Range("Ô").FormulaArray=Sheets("Tên sheet").Range("Ô").FormulaArray

+ Bạn học cách bỏ lệnh Select đi sẽ tốt hơn

Bạn hãy tìm hiểu đoạn code tôi đã sửa trong thủ tục UpdateData nhé!

 

[dmtdmtbb]

- Đối với CBB thì thì đã tìm hiểu và thao tác được, còn cái của bác làm bên sheet VatTu là gì nhỉ, bác chỉ dùm cách thao tác với nó, ví dụ muốn mở rộng thêm cột để thấy được mã công việc và công việc là gì ... và làm sao để thêm cột là 3 hay 4 gì đó !!!