Sửa lỗi Runtime error "6" Over flow (1 người xem)

[vanle33]

Tôi có file Nhật ký này nhưng khi nhấn Cap Nhat thì bị lỗi Runtime error "6" Over Flow. Mong các thành viên trợ giúp sửa lỗi trên cho tôi.

Do tôi không phải chủ nhân của file này nên không có pass VBA mà phải dùng Remove VBA ... của bác siwtom.

 

[giaiphap]

Tôi có file Nhật ký này nhưng khi nhấn Cap Nhat thì bị lỗi Runtime error "6" Over Flow. Mong các thành viên trợ giúp sửa lỗi trên cho tôi.

Password project VBA bác à.

 

[langtuchungtinh360]

Tôi có file Nhật ký này nhưng khi nhấn Cap Nhat thì bị lỗi Runtime error "6" Over Flow. Mong các thành viên trợ giúp sửa lỗi trên cho tôi.

khóa rồi biết gì mà sửa bác!!. làm biếng mở khóa lắm.

 

[vanle33]

Bạn giaiphap và langtuchungtinh360 : Đây là code trong sheet Nhatky
Dim TGmin As Double
Dim TGmax As Double
Dim Itg As Double


Public Sub HamDuyet()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim h As Integer
Dim g As Integer
For i = 15 To 400
Sheet4.Cells(i, 1).Value = ""
Sheet4.Cells(i, 2).Value = ""
Sheet4.Cells(i, 3).Value = ""
Sheet4.Cells(i, 4).Value = ""
Next i

TGmin = Sheet5.Cells(5, 6).Value
TGmax = Sheet5.Cells(6, 6).Value
Itg = TGmin
k = 14
g = 1
Do While Itg <= TGmax
i = 15
Sheet4.Cells(k, 1).Value = g
Sheet4.Cells(k, 2).Value = Itg
Sheet4.Cells(k, 4).Value = "Mua Công truong nghi"
j = 0
h = 0
Do While Sheet1.Cells(i, 1).Text <> "ket thuc"
' Phan nghiem thu
If Sheet1.Cells(i, 11).Value = Itg Then
Sheet4.Cells(k + j, 3).Value = Sheet1.Cells(i, 2).Value
Sheet4.Cells(k + j, 4).Value = "Nghiêm thu " + Sheet1.Cells(i, 3).Value
j = j + 1
h = 1
End If
'Phan thi cong
If (Sheet1.Cells(i, 6).Value <= Itg) And (Sheet1.Cells(i, 7).Value >= Itg) Then
Sheet4.Cells(k + j, 3).Value = Sheet1.Cells(i, 2).Value
Sheet4.Cells(k + j, 4).Value = "Thi công " + Sheet1.Cells(i, 3).Value
j = j + 1
h = 1
End If
i = i + 1
Loop
If h = 1 Then
j = j - 1
End If
Itg = Itg + 1
k = k + j + 1
g = g + 1
Loop
End Sub


Private Sub CapNhatNK_Click()
HamDuyet
End Sub

 

[giangleloi]

Tôi có file Nhật ký này nhưng khi nhấn Cap Nhat thì bị lỗi Runtime error "6" Over Flow. Mong các thành viên trợ giúp sửa lỗi trên cho tôi.

Do tôi không phải chủ nhân của file này nên không có pass VBA mà phải dùng Remove VBA ... của bác siwtom.

Tại ô A102 ở sheet 01-Danh Muc sửa chữ "Kết thúc" thành "ket thuc" như trong code là được. Không thì anh sửa code theo ô A102.

 

[vanle33]

Tại ô A102 ở sheet 01-Danh Muc sửa chữ "Kết thúc" thành "ket thuc" như trong code là được. Không thì anh sửa code theo ô A102.

Chuẩn là chữ "ket thuc" đó bạn. Do mình tự sửa thành "Kết thúc" hiii
Mà sao ngày Kết thúc thi công công việc số 7 là 16/06/2015 mà bên Nhật ký chỉ chạy ra đến ngày 10/06/2015 bạn nhỉ?

 

[langtuchungtinh360]

Chuẩn là chữ "ket thuc" đó bạn. Do mình tự sửa thành "Kết thúc" hiii
Mà sao ngày Kết thúc thi công công việc số 7 là 16/06/2015 mà bên Nhật ký chỉ chạy ra đến ngày 10/06/2015 bạn nhỉ?

em nghĩ chỗ này

[COLOR=#000000]For i = 15 To 400[/COLOR]
[COLOR=#000000]Sheet4.Cells(i, 1).Value = ""[/COLOR]
[COLOR=#000000]Sheet4.Cells(i, 2).Value = ""[/COLOR]
[COLOR=#000000]Sheet4.Cells(i, 3).Value = ""[/COLOR]
[COLOR=#000000]Sheet4.Cells(i, 4).Value = ""[/COLOR]
[COLOR=#000000]Next i
[/COLOR]

thay bằng

Sheet4.Range(Cells(15,1),Cells(400,4)).value=""

thì có lẽ nó sẽ nhanh hơn là duyệt qua 385x4 ô nhỉ
----------------------
rồi mấy chữ trong ngoặc kép "xxx" thì em nghĩ nếu trong biên bản có chữ đó thì cho nó bằng với value tại cells đó thì có lẽ chính xác hơn, cho dù biên bản có sửa đổi thì cũng không sai

 

[giangleloi]

em nghĩ chỗ này

Sheet4.Range(Cells(15,1),Cells(400,4)).value=""

Hình như là thế này: Sheet4.[A15400].Value=""

Mà sao ngày Kết thúc thi công công việc số 7 là 16/06/2015 mà bên Nhật ký chỉ chạy ra đến ngày 10/06/2015 bạn nhỉ?

Nhìn hông có hiểu nên hông có biết sửa sao luôn anh. Nếu tiện thì anh chỉ rõ nhật ký nó chạy ra nằm dòng nào. (Dòng 55 phải hông nhỉ?)

 

[langtuchungtinh360]

Hình như là thế này: Sheet4.[A15400].Value=""

Nhìn hông có hiểu nên hông có biết sửa sao luôn anh. Nếu tiện thì anh chỉ rõ nhật ký nó chạy ra nằm dòng nào. (Dòng 55 phải hông nhỉ?)

thì tác giả muốn dùng cells thì em dùng cells thôi mà bác cũng bắt lỗi.
không lẽ em ghi vậy rồi mà em không biết nó là vùng A15400

 

[giangleloi]

thì tác giả muốn dùng cells thì em dùng cells thôi mà bác cũng bắt lỗi.
không lẽ em ghi vậy rồi mà em không biết nó là vùng A15400

Sheet4.[COLOR=#ff0000]Range[/COLOR](Cells(15,1),Cells(400,4)).value=""

Hehe. Thấy range rõ ràng cơ mà nên mới thò vô chứ.
P/s: Có câu nào nói là bạn hông biết đâu.

 

[langtuchungtinh360]

Hehe. Thấy range rõ ràng cơ mà nên mới thò vô chứ.
P/s: Có câu nào nói là bạn hông biết đâu.

thì em nghĩ là chắc nghĩ em không biết.
do em không biết căn bản nên có thể ghi sai
vậy Sheet4.Range(Cells(15,1),Cells(400,4)).value=""
phải ghi thế nào để bỏ chữ Range đi luôn bác. ngoài vụ [ ] này
vì em có đọc ở đây

[COLOR=#000000]Ngoài ra khi tham chiếu đến ô [/COLOR][B][COLOR=blue]A1[/COLOR], các bạn có thể dùng code
Cách 1:Code:
Range("A1")
hoặc 
Cách 2:Code:
[A1]
Trong hai cách ở trên, cách 2 ngắn gọn hơn nhưng sẽ chậm hơn cách 1.

nguồn [/B]http://www.giaiphapexcel.com/forum/showthread.php?21361-Tăng-tốc-cho-code-VBA-của-bạn
như thế ghi [] thì code sẽ chậm

 

[doveandrose]

thì tác giả muốn dùng cells thì em dùng cells thôi mà bác cũng bắt lỗi.
không lẽ em ghi vậy rồi mà em không biết nó là vùng A15400

tôi nói là bạn không biết nó là vùng A15400 đấy , có ý kiến mời vào đây giao lưu

 

[langtuchungtinh360]

tôi nói là bạn không biết nó là vùng A15400 đấy , có ý kiến mời vào đây giao lưu

Sub code()
Range(Cells(15, 1), Cells(400, 4)).Value = 8888
End Sub

nó ghi 8888 từ A15400 đấy thôi bác.
----------------------------------------
topic người ta vào chém gió hoài. chắc bị đình chỉ hoạt động quá

 

[doveandrose]

Sub code()
Range(Cells(15, 1), Cells(400, 4)).Value = 8888
End Sub

nó ghi 8888 từ A15400 đấy thôi bác.
----------------------------------------
topic người ta vào chém gió hoài. chắc bị đình chỉ hoạt động quá

cách viết này với cách viết trước của bạn đã thay đổi rồi
sao bạn không dám ghi là
Sheet4.Range(Cells(15, 1), Cells(400, 4)).Value = 8888
nữa ta ?

 

[langtuchungtinh360]

Hí hí, Kể từ hồi viết VBA tới giờ Ít bao giờ (có thể chưa bao giờ) mình viết kiểu vầy

 [COLOR=#000000][COLOR=#000000][I]Sheet4.[/I][/COLOR][/COLOR][COLOR=#ff0000][B][I]Range[/I][/B][COLOR=#000000][I][B](Cells(15,1),Cells(400,4)[/B][/I][/COLOR][/COLOR][COLOR=#000000][COLOR=#000000][I]).value="" [/I][/COLOR][/COLOR]

Cứ toàn là Range("Axx") hoặc [Axx]
Mình lạc hậu quá chăng....

chắc là có mình em viết vậy quá.
à. đúng là code trên sai thật, mới nhìn ra

 [COLOR=#000000][COLOR=#000000][I]Sheet4.[/I][/COLOR][/COLOR][COLOR=#ff0000][B][I]Range[/I][/B][COLOR=#000000][I][B]([/B][/I][/COLOR][/COLOR][I]Sheet4.[/I][COLOR=#ff0000][COLOR=#000000][I][B]Cells(15,1),[/B][/I][/COLOR][/COLOR][I]Sheet4.[/I][COLOR=#ff0000][COLOR=#000000][I][B]Cells(400,4)[/B][/I][/COLOR][/COLOR][COLOR=#000000][COLOR=#000000][I]).value="" [/I][/COLOR][/COLOR]

thì nó mới làm việc trên sheet4 được.
có thể có nhiều cách chọn vùng khác mà em chưa biết chăng
ghi [xxxxx] em đọc được thì nghe là code sẽ chạy chậm nên hạn chế dùng.
còn ghi Axy thì cũng được. nhưng em đang tập làm quen R1C1 nên chơi vậy.

 

[langtuchungtinh360]

cách viết này với cách viết trước của bạn đã thay đổi rồi
sao bạn không dám ghi là
Sheet4.Range(Cells(15, 1), Cells(400, 4)).Value = 8888
nữa ta ?

tại code trên là dùng cho sheet4 mà bác. câu trên em sửa lại rồi.
cứ thích bắt lỗi mấy con gà như em

 

[VetMini]

...
như thế ghi [] thì code sẽ chậm

[] là ký hiệu viết tắt của hàm Evaluate. Mõi lần gặp [] thì VBA phải gọi hàm Evaluate ra để tính cái bên trong nó và trả về range. Vì vậy nó hơi chậm hơn chiếu thẳng vào thuộc tính Range. Tuy nhiên, cái chậm đó rất nhỏ, chả đáng phải lo. Điểm quan trọng là [] chỉ hoạt động với hằng số (bên trong nó phải là hằng số). Cho nên sử dụng nó thì code được gọi là code cứng.

 

[vanle33]

Nhìn hông có hiểu nên hông có biết sửa sao luôn anh. Nếu tiện thì anh chỉ rõ nhật ký nó chạy ra nằm dòng nào. (Dòng 55 phải hông nhỉ?)

Tôi thấy nguyên tắc của viết Nhật ký từ sheet Danh muc là :
Sheet Danh muc có nội dung công việc nào thì sẽ đều được lọc (tất cả) sang sheet Nhat ky. Nếu nhiều việc trong 1 ngày thì bên sheet Nhat ky có nhiều việc trên ngày. Thời gian thi công từ bắt đầu đến kết thúc thì bên sheet Nhat ky công việc đó sẽ được copy cho nhiều ngày từ ngày bắt đầu đến ngày kết thúc.
Ngày nghiệm thu sẽ là sự kết hợp giữa cột H và cột I và cột K. Ví dụ : 17/05/2015 : 14h30 - 17h30 Nghiệm thu công việc "Xây móng đá hộc VXM M50#"
Ngày yêu cầu là cột J : 15/06/2015 : Yêu cầu nghiệm thu "Xây móng đá hộc VXM M50#"

p/s: Ngày 17/05 ở trên đang sai quy trình do đây chỉ là ví dụ ngày chính xác phải là 17/06

 

[VetMini]

Code trên quá sức rườm rà, mà chả có 1 lời chú cho nên không thể đọc nổi.

Chỉ có thể mách cho bạn 2 điểm trầm tọng của code:

1. vòng lặp ngoài duyệt theo trị double (ITg) nhưng bên trong vòng lặp có con số đếm dùng trị integer (g). Vì vậy chuyện overflow rất dễ xảy ra

2. vòng lặp trong dựa vào giá trị ở một ô để kết thúc. Mà giá trị ấy lại là text. Sẽ có nhiều trường hợp lỗi, điểm hình là lôi bạn đã gặp.
text chỉ cần hơi trệch 1 chút (có dư 1 dấu cách chẳng hạn) là vòng lặp chạy mút chỉ. May mắn là bên trong vòng lặp có con số đếm i là integer, nó bị bể ổ (overflow) sau khi bạn chạy trên 16000 dòng. Bình thường, người ta dùng một từ gì rất khó nhầm, chẳng hạn "STOP", hoặc "END", và nhớ là phải trim, và ucase nó trước khi so sánh.

 

[doatmenhhon]

Code trên quá sức rườm rà, mà chả có 1 lời chú cho nên không thể đọc nổi.

Chỉ có thể mách cho bạn 2 điểm trầm tọng của code:

1. vòng lặp ngoài duyệt theo trị double (ITg) nhưng bên trong vòng lặp có con số đếm dùng trị integer (g). Vì vậy chuyện overflow rất dễ xảy ra

2. vòng lặp trong dựa vào giá trị ở một ô để kết thúc. Mà giá trị ấy lại là text. Sẽ có nhiều trường hợp lỗi, điểm hình là lôi bạn đã gặp.
text chỉ cần hơi trệch 1 chút (có dư 1 dấu cách chẳng hạn) là vòng lặp chạy mút chỉ. May mắn là bên trong vòng lặp có con số đếm i là integer, nó bị bể ổ (overflow) sau khi bạn chạy trên 16000 dòng. Bình thường, người ta dùng một từ gì rất khó nhầm, chẳng hạn "STOP", hoặc "END", và nhớ là phải trim, và ucase nó trước khi so sánh.

Phải chăng nên thay integer thành long rồi On error resume next và On error go to 0 dò từng đoạn hả bạn VetMini