Không thoát được Sub khi thỏa mãn điều kiện (1 người xem)

[khuongvietphong]

Chào mọi người . Tình hình là em đang làm bài tập đánh số thứ tự từ trong ra ngoài ( theo hình xoắn ốc như trong File em có đánh thủ công và tô màu làm mấu cho dễ hiểu ý) với điều kiện là đánh đến số mình nhập vào ban đầu từ hộp thoại InputBox thì thôi. Tuy nhiên không biết vì sao mà nó lại đánh số tùm lum chẳng theo ý em gì cả. Em đã đọc đi đọc lại rồi mà vẫn chưa phát hiện được lỗi sai. Nhờ mọi người giúp em với. Thực sự thì đến bây giờ cái đầu em chắc nó sắp nổ banh ra mất với bài tập này mất thôi .

PS: Mọi người chọn lấy 1 cell trống rồi bấm thử nút Button chạy thử rồi sẽ thấy...

 

[langtuchungtinh360]

Chào mọi người . Tình hình là em đang làm bài tập đánh số thứ tự từ trong ra ngoài ( theo hình xoắn ốc như trong File em có đánh thủ công và tô màu làm mấu cho dễ hiểu ý) với điều kiện là đánh đến số mình nhập vào ban đầu từ hộp thoại InputBox thì thôi. Tuy nhiên không biết vì sao mà nó lại đánh số tùm lum chẳng theo ý em gì cả. Em đã đọc đi đọc lại rồi mà vẫn chưa phát hiện được lỗi sai. Nhờ mọi người giúp em với. Thực sự thì đến bây giờ cái đầu em chắc nó sắp nổ banh ra mất với bài tập này mất thôi .

PS: Mọi người chọn lấy 1 cell trống rồi bấm thử nút Button chạy thử rồi sẽ thấy...

giá trị bạn nhập vô là text rồi
thêm +0 vào (tui không biết chuyển về value nên làm vậy thôi nha)

m = InputBox("nhap gia tri cua m") + 0

thử xem
------------------
làm được cái này cũng ghê đấy chứ (ghê hơm mình)
------------------
màu mè thì thế này

Sub xoan_oc_2()
o = 6000
m = InputBox("nhap gia tri cua m") + 0
ActiveCell.Value = 1
ActiveCell.Interior.Color = o
m = m + 0
n = 2
ir = 1
ic = 1


nhan1:


For i = 1 To ic
  ActiveCell.Offset(0, -i * (-1) ^ ic) = n
    ActiveCell.Offset(0, -i * (-1) ^ ic).Interior.Color = o + 1500
  If n = m Then
    Exit Sub
  Else
    n = n + 1
  End If
Next i
ActiveCell.Offset(0, -ic * (-1) ^ ic).Select
o = o + 2500
For j = 1 To ir
  ActiveCell.Offset(j * (-1) ^ ir, 0) = n
  ActiveCell.Offset(j * (-1) ^ ir, 0).Interior.Color = o + 500
  If n = m Then
    Exit Sub
  Else
    n = n + 1
  End If
Next j
ActiveCell.Offset(ir * (-1) ^ ir, 0).Select
ActiveCell.Interior.Color = o + 500
o = o + 1000
ic = ic + 1
ir = ir + 1


GoTo nhan1


End Sub

 

[khuongvietphong]

giá trị bạn nhập vô là text rồi
thêm +0 vào (tui không biết chuyển về value nên làm vậy thôi nha)

m = InputBox("nhap gia tri cua m") + 0

thử xem
------------------
làm được cái này cũng ghê đấy chứ (ghê hơm mình)

Oh, hay quá. Quả đúng như bạn nói, Sao mà bạn biết hay vậy.... Mình đọc muốn nát cả óc mà cũng chẳng phát hiện ra

 

[khuongvietphong]

giá trị bạn nhập vô là text rồi
thêm +0 vào (tui không biết chuyển về value nên làm vậy thôi nha)

m = InputBox("nhap gia tri cua m") + 0

thử xem
------------------
làm được cái này cũng ghê đấy chứ (ghê hơm mình)

Chỉ tại mình không khai báo đầy đủ, nếu ngay từ đầu thêm câu lệnh dim m as integer thì cũng đâu đến lỗi này.... Mất bao nhiêu hời gian của mình ra...hic hic.

 

[giangleloi]

Đó là tác hại của việc không khai báo biến. Phong mới học nên chú ý điều này.

 

[khuongvietphong]

Đó là tác hại của việc không khai báo biến. Phong mới học nên chú ý điều này.

Trước em có được chú Ndu mách nước tick vào hộp thoại gì gì đó để khi không khai báo đầy đủ thì code sẽ báo lỗi nhưng lúc sau em thấy không cần thiết vì em có làm 1 số ví dụ thấy không khai báo mà code vẫn chạy khỏe thế nên có ý nghĩ hơi chủ quan ( về sau em lại bỏ cái tick mà chú Ndu nói ở trên đi rồi, lâu rồi em cũng chẳng nhớ tên nó là mục gì nữa) . Quả thật là đến giờ hối hận nhiều

 

[khuongvietphong]

Ơ mà làm cái trên chi vậy. Chạy chơi cho vui mắc hay để làm gì z???

Dạo này đang rảnh rỗi không có việc gì làm anh ơi. Anh có tài liệu gì hay hay không Share cho em để em học với

 

[befaint]

..lâu rồi em cũng chẳng nhớ tên nó là mục gì nữa) . Quả thật là đến giờ hối hận nhiều

Hình như là thêm dòng này ở trên cùng:
Option Explicit

 

[langtuchungtinh360]

Trước em có được chú Ndu mách nước tick vào hộp thoại gì gì đó để khi không khai báo đầy đủ thì code sẽ báo lỗi nhưng lúc sau em thấy không cần thiết vì em có làm 1 số ví dụ thấy không khai báo mà code vẫn chạy khỏe thế nên có ý nghĩ hơi chủ quan ( về sau em lại bỏ cái tick mà chú Ndu nói ở trên đi rồi, lâu rồi em cũng chẳng nhớ tên nó là mục gì nữa) . Quả thật là đến giờ hối hận nhiều

tool/Options/ Reqiure variable Declaration

 

[doveandrose]

Dạo này đang rảnh rỗi không có việc gì làm anh ơi. Anh có tài liệu gì hay hay không Share cho em để em học với

các bài toán Về Ba xuất hiện chi chít trên diễn đàn hàng ngày sao Phong đệ không làm , đi tập làm ba cái này chi vẩy ?
muốn giỏi VBA là phải theo dõi các chủ đề mới gửi hàng ngày , tự làm rồi sẽ giỏi lên ngay
noi gương huynh nè , huynh luyện riết giờ thành trùm Về Ba xàm ba láp của diễn đàn rồi đó

 

[khuongvietphong]

các bài toán Về Ba xuất hiện chi chít trên diễn đàn hàng ngày sao Phong đệ không làm , đi tập làm ba cái này chi vẩy ?
muốn giỏi VBA là phải theo dõi các chủ đề mới gửi hàng ngày , tự làm rồi sẽ giỏi lên ngay
noi gương huynh nè , huynh luyện riết giờ thành trùm Về Ba xàm ba láp của diễn đàn rồi đó

Hì hì. Để được như trình độ của huynh như hiện tại chắc đệ còn phải cố gắng dài dài. Huynh vui tính vậy hay là thử tranh cử vào thành viên ban quản trị GPE đi, bữa nao GPE có sự kiện gì hoặc tổ chức sinh nhật, tiệc tùng gì đệ nhất định sẽ vote cho huynh làm MC.

 

[doveandrose]

Hì hì. Để được như trình độ của huynh như hiện tại chắc đệ còn phải cố gắng dài dài. Huynh vui tính vậy hay là thử tranh cử vào thành viên ban quản trị GPE đi, bữa nao GPE có sự kiện gì hoặc tổ chức sinh nhật, tiệc tùng gì đệ nhất định sẽ vote cho huynh làm MC.

huynh có số bài viết bị xóa vì nói xàm không liên quan đến topic cũng nhiều gần bằng số bài viết chưa bị xóa
đệ nói xem huynh làm BQT thì tương lai GPE đi về đâu ? ...........

 

[khuongvietphong]

huynh có số bài viết bị xóa vì nói xàm không liên quan đến topic cũng nhiều gần bằng số bài viết chưa bị xóa
đệ nói xem huynh làm BQT thì tương lai GPE đi về đâu ? ...........

Anh lại khiêm tốn rồi. Gửi anh cái này ( chắc anh cũng biết rồi ) : http://www.giaiphapexcel.com/forum/showthread.php?108295-Xả-Xì-Chét.
Anh có nỗi buồn hay niêm vui gì xin cứ vào đây giãi bày cùng anh em GPE, hoặc là thích chém gió chém bão về : công việc, gia đình, vợ con, bạn trai, bạn gái ...vv trên trời dưới bể gì gì cũng được hết hết sảy lun.....

 

[tamthat]

m = Application.InputBox("nhap gia tri cua m", "Gia tri", , , , , , 1)

Thay dòng của bạn thành dòng này thì chắc cũng không đến nỗi nào. Số 1 cuối cùng nghĩa là m là giá trị số. Còn 8 là giá trị mảng...