cho hỏi có cách nào làm được thế này không?

  • Thread starter Thread starter vinhdinh
  • Ngày gửi Ngày gửi
Liên hệ QC

vinhdinh

Thành viên chính thức
Tham gia
19/6/08
Bài viết
51
Được thích
1
nhờ mọi người thử hộ mình cái file mình đính kèm có thể làm được lệnh như thế này không? Có cột C có rất nhiều số trong đó có số 26, ở cột B mình cần công thức thế nào để trên dưới đều có số 1 ở (file 1 mình đính kèm)
Nhờ các cao thủ thử hộ với
 

File đính kèm

nhờ mọi người thử hộ mình cái file mình đính kèm có thể làm được lệnh như thế này không? Có cột C có rất nhiều số trong đó có số 26, ở cột B mình cần công thức thế nào để trên dưới đều có số 1 ở (file 1 mình đính kèm)
Nhờ các cao thủ thử hộ với
Dùng hàm IF kết hợp với hàm OR
 
nhờ mọi người thử hộ mình cái file mình đính kèm có thể làm được lệnh như thế này không? Có cột C có rất nhiều số trong đó có số 26, ở cột B mình cần công thức thế nào để trên dưới đều có số 1 ở (file 1 mình đính kèm)
Nhờ các cao thủ thử hộ với
Cái này mình nghĩ chỉ có thể dùng VBA. Không biết có ai biết xử vụ này bằng công thức hay không
Mã:
Sub Quang_Hai()
Dim sArr(), i As Long
sArr = Range("B3", [C65536].End(3)).Value
For i = 1 To UBound(sArr)
   If sArr(i, 2) = 26 Then
      If i > 1 Then sArr(i - 1, 1) = 1
      sArr(i, 1) = 1
      If i < UBound(sArr) Then sArr(i + 1, 1) = 1
   End If
Next
[B3].Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End Sub
 

File đính kèm

Dùng hàm IF kết hợp với hàm OR
làm luôn hộ mình lệnh với, mình thử không ra
Bài đã được tự động gộp:

Cái này mình nghĩ chỉ có thể dùng VBA. Không biết có ai biết xử vụ này bằng công thức hay không
Mã:
Sub Quang_Hai()
Dim sArr(), i As Long
sArr = Range("B3", [C65536].End(3)).Value
For i = 1 To UBound(sArr)
   If sArr(i, 2) = 26 Then
      If i > 1 Then sArr(i - 1, 1) = 1
      sArr(i, 1) = 1
      If i < UBound(sArr) Then sArr(i + 1, 1) = 1
   End If
Next
[B3].Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End Sub
muốn dùng lệnh thôi được ko bác?
 
Web KT

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

Back
Top Bottom