Nhờ sửa lỗi runtime 1004 liên quan đến Range và cells. (1 người xem)

Dang Le Khanh Ninh · 14/3/23

For j = 1 To Column_Draft
If j = 1 Then
If 0 < Sheets("Draft").Cells(2, j).Value < Lotsize Then Sheets("Draft").Cells(3, j).Value = 0
If Sheets("Draft").Cells(2, j).Value >= Lotsize Then Sheets("Draft").Cells(3, j).Value = Application.RoundDown(Sheets("Draft").Cells(2, j).Value / Lotsize, 0) * Lotsize
End If
If j > 1 And j < End_column And Sheets("Draft").Cells(2, j).Value > 0 Then
Total_old1 = Application.Sum(Sheets("Draft").Range("3:3"))
Total_new1 = Application.Sum(Sheets("Draft").Range(Cells(2, 1), Cells(2, j)))
Sheets("Draft").Cells(3, j).Value = Int((Total_new1 - Total_old1) / Lotsize) * Lotsize
End If
If j > 1 And j = End_column And Sheets("Draft").Cells(2, j).Value > 0 Then
Total_old2 = Application.Sum(Sheets("Draft").Range("3:3"))
Sheets("Draft").Cells(3, j).Value = QtyDay + QtyEndDate + QtyStartDate - Total_old2
End If
Next j

For j = 1 To Column_Draft
Sheets("Pro Finishing").Cells(Row_Paste, Column_Std + j - 1).Value = Sheets("Draft").Cells(3, j).Value
Next j
End If

Maika8008 · 15/3/23

Bạn này cũng thuộc diện không biết nói.

namvu230397 · 15/3/23

Maika8008 đã viết:
Bạn này cũng thuộc diện không biết nói.

Chắc do câu hỏi nằm trong phần tiêu đề rồi đó bác

Dang Le Khanh Ninh · 15/3/23

Maika8008 đã viết:
Bạn này cũng thuộc diện không b

Em xin lỗi. file này của em ở cái câu lệnh em bôi đen bị báo lỗi runtime 1004 ạ. Mong anh/chị chỉ giúp!

SA_DQ · 15/3/23

Nếu đưa các lệnh vào khuôn khổ như mọi người khác, như:

PHP:

For j = 1 To Column_Draft
   If j = 1 Then
      If 0 < Sheets("Draft").Cells(2, j).Value < Lotsize Then Sheets("Draft").Cells(3, j).Value = 0
      If Sheets("Draft").Cells(2, j).Value >= Lotsize Then Sheets("Draft").Cells(3, j).Value = Application.RoundDown(Sheets("Draft").Cells(2, j).Value / Lotsize, 0) * Lotsize
   End If
   If j > 1 And j < End_column And Sheets("Draft").Cells(2, j).Value > 0 Then
      Total_old1 = Application.Sum(Sheets("Draft").Range("3:3"))
      Total_new1 = Application.Sum(Sheets("Draft").Range(Cells(2, 1), Cells(2, j)))
      Sheets("Draft").Cells(3, j).Value = Int((Total_new1 - Total_old1) / Lotsize) * Lotsize
   End If
   If j > 1 And j = End_column And Sheets("Draft").Cells(2, j).Value > 0 Then
      Total_old2 = Application.Sum(Sheets("Draft").Range("3:3"))   ' ← ← ← * * * '
      Sheets("Draft").Cells(3, j).Value = QtyDay + QtyEndDate + QtyStartDate - Total_old2
   End If
Next j
For j = 1 To Column_Draft
   Sheets("Pro Finishing").Cells(Row_Paste, Column_Std + j - 1).Value = Sheets("Draft").Cells(3, j).Value
Next j
End If

Thì sẽ thể hiện sự thân thiện của tác giả bài đăng với mọi người hơn!
Chủ bài đăng thử dịch sang tiếng Việt câu lệnh đó xem sao!

bebo021999 · 15/3/23

Với tổng thể tình hình kết cấu code của bạn, tốt nhất là bạn giải thích nhu cầu, điền tay kết quả muốn có, và mọi người sẽ viết lại code cho bạn nhé.

ptm0412 · 15/3/23

File có password. Vậy thì ... Bạc trắng lửa hồng:
Tình nghĩa đôi mình chỉ thế thôi saao?
Gặp gỡ chi rồi thoáng tựa chiêm bao
...
Một bước xa rời muôn kiếp ly tan
....
Xin lỗi, đang nghe Thanh Tuyền ...

bebo021999 · 15/3/23

ptm0412 đã viết:
File có password

Dạ chọn read-only vô xem code bình thường ạ.

ptm0412 · 15/3/23

bebo021999 đã viết:
Dạ chọn read-only vô xem code bình thường ạ.

Hễ mà gây khó khăn thì ngưng. Tại sao lại phải xoay sở tìm khe chui vào khi mà đáng lẽ phải được mở cửa rước vào?

VetMini · 15/3/23

namvu230397 đã viết:
Chắc do câu hỏi nằm trong phần tiêu đề rồi đó bác

Code chỉ có một đoạn. Tiêu đề không có nói bị ở dòng nào.
Ở đấy mà đoán.

Chú thích Sử dung một đống hàm cọi Sheets("Draft") thì người ta set luôn ShDraft cho nó gọn.
- Đói tốn tài nguyên máy lục tìm Collection Sheets
- Ít bị lỗ chunhs tả, dễ debug.
Ở GPE này dân code thích dùng block With để đặt không gian chủ danh cho sheet. Nhưng với block làm nhiều thứ khác nhau thế này thì Không gian chủ danh dễ bị nhầm, và khó debug.

bebo021999 · 15/3/23

ptm0412 đã viết:
Tại sao lại phải xoay sở tìm khe chui vào khi mà đáng lẽ phải được mở cửa rước vào?

Hehe. Nhân gian này ai cũng thích vậy sư phụ ơi...

ptm0412 · 15/3/23

bebo021999 đã viết:
Hehe. Nhân gian này ai cũng thích vậy sư phụ ơi...

Nếu chỉ căn cứ vào code bài 1 thì câu lệnh lỗi sửa thành

Mã:

Total_new1 = Application.Sum(Sheets("Draft").Range(Sheets("Draft").Cells(2, 1), Sheets("Draft").Cells(2, j)))

Còn lại có lỗi khác hay không thì tự chịu

VetMini · 15/3/23

Tiểu khuyển tiêm đầu hoan/tham lộ hiệp.
(sửa câu đối xưa)

Dang Le Khanh Ninh · 15/3/23

ptm0412 đã viết:
File có password. Vậy thì ... Bạc trắng lửa hồng:
Tình nghĩa đôi mình chỉ thế thôi saao?
Gặp gỡ chi rồi thoáng tựa chiêm bao
...
Một bước xa rời muôn kiếp ly tan
....
Xin lỗi, đang nghe Thanh Tuyề

VetMini đã viết:
Code chỉ có một đoạn. Tiêu đề không có nói bị ở dòng nào.
Ở đấy mà đoán.

Chú thích Sử dung một đống hàm cọi Sheets("Draft") thì người ta set luôn ShDraft cho nó gọn.
- Đói tốn tài nguyên máy lục tìm Collection Sheets
- Ít bị lỗ chunhs tả, dễ debug.
Ở GPE này dân code thích dùng block With để đặt không gian chủ danh cho sheet. Nhưng với block làm nhiều thứ khác nhau thế này thì Không gian chủ danh dễ bị nhầm, và khó debug.

Em mới tự học nên không biết nhiều ạ. Mong anh/chị chỉ thêm.

Bài đã được tự động gộp: 15/3/23

ptm0412 đã viết:
Nếu chỉ căn cứ vào code bài 1 thì câu lệnh lỗi sửa thành

Mã:

Total_new1 = Application.Sum(Sheets("Draft").Range(Sheets("Draft").Cells(2, 1), Sheets("Draft").Cells(2, j)))

Còn lại có lỗi hay không thì tự chịu

Em đã sửa như Bác nói. đã OK ạ. Em cảm ơn Bác nhiều nhé!

ptm0412 · 15/3/23

Dang Le Khanh Ninh đã viết:
Em mới tự học nên không biết nhiều ạ. Mong anh/chị chỉ thêm.

Vấn đề là bạn phải để cửa mở cho người khác có hứng thú vào sửa, chứ đừng khóa rồi bảo người ta chui qua khe.

SA_DQ · 15/3/23

Mọi lỗi dù nhẹ như lông mao cũng phải bị trừng hay phạt;
Chí ít là tỏ lời xin lỗi đến cộng đồng; Các bạn cố tình làm hư người ta còn chi nữa . . . .

ptm0412 · 15/3/23

SA_DQ đã viết:
Các bạn cố tình làm hư người ta còn chi nữa . . . .

Chẳng hạn như tác giả bài 5, bài 6

Dang Le Khanh Ninh · 15/3/23

ptm0412 đã viết:
Vấn đề là bạn phải để cửa mở cho người khác có hứng thú vào sửa, chứ đừng khóa rồi bảo người ta chui qua khe.

Lần sau em sẽ để ý hơn ạ.

SA_DQ · 15/3/23

Dang Le Khanh Ninh đã viết:
Lần sau em sẽ để ý hơn ạ.

Còn sau bài này của bạn thì sao, có thay file khác ở bài #1 hay không?

SA_DQ · 15/3/23

ptm0412 đã viết:
Chẳng hạn như tác giả bài 5, bài 6

Bạn cần chứng minh rằng #5 'làm hư' chủ bài đăng dùm tôi 1 cái nha; Bạn có thời hạn 24 giờ để cân nhắc chuyện này!

ptm0412 · 15/3/23

SA_DQ đã viết:
Bạn cần chứng minh rằng #5 'làm hư' chủ bài đăng dùm tôi 1 cái nha; Bạn có thời hạn 24 giờ để cân nhắc chuyện này!

Nguyên văn ở đâu đó: "Mọi lỗi dù nhẹ như lông mao cũng phải bị trừng hay phạt".
Lỗi của tác giả gồm 2 lỗi: viết code không bỏ trong cặp tag [_code ], và lỗi khóa file. Cả 2 lỗi nhỏ, nhẹ như lông mao, nhưng chỉ nhắc nhở và đã tiếp thu. Hết hư rồi nhé.
Bài 5: Hỗ trợ tác giả chuyển code vào trong cặp dấu tag. Không thấy trừng, không thấy phạt, mà lại hỗ trợ. Chả lẽ không sinh hư?
Bài 6: Thấy file khóa mà vẫn hứng chí muốn trả lời. Chả lẽ không sinh hư?

SA_DQ · 15/3/23

Tùy thôi, sao cũng đặng./.

HieuCD · 16/3/23

ptm0412 đã viết:
Nguyên văn ở đâu đó: "Mọi lỗi dù nhẹ như lông mao cũng phải bị trừng hay phạt".
Lỗi của tác giả gồm 2 lỗi: viết code không bỏ trong cặp tag [_code ], và lỗi khóa file. Cả 2 lỗi nhỏ, nhẹ như lông mao, nhưng chỉ nhắc nhở và đã tiếp thu. Hết hư rồi nhé.
Bài 5: Hỗ trợ tác giả chuyển code vào trong cặp dấu tag. Không thấy trừng, không thấy phạt, mà lại hỗ trợ. Chả lẽ không sinh hư?
Bài 6: Thấy file khóa mà vẫn hứng chí muốn trả lời. Chả lẽ không sinh hư?

Nghe như âm vang từ chùa Thiếu lâm, "Thiền" thấm nhuần vào GPE

Dang Le Khanh Ninh · 16/3/23

SA_DQ đã viết:
Còn sau bài này của bạn thì sao, có thay file khác ở bài #1 hay không?

Anh/Chị chỉ giúp em cách sửa lại bài đăng với ạ. Em chưa biết cách sửa lại nội dung và đăng lại file đính kèm ạ. hic. Em cảm ơn!

cantl · 16/3/23

Dang Le Khanh Ninh đã viết:
Anh/Chị chỉ giúp em cách sửa lại bài đăng với ạ. Em chưa biết cách sửa lại nội dung và đăng lại file đính kèm ạ. hic. Em cảm ơn!

Bài 1 có edit (hiệu lực dưới 1 năm) nếu không có thì chọn report. Bạn ghi vào: mod ơi giúp em sửa bài với ạ.
Thiếu hiểu biết + nhiệt tình thì chỉ giúp được thế thôi. Tùy cơ ứng biến nhé. :wallbash:

Maika8008 · 16/3/23

Dang Le Khanh Ninh đã viết:
Anh/Chị chỉ giúp em cách sửa lại bài đăng với ạ. Em chưa biết cách sửa lại nội dung và đăng lại file đính kèm ạ. hic. Em cảm ơn!

Cấp hạng thành viên của bạn chưa được phép sửa bài #1. Muốn update gì thì thêm vào các bài bên dưới.

Nhờ sửa lỗi runtime 1004 liên quan đến Range và cells. (1 người xem)

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

Thành viên mới

File đính kèm

Thành viên gạo cội

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

Thành viên mới

/(hông là gì!

Thành viên gạo cội

Bad Excel Member

Thành viên gạo cội

Bad Excel Member

Đang đi tìm hòn đá

Thành viên gạo cội

Bad Excel Member

Đang đi tìm hòn đá

Thành viên mới

Bad Excel Member

/(hông là gì!

Bad Excel Member

Thành viên mới

/(hông là gì!

/(hông là gì!

Bad Excel Member

/(hông là gì!

Chuyên gia GPE

Thành viên mới

!!! Giải thoát !!!

Thành viên gạo cội

Thời gian đếm ngược.