Nhờ sửa lỗi runtime 1004 liên quan đến Range và cells.

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!

Nhờ sửa lỗi runtime 1004 liên quan đến Range và cells.

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

Ăn cùng góc phố

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

Bad Excel Member

Ăn cùng góc phố

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ì!