Sub Macro1()
Dim txtFind As Variant, lastRow As Long, i As Long
txtFind = Range("e3").Value
lastRow = Cells(Rows.Count, "b").End(xlUp).Row
For Each cell In Range("b3:b" & lastRow)
If UCase(cell.Value) = UCase(txtFind) Then
Range("h3").Offset(i).Value = cell.Row
i = i + 1
End If
Next cell
End Sub
Function LKDong(Rng As Range, KT As String)
Dim Arr()
Dim J As Long, W As Long
Arr() = Rng.Value
ReDim dArr(1 To UBound(Arr()), 1 To 1) As String
For J = 1 To UBound(Arr())
If UCase$(Arr(J, 1)) = UCase$(KT) Then
W = W + 1: dArr(W, 1) = CStr(J)
End If
Next J
LKDong = dArr()
End Function
Học VBA ngay đi bạn. Sao cứ dựa vào sự giúp đỡ. Nó Quá đơn giản. Sản Phẩm trí tuệ mà mình tự tạo ra mới gọi là ý nghĩa.
Học thì lúc nào kiếm cơm?
2./ Nếu nhiều cỡ dưới vạn thì nên đưa vô mảng vùng dữ liệu nguồn & duyệt
Thầy cứ nói "thời gian đâu mà học". Có khi người ta lại có nhiều thời gian ăn chơi.Học thì lúc nào kiếm cơm?
Người ta viết phần mềm bán, thời gian 24 tiếng chỉ đủ để lắp ghép những cái mình làm được và những cái đi nhờ, sao cho chúng đồng bộ. Rồi còn test trước khi giao hàng nữa. Đơn hàng thì nhiều. Thế thời gian đâu để học VBA?
Vấn đề không phải là khó hay dễ mà là thời gian không có. Và năng suất. Bạn nhận 1 đơn đặt hàng. Nếu bạn biết và tự làm hết mất 7 ngày. Thế nếu bạn tự làm 4/7 công việc còn 3/7 nhờ GPE thì sao? Thì bạn mất 4 ngày, và trong 4 ngày đó GPE cũng hoàn thành 3/7 còn lại. Như vậy bạn chỉ mất 4 ngày. Có thể sau 4 ngày nhận tiếp đơn hàng mới, và nói với khách cũ chi thêm tiền bồi dưỡng vì đơn hàng được làm với ưu tiên về thời gian.
Cảm ơn bác @SA_DQ đã chỉ dẫn thêm cho cháu cách sử dụng mảng.
Sub 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 SubHọc thì lúc nào kiếm cơm?
Người ta viết phần mềm bán, thời gian 24 tiếng chỉ đủ để lắp ghép những cái mình làm được và những cái đi nhờ, sao cho chúng đồng bộ. Rồi còn test trước khi giao hàng nữa. Đơn hàng thì nhiều. Thế thời gian đâu để học VBA?
Vấn đề không phải là khó hay dễ mà là thời gian không có. Và năng suất. Bạn nhận 1 đơn đặt hàng. Nếu bạn biết và tự làm hết mất 7 ngày. Thế nếu bạn tự làm 4/7 công việc còn 3/7 nhờ GPE thì sao? Thì bạn mất 4 ngày, và trong 4 ngày đó GPE cũng hoàn thành 3/7 còn lại. Như vậy bạn chỉ mất 4 ngày. Có thể sau 4 ngày nhận tiếp đơn hàng mới, và nói với khách cũ chi thêm tiền bồi dưỡng vì đơn hàng được làm với ưu tiên về thời gian.
Chúc mừng bạn,chúc những người đi xe máy sẽ sớm có ôtô để đi.
UCase$ Cách viết này thật là khó ưa.
Hi @HeSanbi,
.
Có thể nó có ảnh hưởng gì đó về tốc độ: UCase$ nhanh hơn UCase.
Hi @HeSanbi,
OT cũng chưa tìm hiểu về sự khác nhau này nên OT cũng chưa biết nữa. Ở bài #2 OT chỉ dùng UCase. OT thấy các bậc cao thủ tiền bối sử dụng nên nghĩ rằng có thể nó có cái gì đó khác và tối ưu hơn nên OT dùng theo ạ
HeSanbi có thể chỉ dẫn giúp OT 2 cách viết này có gì khác nhau được không ạ?
$ : String
% : Integer (Int16)
& : Long (Int32)
! : Single
# : Double
@ : Decimal
&H : Hex
&O : OctalUCase$ ra đời sau được cải tiến, điều đó là hiển nhiên
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 SubChú 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 SubKhông có chi ganh ghét - vì tôi không giúp gì bạn, nên khỏi cám ơn sám hối, ganh ghét
Ừ đúng. Đã cưỡi tỷ mốt thì cũng không phải loại đi ở thuê rồi. Ít ra cũng phải chung cư xyz tỷ nữa.
Cái Or mà Chủ Topic nói đúng đó ạ
Ý tôi là với điều kiện như thế thì "với trình độ GIỎi hay không, linh động hay không linh động, học thức bất kỳ" thì LUÔN (vì điều kiện luôn thỏa) "cưỡi Mada tiền tỷ". Rõ ràng cái này sai. Làm gì có LUÔN khi hàng triệu người vẫn chỉ cưỡi "xe gắn máy cà tàng", "xe đạp cà tàng hoặc cưỡi "dép lê cà tàng"?
Nhưng do đk cuối luôn TRUE nên rút gọn là
----------------
chứ không phải là OR ...
Nguyễn Duy Tuân chỉ cứng bên phần mềm thôi. Thử bắt anh ấy Lắp 1 cái tủ điện ATS cho 1 Hotel 3 sao Conect với PLC l S700 Simem thì làm sao a biết. Nên mổi người 1 mãng. Tôi không nói tôi giỏi phần cứng. Tôi luôn cho tôi thấp nhất trong Xã hội. Nên tôi hỏi thì mọi người cứ vui vẽ trả lời đầy đủ tội sẽ cầu Chúc tất ca mọi người đi Sinh Nhật GPE phải lên Mec hay BMW ...Lời kết.: Chúc cả nhà 1 buoi tổi vui vẽ Thanh tịnh Hoan hỷ. vài bửa nửa em nghiên cứu mà đụng chạm đến VBA mong mọi người giúp đở. Chân Thành cảm ơn ( E xin báo cáo e sinh năm 1994. Nhà ở Phú Nhuận . Hiện đang Quản lý Hotel cho Gia đình , Và Thiết kế mạch điện tự động cho Nghành Đường sắt )
Cỡ này không mấy người làm nổi đâu.
Nghe đến cái "Nghành" [sic] này đã rụng rún, bủn rủn chân tay, nể phục thớt quá.
Tôi cũng nhớ mang máng. Chỉ nhớ là anh kia cũng đi chùa thường xuyên.
Tại đánh nhanh quá nên sai chính tả. bác thích thì gửi Hình qua cho bác xem luôn đây
đúng rồi a. Phải thật từ bi thì đức phật mới thươngTôi cũng nhớ mang máng. Chỉ nhớ là anh kia cũng đi chùa thường xuyên.
Người Nam dùng tiếng lóng "chùa" với nghĩa rất ý nhị ở đâyTôi cũng nhớ mang máng. Chỉ nhớ là anh kia cũng đi chùa thường xuyên.
Khỏi cần. Có cái tên mà cũng gõ nhầm thì chỉ hù hoạ được những người "bằng cấp không quan trọng".
từ bi thì liên quan gì đến lập trình ở đây? phải chăng bạn muốn nói về kỹ thuật "lập trình chùa"?
Cái này đơn giản thôi. Phần mềm chấm điểm Bida. Kết nối ra 2 nút Nhấn. Nhấn 1 cái thì +1. bác thử bác làm 1 cái xem sao haha
Ai trả lời câu này mới là trẻ con.
Ủa lúc này thì từ bi và công đức để đâu nhỉ?
Ngứa nghề ghê!
Rolay đây là thiết bị Ngõ ra Ouput. Bác không biết mà nói họ cười cho kaka. Bác già rồi nên đi chuà thường xuyên đi. Đừng hơn thua đủ với Con cháu làm gì.
Em thấy Chủ topic là người rất giỏi đó ạ. Mới sinh năm 1994 mà mua xe gì ấy nhỉ quên mất tên rồi. Mà còn là người hướng Phật nữa. Tiếc quá nếu Bạn í mà theo đường từ hành thì cũng thành sư cụ rồi ... Hi hi. Em chạy thôi không Bạn ấy cho ăn Kim cang chưởng thì có mà chết
bác nói chưa đúng. Hiện tại nhà em đang Kinh Doanh Hotel. Khi khách vào Check In trên Phần mềm thì trên Phòng tự có điện, Nghĩa là Phần mềm Conect với PLC và từ PLC mới đóng cắt được thiết bị ngõ ra. Còn mấy con Tụ điện của bác, IC 555 làm gì kết nối được phần mềm
Mình mua xe lúc 22 tuổi rồi. Mình là Dân Phần cứng PLC và C++ chứ không phải VBA. VBA thì e gọi bác = cụ. Còn PLC thì bác nên gọi e bằng Cụ lại cho đều phải không nào
Hồi đó ngưới ta đánh vần từ "kết nối" tiếng Anh với hai ký tự "n". Công ty Simem là công ty cung cấp thiết bị xây dựng (bê tông, máy đổ bê tông). Và cổng điện tử gọi là "relay".
Chịu khó đọc lại bài #46, tôi nói về lập trình hướng đối tượng.
Bác này chuyện bé cứ xé ra to. Chẳng qua là người ta nói ngọng thôi.
Tôi thì cứ thích xé ra to để xem thớt còn hé lộ thêm bí mật về tài sản sự nghiệp gì không nữa.Bác này chuyện bé cứ xé ra to. Chẳng qua là người ta nói ngọng thôi.
À, thì ra bác giở nghiệp vụ công an. Tôi thuộc loại chậm hiểu.
