Nhờ giúp viết Code VBA sử dụng Button Box nhân 2 mảng (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

Ngocminh19

Thành viên chính thức
Tham gia
30/5/15
Bài viết
86
Được thích
11
Do file em sử dụng rất nặng khi dùng,em cũng mới tìm hiểu về VBA
Không biết nên bắt đầu từ đâu để giải quyết bài toán này
Em có 1 file quản lý vật tư nhờ các Thầy/anh chị viết code giúp em để xử lý công việc ạ.em cảm ơn!
Yêu cầu công việc như ntn ạ :

Số 1.Button Qty use : Nhân 2 mảng cùng kích thước: Plan(Array 1) và Bên BOM(Array 2),theo thứ tự từng dòng chạy theo ngày liên tiếp ạ
-Các bác giúp em khi nhấn thì nhân 2 mảng này .Array 1 chạy từ trên xuống dưới,Array 2 từ trái sang phải

1639650064584.png
Array 2 bên Sheet BOM
1639650159303.png

Số 3 : Button Qty Remain
Em lấy ngày trước trừ đi số đã nhân nhân cột đó ạ.gối theo các ngày
1639650673874.png
Có thể sử dụng giữa 2 tính năng này cập nhật liên tục đc ạ
-Số 2: thì em nhờ các bác nhân giúp em 2 mảng cố định giống như 1 cột của yêu cầu 1 ạ
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Em xin phép nói rõ thêm,đơn giản theo dile dưới này ạ. Mong các bác xem giúp em với ạ .Em cảm ơn!
1639808389372.png
 

File đính kèm

Upvote 0
duyquyetdt01 đã viết:
Em xin phép nói rõ thêm,đơn giản theo dile dưới này ạ. Mong các bác xem giúp em với ạ .Em cảm ơn!
Nhấp chuột vào đây để mở rộng...
Thêm Module với code sau.

Nếu bạn muốn code ít chữ nhất và dùng ít vòng FOR nhất thì đợi người khác nhé.

Mã: 
Option Explicit

Sub BOM_sex(Optional ByVal luy_ke As Long = 0)
Dim r As Long, c As Long, k As Long, socot As Long, socot_bom As Long, giatri As Double, bom(), dulieu_ngay(), cotE(), result()
    bom = ThisWorkbook.Worksheets("BOM").Range("D6:G14").Value
    dulieu_ngay = ThisWorkbook.Worksheets("Shortage").Range("F3:L6").Value
    If UBound(bom, 2) <> UBound(dulieu_ngay, 1) Then
        MsgBox "Kich thuoc cac vung du lieu khong khop voi nhau"
        Exit Sub
    End If
    If luy_ke Then cotE = ThisWorkbook.Worksheets("Shortage").Range("E8").Resize(UBound(bom, 1)).Value ' lay tu E8 UBound(bom, 1) dong
    ReDim result(1 To UBound(bom, 1), 1 To UBound(dulieu_ngay, 2)) ' so dong bang so dong cotE, so cot bang so cot dulieu_ngay
    socot = UBound(result, 2)
    socot_bom = UBound(bom, 2)
    For r = 1 To UBound(result, 1)
        For c = 1 To socot
            giatri = 0
            For k = 1 To socot_bom
                giatri = giatri + bom(r, k) * dulieu_ngay(k, c)
            Next k
            If luy_ke Then
                result(r, c) = cotE(r, 1) - giatri
            Else
                result(r, c) = giatri
            End If
        Next c
    Next r
    ThisWorkbook.Worksheets("Shortage").Range("F8").Resize(UBound(result, 1), UBound(result, 2)).Value = result
End Sub

Sub Button1_Click()
    BOM_sex
End Sub

Sub Button2_Click()
    BOM_sex 1
End Sub
 
Upvote 0
batman1 đã viết:
Thêm Module với code sau.

Nếu bạn muốn code ít chữ nhất và dùng ít vòng FOR nhất thì đợi người khác nhé.

Mã: 
Option Explicit

Sub BOM_sex(Optional ByVal luy_ke As Long = 0)
Dim r As Long, c As Long, k As Long, socot As Long, socot_bom As Long, giatri As Double, bom(), dulieu_ngay(), cotE(), result()
    bom = ThisWorkbook.Worksheets("BOM").Range("D6:G14").Value
    dulieu_ngay = ThisWorkbook.Worksheets("Shortage").Range("F3:L6").Value
    If UBound(bom, 2) <> UBound(dulieu_ngay, 1) Then
        MsgBox "Kich thuoc cac vung du lieu khong khop voi nhau"
        Exit Sub
    End If
    If luy_ke Then cotE = ThisWorkbook.Worksheets("Shortage").Range("E8").Resize(UBound(bom, 1)).Value ' lay tu E8 UBound(bom, 1) dong
    ReDim result(1 To UBound(bom, 1), 1 To UBound(dulieu_ngay, 2)) ' so dong bang so dong cotE, so cot bang so cot dulieu_ngay
    socot = UBound(result, 2)
    socot_bom = UBound(bom, 2)
    For r = 1 To UBound(result, 1)
        For c = 1 To socot
            giatri = 0
            For k = 1 To socot_bom
                giatri = giatri + bom(r, k) * dulieu_ngay(k, c)
            Next k
            If luy_ke Then
                result(r, c) = cotE(r, 1) - giatri
            Else
                result(r, c) = giatri
            End If
        Next c
    Next r
    ThisWorkbook.Worksheets("Shortage").Range("F8").Resize(UBound(result, 1), UBound(result, 2)).Value = result
End Sub

Sub Button1_Click()
    BOM_sex
End Sub

Sub Button2_Click()
    BOM_sex 1
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ. Em xin cảm ơn sự giúp đỡ của Thầy rất nhiều ,`đúng nội dung em mong muốn ban đầu
E xin lỗi thầy ở Button2 có sai 1 chút về thông tin vì em cố định giá trị cột E,nên Lũy kế sau từng ngày SX sẽ không đúng`
Lũy kế sau từng ngày sẽ là remain ngày trước trừ đi số lượng sx ngày hôm đó .
Thầy giúp em sửa lại code để Button 2 đúng kết quả giúp em với
.Em cảm ơn thầy ạ
1639842491377.png
 

File đính kèm

Upvote 0
duyquyetdt01 đã viết:
Dạ. Em xin cảm ơn sự giúp đỡ của Thầy rất nhiều ,`đúng nội dung em mong muốn ban đầu
E xin lỗi thầy ở Button2 có sai 1 chút về thông tin vì em cố định giá trị cột E,nên Lũy kế sau từng ngày SX sẽ không đúng`
Lũy kế sau từng ngày sẽ là remain ngày trước trừ đi số lượng sx ngày hôm đó .
View attachment 270474
Nhấp chuột vào đây để mở rộng...
Trong Sub BOM_sex ở bài #3

thay
Mã: 
If luy_ke Then
    result(r, c) = cotE(r, 1) - giatri
Else
    result(r, c) = giatri
End If

bằng
Mã: 
If luy_ke Then
    If c = 1 Then
        result(r, c) = cotE(r, 1) - giatri
    Else
        result(r, c) = result(r, c - 1) - giatri
    End If
Else
    result(r, c) = giatri
End If
-----------
Nếu bạn cần vd. ít FOR hơn thì sử dụng vd. Application.WorksheetFunction.MMult hoặc Application.MMult sẽ có ít FOR hơn. Nhưng hoặc bạn tự tìm hiểu, hoặc đợi những người đam mê, tôi không giúp bạn viết ít dòng (muốn thì gộp vài dòng thành 1), ít chữ, ít FOR. Đó không là đam mê của tôi.
 
Upvote 0
batman1 đã viết:
Trong Sub BOM_sex ở bài #3

thay
Mã: 
If luy_ke Then
    result(r, c) = cotE(r, 1) - giatri
Else
    result(r, c) = giatri
End If

bằng
Mã: 
If luy_ke Then
    If c = 1 Then
        result(r, c) = cotE(r, 1) - giatri
    Else
        result(r, c) = result(r, c - 1) - giatri
    End If
Else
    result(r, c) = giatri
End If
-----------
Nếu bạn cần vd. ít FOR hơn thì sử dụng vd. Application.WorksheetFunction.MMult hoặc Application.MMult sẽ có ít FOR hơn. Nhưng hoặc bạn tự tìm hiểu, hoặc đợi những người đam mê, tôi không giúp bạn viết ít dòng (muốn thì gộp vài dòng thành 1), ít chữ, ít FOR. Đó không là đam mê của tôi.
Nhấp chuột vào đây để mở rộng...
Dạ đúng kết quả em mong muốn rồi ạ.
E cảm ơn thầy đã chỉ lối,bản thân em mới học hỏi công thức từ diễn đàn để áp dụng cho công việc.Được thầy hướng dẫn
đã giúp em tự động hóa vấn đề file em sử dụng 4 năm.
Lúc trc thầy làm vòng lặp em chưa tiện hỏi thầy :
-Em có 1 điều kiện lẻ là các giá trị rởi rạc cũng cần thống kê trong file,thấy giúp em để em có thể tự động hóa hết theo VBA vớiạ
Giá trị 1,hoặc 3. lúc nào cũng cố dịnh là tự độngnhân vào dù sử dung Button nào ạ.
Em cảm ơn!
1639846201074.png
 

File đính kèm

Upvote 0
duyquyetdt01 đã viết:
Dạ đúng kết quả em mong muốn rồi ạ.
E cảm ơn thầy đã chỉ lối,bản thân em mới học hỏi công thức từ diễn đàn để áp dụng cho công việc.Được thầy hướng dẫn
đã giúp em tự động hóa vấn đề file em sử dụng 4 năm.
Lúc trc thầy làm vòng lặp em chưa tiện hỏi thầy :
-Em có 1 điều kiện lẻ là các giá trị rởi rạc cũng cần thống kê trong file,thấy giúp em để em có thể tự động hóa hết theo VBA vớiạ
Giá trị 1,hoặc 3. lúc nào cũng cố dịnh là tự độngnhân vào dù sử dung Button nào ạ.
Em cảm ơn!
View attachment 270477
Nhấp chuột vào đây để mở rộng...
Cách dùng công thức Excel trong VBA
Mã: 
Sub Button1_Click()
  ABC False
End Sub

Sub Button2_Click()
  ABC True
End Sub

Sub ABC(Optional bLuyKe As Boolean = True)
  Range("E8:G16").Formula = "=MMULT(BOM!$D6:$G6,E$3:E$6)" 'Gán cong thuc
  Range("E8:G16").Value = Range("E8:G16").Value 'Gán gia tri
  Range("F8:F16").ClearContents
  If bLuyKe Then
    Range("I8:O16").Formula = "=H8-MMULT(BOM!$D6:$G6,I$3:I$6)"
  Else
    Range("I8:O16").Formula = "=MMULT(BOM!$D6:$G6,I$3:I$6)"
  End If
  Range("I8:O16").Value = Range("I8:O16").Value
End Sub
 
Upvote 0
duyquyetdt01 đã viết:
-Em có 1 điều kiện lẻ là các giá trị rởi rạc cũng cần thống kê trong file,thấy giúp em để em có thể tự động hóa hết theo VBA vớiạ
Giá trị 1,hoặc 3. lúc nào cũng cố dịnh là tự độngnhân vào dù sử dung Button nào ạ.

View attachment 270477
Nhấp chuột vào đây để mở rộng...
Tôi không hiểu bạn nói gì. Bây giờ cấu trúc dữ liệu có thay đổ so với trước. Trước đó cần tính giá trị cho F8:L16, tôi "dịch" từ công thức sang code. Bây giờ vùng cần tính là vùng nào? Vùng I8:O16? Công thức trong các ô đó như thế nào? Tôi chỉ "dịch" công thức sang code thôi. Không biết công thức thế nào thì tôi chịu, bạn chờ người hiểu ý nhé.

Hay ý là ngoài tính I8:O16 tương tự như trước thì tính thêm E8:G16?
 
Upvote 0
HieuCD đã viết:
Cách dùng công thức Excel trong VBA
Mã: 
Sub Button1_Click()
  ABC False
End Sub

Sub Button2_Click()
  ABC True
End Sub

Sub ABC(Optional bLuyKe As Boolean = True)
  Range("E8:G16").Formula = "=MMULT(BOM!$D6:$G6,E$3:E$6)" 'Gán cong thuc
  Range("E8:G16").Value = Range("E8:G16").Value 'Gán gia tri
  Range("F8:F16").ClearContents
  If bLuyKe Then
    Range("I8:O16").Formula = "=H8-MMULT(BOM!$D6:$G6,I$3:I$6)"
  Else
    Range("I8:O16").Formula = "=MMULT(BOM!$D6:$G6,I$3:I$6)"
  End If
  Range("I8:O16").Value = Range("I8:O16").Value
End Sub
Nhấp chuột vào đây để mở rộng...
lại
batman1 đã viết:
Tôi không hiểu bạn nói gì. Bây giờ cấu trúc dữ liệu có thay đổ so với trước. Trước đó cần tính giá trị cho F8:L16, tôi "dịch" từ công thức sang code. Bây giờ vùng cần tính là vùng nào? Vùng I8:O16? Công thức trong các ô đó như thế nào? Tôi chỉ "dịch" công thức sang code thôi. Không biết công thức thế nào thì tôi chịu, bạn chờ người hiểu ý nhé.

Hay ý là ngoài tính I8:O16 tương tự như trước thì tính thêm E8:G16?
Nhấp chuột vào đây để mở rộng...
dạ đúng rồi ạ. là Vùng E8:G16 ,riêng lẻ
Còng Vùng I8:O16 em hiểu và áp dụng được cách của thầy rồi a
Bài đã được tự động gộp:

HieuCD đã viết:
Cách dùng công thức Excel trong VBA
Mã: 
Sub Button1_Click()
  ABC False
End Sub

Sub Button2_Click()
  ABC True
End Sub

Sub ABC(Optional bLuyKe As Boolean = True)
  Range("E8:G16").Formula = "=MMULT(BOM!$D6:$G6,E$3:E$6)" 'Gán cong thuc
  Range("E8:G16").Value = Range("E8:G16").Value 'Gán gia tri
  Range("F8:F16").ClearContents
  If bLuyKe Then
    Range("I8:O16").Formula = "=H8-MMULT(BOM!$D6:$G6,I$3:I$6)"
  Else
    Range("I8:O16").Formula = "=MMULT(BOM!$D6:$G6,I$3:I$6)"
  End If
  Range("I8:O16").Value = Range("I8:O16").Value
End Sub
Nhấp chuột vào đây để mở rộng...
lại
HieuCD đã viết:
Cách dùng công thức Excel trong VBA
Mã: 
Sub Button1_Click()
  ABC False
End Sub

Sub Button2_Click()
  ABC True
End Sub

Sub ABC(Optional bLuyKe As Boolean = True)
  Range("E8:G16").Formula = "=MMULT(BOM!$D6:$G6,E$3:E$6)" 'Gán cong thuc
  Range("E8:G16").Value = Range("E8:G16").Value 'Gán gia tri
  Range("F8:F16").ClearContents
  If bLuyKe Then
    Range("I8:O16").Formula = "=H8-MMULT(BOM!$D6:$G6,I$3:I$6)"
  Else
    Range("I8:O16").Formula = "=MMULT(BOM!$D6:$G6,I$3:I$6)"
  End If
  Range("I8:O16").Value = Range("I8:O16").Value
End Sub
Nhấp chuột vào đây để mở rộng...
dạ. Em cảm ơn bác ạ.
Một cách khác với cách khác rất hay ạ.Em thử đúng rồi ạ
Tuyệt vời.Thật hữu ích với em lắm
 
Upvote 0
batman1 đã viết:
Trong Sub BOM_sex ở bài #3

thay
Mã: 
If luy_ke Then
    result(r, c) = cotE(r, 1) - giatri
Else
    result(r, c) = giatri
End If

bằng
Mã: 
If luy_ke Then
    If c = 1 Then
        result(r, c) = cotE(r, 1) - giatri
    Else
        result(r, c) = result(r, c - 1) - giatri
    End If
Else
    result(r, c) = giatri
End If
-----------
Nếu bạn cần vd. ít FOR hơn thì sử dụng vd. Application.WorksheetFunction.MMult hoặc Application.MMult sẽ có ít FOR hơn. Nhưng hoặc bạn tự tìm hiểu, hoặc đợi những người đam mê, tôi không giúp bạn viết ít dòng (muốn thì gộp vài dòng thành 1), ít chữ, ít FOR. Đó không là đam mê của tôi.
Nhấp chuột vào đây để mở rộng...
Bác ơi.Bác có thể giúp em khi em lọc Filter xem 1 vài mã mà VBA vẫn chạy đúng với ạ.
Hiện tại khi em lọc xem 1,vài mã thì code không đúng nữa.
Mong bác giúp đỡ ạ. Chúc bác năm mới sức khỏe
1644424230475.png
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
Hỏi về công thức tính tiền công theo Kg, có điều kiện. (4 người xem)
    • Cười
Trả lời
1
Đọc
17
SA_DQ
SA_DQ
Quang Ròm
  • Question Question
VBA nhảy qua lại 2 cột A B (2 người xem)
    • Cười
Trả lời
5
Đọc
57
Quang Ròm
Quang Ròm
N
Cho em xin hỏi về hàm Workday về ngày làm bù ạ (1 người xem)
Trả lời
1
Đọc
26
hoangtuaotrang_hp_vn
H
K
dùng hàm sumproduct kết hợp nhiều điều kiện như thế nào? (1 người xem)
Trả lời
2
Đọc
38
khanhnth02
K
tranaidh
Giúp sắp xếp phòng thi tốt nghiệp năm 2025
Trả lời
4
Đọc
246
BuiQuangThuan
B
V
Cập nhật DataValidation 2 chiều giữa 2 sheet
Trả lời
4
Đọc
167
hoangtuaotrang_hp_vn
H
nghiahandsome1995
  • Question Question
in đậm chuỗi văn bản bằng excel (1 người xem)
Trả lời
11
Đọc
296
HUONGHCKT
H
nghiahandsome1995
Xin mã code autofit (1 người xem)
Trả lời
0
Đọc
30
nghiahandsome1995
nghiahandsome1995
D
tạo pivot table theo nhiều trường dữ liệu phân loại
Trả lời
4
Đọc
93
duymax1234567
D
H
Cách nào có thể gộp dữ liệu không dùng VBA (1 người xem)
Trả lời
9
Đọc
116
Hoang NS
H
B
Xin tư vấn excel tính giá trị cho nhiều trường hợp (2 người xem)
    • Ngạc nhiên
    • Phẫn nộ
Trả lời
5
Đọc
279
hangnguyenkt
H
A
Giúp đỡ tính tổng ô hàng ngang bất kỳ !
Trả lời
8
Đọc
193
anhdung411
A
T
  • Question Question
Ẩn hiện các sheet khi click vào HyperLink
Trả lời
5
Đọc
166
DeTong
D
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
5
Đọc
246
PhanTuHuong
PhanTuHuong
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm (1 người xem)
Trả lời
6
Đọc
79
DeTong
D
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
8
Đọc
785
thanhkhoavp
T
sangvanng92
  • Question Question
Cách chạy file excel chứa code vba trên sharepoint
Trả lời
2
Đọc
141
Nguyễn Duy Tuân
Nguyễn Duy Tuân
ankhanh2k2
sắp xếp dữ liệu chấm công
    • Buồn
Trả lời
8
Đọc
247
pycckuu410
P
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
6
Đọc
868
PhanTuHuong
PhanTuHuong
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng
Trả lời
4
Đọc
121
HeSanbi
HeSanbi
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW EXCEL TRONG SẢN XUẤT
Back
Top Bottom