Chuyên mục xử lý, gỡ rối code VBA (3 người xem)

ndu96081631 · 24/9/13

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

befaint · 22/9/17

Gợi ý cho bài #970:

sondaubac · 22/9/17

huuthang_bd đã viết:
.[C65536].End(xlUp) tương đương với ô mà khi chọn ô C65536 rồi nhấn Ctrl và phím mũi tên lên.

Select là phương thức (chọn), không trả về giá trị nên bị lỗi khi gán cho biến sArr.

vậy là khi thực hiện dòng lệnh này sẽ trả về giá trị, cụ thể là giá trị bao nhiêu vậy anh?

Mã:

sArr = .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).Value

.[C6] thì chọn dòng đầu tiên của cột C ---------> đúng không?
.[C65536].End(xlUp) thì chọn dòng cuối cùng chứa dữ liệu của cột C ------->đúng không?

huuthang_bd · 22/9/17

sondaubac đã viết:
vậy là khi thực hiện dòng lệnh này sẽ trả về giá trị, cụ thể là giá trị bao nhiêu vậy anh?

Mã:

sArr = .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).Value

.[C6] thì chọn dòng đầu tiên của cột C ---------> đúng không?
.[C65536].End(xlUp) thì chọn dòng cuối cùng chứa dữ liệu của cột C ------->đúng không?

Bạn đang tra khảo tôi đấy à?

sondaubac · 22/9/17

huuthang_bd đã viết:
Bạn đang tra khảo tôi đấy à?

Em thực sự không biết mà anh. Ví dụ như File này thì

Mã:

sArr = .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).Value

sẽ trả về giá trị bao nhiêu, anh chỉ em với

PacificPR · 22/9/17

sondaubac đã viết:
Em thực sự không biết mà anh. Ví dụ như File này thì

Mã:

sArr = .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).Value

sẽ trả về giá trị bao nhiêu, anh chỉ em với

Bác cứ học từ từ thôi. Không nóng vội được đâu. Bây giờ Bác sang Topic Các câu hỏi về mảng đọc rồi Bác sẽ hiểu
Nếu mới đầu thì qua Topic này học căn bản trước đã

sondaubac · 22/9/17

PacificPR đã viết:
Bác cứ học từ từ thôi. Không nóng vội được đâu. Bây giờ Bác sang Topic Các câu hỏi về mảng đọc rồi Bác sẽ hiểu
Nếu mới đầu thì qua Topic này học căn bản trước đã

Mình đọc rồi mà chưa hiểu, Pacific nói dùm chỗ này đi.

PacificPR · 22/9/17

sondaubac đã viết:
Mình đọc rồi mà chưa hiểu, Pacific nói dùm chỗ này đi.

Ngay bài 8 Topic các câu hỏi về mảng Thầy NDu đã nói như thế này rồi

Mã:

Ban chỉ cần nhớ điều này:
- Range và mảng không giống nhau
- 1 Range sau khi biến đổi thành mảng thì đó luôn là mảng 2 chiều
- Muốn biến thành mảng 1 chiều phải thêm các công đoạn khác, chẳng hạn dùng For... Next hoặc hàm TRANSPOSE

Do vậy sArr = .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).Value Thì sArr là mảng
Còn .Range(.[C6], .[C65536].End(xlUp)).Resize(, 4).select là range nếu muốn nó hoạt động được phải làm như bài 972 mà anh befaint đã hướng dẫn

Mã:

Sub test()
    Dim sArr
Set sArr = Range([C6], [C65536].End(xlUp)).Resize(, 4)
sArr.Select
End Sub

sangista · 22/9/17

sangista đã viết:
Chào mấy anh/chị

Cho em hỏi, em muốn lọc autofilter ngày tháng như bên dưới, nhưng khi viết thì lúc lọc nó không ra đúng. Anh, Chị nào biết giúp em đoạn code bên dưới với.
Em cảm ơn.

Sub Locngayxuat()
Dim dDate As Date
Dim lDate As Long
If IsDate(Range("$C$8:$Q$1001")) Then
dDate = Range("$C$8:$Q$1001")
lDate = DateSerial(Year(dDate), Month(dDate), Day(dDate))
End If
Range("I6").Select
NgayBD = ActiveCell.Value
Range("K6").Select
NgayKT = ActiveCell.Value
ActiveSheet.Range("$C$8:$Q$1001").AutoFilter Field:=2, Criteria1:=">=NgayBD" & lDate, Operator:=xlAnd, Criteria2:="<=NgayKT" & lDate
End Sub

Help giúp em với ạ.

sangista · 22/9/17

sangista đã viết:
Chào mấy anh/chị

Cho em hỏi mình có code nào để rút ngắn lệnh trên excel không ạ.
Ví dụ như hình bên dưới, em muốn nhấn 1 lệnh là nó ra beetween luôn khỏi phải đi từng bước.
View attachment 183514

Help giúp em với ạ

HieuCD · 22/9/17

sangista đã viết:
Chào mấy anh/chị

Cho em hỏi, em muốn lọc autofilter ngày tháng như bên dưới, nhưng khi viết thì lúc lọc nó không ra đúng. Anh, Chị nào biết giúp em đoạn code bên dưới với.
Em cảm ơn.

Sub Locngayxuat()
Dim dDate As Date
Dim lDate As Long
If IsDate(Range("$C$8:$Q$1001")) Then
dDate = Range("$C$8:$Q$1001")
lDate = DateSerial(Year(dDate), Month(dDate), Day(dDate))
End If
Range("I6").Select
NgayBD = ActiveCell.Value
Range("K6").Select
NgayKT = ActiveCell.Value
ActiveSheet.Range("$C$8:$Q$1001").AutoFilter Field:=2, Criteria1:=">=NgayBD" & lDate, Operator:=xlAnd, Criteria2:="<=NgayKT" & lDate
End Sub

dùng thử code

Mã:

Sub Locngayxuat()
    ActiveSheet.Range("$C$8:$Q$1001").AutoFilter Field:=2, Criteria1:=">=" & Range("I6").Value, Operator:=xlAnd, Criteria2:="<=" & Range("K6").Value
End Sub

sangista · 24/9/17

HieuCD đã viết:
dùng thử code

Mã:

Sub Locngayxuat() ActiveSheet.Range("$C$8:$Q$1001").AutoFilter Field:=2, Criteria1:=">=" & Range("I6").Value, Operator:=xlAnd, Criteria2:="<=" & Range("K6").Value End Sub

Cảm ơn anh nhé.

vova2209 · 26/9/17

Thưa thầy cho em hỏi về vòng for:
e có 5 sheet tên lần lượt là CD-L1 -:- CD-L5, giờ em lần lượt đánh công thức cộng từ ô O8 sheet2 + 1 với ô O8 của sheet CD-L1; sheet tiếp theo công 1 từ sheet CD-L1 >>> i = 5. code của em sai ko chạy được mong thầy giải thích hướng dẫn em
--------------------------------------

Sub DanhsoSheets()
Dim i As Long
For i = 1 To 5
Sheets("CD-L & i").Select
Range("O8") = "='CD-L1'!O8+i"
Next i
End Sub

ChanhTQ@ · 26/9/17

Bạn viết hết fép cộng (có cả địa chỉ) ra xem sao?
Ví dụ:
Sheet2.[O8].Value + 1 + Sheets("CD-L1").[O8].Value + . . . .

PacificPR · 26/9/17

vova2209 đã viết:
Thưa thầy cho em hỏi về vòng for:
e có 5 sheet tên lần lượt là CD-L1 -:- CD-L5, giờ em lần lượt đánh công thức cộng từ ô O8 sheet2 + 1 với ô O8 của sheet CD-L1; sheet tiếp theo công 1 từ sheet CD-L1 >>> i = 5. code của em sai ko chạy được mong thầy giải thích hướng dẫn em
--------------------------------------

Bạn thử với cái này xem sao:

PHP:

Sub DanhsoSheets()
    Dim i As Long, ShName As String
On Error Resume Next
For i = 1 To 5
    ShName = "CD-L" & i
    With Sheets(ShName)
        .Select
        .Range("O8") = Sheets("CD-L1").Range("O8") + 1
    End With
Next i
End Sub

Với đoạn Code trên thì mỗi lần chạy thì nó lại lấy ô O8 của Sheets("CD-L1") công thêm 1 đơn vị. Khi mình bấm 2 lần thì O8 của Sheets("CD-L1") bằng 2 và các Sheet tiếp theo làn lượt là 3,4 ... do vậy dẫn đến tên O8 và tên Sheet khác nhau do Code chạy từ 2 lần trở lên
Nếu tên Ô và tên Sheet giống nhau " Sheets("CD-L1"); O8 =1 .: ............" công thêm 1 ) thì bạn thử cái này thử

HTML:

Sub DanhsoSheets1()
    Dim i As Long, ShName As String, Str As String
    On Error Resume Next
    Str = "CD-L"
    For Each Sh In Worksheets
        If Sh.Name Like Str & "*" Then
            With Sh
                .Select
                .Range("O8") = Replace(Sh.Name, Str, "", 1)
            End With
        End If
    Next Sh
End Sub

trinhvinhtai · 26/9/17

Public Sub GPE()
Dim Arr(), i As Integer, vArr()
Arr = Range("b2:m" & Range("m65000").End(xlUp).Row).Value
ReDim vArr(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
vArr(i, 1) = Application.Evaluate(Arr(i, 1) & "/" & Arr(i, 12) & "*" & Arr(i, 2)) 'chia 8: 8 day so co dinh trong code luôn'
Next i
Range("d2").Resize(UBound(Arr)) = vArr

End Sub

chao e muốn thêm code này vArr(i, 1) = Application.Evaluate(Arr(i, 1) & "/" & Arr(i, 12) & "*" & Arr(i, 2))/8 số 8 tô màu đó là cố định trong code luôn.

câu @: e mun xai code hàm if cho e xin code hàm if với.

mong mọi người giúp đỡ.

vova2209 · 26/9/17

PacificPR đã viết:
Bạn thử với cái này xem sao:

PHP:

Sub DanhsoSheets() Dim i As Long, ShName As String On Error Resume Next For i = 1 To 5 ShName = "CD-L" & i With Sheets(ShName) .Select .Range("O8") = Sheets("CD-L1").Range("O8") + 1 End With Next i End Sub

Với đoạn Code trên thì mỗi lần chạy thì nó lại lấy ô O8 của Sheets("CD-L1") công thêm 1 đơn vị. Khi mình bấm 2 lần thì O8 của Sheets("CD-L1") bằng 2 và các Sheet tiếp theo làn lượt là 3,4 ... do vậy dẫn đến tên O8 và tên Sheet khác nhau do Code chạy từ 2 lần trở lên
Nếu tên Ô và tên Sheet giống nhau " Sheets("CD-L1"); O8 =1 .: ............" công thêm 1 ) thì bạn thử cái này thử

HTML:

Sub DanhsoSheets1() Dim i As Long, ShName As String, Str As String On Error Resume Next Str = "CD-L" For Each Sh In Worksheets If Sh.Name Like Str & "*" Then With Sh .Select .Range("O8") = Replace(Sh.Name, Str, "", 1) End With End If Next Sh End Sub

Với Sub này e sửa thành từ sheets thứ 2 trở đi bắt đầu cộng số. Nếu cho For chạy từ i đến max nghĩa có có thể 10 sheets hoặc nhiều hơn thì sửa như nào ạ. DanhsoSheets1 nhiều biến hay hàm em chưa hiểu lắm vì em đang tập tọe từng bước.

Sub DanhsoSheets()
Dim i As Long
Dim ShName As String
For i = 1 To 5
ShName = "CD-L" & i + 1
With Sheets(ShName)
.Select
.Range("O8") = Sheets("CD-L1").Range("O8") + i
End With
Next i
End Sub

PacificPR · 26/9/17

vova2209 đã viết:
Với Sub này e sửa thành từ sheets thứ 2 trở đi bắt đầu cộng số. Nếu cho For chạy từ i đến max nghĩa có có thể 10 sheets hoặc nhiều hơn thì sửa như nào ạ. DanhsoSheets1 nhiều biến hay hàm em chưa hiểu lắm vì em đang tập tọe từng bước.

Đại loại nó như vầy:
Khai báo 1 cái Nmax as long
- Nmax = ...

For I = 2 to Nmax
...........
ShName = "CD-L" & i
...........
.Range("O8") = Sheets("CD-L1").Range("O8") +i-1
...........
Next I

vova2209 · 26/9/17

PacificPR đã viết:
Đại loại nó như vầy:
Khai báo 1 cái Nmax as long
- Nmax = ...

For I = 2 to Nmax
...........
ShName = "CD-L" & i
...........
.Range("O8") = Sheets("CD-L1").Range("O8") +i-1
...........
Next I

Nmax gán phần tử con như nào anh nhỉ, em ko gán vào Nmax nó chạy end sub luôn!

PacificPR · 26/9/17

vova2209 đã viết:
Nmax gán phần tử con như nào anh nhỉ, em ko gán vào Nmax nó chạy end sub luôn!

Nmax là số lớp đất lớn nhất của bạn.
Ví dụ Sheets(" PhanlopK95") là Sheet chứa dữ liệu phân lớp và Cột A ( Từ A3 đến A1000 chẳng hạn ) chứa số lớp thì

Nmax=Application.Max(Sheets("PhanlopK95").range("A3:A1000"))

Hoặc

With Sheets("PhanlopK95")

Nmax=Application.Max(.range("A3:A")&.range("A65535").End(3).Row)

End With

vova2209 · 26/9/17

PacificPR đã viết:
Nmax là số lớp đất lớn nhất của bạn.
Ví dụ Sheets(" PhanlopK95") là Sheet chứa dữ liệu phân lớp và Cột A ( Từ A3 đến A1000 chẳng hạn ) chứa số lớp thì

Nmax=Application.Max(Sheets("PhanlopK95").range("A3:A1000"))
Hoặc

With Sheets("PhanlopK95")

Nmax=Application.Max(.range("A3:A")&.range("A65535").End(3).Row)
End With

Với vùng range trong bảng tính thì cấu trúc em hiểu rồi Nhưng đối với số sheets thì e nghĩ mãi chưa ra. a đưa ví dụ luôn với code trên DanhSoSheet () dùm em ạ
Em vừa chỉnh code chạy được rồi nhưng em nhìn nó chưa được như ý, em cảm thấy hơi cổ:

Sub DanhsoSheets3()
Dim i As Long, Nmax As Long
Dim ShName As String

On Error GoTo Thoat
For i = 2 To 1986
ShName = "CD-L" & i
With Sheets(ShName)
.Select
.Range("O8") = Sheets("CD-L1").Range("O8") + i - 1
End With
Next i
Thoat: MsgBox ("Thành Công")
End Sub

Chuyên mục xử lý, gỡ rối code VBA (3 người xem)

Người dùng đang xem chủ đề này

Huyền thoại GPE

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

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

Chuyên gia GPE

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

File đính kèm

Thành viên mới

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

Thành viên mới

Thành viên mới

Thành viên mới

Chuyên gia GPE

Thành viên mới

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

0901452không62

Thành viên mới

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

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

Thành viên mới

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

Thành viên mới

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

Đếm ngược thời gian