Giúp mình sửa lỗi code này với (1 người xem)

[akayzai1]

Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.Tìm giá trị nhỏ nhất và địa chỉ ô chứa giá trị đó, Thông báo bằng hàm msgbox

 

[Ba Tê]

Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.Tìm giá trị nhỏ nhất và địa chỉ ô chứa giá trị đó, Thông báo bằng hàm msgbox

Bạn gán t=10^10 sau khi khai báo biến t xem sao.

 

[akayzai1]

Bạn gán t=10^10 sau khi khai báo biến t xem sao.

bác bate nói rõ giúp hộ mình ko sao lại gán như vậy

 

[Ba Tê]

bác bate nói rõ giúp hộ mình ko sao lại gán như vậy

Bạn phải cho biết là bạn đã làm và Run Sub được chưa đã.
Bạn nhờ giúp, tôi chỉ cho bạn sửa, Bạn không trả lời là được hay không được, lại hỏi tiếp chuyện khác.
Lỡ xài không được thì giải thích có ích gì?

 

[akayzai1]

Bạn phải cho biết là bạn đã làm và Run Sub được chưa đã.
Bạn nhờ giúp, tôi chỉ cho bạn sửa, Bạn không trả lời là được hay không được, lại hỏi tiếp chuyện khác.
Lỡ xài không được thì giải thích có ích gì?

Mình chạy đc rồi , nhưng mình thử thay các trại trị 10^10=10^20,30... thì vẫn đc .Bạn cho hỏi mình có thể thay = các giá trị # đc ko

 

[akayzai1]

Tạo sheet mới có tên ứng với giá trị của ô trong vùng A1... F1 của sheet 1.
Bác giúp e code này nữa nhé

 

[Ba Tê]

Mình chạy đc rồi , nhưng mình thử thay các trại trị 10^10=10^20,30... thì vẫn đc .Bạn cho hỏi mình có thể thay = các giá trị # đc ko

Bắt đầu sau khai báo, t=0. Nếu bạn không gán cho nó giá trị ban đầu thì nó chỉ đúng với các giá trị trong vùng tìm Min là số âm thôi.
Cón 10^10 thì có thể thay bằng bất kỳ số nào mà bạn cảm thấy nó lớn hơn tất cả các số có thể có trong vùng tìm của bạn là được.
Lý do thì bạn tự suy nghĩ đi.

 

[akayzai1]

Cảm ơn bác bate nhiều lắm lắm.Bác soi cho e code trên xem sai ở đâu e sửa mãi sai

 

[Ba Tê]

Tạo sheet mới có tên ứng với giá trị của ô trong vùng A1... F1 của sheet 1.
Bác giúp e code này nữa nhé

Nói vùng A1..F1 trong khi trong Sub là A1:A3. Bạn chẳng thèm xem lại những gì mình viết, mình hỏi.

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("Sheet1").Range("A1:A3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) ' T?o Sheet m?i
Sheets(Sheets.Count).Name = MyCell.Value ' T?o tên
Next MyCell
End Sub

Set MyRange sao lại đến 2 lần?
Đã Set thì nên Set MyRange=Nothing ở cuối Sub.
Hiện tại lỗi xảy ra tại dòng này:

Sheets(Sheets.Count).Name = MyCell.Value

Ví dụ hiện có 5 sheet đã tồn tại thì câu lệnh đó có nghĩa là
Sheets(5).Name = MyCell.Value
Bạn tự nghĩ cách sửa lại xem
Ngoài ra có thể có "một đống" lỗi sẽ xảy ra nữakhi anh Bill "hổng chịu".

 

[akayzai1]

Nói vùng A1..F1 trong khi trong Sub là A1:A3. Bạn chẳng thèm xem lại những gì mình viết, mình hỏi.

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("Sheet1").Range("A1:A3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) ' T?o Sheet m?i
Sheets(Sheets.Count).Name = MyCell.Value ' T?o tên
Next MyCell
End Sub

Set MyRange sao lại đến 2 lần?
Đã Set thì nên Set MyRange=Nothing ở cuối Sub.
Hiện tại lỗi xảy ra tại dòng này:

Sheets(Sheets.Count).Name = MyCell.Value

Ví dụ hiện có 5 sheet đã tồn tại thì câu lệnh đó có nghĩa là
Sheets(5).Name = MyCell.Value
Bạn tự nghĩ cách sửa lại xem
Ngoài ra có thể có "một đống" lỗi sẽ xảy ra nữakhi anh Bill "hổng chịu".

Bác ơi e có phải chuyên CNTT đâu, e học bên kinh tế mà thầy giao mấy bài VBA excel e mới học lên còn nhiều sai sót mong bác bỏ quá cho e giải thích, sửa lỗi giùm e

 

[Ba Tê]

Bác ơi e có phải chuyên CNTT đâu, e học bên kinh tế mà thầy giao mấy bài VBA excel e mới học lên còn nhiều sai sót mong bác bỏ quá cho e giải thích, sửa lỗi giùm e

Híc! Đã là học thì cố gắng tư duy khi có hướng dẫn hoặc được chỉ ra chỗ sai để sửa, chứ nhờ làm dùm, sửa dùm chưa chắc đã hiểu mà làm bài thi
Tui cũng có phải chuyên CNTT đâu mà bạn so sánh.
Tui chỉ là "GV TDTT già, chạy nhảy hết nỗi nên ngồi lỳ một chỗ" thôi.