Chuyên đề giải đáp những thắc mắc về code VBA

maytinhvp01 · 31/7/13

Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]

mhieuit · 20/7/17

ndu96081631 đã viết:
Thì bạn cứ làm như tôi nói trước đi rồi hẳn thắc mắc sau nhé!

Em đã chỉnh sửa Sheets(j) thành sheets(8) và code chạy thành công, em cám ơn Thầy nhiều

mhieuit · 20/7/17

Chào anh chị GPE,
Em có đoạn code muốn copy giá trị sheets như bên dưới, khi chạy báo lỗi dòng

PHP:

Sheets(j).Range("C1:S500").Select

anh chị kiểm tra giúp em nhé. em cám ơn ạ

PHP:

Sub copygiatri()
Dim j As Integer
Application.DisplayAlerts = False
    For j = 8 To Sheets.Count
        Sheets(j).Range("C1:S500").Select
        Selection.copy
    Selection.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
    Next j
Application.DisplayAlerts = True
End Sub

VetMini · 20/7/17

Báo lỗi ra sao?
(tôi có thể đoán lỗi; nhưng bạn là người tập viết code thì cũng nên tập chú ý đến cách VBA báo lỗi)

Gợi ý: có một số trường hợp, thâu macro xong rồi chỉ việc bỏ vào vòng lặp là xong. Nhưng cũng có một số trường hợp code đó chỉ hoạt động được 1 lần (điển hình là chỉ trên 1 sheet). Muốn làm nhiều lần thì phải thâu macro trong lúc làm 2 hay 3 sheets.

mhieuit · 20/7/17

VetMini đã viết:
Báo lỗi ra sao?
(tôi có thể đoán lỗi; nhưng bạn là người tập viết code thì cũng nên tập chú ý đến cách VBA báo lỗi)

Gợi ý: có một số trường hợp, thâu macro xong rồi chỉ việc bỏ vào vòng lặp là xong. Nhưng cũng có một số trường hợp code đó chỉ hoạt động được 1 lần (điển hình là chỉ trên 1 sheet). Muốn làm nhiều lần thì phải thâu macro trong lúc làm 2 hay 3 sheets.

Em gửi hình lỗi

record macro nhiều sheets em sẽ chú ý.

VetMini · 20/7/17

mhieuit đã viết:
record macro nhiều sheets em sẽ chú ý.

Chú ý rồi mà đã thấy chỗ khác nhau giữa một và nhiều sheets chưa?

mhieuit · 20/7/17

VetMini đã viết:
Chú ý rồi mà đã thấy chỗ khác nhau giữa một và nhiều sheets chưa?

Em đang record macro.....

mhieuit · 20/7/17

VetMini đã viết:
Chú ý rồi mà đã thấy chỗ khác nhau giữa một và nhiều sheets chưa?

Chỗ khác nhau giữa 1 sheets và nhiều sheets là tên sheets, còn vùng thì giống nhau.

VetMini · 20/7/17

Bạn nhận xét sai rồi. Tuy nhiên, tập nhận xét nhiều sẽ quen.
Với 1 sheet, phương thức Select mặc định là sheet đang active (activated)
Với nhiều sheets, trước khi select, bạn phải activate sheet
Code của bạn chỉ cần thêm
Sheets(j).Activate
Trước dòng
Sheets(j).Range("C1:S500").Select

mhieuit · 20/7/17

VetMini đã viết:
Bạn nhận xét sai rồi. Tuy nhiên, tập nhận xét nhiều sẽ quen.
Với 1 sheet, phương thức Select mặc định là sheet đang active (activated)
Với nhiều sheets, trước khi select, bạn phải activate sheet
Code của bạn chỉ cần thêm
Sheets(j).Activate
Trước dòng
Sheets(j).Range("C1:S500").Select

Em làm được rồi, em sẽ chú ý hơn những lần sau. Cám ơn anh nhiều

ndu96081631 · 20/7/17

mhieuit đã viết:
Chào anh chị GPE,
Em có đoạn code muốn copy giá trị sheets như bên dưới, khi chạy báo lỗi dòng

PHP:

Sheets(j).Range("C1:S500").Select

anh chị kiểm tra giúp em nhé. em cám ơn ạ

PHP:

Sub copygiatri() Dim j As Integer Application.DisplayAlerts = False For j = 8 To Sheets.Count Sheets(j).Range("C1:S500").Select Selection.copy Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Next j Application.DisplayAlerts = True End Sub

Về phần tại sao báo lỗi thì các bài trên đã nói rồi. Tôi chỉ gợi ý bạn cách khác để rút gọn
1>

Mã:

Sub copygiatri()
  Dim j As Integer
  For j = 8 To Sheets.Count
       With Sheets(j).Range("C1:S500")
          .copy
          .PasteSpecial Paste:=xlPasteValues
       End With
    Next j
End Sub

Hoặc
2>

Mã:

Sub copygiatri()
  Dim j As Integer
  For j = 8 To Sheets.Count
       With Sheets(j).Range("C1:S500")
          .Value = .Value
       End With
    Next j
End Sub

alvinhiep · 22/7/17

cho mình ké top chút nha, mình tạo macro trong excel mấy hôm trước tạo bình thường, nhưng bây giờ thị bị lỗi rồi, mình chỉ tạo được macro cho từng file excel thôi, không tao được macro dùng cho nhiều file excel. mọi người giúp mình nha, mình xài bản tiếng trung nên không biết nó thông báo gi, minh chọn 2 dòng dưới thì tạo được macro, còn chọn dòng trên cùng thì không tạo được.

giaiphap · 22/7/17

Thay gì up cái hình sao bạn không up cái file chứa macro cho mọi người xem thử.

befaint · 22/7/17

alvinhiep đã viết:
cho mình ké top chút nha, mình tạo macro trong excel mấy hôm trước tạo bình thường, nhưng bây giờ thị bị lỗi rồi, mình chỉ tạo được macro cho từng file excel thôi, không tao được macro dùng cho nhiều file excel. mọi người giúp mình nha, mình xài bản tiếng trung nên không biết nó thông báo gi, minh chọn 2 dòng dưới thì tạo được macro, còn chọn dòng trên cùng thì không tạo được.

Đang hỏi bên đây cơ mà?
http://www.giaiphapexcel.com/dienda...g-mọi-người-giúp-mình-với.128044/#post-802102

vova2209 · 23/7/17

Cho em hỏi sao tên Macro của em bị dài thế nhỉ? có cách nào sửa không? lắm lúc nhìn hoa hết cả mắt! em xin cảm ơn

befaint · 23/7/17

vova2209 đã viết:
Cho em hỏi sao tên Macro của em bị dài thế nhỉ? có cách nào sửa không? lắm lúc nhìn hoa hết cả mắt! em xin cảm ơn

Có thể do copy cái "nút" (đối tượng shape) nào đó được gắn macro từ file khác tới thôi.

alvinhiep · 24/7/17

giaiphap đã viết:
Thay gì up cái hình sao bạn không up cái file chứa macro cho mọi người xem thử.

Toàn bộ macro của mình bị xóa hết rồi bạn ơi,

vova2209 · 24/7/17

befaint đã viết:
Có thể do copy cái "nút" (đối tượng shape) nào đó được gắn macro từ file khác tới thôi.

em gỡ hẳn đi xong add lại macro nó vẫn bị dài thế! giống như kiểu bật file khác có marco file, nhưng em mở 1 file thôi ạ!

Mutants Men · 30/7/17

vova2209 đã viết:
em gỡ hẳn đi xong add lại macro nó vẫn bị dài thế! giống như kiểu bật file khác có marco file, nhưng em mở 1 file thôi ạ!

cứ nhấn vào chạy thử đi bạn, vẫn chạy được là được rồi, không ảnh hưởng gì đến hòa bình thế giới đâu

Mutants Men · 30/7/17

sẵn mọi người cho mình hỏi vấn đề này
mình nhớ hình như có 1 cách sắp xếp theo thứ tự tăng dần hoặc giảm dần dùng lệnh XXX.sort (mảng 1 chiều) mà quên mất chỗ XXX đó là cái gì, mong mọi người chỉ lại
mình nhớ mang máng nó là crep... hay con... gì gì đấy mà tìm google hoài chả ra

VetMini · 1/8/17

Mutants Men đã viết:
sẵn mọi người cho mình hỏi vấn đề này
mình nhớ hình như có 1 cách sắp xếp theo thứ tự tăng dần hoặc giảm dần dùng lệnh XXX.sort (mảng 1 chiều) mà quên mất chỗ XXX đó là cái gì, mong mọi người chỉ lại
mình nhớ mang máng nó là crep... hay con... gì gì đấy mà tìm google hoài chả ra

Cái XXX dó là một object của một class bên trong có ít nhất là một cái mảng và một phương thức tên là sort

Chuyên đề giải đáp những thắc mắc về code VBA

Thành viên thường trực

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

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

Ăn cùng góc phố

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

File đính kèm

Ăn cùng góc phố

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

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

Ăn cùng góc phố

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

Huyền thoại GPE

Thành viên mới

File đính kèm

==(^o^)==

|||||||||||||

Thành viên tích cực

File đính kèm

|||||||||||||

Thành viên mới

Thành viên tích cực

Thành viên thường trực

Thành viên thường trực

Ăn cùng góc phố

Facebook

Group