Liệt kê hoán vị chập 2 VBA (7 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)
QuáchThiênLong

QuáchThiênLong

Thành viên mới
Tham gia
31/10/18
Bài viết
8
Được thích
0
Em có 4 chữ cái: A, B, C, D (Bảng 1). Em muốn excel hiện bảng liệt kê kết hợp lần lượt 2 chữ cái và không trùng nhau (Bảng 2). Cao nhân giúp em với1.PNG
Bài đã được tự động gộp:

Tác giả Nguyễn Ngọc Thu Hiền có đoạn mã sau rất hay nhưng cái này là tổ hợp, em không biết chỉnh thế nào. Các bạn giúp em với

Option Explicit

'****************************************
'Tac gia: Nguyen Ngoc Thu Hien
'Fb: https://www.facebook.com/profile.php?id=100011406609466
'YouTube: https://www.youtube.com/channel/UC-k00RkGYpeHnFRcafeD2YQ
'Chuc nang: Liet ke to hop chap k cua n phan tu
'Ngay Tao: 30/11/2017
'Version:1.1
'Thanh phan di kem:
'+
'+
'+
'****************************************





Sub ToHop(k As Long, sArr As Variant, ByVal rDes As Range)
'sArr: mang hai chieu chua cac phan tu can to hop
'rDes: vi tri cua o bat dau chua ket qua

Dim vaData, vaDataCurrentRow
Dim lIndex As Long, vTemp As Variant
Dim lNumItem As Long, lNumRe As Long, lNumCol As Long, lRowStartSheet As Long, lrowMaxSheet As Long

Dim lngaMin() As Long, lngaMax() As Long, lngaCurrent() As Long, vaKQ() As Variant


Dim lngRowInPage As Long
Dim lngRowPageCurrent As Long
Dim lngRowMinPage As Long
Dim lngRowMaxPage As Long

Dim lngComVisitMax As Long

ReDim vaData(1 To (UBound(sArr) - LBound(sArr) + 1) * (UBound(sArr, 2) + 1 - LBound(sArr)))

lngRowInPage = 60000
lIndex = 1
For Each vTemp In sArr
vaData(lIndex) = vTemp
lIndex = lIndex + 1
Next

lNumItem = UBound(vaData)
lNumCol = k
lNumRe = Application.WorksheetFunction.Combin(lNumItem, lNumCol)
ReDim lngaMin(1 To lNumCol) As Long
ReDim lngaMax(1 To lNumCol) As Long
ReDim lngaCurrent(1 To lNumCol) As Long
ReDim vaKQ(1 To lngRowInPage, 1 To lNumCol)
ReDim vaDataCurrentRow(1 To lNumCol) As Variant

For lIndex = 1 To lNumCol
lngaMin(lIndex) = lIndex
lngaCurrent(lIndex) = lIndex
lngaMax(lIndex) = (lNumItem - lNumCol) + lIndex ' + 1
vaDataCurrentRow(lIndex) = vaData(lIndex)
Next

rDes = rDes.Cells(1, 1)
lRowStartSheet = rDes.Row
lrowMaxSheet = rDes.Worksheet.Rows.Count
lngaCurrent(lNumCol) = lngaCurrent(lNumCol) - 1 'dich xuong mot phan tu


Do While (1)
lngRowMinPage = lngRowMaxPage + 1
lngRowMaxPage = lngRowMinPage + lngRowInPage - 1
If lngRowMaxPage > lNumRe Then
lngRowMaxPage = lNumRe
End If

For lngRowPageCurrent = 1 To lngRowMaxPage - lngRowMinPage + 1
For lIndex = lNumCol To 1 Step -1
If lngaCurrent(lIndex) = lngaMax(lIndex) Then
lngComVisitMax = lIndex
Else
lngaCurrent(lIndex) = lngaCurrent(lIndex) + 1
vaDataCurrentRow(lIndex) = vaData(lngaCurrent(lIndex))
Exit For
End If
Next
If lngComVisitMax <> 0 Then
For lIndex = lngComVisitMax To lNumCol
lngaCurrent(lIndex) = lngaCurrent(lIndex - 1) + 1
vaDataCurrentRow(lIndex) = vaData(lngaCurrent(lIndex))
Next
lngComVisitMax = 0
End If
For lIndex = 1 To lNumCol
vaKQ(lngRowPageCurrent, lIndex) = vaDataCurrentRow(lIndex)
Next
Next
lIndex = lngRowMaxPage - lngRowMinPage + 1 'so du lieu ti nh duoc
If lrowMaxSheet - rDes.Row + 1 < lIndex Then
Set rDes = rDes.Worksheet.Cells(lRowStartSheet, rDes.Column + lNumCol + 2)

End If
rDes.Resize(lIndex, lNumCol).Value = vaKQ
Set rDes = rDes.Offset(lIndex)

If lngRowMaxPage >= lNumRe Then Exit Do
Loop

Erase vaData
Erase vaDataCurrentRow
Erase vaKQ
Erase lngaMax
Erase lngaMin
Erase lngaCurrent



End Sub

Sub EnumCombination()


Dim rN As Range
Dim vN As Variant
Dim lngK As Long
Dim lngNumN As Long
Dim rDes As Range
On Error Resume Next

Set rN = Application.InputBox("Chon vung chua cac phan tu:", "Select n", Type:=8)
If Err.Number <> 0 Then Exit Sub
vN = rN.Value
If IsArray(vN) = False Then
ReDim vN(1 To 1, 1 To 1) As Variant
vN(1, 1) = rN.Value
End If
lngNumN = rN.Rows.Count * rN.Columns.Count
On Error GoTo 0

lngK = Application.InputBox("Liet ke to hop chap k cua " & Str(lngNumN) & vbCrLf & "k=?", "k", lngNumN, Type:=1)
If lngK = 0 Then
Exit Sub 'nhap ko, hoac canncel
End If

On Error Resume Next
Set rDes = Application.InputBox("Chon vung chua ket qua?", "Vung chua ket qua", Type:=8)
If Err.Number <> 0 Then Exit Sub

On Error GoTo LoiThucThi
DoEvents

Application.EnableEvents = False
Application.ScreenUpdating = False
Call ToHop(lngK, vN, rDes)

Thoat:
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub

LoiThucThi:
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox Err.Description
Resume Thoat

End Sub
 
Lần chỉnh sửa cuối:
QuáchThiênLong đã viết:
Em có 4 chữ cái: A, B, C, D (Bảng 1). Em muốn excel hiện bảng liệt kê kết hợp lần lượt 2 chữ cái và không trùng nhau (Bảng 2). Cao nhân giúp em vớiView attachment 206782
Bài đã được tự động gộp:

Tác giả Nguyễn Ngọc Thu Hiền có đoạn mã sau rất hay nhưng cái này là tổ hợp, em không biết chỉnh thế nào. Các bạn giúp em với

Option Explicit

'****************************************
'Tac gia: Nguyen Ngoc Thu Hien
'Fb: https://www.facebook.com/profile.php?id=100011406609466
'YouTube: https://www.youtube.com/channel/UC-k00RkGYpeHnFRcafeD2YQ
'Chuc nang: Liet ke to hop chap k cua n phan tu
'Ngay Tao: 30/11/2017
'Version:1.1
'Thanh phan di kem:
'+
'+
'+
'****************************************





Sub ToHop(k As Long, sArr As Variant, ByVal rDes As Range)
'sArr: mang hai chieu chua cac phan tu can to hop
'rDes: vi tri cua o bat dau chua ket qua

Dim vaData, vaDataCurrentRow
Dim lIndex As Long, vTemp As Variant
Dim lNumItem As Long, lNumRe As Long, lNumCol As Long, lRowStartSheet As Long, lrowMaxSheet As Long

Dim lngaMin() As Long, lngaMax() As Long, lngaCurrent() As Long, vaKQ() As Variant


Dim lngRowInPage As Long
Dim lngRowPageCurrent As Long
Dim lngRowMinPage As Long
Dim lngRowMaxPage As Long

Dim lngComVisitMax As Long

ReDim vaData(1 To (UBound(sArr) - LBound(sArr) + 1) * (UBound(sArr, 2) + 1 - LBound(sArr)))

lngRowInPage = 60000
lIndex = 1
For Each vTemp In sArr
vaData(lIndex) = vTemp
lIndex = lIndex + 1
Next

lNumItem = UBound(vaData)
lNumCol = k
lNumRe = Application.WorksheetFunction.Combin(lNumItem, lNumCol)
ReDim lngaMin(1 To lNumCol) As Long
ReDim lngaMax(1 To lNumCol) As Long
ReDim lngaCurrent(1 To lNumCol) As Long
ReDim vaKQ(1 To lngRowInPage, 1 To lNumCol)
ReDim vaDataCurrentRow(1 To lNumCol) As Variant

For lIndex = 1 To lNumCol
lngaMin(lIndex) = lIndex
lngaCurrent(lIndex) = lIndex
lngaMax(lIndex) = (lNumItem - lNumCol) + lIndex ' + 1
vaDataCurrentRow(lIndex) = vaData(lIndex)
Next

rDes = rDes.Cells(1, 1)
lRowStartSheet = rDes.Row
lrowMaxSheet = rDes.Worksheet.Rows.Count
lngaCurrent(lNumCol) = lngaCurrent(lNumCol) - 1 'dich xuong mot phan tu


Do While (1)
lngRowMinPage = lngRowMaxPage + 1
lngRowMaxPage = lngRowMinPage + lngRowInPage - 1
If lngRowMaxPage > lNumRe Then
lngRowMaxPage = lNumRe
End If

For lngRowPageCurrent = 1 To lngRowMaxPage - lngRowMinPage + 1
For lIndex = lNumCol To 1 Step -1
If lngaCurrent(lIndex) = lngaMax(lIndex) Then
lngComVisitMax = lIndex
Else
lngaCurrent(lIndex) = lngaCurrent(lIndex) + 1
vaDataCurrentRow(lIndex) = vaData(lngaCurrent(lIndex))
Exit For
End If
Next
If lngComVisitMax <> 0 Then
For lIndex = lngComVisitMax To lNumCol
lngaCurrent(lIndex) = lngaCurrent(lIndex - 1) + 1
vaDataCurrentRow(lIndex) = vaData(lngaCurrent(lIndex))
Next
lngComVisitMax = 0
End If
For lIndex = 1 To lNumCol
vaKQ(lngRowPageCurrent, lIndex) = vaDataCurrentRow(lIndex)
Next
Next
lIndex = lngRowMaxPage - lngRowMinPage + 1 'so du lieu ti nh duoc
If lrowMaxSheet - rDes.Row + 1 < lIndex Then
Set rDes = rDes.Worksheet.Cells(lRowStartSheet, rDes.Column + lNumCol + 2)

End If
rDes.Resize(lIndex, lNumCol).Value = vaKQ
Set rDes = rDes.Offset(lIndex)

If lngRowMaxPage >= lNumRe Then Exit Do
Loop

Erase vaData
Erase vaDataCurrentRow
Erase vaKQ
Erase lngaMax
Erase lngaMin
Erase lngaCurrent



End Sub

Sub EnumCombination()


Dim rN As Range
Dim vN As Variant
Dim lngK As Long
Dim lngNumN As Long
Dim rDes As Range
On Error Resume Next

Set rN = Application.InputBox("Chon vung chua cac phan tu:", "Select n", Type:=8)
If Err.Number <> 0 Then Exit Sub
vN = rN.Value
If IsArray(vN) = False Then
ReDim vN(1 To 1, 1 To 1) As Variant
vN(1, 1) = rN.Value
End If
lngNumN = rN.Rows.Count * rN.Columns.Count
On Error GoTo 0

lngK = Application.InputBox("Liet ke to hop chap k cua " & Str(lngNumN) & vbCrLf & "k=?", "k", lngNumN, Type:=1)
If lngK = 0 Then
Exit Sub 'nhap ko, hoac canncel
End If

On Error Resume Next
Set rDes = Application.InputBox("Chon vung chua ket qua?", "Vung chua ket qua", Type:=8)
If Err.Number <> 0 Then Exit Sub

On Error GoTo LoiThucThi
DoEvents

Application.EnableEvents = False
Application.ScreenUpdating = False
Call ToHop(lngK, vN, rDes)

Thoat:
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub

LoiThucThi:
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox Err.Description
Resume Thoat

End Sub
Nhấp chuột vào đây để mở rộng...
bạn gửi file lên nhé không cần gửi code mà ko có cao nhân đâu chỉ có người biết trước và người biết sau thôi nhé.ban gửi file lên đi
 
Bài vi phạm nội quy!! Phai phiếc gì.
 
.............................................................
 
File này em tải về của tác giả Nguyễn Ngọc Thu Hiền. Trong file này cái đang có là Bảng 1, cái em muốn hiện ra là như Bảng 2. Theo đoạn mã của tác giả thì không ra được như cái em cần cho công việc. Bạn nào biết sửa giúp em với. Em mới tham gia nên có post bài nhầm chỗ mong addmin thông cảm. Em cám ơn ạ
Bài đã được tự động gộp:

snow25 đã viết:
bạn gửi file lên nhé không cần gửi code mà ko có cao nhân đâu chỉ có người biết trước và người biết sau thôi nhé.ban gửi file lên đi
Nhấp chuột vào đây để mở rộng...

Cái đang có là bảng 1, cái em cần hiện ra là như bảng 2 ạ. Cám ơn đã quan tâm
 

File đính kèm

QuáchThiênLong đã viết:
File này em tải về của tác giả Nguyễn Ngọc Thu Hiền. Trong file này cái đang có là Bảng 1, cái em muốn hiện ra là như Bảng 2. Theo đoạn mã của tác giả thì không ra được như cái em cần cho công việc. Bạn nào biết sửa giúp em với. Em mới tham gia nên có post bài nhầm chỗ mong addmin thông cảm. Em cám ơn ạ
Bài đã được tự động gộp:



Cái đang có là bảng 1, cái em cần hiện ra là như bảng 2 ạ. Cám ơn đã quan tâm
Nhấp chuột vào đây để mở rộng...
Chắc lỗi tiêu đề chung chung. Với bài 1, bạn sửa tiêu đề thành "liệt kê hoán vị chập 2 của 4" chắc là được thôi
 
QuáchThiênLong đã viết:
File này em tải về của tác giả Nguyễn Ngọc Thu Hiền. Trong file này cái đang có là Bảng 1, cái em muốn hiện ra là như Bảng 2. Theo đoạn mã của tác giả thì không ra được như cái em cần cho công việc. Bạn nào biết sửa giúp em với. Em mới tham gia nên có post bài nhầm chỗ mong addmin thông cảm. Em cám ơn ạ
Bài đã được tự động gộp:



Cái đang có là bảng 1, cái em cần hiện ra là như bảng 2 ạ. Cám ơn đã quan tâm
Nhấp chuột vào đây để mở rộng...
bạn sửa tiêu đề bỏ chữ cao nhân đi.
 
Giả dụ tôi là "cao nhân".
Tôi thỉnh cây giáo về giúp thớt làm sào phơi quần áo à?
(chắc cây giáo này dài lắm cho nên ngừoi cao mới với tới)
 
VetMini đã viết:
Giả dụ tôi là "cao nhân".
Tôi thỉnh cây giáo về giúp thớt làm sào phơi quần áo à?
(chắc cây giáo này dài lắm cho nên ngừoi cao mới với tới)
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã quan tâm và chia sẻ
Bài đã được tự động gộp:

snow25 đã viết:
bạn gửi file lên nhé không cần gửi code mà ko có cao nhân đâu chỉ có người biết trước và người biết sau thôi nhé.ban gửi file lên đi
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã quan tâm. Mình gửi file rồi đó bạn
 
@QuáchThiênLong
Chạy thử code này xem sao
Mã: 
Sub Permut_List()
Dim SArr As Variant
Dim Res As Variant
Dim i As Long, j As Long, k
SArr = Sheet1.Range("b4:b9")
i = UBound(SArr)
k = WorksheetFunction.Permut(i, 2)
ReDim Res(1 To k, 1 To 2)
k = 0
For i = 1 To UBound(SArr)
    For j = 1 To UBound(SArr)
        If j <> i Then
            k = k + 1
            Res(k, 1) = SArr(i, 1)
            Res(k, 2) = SArr(j, 1)
        End If
    Next j
Next i
Sheet1.Range("i4").Resize(UBound(Res), UBound(Res, 2)) = Res
End Sub
 
CHAOQUAY đã viết:
@QuáchThiênLong
Chạy thử code này xem sao
Mã: 
Sub Permut_List()
Dim SArr As Variant
Dim Res As Variant
Dim i As Long, j As Long, k
SArr = Sheet1.Range("b4:b9")
i = UBound(SArr)
k = WorksheetFunction.Permut(i, 2)
ReDim Res(1 To k, 1 To 2)
k = 0
For i = 1 To UBound(SArr)
    For j = 1 To UBound(SArr)
        If j <> i Then
            k = k + 1
            Res(k, 1) = SArr(i, 1)
            Res(k, 2) = SArr(j, 1)
        End If
    Next j
Next i
Sheet1.Range("i4").Resize(UBound(Res), UBound(Res, 2)) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã giúp. Nhưng ý mình là muốn sử dụng code chung cho tất cả các trường hợp. Ví dụ mình quét vùng cần hiện bảng liệt kê giống như của tác giả Nguyễn Ngọc Thu Hiền. Khi click vào chữ RUN trong file sẽ hiện lên cửa sổ yêu cầu chọn vùng chứa các phần tử, khi đó mình sẽ chọn và cho ra kết quả
 
QuáchThiênLong đã viết:
Cám ơn bạn đã giúp. Nhưng ý mình là muốn sử dụng code chung cho tất cả các trường hợp. Ví dụ mình quét vùng cần hiện bảng liệt kê giống như của tác giả Nguyễn Ngọc Thu Hiền. Khi click vào chữ RUN trong file sẽ hiện lên cửa sổ yêu cầu chọn vùng chứa các phần tử, khi đó mình sẽ chọn và cho ra kết quả
Nhấp chuột vào đây để mở rộng...
Cái này chắc bạn chờ thành viên khác hỗ trợ vậy.
Hình như tác giả này là thành viên của diễn đàn này hay sao đó, bạn kiếm thử xem
 
QuáchThiênLong đã viết:
Cám ơn bạn đã giúp. Nhưng ý mình là muốn sử dụng code chung cho tất cả các trường hợp. Ví dụ mình quét vùng cần hiện bảng liệt kê giống như của tác giả Nguyễn Ngọc Thu Hiền. Khi click vào chữ RUN trong file sẽ hiện lên cửa sổ yêu cầu chọn vùng chứa các phần tử, khi đó mình sẽ chọn và cho ra kết quả
Nhấp chuột vào đây để mở rộng...
đây bạn xem code nay của bạn
CHAOQUAY
Mã: 
Sub Permut_List()
Dim SArr As Variant
Dim Res As Variant
Dim i As Long, j As Long, k
SArr = Selection
i = UBound(SArr)
k = WorksheetFunction.Permut(i, 2)
ReDim Res(1 To k, 1 To 2)
k = 0
For i = 1 To UBound(SArr)
    For j = 1 To UBound(SArr)
        If j <> i Then
            k = k + 1
            Res(k, 1) = SArr(i, 1)
            Res(k, 2) = SArr(j, 1)
        End If
    Next j
Next i
Sheet1.Range("i4:j10000").ClearContents
Sheet1.Range("i4").Resize(UBound(Res), UBound(Res, 2)) = Res
End Sub
 
@snow25
Chắc là thớt muốn hiện mấy inputbox như trong sub EnumCombination của bài 1, bạn làm vài dòng cho kết thúc luôn đi bạn.
 
QuáchThiênLong đã viết:
File gốc mình cần xử lý
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub GPE()
  Dim sArr As Variant, tArr(), dArr(), Res()
  Dim i As Long, j As Long, sRow As Long, n As Long, k As Long
  Dim tmp, fRow As Long
  Const sCol As Byte = 2
 
  i = Range("E" & Rows.Count).End(xlUp).Row
  If i > 2 Then Range("E2:F" & i).ClearContents
  sArr = Application.InputBox("Chon vung chua ket qua?", "Vung chua ket qua", Type:=8)
  If TypeName(sArr) = "Variant()" Then
    If UBound(sArr, 2) = sCol And UBound(sArr) >= 2 Then
      sRow = UBound(sArr)
      ReDim tArr(0 To sRow + 1, 1 To 2)
      For i = 1 To sRow
        tArr(i, 1) = sArr(i, 2)
        If tArr(i, 1) <> tArr(i - 1, 1) Then
          If k > 0 Then n = n + k * (k - 1)
          tArr(q, 2) = k
          q = i:          k = 1
        Else
          k = k + 1
        End If
      Next i
      n = n + k * (k - 1)
      tArr(q, 2) = k
      If n = 0 Or n > Rows.Count - 3 Then Exit Sub
      
      ReDim Res(1 To n, 1 To 2)
      k = 0
      For i = 1 To sRow
        n = tArr(i, 2)
        If n > 0 Then
          For r = i To i + n - 1
            For j = i To i + n - 1
              If j <> r Then
                k = k + 1
                Res(k, 1) = sArr(r, 1):       Res(k, 2) = sArr(j, 1)
              End If
            Next j
          Next r
        End If
      Next i
      Range("E2").Resize(UBound(Res), UBound(Res, 2)) = Res
    End If
  End If
End Sub
 
HieuCD đã viết:
Mã: 
Sub GPE()
  Dim sArr As Variant, tArr(), dArr(), Res()
  Dim i As Long, j As Long, sRow As Long, n As Long, k As Long
  Dim tmp, fRow As Long
  Const sCol As Byte = 2

  i = Range("E" & Rows.Count).End(xlUp).Row
  If i > 2 Then Range("E2:F" & i).ClearContents
  sArr = Application.InputBox("Chon vung chua ket qua?", "Vung chua ket qua", Type:=8)
  If TypeName(sArr) = "Variant()" Then
    If UBound(sArr, 2) = sCol And UBound(sArr) >= 2 Then
      sRow = UBound(sArr)
      ReDim tArr(0 To sRow + 1, 1 To 2)
      For i = 1 To sRow
        tArr(i, 1) = sArr(i, 2)
        If tArr(i, 1) <> tArr(i - 1, 1) Then
          If k > 0 Then n = n + k * (k - 1)
          tArr(q, 2) = k
          q = i:          k = 1
        Else
          k = k + 1
        End If
      Next i
      n = n + k * (k - 1)
      tArr(q, 2) = k
      If n = 0 Or n > Rows.Count - 3 Then Exit Sub
     
      ReDim Res(1 To n, 1 To 2)
      k = 0
      For i = 1 To sRow
        n = tArr(i, 2)
        If n > 0 Then
          For r = i To i + n - 1
            For j = i To i + n - 1
              If j <> r Then
                k = k + 1
                Res(k, 1) = sArr(r, 1):       Res(k, 2) = sArr(j, 1)
              End If
            Next j
          Next r
        End If
      Next i
      Range("E2").Resize(UBound(Res), UBound(Res, 2)) = Res
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã quan tâm, nhưng code của bạn giúp ko chạy được
 
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

N
  • Question Question
Xin giúp đỡ in phiếu thông tin hàng loạt có điều kiện (4 người xem)
2
Trả lời
24
Đọc
470
thunguyet28122000
T
L
lọc số "hợp đồng" trong chuỗi câu "diễn giải" (2 người xem)
    • Cảm ơn
Trả lời
10
Đọc
169
SA_DQ
SA_DQ
H
Tra cứu mã ngành theo hóa đơn (1 người xem)
Trả lời
0
Đọc
26
Hoale85
H
hoamattroicoi
TỔNG HỢP TỜ KHAI THUẾ THEO THÔNG TƯ 80/2021 TỪ *.XML SANG EXCEL (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
8
Đọc
4K
khoind.mcr
K
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ. (3 người xem)
2
Trả lời
23
Đọc
473
ongke0711
ongke0711
L
[Cần giúp] Cách liên kết các file Google sheet với nhau
Trả lời
13
Đọc
11K
SonBDND
S
Anhhe
Em xin nhờ các cao nhân chỉ giáo em cách tính giờ làm việc của nhân viên với ạ Plz
Trả lời
11
Đọc
335
thanthanhan
T
C
Giúp mình cập nhật dữ liệu từ google sheet về excel 2010 bằng VBA
Trả lời
2
Đọc
136
Hoàng Tuấn 868
H
Đ
gỡ rỗi công thức
    • Buồn
Trả lời
4
Đọc
60
Đình Bảo đl
Đ
test1986
  • Question Question
Thắc mắc về vba và unicode (1 người xem)
Trả lời
4
Đọc
112
test1986
test1986
M
XIN GIÚP ĐỠ CÔNG THỨC CHẠY KHẤU HAO TSCĐ TÍNH THEO NGÀY
Trả lời
1
Đọc
64
Hoàng Tuấn 868
H
T
  • Question Question
Nhờ giúp đỡ tự động lọc xóa dữ liệu có điều kiện (2 người xem)
Trả lời
11
Đọc
436
lamvankhoat1
L
Momominh
Hỏi công thức tính tổng (1 người xem)
Trả lời
8
Đọc
99
Momominh
Momominh
Nguyễn Duy Tuân
Dùng AI trên Excel bằng hàm BS_AI, BS_AI_CHAT của Add-in A-Tools v10
    • Yêu thích
Trả lời
3
Đọc
287
Nguyễn Duy Tuân
Nguyễn Duy Tuân
GPE-Trợ Lý
[GPE] TỔ CHỨC QUY TRÌNH DỰ TOÁN NGÂN SÁCH BẰNG POWER QUERY (2 người xem)
    • Thích
    • Yêu thích
Trả lời
0
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
V
[Nhờ vả] Chỉnh sửa tiêu đề file .exe
Trả lời
3
Đọc
206
YêuCN
Y
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (4 người xem)
    • Thích
Trả lời
4
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
N
  • Question Question
Nhờ hỗ trợ tự động tính doanh thu và tổng hợp doanh thu (1 người xem)
Trả lời
2
Đọc
241
ntkimanh_
N
N
Tính tổng sản phẩm bán, loại trừ 1 khách hàng (1 người xem)
Trả lời
3
Đọc
117
Hoàng Tuấn 868
H
T
  • Question Question
Xin giúp đỡ về việc tự động tính tổng nhiều sheet và copy dữ liệu (1 người xem)
    • Ngạc nhiên
Trả lời
13
Đọc
298
SA_DQ
SA_DQ
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
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom