Những câu hỏi về code, xin giải thích các code, đề nghị các bạn gửi vào đây

Liên hệ QC
Status
Không mở trả lời sau này.

ST-Lu!

Love Wingchun
Tham gia
19/8/08
Bài viết
730
Được thích
546
Nghề nghiệp
Xích lô một thời
Kể từ hôm nay, tất cả những câu hỏi nhờ giải thích dùm một đoạn code, hay là hỏi những vấn đề linh tinh gì liên quan đến cách viết code, đề nghị các bạn gửi chung vào đây.

Những đề tài mới với tiêu đề: "Nhờ giải thích dùm đoạn code", mà không nói rõ là code gì, code dùng để làm gì, sẽ bị xóa.

BQT

----------------------------------------------------------------------------------------------------------------


Em xin được hỏi 2 đoạn code sau có tương đương nhau ?

Cells(Cells.Rows.Count, 1).End(xlUp).Row có tương đương với [A65000].End(xlup).row

Cám ơn các anh chỉ giáo
 
Chỉnh sửa lần cuối bởi điều hành viên:
Chào bạn mình la thành viên mới. Thấy bảo chưa post được 30 bài thì chưa lập topic gi đó được. đọc trên diễn đàn thấy bảo posts nhờ trên topic khác: cho minh hỏi vói nhé minh moi hoc VBA: Đề bài là: Viết hàm nhận 1 số nguyên dương có 3 chữ số, tính tổng của 3 chữ số đó. mình đã viết đoạn code thử làm bên dưới nhưng khi chạy lại sai. Giả sử số đó là 456 thì kết quả phải la 15 nhưng khi chạy lại ra 56. mong ban chỉ giup!
Public Function tong(sobachu As Long)
Dim a As Long, b As Long, c As Long
c = sobachu Mod 10
b = sobachu Mod 100 - c
a = (sobachu - b * 10 - c) / 100
tong = a + b + c
End Function

Bạn sai cái b.
Ví dụ có 456 thì
c = 6 => b = sobachu Mod 100 - c = 456 mod 100 - 6 = 56 - 6 = 50

Chắc bạn biết sửa?
 
Upvote 0
Cảm ơn ban trước, mình đã thử đoạn code của ban với số có 3 chữ số la 456 Kq là 15 đã đúng. Nhưng cho hỏi thêm là đoạn code của minh logic sai chỗ nào với????
 
Lần chỉnh sửa cuối:
Upvote 0
Mình vừa thử trên cửa sổ Immediate đây mà:

Này nha:

?Tong3So(456) = Tong3So(654)
True!
 
Upvote 0
Nhờ bổ sung thêm CODE để có thể tổng hợp cho tất cả các SHEET

Mình có đoạn CODE này để tổng hợp dữ liệu, nhưng nó chỉ tổng hợp được dữ liệu của một SHEET có tên là "MAU1". Nhờ các cao thủ chỉnh sửa giúp để CODE có thể tổng hợp cho tất cả các SHEET từ dữ liệu tương ứng của các file:

Option Explicit
Sub BCTK(Folder As String, ShName As String, SrcRng As String, Target As Range)
Dim Temp As String
Temp = ShName & "'!" & Range(SrcRng).Address(, , 2)
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
ActiveWorkbook.Names.Add "Arr", "=""'" & Folder & "[""&Files(""" & Folder & "*.*"")&""]" & Temp & """"
Target.Consolidate Evaluate("Arr"), 9, 0, 1
ActiveWorkbook.Names("Arr").Delete
End Sub
Sub Tonghop()
Dim Folder As String, ShName As String, SrcRng As String
Range("B12:M27").ClearContents
With CreateObject("Shell.Application")
On Error Resume Next
Folder = .BrowseForFolder(0, "", 1).Self.Path
End With
ShName = "MAU1": SrcRng = "B12:M27"
BCTK Folder, ShName, SrcRng, Range("B12")
End Sub

Xin cảm ơn!
 
Upvote 0
Giải thích giup tu khoá

Từ khoá mình muốn hỏi là " Ran.Rows.Count và Ran.Columns.Count "
Trong ví du:
Public Function Tong(Ran As Range)
Dim d As Integer, c As Integer, sum As Double
sum = 0
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
sum = sum + Ran.Cells(d, c)
Next c
Next d
Tong = sum
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
Từ khoá mình muốn hỏi là " Ran.Rows.Count và Ran.Columns.Count "
Trong ví du:
Public Function Tong(Ran As Range)
Dim d As Integer, c As Integer, sum As Double
sum = 0
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
sum = sum + Ran.Cells(d, c)
Next c
Next d
Tong = sum
End Function
Ran.Rows.Count là đếm số HÀNG vùng có tên là Ran
Ran.Columns.Count là đếm số CỘT vùng có tên là Ran
 
Upvote 0
Cảm ơn ban nhé. Mới bít một ít nên khổ thế đấy. Cái gì cũng la mới lạ!
 
Upvote 0
Thớt này dài quá rồi, tôi đóng tại đây.
 
Upvote 0
Giúp mình tìm lỗi cho đoạn CODE này với......

Ko hiểu sao trong sheet HoaDon mình chọn lựa nhập phần Tỉnh - Tên Khách Hàng - Mã KH xong rồi nhấn Nhập Hoá Đơn trên sheet Hoa Don lại báo lỗi . trong khí không nhập phần Tỉnh - Tên KH - Mã KH thì lại ko báo lỗi.
Các pro giúp mình với
Thanks
 

File đính kèm

  • Vượng.7z
    43.8 KB · Đọc: 34
Upvote 0
Lỗi là do bạn dùng lẫn lộn 2 phương thức AddItem và Rowsource. Vì còn liên quan đến lọc nên bạn phải giữ lại phương thức AddItem và vào Properties của cbbMa và cbbName xóa Rowsource của nó đi là OK
 
Upvote 0
Có cách nào khác để làm phần combobox trong phần Tỉnh - Khách Hàng - Mã Khách hàng mà không cần dùng Name như mình làm không bạn
 
Upvote 0
Đây là Form mà vai trò của 2 Combo này hoàn toàn khác xa với mục đích nhập liệu. Chính vì vậy mà việc sử dụng nó để nhập liệu là không hợp lý và dẫm chân lên nhau. Banj nên bổ xung 1 Form khác hoặc dùng 1 Combo thôi để làm việc này.
 
Upvote 0
Status
Không mở trả lời sau này.
Web KT
Back
Top Bottom