Xác định khoảng trống theo yêu cầu dưa vào code VBA. (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Quang86vn

Quang86vn

Thành viên mới
Tham gia
21/5/17
Bài viết
18
Được thích
0
Giới tính
Nam
Xin chào các thành viên GPE. em có bài toán xác định khoảng trống theo yêu cầu nhờ code VBA
Bài toán như sau;
Bước 1: Lọc khoảng max theo yêu cầu từ A đến B (A,B có thể là số hoặc chữ tuỳ ý, và điều kiện trước A là khoảng trống)
Bước 2: Bài toán 2 lọc khoảng max theo yêu cầu cột BE sau đó tìm max theo giá trị max đó.(max sau khoảng trống đó phải là max lớn nhất như trường hợp hàng 6 EF đã so sánh)
em có gửi file đính kèm nhờ các thành viên giúp đỡ.
Xin chân thành cảm ơn!
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Quang86vn đã viết:
Xin chào các thành viên GPE. em có bài toán xác định khoảng trống theo yêu cầu nhờ code VBA
Bài toán như sau;
Bước 1: Lọc khoảng max theo yêu cầu từ A đến B (A,B có thể là số hoặc chữ tuỳ ý, và điều trước A là khoảng trống)
Bước 2: Bài toán 2 lọc khoảng max theo yêu cầu cột BE sau đó tìm max theo giá trị max đó.(max sau giá trị đó phải là max lớn nhất như trường hợp hàng 6 EF)
em có gửi file đính kèm nhờ các thành viên giúp đỡ.
Xin chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
May ra có thể làm được nếu rõ yêu cầu...
Làm thế nào để có kết quả ở cột [BE] vậy chủ thớt? Tiếng Việt sao lủng củng quá trời...
 
Upvote 0
befaint đã viết:
Làm thế nào để có kết quả ở cột [BE] vậy chủ thớt? (Đếm thế nào để tất cả kết quả =5 hả chời???)
Nhấp chuột vào đây để mở rộng...
Kết quả này mình đặt.
Ví dụ lấy khoảng trống từ A tới B là 5 sau đó tìm lấy sau khoảng trống max 5 đó là bao nhiêu? có khó hiểu đôi chút bác.
có khi không thích mình lấy max khoảng trống đó bằng 10 và tìm sau max đó là bao nhiêu?
 
Upvote 0
Quang86vn đã viết:
Kết quả này mình đặt.
Ví dụ lấy khoảng trống từ A tới B là 5 sau đó tìm lấy sau khoảng trống max 5 đó là bao nhiêu? có khó hiểu đôi chút bác.
có khi không thích mình lấy max khoảng trống đó bằng 10 và tìm sau max đó là bao nhiêu?
Nhấp chuột vào đây để mở rộng...
"Max" dịch từ tiếng Anh sang tiếng Việt nghĩa là "LỚN NHẤT". Đã lớn nhất rồi lại còn cái khác lớn hơn nó nữa đúng là quá khó hiểu.
Nếu nôm na, mình đơn giản gọi nó điều kiện đầu vào (điều kiện số 1) là số khoảng trống cần so sánh cho trước là x=5 (hoặc x=10), cho dễ hiểu nhỉ?
Thêm nữa, NÊU và GỬI luôn cái file đang làm lên cho đỡ ngoằn ngoèo, quanh co...
 
Upvote 0
befaint đã viết:
"Max" dịch từ tiếng Anh sang tiếng Việt nghĩa là "LỚN NHẤT". Đã lớn nhất rồi lại còn cái khác lớn hơn nó nữa đúng là quá khó hiểu.
Nếu nôm na, mình đơn giản gọi nó điều kiện đầu vào (điều kiện số 1) là số khoảng trống cần so sánh cho trước là x=5 (hoặc x=10), cho dễ hiểu nhỉ?
Thêm nữa, NÊU và GỬI luôn cái file đang làm lên cho đỡ ngoằn ngoèo, quanh co...
Nhấp chuột vào đây để mở rộng...
Chuẩn bác. Khoảng trống giữa ô chứa giá trị A và B Lớn nhất là 5 và sau khoảng trống đó thì khoảng trống là bao nhiêu(khi mà cùng 1 hàng đó rất nhiều khoảng trống là 5 và sau khoảng trống đó có khoảng trống khác nhau.
em gửi file loạn đây bác coi giup
 

File đính kèm

Upvote 0
Quang86vn đã viết:
Chuẩn bác. Khoảng trống giữa ô chứa giá trị A và B Lớn nhất là 5 và sau khoảng trống đó thì khoảng trống là bao nhiêu(khi mà cùng 1 hàng đó rất nhiều khoảng trống là 5 và sau khoảng trống đó có khoảng trống khác nhau.
em gửi file loạn đây bác coi giup
Nhấp chuột vào đây để mở rộng...
Nêu đề bài:
- Nêu điều kiện ABC, XYZ gì đó và kết quả tương ứng theo file minh họa.
- Diễn giải theo các điều kiện đã nêu thì làm sao cho kết quả như vậy.

Đại khái thế. Không lẽ giờ đi thi, cứ phải vác đề thi lên kêu Giám thị: Đề bài không rõ...
 
Upvote 0
Quang86vn đã viết:
Xin chào các thành viên GPE. em có bài toán xác định khoảng trống theo yêu cầu nhờ code VBA
Bài toán như sau;
Bước 1: Lọc khoảng max theo yêu cầu từ A đến B (A,B có thể là số hoặc chữ tuỳ ý, và điều kiện trước A là khoảng trống)
Bước 2: Bài toán 2 lọc khoảng max theo yêu cầu cột BE sau đó tìm max theo giá trị max đó.(max sau khoảng trống đó phải là max lớn nhất như trường hợp hàng 6 EF đã so sánh)
em có gửi file đính kèm nhờ các thành viên giúp đỡ.
Xin chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
chạy code
Mã: 
Sub GPE()
Dim Rng As Range, Arr() As Variant
Dim i As Long, j As Long, iMax As Long, jk As Long, k As Long
Const ColBlank = 5
Set Rng = Range("B2:BD19")
ReDim Arr(1 To Rng.Rows.Count, 1 To 1)
For i = 1 To Rng.Rows.Count
  iMax = 0
  For j = 2 To Rng.Columns.Count - ColBlank - 2
    If Rng(i, j - 1) = "" And Rng(i, j) = "A" And Rng(i, j + ColBlank + 1) = "B" And Rng(i, j + ColBlank + 2) = "" Then
      If Application.CountBlank(Rng(i, j + 1).Resize(, ColBlank)) = ColBlank Then
        k = 0
        For jk = j + ColBlank + 2 To Rng.Columns.Count
          If Rng(i, jk) = "" Then
            k = k + 1
          Else
            If k > iMax Then iMax = k
            j = jk - 1
            Exit For
          End If
        Next jk
      End If
    End If
  Next j
  If iMax Then Arr(i, 1) = iMax
Next i
Range("BF2").Resize(Rng.Rows.Count) = Arr
End Sub
 
Upvote 0
HieuCD đã viết:
chạy code
Mã: 
Sub GPE()
Dim Rng As Range, Arr() As Variant
Dim i As Long, j As Long, iMax As Long, jk As Long, k As Long
Const ColBlank = 5
Set Rng = Range("B2:BD19")
ReDim Arr(1 To Rng.Rows.Count, 1 To 1)
For i = 1 To Rng.Rows.Count
  iMax = 0
  For j = 2 To Rng.Columns.Count - ColBlank - 2
    If Rng(i, j - 1) = "" And Rng(i, j) = "A" And Rng(i, j + ColBlank + 1) = "B" And Rng(i, j + ColBlank + 2) = "" Then
      If Application.CountBlank(Rng(i, j + 1).Resize(, ColBlank)) = ColBlank Then
        k = 0
        For jk = j + ColBlank + 2 To Rng.Columns.Count
          If Rng(i, jk) = "" Then
            k = k + 1
          Else
            If k > iMax Then iMax = k
            j = jk - 1
            Exit For
          End If
        Next jk
      End If
    End If
  Next j
  If iMax Then Arr(i, 1) = iMax
Next i
Range("BF2").Resize(Rng.Rows.Count) = Arr
End Sub
Nhấp chuột vào đây để mở rộng...
Chuẩn rồi bạn nhé. Cảm ơn bạn nhiều.
Vẫn là bài toán này chỉ thay đổi chút là giá trị đó là các ô liên tiếp đối xứng bạn xem qua có thể viết code ntn? và code chạy nhanh hơn đc không?
rất cảm ơn bạn.
 

File đính kèm

Upvote 0
Vâng bài toán này có cách nào không bác HieuCD? Các bác GPE xem giúp em.
 
Upvote 0
Quang86vn đã viết:
Vâng bài toán này có cách nào không bác HieuCD? Các bác GPE xem giúp em.
Nhấp chuột vào đây để mở rộng...
bài toán khá phức tạp
Mã: 
Sub GPE()
Dim Darr(), Arr() As Variant
Dim i As Long, j As Long, Max1 As Long, Max2 As Long
Dim Schr As Long, Sblk As Long, Tmp As Long
Const sCol = 3
Darr = Range("B2:BD19").Value
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0:  Schr = 0: Sblk = 0: Tmp = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) <> "" Then
Tiep:
      Schr = CountChar(Darr, i, j + 1, "A")
      If Schr = sCol Then
        Tmp = Sblk
        j = j + sCol
        Sblk = CountChar(Darr, i, j + 1, "")
        j = j + Sblk
        GoTo Tiep
      Else
        j = j + Schr
        If Tmp > Max1 Then Max1 = Tmp:  Max2 = Sblk
      End If
    End If
  Next j
  If Max1 > 0 Then Arr(i, 1) = Max1: Arr(i, 2) = Max2
Next i
Range("BE2").Resize(UBound(Darr), 2) = Arr
End Sub

Private Function CountChar(ByVal Darr As Variant, ByVal i As Long, ByVal Col As Long, ByVal dk) As Long
  Dim j As Integer
  For j = Col To UBound(Darr, 2)
    If Darr(i, j) = dk Then CountChar = CountChar + 1 Else Exit Function
  Next j
End Function
 
Upvote 0
HieuCD đã viết:
bài toán khá phức tạp
Mã: 
Sub GPE()
Dim Darr(), Arr() As Variant
Dim i As Long, j As Long, Max1 As Long, Max2 As Long
Dim Schr As Long, Sblk As Long, Tmp As Long
Const sCol = 3
Darr = Range("B2:BD19").Value
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0:  Schr = 0: Sblk = 0: Tmp = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) <> "" Then
Tiep:
      Schr = CountChar(Darr, i, j + 1, "A")
      If Schr = sCol Then
        Tmp = Sblk
        j = j + sCol
        Sblk = CountChar(Darr, i, j + 1, "")
        j = j + Sblk
        GoTo Tiep
      Else
        j = j + Schr
        If Tmp > Max1 Then Max1 = Tmp:  Max2 = Sblk
      End If
    End If
  Next j
  If Max1 > 0 Then Arr(i, 1) = Max1: Arr(i, 2) = Max2
Next i
Range("BE2").Resize(UBound(Darr), 2) = Arr
End Sub

Private Function CountChar(ByVal Darr As Variant, ByVal i As Long, ByVal Col As Long, ByVal dk) As Long
  Dim j As Integer
  For j = Col To UBound(Darr, 2)
    If Darr(i, j) = dk Then CountChar = CountChar + 1 Else Exit Function
  Next j
End Function
Nhấp chuột vào đây để mở rộng...
Vẫn không chạy được bộ lọc bác ah. em gửi file cụ thể bác coi cho tốc độ xử lý. Và em góp ý bác có thể chỉnh sửa bộ lọc theo hàm thì mình thay đổi số cho bộ lọc dễ dàng hơn.
Cảm ơn bác HieuCD, và GPE.
 

File đính kèm

Upvote 0
Quang86vn đã viết:
Vẫn không chạy được bộ lọc bác ah. em gửi file cụ thể bác coi cho tốc độ xử lý. Và em góp ý bác có thể chỉnh sửa bộ lọc theo hàm thì mình thay đổi số cho bộ lọc dễ dàng hơn.
Cảm ơn bác HieuCD, và GPE.
Nhấp chuột vào đây để mở rộng...
bạn muốn thay đổi số nào?
dữ liệu khủng quá bộ nhớ chịu không nổi, điều chỉnh lại khai báo biến
Mã: 
Dim Darr(), i As Long, j As Long
Sub GPE()
Dim Arr() As Variant
Dim Max1 As Long, Max2 As Long
Dim Schr As Long, Sblk As Long, Tmp As Long
Const sCol = 3
Darr = Range("B3:FPB34").Value
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0:  Schr = 0: Sblk = 0: Tmp = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) <> "" Then
Tiep:
      Schr = CountChar("A")
      If Schr = sCol Then
        Tmp = Sblk
        j = j + sCol
        Sblk = CountChar("")
        j = j + Sblk
        GoTo Tiep
      Else
        j = j + Schr
        If Tmp > Max1 Then Max1 = Tmp:  Max2 = Sblk
      End If
    End If
  Next j
  If Max1 > 0 Then Arr(i, 1) = Max1: Arr(i, 2) = Max2
Next i
Range("FPC3").Resize(UBound(Darr), 2) = Arr
End Sub

Private Function CountChar(ByVal dk) As Long
  Dim Col As Long
  For Col = j + 1 To UBound(Darr, 2)
    If Darr(i, Col) = dk Then CountChar = CountChar + 1 Else Exit Function
  Next Col
End Function
 
Upvote 0
HieuCD đã viết:
bạn muốn thay đổi số nào?
dữ liệu khủng quá bộ nhớ chịu không nổi, điều chỉnh lại khai báo biến
Mã: 
Dim Darr(), i As Long, j As Long
Sub GPE()
Dim Arr() As Variant
Dim Max1 As Long, Max2 As Long
Dim Schr As Long, Sblk As Long, Tmp As Long
Const sCol = 3
Darr = Range("B3:FPB34").Value
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0:  Schr = 0: Sblk = 0: Tmp = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) <> "" Then
Tiep:
      Schr = CountChar("A")
      If Schr = sCol Then
        Tmp = Sblk
        j = j + sCol
        Sblk = CountChar("")
        j = j + Sblk
        GoTo Tiep
      Else
        j = j + Schr
        If Tmp > Max1 Then Max1 = Tmp:  Max2 = Sblk
      End If
    End If
  Next j
  If Max1 > 0 Then Arr(i, 1) = Max1: Arr(i, 2) = Max2
Next i
Range("FPC3").Resize(UBound(Darr), 2) = Arr
End Sub

Private Function CountChar(ByVal dk) As Long
  Dim Col As Long
  For Col = j + 1 To UBound(Darr, 2)
    If Darr(i, Col) = dk Then CountChar = CountChar + 1 Else Exit Function
  Next Col
End Function
Nhấp chuột vào đây để mở rộng...
Vâng em muốn thay đổi số bộ lọc mà k đc. để e chạy lại ở máy tính coi sao bác à.
 
Upvote 0
bộ lọc bất cập ở chỗ. cứ ấn code chạy thì bộ lọc chạy lại. Giờ bác xem ntn có được không. tìm đc max và sau max rồi giữ nguyên. chỉ chạy riêng bộ lọc cần tìm thôi. k chạy cả 2 bài toán max và sau max nữa.
 
Upvote 0
Quang86vn đã viết:
bộ lọc bất cập ở chỗ. cứ ấn code chạy thì bộ lọc chạy lại. Giờ bác xem ntn có được không. tìm đc max và sau max rồi giữ nguyên. chỉ chạy riêng bộ lọc cần tìm thôi. k chạy cả 2 bài toán max và sau max nữa.
Nhấp chuột vào đây để mở rộng...
bạn giải thích các bước xử lý cụ thể
b1:....chạy bộ lọc
b2: nói rỏ làm gì kết quả là gì
b3:....
 
Upvote 0
HieuCD đã viết:
bạn giải thích các bước xử lý cụ thể
b1:....chạy bộ lọc
b2: nói rỏ làm gì kết quả là gì
b3:....
Nhấp chuột vào đây để mở rộng...
Bài toán trên giải quyết 3 ô chứa A liên tiếp tới A bất kỳ chứ không đối xứng như tiêu đề bài đặt ra bác.
Bước 1: tìm max của 3 Ô chứa A liên tiếp đối xứng nhau( AAA với AAA hoặc 4A với 4A, 5.. A có thể là số) và lọc lấy max nhất của 3(hoặc 4,5) ô này với nhau sau đó tìm sau max đó(sau max tới A bất kỳ không phải 3,4,5 liên tiếp)
Bước 2: lọc lấy tất cả 3A đối xứng với nhau có giá trị max là 3(khoảng trống là 3) đưa ra giá trị sau max tại max bằng 3.
Tại bước 2 đó bác nên cho em code rời vì có thế lựa chọn khoảng trống đó là 4,5,6,7,8... tùy ý.
Xin lỗi bác HieuCD giờ e có máy mới viết đc. Em gửi lại file bác coi lại cái yêu cầu bài. Chưa rõ bác cho em biết.
Cảm ơn bác.
 

File đính kèm

Upvote 0
Quang86vn đã viết:
Bài toán trên giải quyết 3 ô chứa A liên tiếp tới A bất kỳ chứ không đối xứng như tiêu đề bài đặt ra bác.
Bước 1: tìm max của 3 Ô chứa A liên tiếp đối xứng nhau( AAA với AAA hoặc 4A với 4A, 5.. A có thể là số) và lọc lấy max nhất của 3(hoặc 4,5) ô này với nhau sau đó tìm sau max đó(sau max tới A bất kỳ không phải 3,4,5 liên tiếp)
Bước 2: lọc lấy tất cả 3A đối xứng với nhau có giá trị max là 3(khoảng trống là 3) đưa ra giá trị sau max tại max bằng 3.
Tại bước 2 đó bác nên cho em code rời vì có thế lựa chọn khoảng trống đó là 4,5,6,7,8... tùy ý.
Xin lỗi bác HieuCD giờ e có máy mới viết đc. Em gửi lại file bác coi lại cái yêu cầu bài. Chưa rõ bác cho em biết.
Cảm ơn bác.
Nhấp chuột vào đây để mở rộng...
chạy thử sub Main
Mã: 
Dim Darr(), i As Long, j As Long
Sub Main()
  Dim Arr1 As Variant, Arr2 As Variant
  Dim dk, sCol As Byte, Loc As Byte
  dk = "A"  'ký tu xet dieu kien
  sCol = 3  ' so ky tu xet dieu kien
  Darr = Range("B2:BD19").Value
  Arr1 = MaxCount(dk, sCol)
  Range("BE2").Resize(UBound(Arr1), 2) = Arr1
  Loc = 3 'bo loc max: so o lien tiep trong
  Arr2 = MaxFilter(dk, sCol, Loc)
  Range("BG2").Resize(UBound(Arr2), 2) = Arr2
End Sub
Private Function MaxCount(ByVal dk, ByVal sCol As Byte) As Variant
Dim Arr() As Variant, k As Long, Max1 As Long, Max2 As Long
Dim Schr As Long, Sblk As Long, Tmp As Long
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0: Max2 = 0: Schr = 0: Sblk = 0: Tmp = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) = dk Then
Tiep:
      Schr = CountChar(dk)
      If Schr = sCol Then
        k = k + 1
        If Tmp < Sblk And k > 1 Then Tmp = Sblk
        j = j + sCol
        Sblk = CountChar("")
        j = j + Sblk
        GoTo Tiep
      Else
        If Tmp > Max1 And k > 1 Then Max1 = Tmp: Max2 = Sblk
        j = j + Schr
        k = 0
      End If
    End If
  Next j
  If Max1 > 0 Then Arr(i, 1) = Max1: Arr(i, 2) = Max2
Next i
MaxCount = Arr
End Function

Private Function MaxFilter(ByVal dk, ByVal sCol As Byte, ByVal Loc As Byte) As Variant
Dim Arr() As Variant, k As Long, Max1 As Long
Dim Schr As Long, Sblk As Long
ReDim Arr(1 To UBound(Darr), 1 To 2)
For i = 1 To UBound(Darr)
  Max1 = 0:  Schr = 0: Sblk = 0
  For j = 1 To UBound(Darr, 2) - sCol
    If Darr(i, j) = "" And Darr(i, j + 1) = dk Then
Tiep:
      Schr = CountChar(dk)
      If Schr = sCol Then
        j = j + sCol
        Sblk = CountChar("")
        If k > 0 And Sblk > Max1 Then Max1 = Sblk
        If Sblk = Loc Then k = k + 1 Else k = 0
        j = j + Sblk
        GoTo Tiep
      Else
        j = j + Schr
        k = 0
      End If
    End If
  Next j
  Arr(i, 1) = Loc
  If Max1 > 0 Then Arr(i, 2) = Max1
Next i
MaxFilter = Arr
End Function

Private Function CountChar(ByVal dk) As Long
  Dim Col As Long
  For Col = j + 1 To UBound(Darr, 2)
    If Darr(i, Col) = dk Then CountChar = CountChar + 1 Else Exit Function
  Next Col
End Function
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Quách Ngọc
Trả về kết quả ngày tháng hay khoảng trống (2 người xem)
Trả lời
1
Đọc
5
HUONGHCKT
H
dongbhhg
Tìm lương cơ sở theo từng tháng (1 người xem)
Trả lời
1
Đọc
27
bebo021999
B
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA (2 người xem)
Trả lời
6
Đọc
7K
ngocbinh.no.kia
N
Vũ Thị Thuý Ly
Em xin nhờ các anh chị trên diễn đàn giúp đỡ viết hàm hoặc VBA tính tổng các giá trị theo điều kiện (2 người xem)
Trả lời
3
Đọc
22
bebo021999
B
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm
Trả lời
16
Đọc
247
DinhManh1307
DinhManh1307
tonny jj
Lập hàm thể hiện số công lệnh của ngày đi công tác
Trả lời
6
Đọc
182
thuytrangbp28
T
V
Làm mẫu giấy đi đường (công lệnh) bằng Excel (2 người xem)
Trả lời
10
Đọc
11K
SA_DQ
SA_DQ
H
Quản Lý Công Văn đi Và đến
9 10 11
Trả lời
215
Đọc
159K
hamhochoi66
H
B
Xin hướng dẫn cách để hàm Xlookup tự hiển thị theo số dòng có chứa điều kiện tìm kiếm ko dùng VBA
Trả lời
9
Đọc
124
thuytrangbp28
T
V
Help: Hàm đếm lọc giá trị trùng (1 người xem)
    • Cười
Trả lời
17
Đọc
130
SA_DQ
SA_DQ
K
Hỏi lỗi không kéo được công thức (Ctrl+D)
Trả lời
6
Đọc
82
HeSanbi
HeSanbi
R
Chuyển count thành sum khi pivot
Trả lời
4
Đọc
8K
ptm0412
ptm0412
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết
    • Cười
Trả lời
2
Đọc
87
TramAnhNguyen692
T
S
NHỜ ANH EM GIÚP MÌNH TÌM KIẾM DỮ LIỆU (1 người xem)
Trả lời
12
Đọc
148
sangdennh
S
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng,
Trả lời
9
Đọc
78
hanhnguyen12022021
H
C
Filter có điều kiện đang ở dạng Cột
Trả lời
2
Đọc
74
thuytrangbp28
T
L
Có ai biết fix lỗi này không ạ
    • Buồn
Trả lời
2
Đọc
60
lekimhuy0812
L
GPE-Trợ Lý
[GPE] TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
    • Thích
Trả lời
1
Đọc
3K
PhanTuHuong
PhanTuHuong
K
Lỗi cấu trúc hình ảnh khi mở file bằng điện thoại
Trả lời
0
Đọc
39
Kecodonlalala
K
N
  • Question Question
Nhờ mọi người góp ý cho file Quản lý bán hàng viết bằng VBA đầu tay của mình (1 người xem)
    • Cảm ơn
    • Thích
Trả lời
7
Đọc
172
newbiexo
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom