VBA cộng mảng liên tục và gián đoạn

Liên hệ QC
hongphuong1997

hongphuong1997

Thành viên tiêu biểu
Tham gia
12/11/17
Bài viết
771
Được thích
321
Giới tính
Nữ
Kính nhờ các bác và các anh, chị giúp đỡ viết code bài toán về phép cộng mảng bằng cách đơn giản nhưng đầy đủ và dễ hiểu nhất
Cảm ơn!
 

File đính kèm

Các anh chị ơi giúp em với, Anh @Ba Tê bác @HieuCD ơi giúp cháu bài này với ạ!
 
hongphuong1997 đã viết:
Kính nhờ các bác và các anh, chị giúp đỡ viết code bài toán về phép cộng mảng bằng cách đơn giản nhưng đầy đủ và dễ hiểu nhất
Cảm ơn!
Nhấp chuột vào đây để mở rộng...
Không cần 2 code, chỉ cần khai báo lại địa chỉ thích hợp
Mã: 
Sub GPE()
  Dim sArr(), Res()
  Dim i As Long, j As Long, sR As Long
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value
  sR = UBound(sArr) - 1
  ReDim Res(1 To sR, 1 To UBound(sArr, 2))
  For i = 1 To sR
    For j = 1 To UBound(sArr, 2)
      If TypeName(sArr(i, j)) = "Double" Then Res(i, j) = sArr(i, j) + sArr(i + 1, j)
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res
End Sub
 
HieuCD đã viết:
Không cần 2 code, chỉ cần khai báo lại địa chỉ thích hợp
Mã: 
Sub GPE()
  Dim sArr(), Res()
  Dim i As Long, j As Long, sR As Long
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value
  sR = UBound(sArr) - 1
  ReDim Res(1 To sR, 1 To UBound(sArr, 2))
  For i = 1 To sR
    For j = 1 To UBound(sArr, 2)
      If TypeName(sArr(i, j)) = "Double" Then Res(i, j) = sArr(i, j) + sArr(i + 1, j)
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác @HieuCD , bác ơi bác làm ơn giải thích cho cháu với.
 
hongphuong1997 đã viết:
Cháu cảm ơn bác @HieuCD , bác ơi bác làm ơn giải thích cho cháu với.
Nhấp chuột vào đây để mở rộng...
Đọc ghi chú trong code
Mã: 
Sub GPE()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - 1 'so dong mang ket qua, it hon mang du lieu 1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        Res(i, j) = sArr(i, j) + sArr(i + 1, j) 'tính ket qua
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
 
HieuCD đã viết:
Đọc ghi chú trong code
Mã: 
Sub GPE()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - 1 'so dong mang ket qua, it hon mang du lieu 1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        Res(i, j) = sArr(i, j) + sArr(i + 1, j) 'tính ket qua
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác. cháu hỏi thêm bác tý nhé! Thế cháu muốn cộng 3 hoặc nhiều số liên tiếp (Không phải là cộng 2 số như ví dụ) thì phải thay đổi như nào hả bác?
 
hongphuong1997 đã viết:
Cháu cảm ơn bác. cháu hỏi thêm bác tý nhé! Thế cháu muốn cộng 3 hoặc nhiều số liên tiếp (Không phải là cộng 2 số như ví dụ) thì phải thay đổi như nào hả bác?
Nhấp chuột vào đây để mở rộng...
Thêm biến n để hiểu cách
Mã: 
Sub GPE()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long
  Const n = 3
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        Res(i, j) = sArr(i, j) + sArr(i + 1, j) + sArr(i + 2, j) 'tính ket qua
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Hoặc viết lại tổng quát hơn, chưa bẩy lổi n lớn hơn số dòng dữ liệu
Mã: 
Sub GPE1()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, k As Byte
  Const n = 3 'so dòng cong
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        For k = 0 To n - 1
          Res(i, j) = Res(i, j) + sArr(i + k, j) 'tính ket qua
        Next k
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
 
HieuCD đã viết:
Thêm biến n để hiểu cách
Mã: 
Sub GPE()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long
  Const n = 3
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        Res(i, j) = sArr(i, j) + sArr(i + 1, j) + sArr(i + 2, j) 'tính ket qua
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Hoặc viết lại tổng quát hơn, chưa bẩy lổi n lớn hơn số dòng dữ liệu
Mã: 
Sub GPE1()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, k As Byte
  Const n = 3 'so dòng cong
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
 
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        For k = 0 To n - 1
          Res(i, j) = Res(i, j) + sArr(i + k, j) 'tính ket qua
        Next k
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác rất nhiều, Giá như cháu được học trực tiếp kiến thức của bác thì cháu sẽ nhanh giỏi lắm. Cháu cảm ơn bác ạ.
 
HieuCD đã viết:
Thêm biến n để hiểu cách
Mã: 
Sub GPE()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long
  Const n = 3
'Khai báo vùng du lieu và ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        Res(i, j) = sArr(i, j) + sArr(i + 1, j) + sArr(i + 2, j) 'tính ket qua
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Hoặc viết lại tổng quát hơn, chưa bẩy lổi n lớn hơn số dòng dữ liệu
Mã: 
Sub GPE1()
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, k As Byte
  Const n = 3 'so dòng cong
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  'Const sRngStr = "C35:X46"
  'Const rRngStr = "C50"
 
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1) 'so dong mang ket qua, it hon mang du lieu n-1 dòng
  ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
  For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
    For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
      If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
        For k = 0 To n - 1
          Res(i, j) = Res(i, j) + sArr(i + k, j) 'tính ket qua
        Next k
      End If
    Next j
  Next i
  Range(rRngStr).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu chào Bác @HieuCD, Bác ơi bác giúp cho cháu đoạn code và chỉ dẫn cho cháu với bác nhé, Cháu cảm ơn bác!
 

File đính kèm

Thắc mắc: Bài này ứng dụng vào việc gì?
(Làm thì được nhưng tôi ít khi thích làm cộng việc mơ hồ)
 
ndu96081631 đã viết:
Thắc mắc: Bài này ứng dụng vào việc gì?
(Làm thì được nhưng tôi ít khi thích làm cộng việc mơ hồ)
Nhấp chuột vào đây để mở rộng...
Dạ, cháu học cách để tịnh tiến mảng thôi bác à, không ứng dụng vào việc gì bác
ndu96081631
à. Bác viết giúp cho cháu làm sao để dễ hiểu nhất và nguyên lý của nó bác à,
 
Hí hí. Vậy là 2 ngày nay Bác @HieuCD làm công cốc rùi. Bác HieuCD của cháu ui :p:p:p
 
Mình cũng mới học thôi. Mà chủ yếu là đi học lỏm 2 Bác yêu của bạn đó
 
hongphuong1997 đã viết:
Dạ, cháu học cách để tịnh tiến mảng thôi bác à
Nhấp chuột vào đây để mở rộng...
PHP: 
Sub GPE()
Dim sArr(), I As Long, J As Long, K As Long, N As Long, Rws As Long
sArr = Range("C2").Resize(12, 25).Value
Rws = 17
For N = 1 To 3
    ReDim dArr(1 To 9, 1 To 25)
    K = 0
    For I = N To N + 8
        K = K + 1
        For J = 1 To 25
            dArr(K, J) = sArr(I, J) + sArr(I + 1, J)
        Next J
    Next I
    Range("AC" & Rws).Resize(9, 25) = dArr       '----Gán vào cột nào đó.'
    Rws = Rws + 11
Next N
End Sub
 
hongphuong1997 đã viết:
Cháu chào Bác @HieuCD, Bác ơi bác giúp cho cháu đoạn code và chỉ dẫn cho cháu với bác nhé, Cháu cảm ơn bác!
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub GPE4() 'tong quat
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, mk As Byte, nk As Byte
  Const n = 2 'so dòng cong
  Const m = 3 'so mang ket qua
  Const d = 2 'Só dòng trong giua 2 ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
  
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1 + m - 1) 'so dong mang ket qua
  For mk = 1 To m 'Chay mang ket qua mk
    ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
    For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
      For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
        If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
          For nk = 0 To n - 1
            Res(i, j) = Res(i, j) + sArr(i + mk + nk - 1, j) 'tính ket qua
          Next nk
        End If
      Next j
    Next i
  Range(rRngStr).Offset((mk - 1) * (sR + d)).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
  Next mk
End Sub
 
Ba Tê đã viết:
PHP: 
Sub GPE()
Dim sArr(), I As Long, J As Long, K As Long, N As Long, Rws As Long
sArr = Range("C2").Resize(12, 25).Value
Rws = 17
For N = 1 To 3
    ReDim dArr(1 To 9, 1 To 25)
    K = 0
    For I = N To N + 8
        K = K + 1
        For J = 1 To 25
            dArr(K, J) = sArr(I, J) + sArr(I + 1, J)
        Next J
    Next I
    Range("AC" & Rws).Resize(9, 25) = dArr       '----Gán vào cột nào đó.'
    Rws = Rws + 11
Next N
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh @Ba Tê đã chỉ bảo cho em, nhưng anh ơi em đang vọc vạch từ đầu mà anh bảo em tự làm thì làm sao em có thể làm được? Anh chỉ hướng đẫn em phong cách một số trường hợp cụ thể sau đó em sẽ phát huy được và có khả năng còn giỏi hơn mấy chị
♫ђöล♥ßล†♥†µ♫ và chị @Hương Liên ..... ấy chứ
 
HieuCD đã viết:
Mã: 
Sub GPE4() 'tong quat
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, mk As Byte, nk As Byte
  Const n = 2 'so dòng cong
  Const m = 3 'so mang ket qua
  Const d = 2 'Só dòng trong giua 2 ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
 
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1 + m - 1) 'so dong mang ket qua
  For mk = 1 To m 'Chay mang ket qua mk
    ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
    For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
      For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
        If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
          For nk = 0 To n - 1
            Res(i, j) = Res(i, j) + sArr(i + mk + nk - 1, j) 'tính ket qua
          Next nk
        End If
      Next j
    Next i
  Range(rRngStr).Offset((mk - 1) * (sR + d)).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
  Next mk
End Sub
Nhấp chuột vào đây để mở rộng...
Bác ơi đúng quá bác @HieuCD cháu cảm ơn bác! Bác là người thầy vĩ đại của cháu, đêm nay cháu nghiên cứu code này bác à, Cháu cảm ơn bác rất nhiều.
 
HieuCD đã viết:
Mã: 
Sub GPE4() 'tong quat
  Dim sArr() 'Mang du lieu
  Dim Res() 'Mang ket qua
  Dim i As Long, j As Long, sR As Long, mk As Byte, nk As Byte
  Const n = 2 'so dòng cong
  Const m = 3 'so mang ket qua
  Const d = 2 'Só dòng trong giua 2 ket qua
  Const sRngStr = "C2:AA13" 'Dia chi vùng du lieu
  Const rRngStr = "C17" 'Dia chi ket qua
 
  sArr = Range(sRngStr).Value 'Gán du lieu vào mang du lieu
  sR = UBound(sArr) - (n - 1 + m - 1) 'so dong mang ket qua
  For mk = 1 To m 'Chay mang ket qua mk
    ReDim Res(1 To sR, 1 To UBound(sArr, 2)) 'Khai báo mang ket qua voi so dòng: sR và so cot: UBound(sArr, 2)
    For i = 1 To sR 'Chay tu dong dau toi dòng cuoi mang ket qua
      For j = 1 To UBound(sArr, 2) 'Chay tu cot dau toi cot cuoi
        If TypeName(sArr(i, j)) = "Double" Then 'Neu có du lieu
          For nk = 0 To n - 1
            Res(i, j) = Res(i, j) + sArr(i + mk + nk - 1, j) 'tính ket qua
          Next nk
        End If
      Next j
    Next i
  Range(rRngStr).Offset((mk - 1) * (sR + d)).Resize(sR, UBound(Res, 2)) = Res 'gán ket qua vào dia chi ket qua
  Next mk
End Sub
Nhấp chuột vào đây để mở rộng...
Hu hu... hu.... bác ơi, bác chú thích rõ như thế, nhưng cháu không hiểu thuật toán như nào? Thế mà bác viết được như vậy? Bác có thể chỉ dẫn cho cháu nguyên lý như nào được không hả bá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

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
12
Đọc
374
VetMini
V
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
0
Đọc
24
mucongnghenhat
mucongnghenhat
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
8
Đọc
579
nguyendang95
N
Uyên dương Hoya
Lỗi định dạng form chữ trong excel
Trả lời
1
Đọc
58
DeTong
D
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Cảm ơn
Trả lời
5
Đọc
756
hoangtuan.net
hoangtuan.net
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2
Trả lời
35
Đọc
13K
minhys1
M
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
14 15 16
Trả lời
305
Đọc
21K
pkt.bacdau
pkt.bacdau
HONGVY91
Đếm số lượng 2 cột và đếm không trùng
Trả lời
2
Đọc
115
hoangtuaotrang_hp_vn
H
hanhlx88
Nhờ giúp file Excel báo lỗi: Excel cannot complete this task with available resources
Trả lời
3
Đọc
180
hanhlx88
hanhlx88
C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
3
Đọc
105
VetMini
V
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
73
Đọc
10K
HeSanbi
HeSanbi
L
Folder chứa chương trình bị khóa bởi Lock folder
2
Trả lời
28
Đọc
25K
qthangvphaui
Q
P
Xin trợ giúp cách lập lịch trực tịnh tiến dần cho 1 nhóm người.
Trả lời
4
Đọc
142
phambahoang
P
N
Tính tổng với điều kiện gần đúng
Trả lời
3
Đọc
64
HUONGHCKT
H
Bùi Thúy Thúy
  • Question Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
63
Đọc
19K
Mutants Men
M
Anxseo
  • Đã khóa
Cách crack my excel
Trả lời
1
Đọc
173
HeSanbi
HeSanbi
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
5
Đọc
245
yaaasoo01
Y
anhtuan1066
  • Question Question
Chèn hình vào cell bằng hàm tự tạo
    • Thích
    • Ngạc nhiên
10 11 12
Trả lời
235
Đọc
106K
XaNguyen
X
vc_đi chơi
Khóa Hoặc mã hóa File excel có độ bảo mật cao
    • Cảm ơn
    • Thích
Trả lời
3
Đọc
203
Hoangkhang01213
Hoangkhang01213
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