Chuyên đề giải đáp những thắc mắc về code VBA (1 người xem)

maytinhvp01 · 31/7/13

Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]

keke355992 · 28/5/16

Các bác cho em hỏi chút ạ, E có yêu cầu như trong File về phương thức Find. E cảm ơn ạ

keke355992 · 28/5/16

keke355992 đã viết:
Các bác cho em hỏi chút ạ, E có yêu cầu như trong File về phương thức Find. E cảm ơn ạ

Các bác xem giúp e với ạ, tại vì cũng có ít code qá, nên k mún mở topic mới tránh bị loãng ạ

SA_DQ · 28/5/16

Các bác cho em hỏi chút ạ, E có yêu cầu như trong File về phương thức Find. E cảm ơn ạ

Fương thức này không thể áp dụng để tìm 1 tháng cụ thể nào trong cột dữ liệu chứa ngày tháng kiểu DD/mm/yyyy hay MM/dd/yyyy

Hơn nữa, bạn cần lưu í 1 điều rằng khi cần tìm dữ liệu kiểu ngày tháng, ta cần định dạng toàn bộ vùng cần tìn về dạng 'MM/DD/YYYY'; Xài các dạng khác như Dd/MM/yyyy hay MM/DD/yy đều tiềm ẩn nguy cơ sai lệnh khôn lường.

keke355992 · 28/5/16

SA_DQ đã viết:
Fương thức này không thể áp dụng để tìm 1 tháng cụ thể nào trong cột dữ liệu chứa ngày tháng kiểu DD/mm/yyyy hay MM/dd/yyyy

Hơn nữa, bạn cần lưu í 1 điều rằng khi cần tìm dữ liệu kiểu ngày tháng, ta cần định dạng toàn bộ vùng cần tìn về dạng 'MM/DD/YYYY'; Xài các dạng khác như Dd/MM/yyyy hay MM/DD/yy đều tiềm ẩn nguy cơ sai lệnh khôn lường.

Vậy chỉ có giải pháp thêm 1 cột phụ bên cạnh, và dùng hàm Month của Excel thôi à a ơi

khongnhienttt · 1/6/16

Code này tạo 1 dãy 4, hoặc 5 số và chuỗi ngẫu nhiên, nhưng mình chưa hiểu cách hoạt động của nó như thế nào, xin các bác chỉ giáo

Mã:

Function GetRandName() As String
  GetRandName = Mid(CreateObject("Scripting.FileSystemObject").GetTempName, 4, 5)
End Function

ChanhTQ@ · 1/6/16

keke355992 đã viết:
Vậy chỉ có giải pháp thêm 1 cột phụ bên cạnh, và dùng hàm Month của Excel thôi à a ơi

Nếu vẫn muốn xài fương thức FOND() thì chịu khó tạo vòng lặp duyệt tìm tấn tần tật các ngày trong tháng đó có trong CSDL; Như kiểu:

Set Rng = Range("B2: B999")
Rng.NumFormat="MM/DD/yyyy"
For J= 1 To 31
Dat = Format(DateSerial(Nam, Thang,J),"MM/DD/yyyy")
Set sRng=Rng.Find(Dat,,XlValues,Xlwhole)

Next J

Hau151978 · 1/6/16

khongnhienttt đã viết:
Code này tạo 1 dãy 4, hoặc 5 số và chuỗi ngẫu nhiên, nhưng mình chưa hiểu cách hoạt động của nó như thế nào, xin các bác chỉ giáo

Mã:

Function GetRandName() As String GetRandName = Mid(CreateObject("Scripting.FileSystemObject").GetTempName, 4, 5) End Function

GetTempName dùng để tạo chuỗi ký tự để đặt tên cho file tạm.
Bạn vào tools-reference đánh dấu vào Microsoft Scripting Runtime. Copy code vào module:

Mã:

Sub a()
Set f = New FileSystemObject
Do
tmp = f.GetTempName
Loop
End Sub

Bấm F8 nhiều lần, quan sát biến tmp trong cửa sổ Local. Bạn sẽ thấy tmp có dạng rad?????.tmp, trong đó ????? là 5 ký tự ngẫu nhiên. Hàm mid(tmp,4,5) lấy ra 5 ký tự ngẫu nhiên đó.

khongnhienttt · 2/6/16

Hau151978 đã viết:
GetTempName dùng để tạo chuỗi ký tự để đặt tên cho file tạm.
Bạn vào tools-reference đánh dấu vào Microsoft Scripting Runtime. Copy code vào module:

Mã:

Sub a() Set f = New FileSystemObject Do tmp = f.GetTempName Loop End Sub

Bấm F8 nhiều lần, quan sát biến tmp trong cửa sổ Local. Bạn sẽ thấy tmp có dạng rad?????.tmp, trong đó ????? là 5 ký tự ngẫu nhiên. Hàm mid(tmp,4,5) lấy ra 5 ký tự ngẫu nhiên đó.

Cám ơn bạn, giờ mình đã hiểu

Itoday · 3/6/16

Mọi người cho em xin code thay cho lệnh này excel với ạ? Em chạy lệnh như này cho nhiều ô nên file bị nặng quá

Mấy hôm nay chập chững đọc tài liệu VBA mà càng đọc lại càng rối trong khi việc thì đang cần gấp

=IF(ISNA(INDEX(DATA,MATCH(1,(C.I<=$A$2)*(C.O>=$A$2)*(No.Room=A4)*(Don_gia>0)*(Guest=1),0),12)),"",INDEX(DATA,MATCH(1,(C.I<=$A$2)*(C.O>=$A$2)*(No.Room=A4)*(Don_gia>0)*(Guest=1),0),12))

Các dữ liệu: DATA; C.I ; C.O; No.Room ; Don_gia; Guest là vùng Define Name.

Em cám ơn mọi người nhiều ạ!

minhtungph · 7/6/16

bạn vui lòng up file lên để có cái mà hình dung chứ bạn

songlam294 · 10/6/16

Mọi người cho hỏi:
Em có file gồm nhiều sheets có liên kết với nhau bằng các công thức, tên và code trong mỗi sheets. Code trong mỗi sheets (sheets ;2;3;4;5) được viết để thay đổi khi dữ liệu ở sheet 1 thay đổi.
Khi thay đổi dữ liệu sheets 1 mà muốn code ở sheets 2;3;4;5 chạy nó bắt em phải click vào sheets đó đã. Em muốn in đồng loạt từ sheets 1 đến sheets 5 nhưng chỉ cần thay đổi dữ liệu ở sheet1 thôi và bấm in. Làm cách nào để code tự chạy ở các sheets khác mà ko cần click chọn hiển thị sheets đó.
Xin cảm ơn!!!

giaiphap · 10/6/16

songlam294 đã viết:
Mọi người cho hỏi:
Em có file gồm nhiều sheets có liên kết với nhau bằng các công thức, tên và code trong mỗi sheets. Code trong mỗi sheets (sheets ;2;3;4;5) được viết để thay đổi khi dữ liệu ở sheet 1 thay đổi.
Khi thay đổi dữ liệu sheets 1 mà muốn code ở sheets 2;3;4;5 chạy nó bắt em phải click vào sheets đó đã. Em muốn in đồng loạt từ sheets 1 đến sheets 5 nhưng chỉ cần thay đổi dữ liệu ở sheet1 thôi và bấm in. Làm cách nào để code tự chạy ở các sheets khác mà ko cần click chọn hiển thị sheets đó.
Xin cảm ơn!!!

Úp file bạn muốn thay đổi các sheet đó lên đây

songlam294 · 12/6/16

giaiphap đã viết:
Úp file bạn muốn thay đổi các sheet đó lên đây

Dữ liệu thay đổi là ở sheet 4 ô S12.

giaiphap · 12/6/16

songlam294 đã viết:
Dữ liệu thay đổi là ở sheet 4 ô S12.

Không biết đúng ý bạn không nhưng mình thấy có gì đó không ổn.

songlam294 · 12/6/16

Ko được anh ơi... nó vẫn vậy ko khác điều gì. vui nó chạy mà buồn nó ko anh ơi.

songlam294 · 12/6/16

giaiphap đã viết:
Không biết đúng ý bạn không nhưng mình thấy có gì đó không ổn.

Cẩm ơn ý tưởng của anh. Cái này có vẻ đúng anh nì. làm hơi khác chút. Anh xem code ở sheets "4" giúp

khuongvietphong · 13/6/16

Câu lệnh thay thế cho toán tử so sánh trong VBA

Chao mọi người. Em có vấn đề này cần được sự trợ giúp ạ.Em có đoạn Code sau:

Mã:

Sub hoi()
  bl As Boolean
  bl = 3 < 4
  MsgBox bl
End Sub

Tuy nhiên giờ em mốn viết khác đi như sau:

Mã:

Sub hoi()
  Dim ss As String, bl As Boolean
  ss = "<"
[COLOR=#ff0000][B]  bl = 3 & ss & 4[/B][/COLOR]
  MsgBox bl
End Sub

Nhờ mọi người viết giúp em câu lệnh màu đỏ thế nào để VBA hiểu được ạ

giangleloi · 13/6/16

khuongvietphong đã viết:
Chao mọi người. Em có vấn đề này cần được sự trợ giúp ạ.Em có đoạn Code sau:

Mã:

Sub hoi() bl As Boolean bl = 3 < 4 MsgBox bl End Sub

Tuy nhiên giờ em mốn viết khác đi như sau:

Mã:

Sub hoi() Dim ss As String, bl As Boolean ss = "<" [COLOR=#ff0000][B] bl = 3 & ss & 4[/B][/COLOR] MsgBox bl End Sub

Nhờ mọi người viết giúp em câu lệnh màu đỏ thế nào để VBA hiểu được ạ

Hãy thử khai báo biến với bl as string xem sao nhé. Mà muốn trả về kết quả là True hay sao?

khuongvietphong · 13/6/16

giangleloi đã viết:
Hãy thử khai báo biến với bl as string xem sao nhé

Không phải vầy anh à.

Ý em đúng là thế này đó :

giangleloi đã viết:
Mà muốn trả về kết quả là True hay sao?

phihndhsp · 13/6/16

Sub hoi()
Dim ss As String, bl As Boolean
ss = ">"
bl = Evaluate(3 & ss & 4)
MsgBox bl
End Sub

Chuyên đề giải đáp những thắc mắc về code VBA (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

/(hông là gì!

Thành viên thường trực

Thành viên hoạt động

0901452không62

Thành viên tích cực

Thành viên hoạt động

Thành viên mới

None

Thành viên mới

==(^o^)==

Thành viên mới

File đính kèm

==(^o^)==

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Be all you can be !

Thành viên gắn bó

Be all you can be !

Thành viên gạo cội

Đếm ngược thời gian