Chắc là tất cả các hàm trong chủ đề này ạ?
Bạn vào nhà Anh @befaint lục tìm nha. Anh ấy không khóa cửa đâu. Chỉ tội đồ hơi nhiều. Tìm hơi lâu 1 tí
Trường hợp theo cột thì sao bác. Giúp em với
Option Explicit
Sub Macro2()
Dim txtFind As Variant, lastCol As Long, i As Long, cell As Range
txtFind = Range("d5").Value: lastCol = Cells(3, Columns.Count).End(xlToLeft).Column
For Each cell In Range("d3").Resize(, lastCol)
If UCase(cell.Value) = UCase(txtFind) Then
Range("C8").Offset(i).Value = cell.Column
i = i + 1
End If
Next cell
End SubSub LKDong2()
Dim Arr()
Dim J As Long, W As Long
Dim lastRow As Long, txtFind As Variant
lastRow = Cells(Rows.Count, "b").End(xlUp).Row
Arr() = Range("b3:b" & lastRow).Value
txtFind = Range("e3").Value
ReDim dArr(1 To UBound(Arr()), 1 To 1) As Variant
For J = 1 To UBound(Arr())
If UCase$(Arr(J, 1)) = UCase$(txtFind) Then
W = W + 1
dArr(W, 1) = CStr(J) + 2 'Xuất phát từ dòng 3 nên +2
End If
Next J
Range("h3").Resize(UBound(dArr())) = dArr()
End SubSub LKDong3()
Dim Arr(), dArr()
Dim J As Long, W As Long
Dim lastCol As Long, txtFind As Variant
lastCol = Cells(3, Columns.Count).End(xlToLeft).Column
If lastCol < 4 Then Exit Sub
Arr() = Range("d3").Resize(, lastCol - 3).Value
txtFind = Range("d5").Value
ReDim dArr(1 To lastCol - 3, 1 To 1)
For J = 1 To lastCol - 3
If UCase$(Arr(1, J)) = UCase$(txtFind) Then
W = W + 1
dArr(W, 1) = CStr(J) + 3
End If
Next J
Range("d8").Resize(UBound(dArr())) = dArr()
End SubĐâu có xê cọng cọng vào đây vậy?
Chú thích thì Nhích luôn. Đây là đoạn code Connnect với PLC S700 Simen để điều khiển Motor theo Phương thức Sao Tam giác. Nếu Moror Quá tải sao 1 phút Sẽ Off
À ra vậy.
Chuyện thường phố huyện bác ơi, ở ta giờ có khi người kêu hoàn cảnh từ thiện khổ khổ, rồi sau đó bật ngửa ra là: những người góp từ thiện còn nghèo hơn người khổ đó.
bác sai quá rồi nha. Nên sám hối nha. Vi phạm công đức là Đức Phật sẽ không thích đâu nha. Công việc của Bác là giúp đở người nghèo kiến thức như em. bác cứ giúp bác sẻ hưởng công đức cho con cháu. cố lên nha Bác
Bác nói lười. Nghe mà mắc cười. Vậy từ đâu người ta ra câu hỏi cho bác trả lời. Và mình cũng nói Thẳng với bác luôn. Mình đăng ký diễn đàn là để học hỏi , cái nào biết thì thôi, cái nào không biết được hỏi. bác không thích thì không cần trả lời. vấn để mình hỏi là 0.01 % công việc của mình thôi.
Tôi cứ ngỡ Đức Phật đã vượt qua lục dục ái tình rồi. Bây giờ lại xảy ra chuyện thích hay không thíc nữa.
Bạn cỡi xe gì? có xịn hơn mát da xích hon mà bảo người ta lười.
Sub kiemtien ()
If Trình độ bạn = "Giỏi" and Bạn = "Linh động trong thực tế" Or bằng cấp không quan tâm then
Cởi = mada 6 ( 1.1 tỷ )
Else
Cởi = Xe máy ( <= 100 củ khoai )
endif
End SubMột tỷ mốt thì ma da hay quỷ da tôi cũng nuốt nước bọt như thường.
"Linh động trong thực tế" ở chỗ đó đấy bác.
