em có một file excel, nhờ anh chị tính tổng dùm em với ạ

Liên hệ QC
VetMini đã viết:
Bạn mới là người ngây thơ.
Người ta phải tung hoả mù trước để quý vị không nhận ra loại báo cáo.
Điển hình, cuối kỳ có con số hàng bán bị nổi lên (nổi = tồn kho trên giấy tờ - tồn kho thực tế). Bi giờ bài toán là viết một mớ biên lai thanh toán con số nổi này.
Nhấp chuột vào đây để mở rộng...
không phải nha bạn, t chỉ làm nhập xuất bình thường thôi, t không làm được nên mới nhờ á
 
CHAOQUAY đã viết:
Phần tô màu xanh giữ nguyên, gia trị cần tìm thay đổi tại E2.

Sau khi chạy, trong vùng C2:C21, giá trị nào = 1 -> lấy giá trị cột A tại dòng đó.
Nhấp chuột vào đây để mở rộng...
thanks anh nhiều nha !
Bài đã được tự động gộp:

Quang_Hải đã viết:
Bạn thử tải file về coi xài được không. Chắc có thể sẽ còn phát sinh linh tinh. Hy vọng giúp được ít nhiều cho bạn
Nhớ tìm cách enable macros nhé
Nhấp chuột vào đây để mở rộng...
em chọn 700 thì nó chỉ tô vàng 600,còn chọn 800 thì tô vàng 700,nhờ anh chỉnh sửa dùm với ạ
 

File đính kèm

  • image_2021_05_17T12_48_08_667Z.png
    image_2021_05_17T12_48_08_667Z.png
    236.2 KB · Đọc: 11
Lần chỉnh sửa cuối:
chi ngan nguyen đã viết:
thanks anh nhiều nha !
Bài đã được tự động gộp:


em chọn 700 thì nó chỉ tô vàng 600,còn chọn 800 thì tô vàng 700,nhờ anh chỉnh sửa dùm với ạ
Nhấp chuột vào đây để mở rộng...
Mình biết nguyên nhân tại sao rồi, vì có 2 số 100 nên bị như vậy. Khi nào mình ngồi máy tính sẽ gợi ý giải pháp cho bạn. Chắc đến cuối tuần mình mới về văn phòng. Mong có ai đó sửa dùm
 
@chi ngan nguyen
Thử sửa code bài 14, dùng thử

Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
       
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Mã: 
Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
 

File đính kèm

CHAOQUAY đã viết:
@chi ngan nguyen
Thử sửa code bài 14, dùng thử

Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
      
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Mã: 
Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Những dạng nầy không dể nuốt, lúc đầu chỉ tìm 1 số, sẽ tìm tiếp số thứ 2, 3 ...
 

File đính kèm

HieuCD đã viết:
Những dạng nầy không dể nuốt, lúc đầu chỉ tìm 1 số, sẽ tìm tiếp số thứ 2, 3 ...
Nhấp chuột vào đây để mở rộng...
Không hiểu ý bác lắm.

Code trên sửa lại muốn giũ nguyên ý code cũ, chỉ thay đổi cách hiển thị xuống sheet.
Nếu là tự làm sẽ thêm "exit for" trong cái "if cot ...end" để hiển thị chỉ 1 kết quả
 
CHAOQUAY đã viết:
@chi ngan nguyen
Thử sửa code bài 14, dùng thử

Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
      
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Mã: 
Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
thanks bạn nhiều nha
 
@ Thớt
Thêm lệnh thoát vòng lặp, kiểm tra lại xem sao
Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
        
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
        
        Exit For '<-----------------
        
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
 

File đính kèm

CHAOQUAY đã viết:
@ Thớt
Thêm lệnh thoát vòng lặp, kiểm tra lại xem sao
Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
       
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
       
        Exit For '<-----------------
       
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu tìm không có số lượng cần lấy thì máy cũng vẫn quay vòng không thoát được nha bạn, nhờ bạn vô sửa thêm với ạ
 

File đính kèm

  • image_2021_05_18T08_44_02_804Z.png
    image_2021_05_18T08_44_02_804Z.png
    52.6 KB · Đọc: 7
CHAOQUAY đã viết:
@ Thớt
Thêm lệnh thoát vòng lặp, kiểm tra lại xem sao
Mã: 
Option Explicit
Dim MgNguon(), MgKQ()

Sub A_KiemTra()
Dim k As Long, KQi() As Double, Cot As Long, n As Long, Tong As Double, Item, Tim As Range
Tong = [C1].Value
MgNguon = Range("A2", Range("A" & Rows.Count).End(3)).Value
Range("A2", Range("A" & Rows.Count).End(3)).Interior.ColorIndex = xlNone
n = UBound(MgNguon, 1)
ReDim MgKQ(1 To n, 1 To 1)
   For k = 1 To n
      ReDim KQi(1 To k, 1 To 1) As Double
      Main k, KQi, 0, 1, 1, Cot, n, Tong
      If Cot Then
         Dim i, j
       
         k = 2
         For i = 1 To n
            If MgKQ(i, 1) = "" Or k > Range("A" & Rows.Count).End(3).Row Then Exit For
            Item = MgKQ(i, 1)
            For j = k To Range("A" & Rows.Count).End(3).Row
                If Range("A" & j) = Item Then
                    Range("A" & j).Interior.ColorIndex = 3
                    k = j + 1
                    Exit For
                End If
            Next j
        Next i
       
        Exit For '<-----------------
       
      End If
   Next
Erase MgNguon:  Erase MgKQ
End Sub

Sub Main(k As Long, KQi, CongDon As Double, PhanTu As Long, SoDem As Long, Cot As Long, n As Long, Tong As Double)
Dim i As Long, j As Long
If Cot Then Exit Sub
If SoDem <= k Then
   For j = PhanTu To n - k + SoDem
      KQi(SoDem, 1) = MgNguon(j, 1)
      Main k, KQi, CongDon + KQi(SoDem, 1), j + 1, SoDem + 1, Cot, n, Tong
   Next j
Else
   If CongDon = Tong Then
      Cot = Cot + 1
      ReDim Preserve MgKQ(1 To n, 1 To Cot)
      For i = 1 To k
         MgKQ(i, Cot) = KQi(i, 1)
      Next
   End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình thấy dòng lệnh này chạy được rồi nhưng với tìm tổng nhỏ hơn 1000 và dãy số không quá 20 dòng, mình test thử tìm tổng trên 2000 và dãy số là 40 dòng là chạy 5 phút không ra kết quả.
 
chi ngan nguyen đã viết:
Nếu tìm không có số lượng cần lấy thì máy cũng vẫn quay vòng không thoát được nha bạn, nhờ bạn vô sửa thêm với ạ
Nhấp chuột vào đây để mở rộng...
Dữ liệu nhiều quá sẽ đứng máy
Mã: 
Function SumFind(Total As Double, ParamArray RngS() As Variant) As String
  Dim Data(), Cll As Range, Arr(), tmp, tSum As Double
  Dim i As Long, n As Long, k As Long
 
  For i = LBound(RngS) To UBound(RngS)
    For Each Cll In RngS(i)
      tmp = Val(Cll.Value)
      If tmp <> 0 Then
        If tmp = Total Then
          SumF1 = Cll.Address(0, 0): Exit Function
        Else
          n = n + 1
          ReDim Preserve Data(1 To 2, 1 To n)
          Data(1, n) = Val(Cll.Value):  Data(2, n) = Cll.Address(1, 0)
        End If
      End If
    Next
  Next
  Call QuickSort(Data)
  ReDim Arr(1 To n)
  Arr(1) = 1:     tSum = Data(1, 1)
  n = 1:          k = 1
  Do While Total <> tSum
    If Arr(1) = UBound(Data, 2) Then
      SumF1 = "#N/A":        Exit Function
    End If
    If tSum > Total Then
      k = Arr(n - 1) + 1
      tSum = tSum - Data(1, Arr(n)) - Data(1, Arr(n - 1)) + Data(1, k)
      n = n - 1
      Arr(n) = k
    Else
      If k = UBound(Data, 2) Then
        k = Arr(n - 1) + 1
        tSum = tSum - Data(1, Arr(n)) - Data(1, Arr(n - 1)) + Data(1, k)
        n = n - 1
        Arr(n) = k
      Else
        k = k + 1
        tSum = tSum + Data(1, k)
        n = n + 1
        Arr(n) = k
      End If
    End If
  Loop
  SumFind = GetRes(Data, Arr, n)
End Function

Private Sub QuickSort(Data)
  Dim oSList As Object, sArr, S
  Dim j As Long, k As Long, jk As Long, m As Long

  Set oSList = CreateObject("System.Collections.SortedList")
  For j = LBound(Data, 2) To UBound(Data, 2)
    oSList.Item(Data(1, j)) = oSList.Item(Data(1, j)) & "," & j
  Next j
  sArr = Data
  For j = 0 To oSList.Count - 1
    S = Split(oSList.GetByIndex(j), ",")
    For m = 1 To UBound(S)
      jk = CLng(S(m))
        k = k + 1
        Data(1, k) = sArr(1, jk): Data(2, k) = sArr(2, jk)
    Next m
  Next j
  Set oSList = Nothing
End Sub

Private Function GetRes(Data, Arr, n) As String
  Dim oSList As Object, sArr, S, iKey, tmp
  Dim j As Long, k As Long, jk As Long, m As Long

  Set oSList = CreateObject("System.Collections.SortedList")
  For j = 1 To n
    tmp = CLng(Split(Data(2, Arr(j)), "$")(1))
    oSList.Item(tmp) = oSList.Item(tmp) & "," & j
  Next j
  tmp = Empty
  For j = 0 To oSList.Count - 1
    S = Split(oSList.GetByIndex(j), ",")
    For m = 1 To UBound(S)
      jk = CLng(S(m))
      tmp = tmp & "+" & Data(2, Arr(jk))
    Next m
  Next j
  tmp = Replace(tmp, "$", "")
  GetRes = "=" & Mid(tmp, 2, Len(tmp) - 1)
  Set oSList = Nothing
End Function
Công thức trong file
Mã: 
C4 =SumFind(C1,A2:A21)
 

File đính kèm

Đây là bài toán tìm tổng con (subset sum). Mình cũng viết mấy bài ở GPE tìm tổng con bằng quy hoạch động dùng VBA (vì mình cũng thỉnh thoảng phải "bốc thuốc"): với n số nguyên dương cho trước, tìm bộ số có tổng = S, bài toán này có khi không giải nổi nếu n và s lớn. Nếu n nhỏ khoảng vài chục thì dùng đệ quy cho dễ viết code, độ phức tạp phụ thuộc vào n. Nếu n cao hơn thì dùng đệ quy dễ tràn stack, lúc này nên dùng quy hoạch động và độ phức tạp phụ thuộc cả vào n và s.
@chi ngan nguyen bạn nên đưa dữ liệu gần giống thực lên, lúc đấy mọi người sẽ có code phù hợp.
Ví dụ code bài của mình ở link dưới, dữ liệu cần được sort tăng dần trước khi chạy, bạn thử xem chạy được không, nếu dữ liệu lớn hơn thì bạn cứ báo, mình sẽ đưa công cụ khác.
www.giaiphapexcel.com

Tìm các giá trị cộng lại thỏa giá trị cho trước

Kính gửi anh/chị trên diễn đàn, Em đang bị vướng vấn đề sau ạ: Em có một dãy các số liệu từ A4:A386, em có ô mục tiêu là ô D2. Em muốn tìm các giá trị trong cột A cộng lại bằng 213962,43 ạ. Em đã thử với solver nhưng do cột A có nhiều biến nên khi em chạy solver báo lỗi "Too many Variable...
www.giaiphapexcel.com www.giaiphapexcel.com
 
chi ngan nguyen đã viết:
mình vẫn chưa hiểu file này luôn bạn à, bạn nói lại cho mình đi.
Nhấp chuột vào đây để mở rộng...
bài này dùng solver để giải, bạn tìm với từ khóa solver trên diễn đàn xem.
Bài đã được tự động gộp:

sony18102012 đã viết:
Mình thấy dòng lệnh này chạy được rồi nhưng với tìm tổng nhỏ hơn 1000 và dãy số không quá 20 dòng, mình test thử tìm tổng trên 2000 và dãy số là 40 dòng là chạy 5 phút không ra kết quả.
Nhấp chuột vào đây để mở rộng...
Bân thử với file bài 16 xem sao, số dòng <=200
 
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

1
Phát triển một VBE trong Delphi để tạo một cửa sổ công cụ.
Trả lời
2
Đọc
45
Mr.hieudoanxd
Mr.hieudoanxd
X
Tự động giãn dòng và ẩn các dòng bị bỏ trống
Trả lời
5
Đọc
232
HUONGHCKT
H
T
Xin giúp em copy cột C ở tất cả các sheet vào file import_template. Em cảm ơn ạ.
Trả lời
1
Đọc
39
BuiQuangThuan
B
KTS NGUYEN DU
Các bác có biết chỉnh mục trống này về dạng word cơ bản không ạ.
Trả lời
5
Đọc
112
KTS NGUYEN DU
KTS NGUYEN DU
giaiphap
Chia sẻ cách tạo gợi ý cho hàm trong Excel bằng thư viện ExcelDna.
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
6
Đọc
2K
Phương Nguyễn 89
Phương Nguyễn 89
hahuykhuong
  • Question Question
link file pdf hóa đơn bằng vba
Trả lời
3
Đọc
149
hahuykhuong
hahuykhuong
Manhhung90
  • Question Question
Xin giúp chuyển dữ liệu từ cột dọc sang hàng ngang theo điều kiện
    • Buồn
Trả lời
10
Đọc
245
Manhhung90
Manhhung90
M
  • Question Question
Code VBA tìm mã kiện gỗ còn tồn kho
Trả lời
7
Đọc
294
BuiQuangThuan
B
HeSanbi
  • Đã giải quyết
ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
80
Đọc
16K
ngochienbmt
N
T
cách viết hàm if
Trả lời
4
Đọc
170
VetMini
V
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
    • Yêu thích
Trả lời
2
Đọc
922
nguyentnct
N
N
  • Question Question
Cần giúp rút gọn code vba
Trả lời
8
Đọc
275
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
13 14 15
Trả lời
299
Đọc
20K
trdethuong
T
D
Vẽ biểu đồ phân tích doanh thu và lợi nhuận theo mã đơn vị
Trả lời
5
Đọc
914
thuytrangbp28
T
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Khi ô Excel ở chế độ đang nhập liệu thì VBA có thể chạy và lấy giá trị ô không?
    • Thích
    • Cảm ơn
Trả lời
9
Đọc
2K
A HOANG 620
A
P
Xin hỏi cách tăng tốc khi nhập liệu cho sheet NHAPXUAT
Trả lời
4
Đọc
231
yeudoi
yeudoi
S
Tính trung bình của tháng đầu tiên.
Trả lời
5
Đọc
316
SteveNguyen1991
S
A
  • Đã giải quyết
Xin giúp đỡ code VBA chép cột dữ liệu có điều kiện từ file này sang file khác
2 3
Trả lời
59
Đọc
3K
Hoàng Nhật Phương
Hoàng Nhật Phương
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
10
Đọc
277
DeTong
D
H
Nhờ các cao nhân chỉ giáo code file Form nhập liệu Google Sheet !!!
    • Thích
Trả lời
4
Đọc
131
befaint
befaint
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
Chúc mừng năm mới
Back
Top Bottom