Chuyên mục xử lý, gỡ rối code VBA (2 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Status
Không mở trả lời sau này.
ndu96081631

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia
5/6/08
Bài viết
30,703
Được thích
53,957
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Vô danh Tiểu tốt đã viết:
Thay vì họanh họe người có chút thành ý chia sẻ , tôi bỏ ra 30s thử viết cái này
PHP: 
Static Sub ton30sthuthoi()
    Dim a, b
    a = a + 1
    b = b + 1
    Debug.Print a, b
End Sub
và thu được kết quả sau 6 phát run
1 1
2 2
3 3
4 4
5 5
6 6
Hay phết NguyenNgocThuHien nhở! Cơ mà sư phụ của cô là ai thế? :D
Nhấp chuột vào đây để mở rộng...
dùng static trong class thì còn nhiều điều hấp dẫn hơn nhiều.
 
Upvote 0
befaint đã viết:
Cái ni chắc lại réo anh VetMini lên thôi :D
Nhấp chuột vào đây để mở rộng...

VBA là ngôn ngữ rất tuỳ thuộc vào moi trường dịch. Lúc xem code, ngừoi ta luôn luôn chú ý đến cái phần Options ở đầu mô đun. Kế đó là để ý các tiền tố của khai báo.

VBA có cái luật rất vô duyên là cha mẹ có quyền điều khiển con cái.
Điển hình này là 1: Để khỏi mất công chỉnh từng lệnh Dim trong hàm thành Static, ngừoi ta chỉ cần khai báo hàm Static là tất cả các biến nội của hàm trở thành static.
Tôi đoán lý do MS ra cái luật vô duyên này là vì nếu bạn không Option Explicit thì các biến trong hàm có thể dùng mà không cần khai báo; khi bạn muốn sửa chúng thành static thì phải lục từng cái ra để khai báo, cái nào sót là tèo; giải pháp của MS là cho cha mẹ (hàm) ép chúng static luôn cho tiện.

phuyen89 đã viết:
- Cái này dùng để In ra Số phiếu tiếp theo, giống như ở các Bệnh viện, bệnh nhân lấy Số Phiếu liên tục ấy nhỉ.
Nhấp chuột vào đây để mở rộng...

Tầm bậy. Làm việc kiểu này thì bệnh viện phá sản.
 
Upvote 0
heogay83 đã viết:
em mới bắt đầu học vba, giờ muốn làm 1 bài đánh số thứ tự từ trên xuống theo nhóm liên tục.
+ giả sử cột dữ liệu cần đánh stt là A, và cột đánh stt là B thì từ :B1 B2 B3 = 111 tiếp theo B4 B5 B6 = 222........ chạy liên tục cho đến hàng cuối cùng cột A
+ Em đã viết được 1 sub để chạy, nhưng sub chỉ đúng khi cột dữ liệu bắt đầu từ A1 hoặc A2 tương ứng bắt đầu đánh số thứ tự là B1 hoặc B2. còn từ hàng tiếp theo sub chạy sai ( ví dụ cột dữ liệu từ A3 và hàng đánh stt bắt đầu từ B3)
Nhờ các bác xem và sửa lại code theo file đính kèm sao cho code có thể chạy nếu nhập vào hàng bất kỳ. Nếu code sửa như nào, các bác giải thích cho e hiểu với. thanks all
Nhấp chuột vào đây để mở rộng...

Ai giúp e bài này với ah.
 
Upvote 0
Các bác giúp em giải quyết lỗi này với:
Em có 3 class module là class1,class2,class3 và 1 module chính chạy 3 class như sau
Public Sub chinh()
Dim so As Byte
so = Worksheets("nhap").Range("a1").Value
Dim c1 As Object
If so = 1 Then
Set c1 = New Class1
c1.nhap
ElseIf so = 2 And Worksheets("nhap").Range("j1") = 0 Then
Set c1 = New Class2
c1.lcttt
ElseIf so = 2 And Worksheets("nhap").Range("j1") > 0 Then
Set c1 = New Class3
c1.chitiet
End If
Set c1 = Nothing
End Sub
Nhưng khi chạy thì nó báo lỗi "run time error 5 invalid procedure call or argument" tại dòng c1.chitiet.Nên có bác nào biết cách khắc phục thì xin chỉ giúp.Thanks
 
Upvote 0
thunghe đã viết:
Các bác giúp em giải quyết lỗi này với:
Em có 3 class module là class1,class2,class3 và 1 module chính chạy 3 class như sau
Public Sub chinh()
Dim so As Byte
so = Worksheets("nhap").Range("a1").Value
Dim c1 As Object
If so = 1 Then
Set c1 = New Class1
c1.nhap
ElseIf so = 2 And Worksheets("nhap").Range("j1") = 0 Then
Set c1 = New Class2
c1.lcttt
ElseIf so = 2 And Worksheets("nhap").Range("j1") > 0 Then
Set c1 = New Class3
c1.chitiet
End If
Set c1 = Nothing
End Sub
Nhưng khi chạy thì nó báo lỗi "run time error 5 invalid procedure call or argument" tại dòng c1.chitiet.Nên có bác nào biết cách khắc phục thì xin chỉ giúp.Thanks
Nhấp chuột vào đây để mở rộng...
Kiểm tra lại Class3, thành viên chitiet xem có lỗi gì không?
 
Upvote 0
heogay83 đã viết:
em mới bắt đầu học vba, giờ muốn làm 1 bài đánh số thứ tự từ trên xuống theo nhóm liên tục.
+ giả sử cột dữ liệu cần đánh stt là A, và cột đánh stt là B thì từ :B1 B2 B3 = 111 tiếp theo B4 B5 B6 = 222........ chạy liên tục cho đến hàng cuối cùng cột A
+ Em đã viết được 1 sub để chạy, nhưng sub chỉ đúng khi cột dữ liệu bắt đầu từ A1 hoặc A2 tương ứng bắt đầu đánh số thứ tự là B1 hoặc B2. còn từ hàng tiếp theo sub chạy sai ( ví dụ cột dữ liệu từ A3 và hàng đánh stt bắt đầu từ B3)
Nhờ các bác xem và sửa lại code theo file đính kèm sao cho code có thể chạy nếu nhập vào hàng bất kỳ. Nếu code sửa như nào, các bác giải thích cho e hiểu với. thanks all
Nhấp chuột vào đây để mở rộng...

Có bác nào giúp e với, 5 ngày rồi mà e vẫn chưa nghĩ ra cách giải quyết. E up lại file ạ, file này vs bài cũ giống nhau, chưa tiến triển gì thềm.
 

File đính kèm

Upvote 0
Nhờ mọi người chỉnh giúp code sau bị trễ giây với ạ, khi có âm thanh kêu lên thì thời gian bị trễ ạ. Có cách nào để chạy âm thanh độc lập mà âm thanh vẫn đảm bảo đúng thơi gian khi bắt đầu chạy và kết thúc không ạ?
-------
Private Sub DisplayTimer()
Dim i As Long
If Not Pause Then
If Min = 0 And Sec = 0 Then
Display_Off
SubBeep
iArrTimeInfo = iArrTimeInfo + 1
If iArrTimeInfo <= UBound(ArrTimeInfo, 2) Then
BangDiem.LB_ThoiGian.Caption = ArrTimeInfo(1, iArrTimeInfo) & ":" & Format(ArrTimeInfo(2, iArrTimeInfo), "00")
If Round(iArrTimeInfo Mod 2, 0) = 0 Then
Call BatDauVaKetThucHiep
Display_On
BangDiem.LB_ThoiGian.ForeColor = &H8000&
Else
BangDiem.LB_Hiep.Caption = ThongTin.Range(Hiep).Value & "" & Round((iArrTimeInfo + 1) / 2, 0)
Call HetThoiGianNghi
BangDiem.LB_TrangThai.Caption = ThongTin.Range(SanSang).Value
BangDiem.LB_ThoiGian.ForeColor = &HFF&
End If
Else
Call BatDauVaKetThucHiep
BangDiem.LB_ThoiGian.Caption = "0:00"
BangDiem.LB_TrangThai.Caption = ThongTin.Range(KetThuc).Value
BangDiem.CB_DangThiDau.Value = False
End If
Exit Sub
ElseIf Sec = 0 And Min > 0 Then
Sec = 59: Min = Min - 1
Else
Sec = Sec - 1
End If
BangDiem.LB_ThoiGian.Caption = Min & ":" & Format(Sec, "00")
End If
End Sub
----------
Còn đây là cái code khai báo Call âm thanh bên module 2:
Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal SoundName As String, _
ByVal Flags As Long) As Long
Sub PlayWav(ByVal WavFileName As String)
Call sndPlaySound(WavFileName, 0)
End Sub
Sub BatDauVaKetThucHiep()
Call PlayWav(ThisWorkbook.Path + "\AmThanh\Moi\BatDauVaKetThuc.wav")
End Sub
----------
 
Upvote 0
Mình có làm combobox theo bài viết trên forum. Hiện tại sau khi nhập liệu ấn enter thì nó đứng im ở ô nhập nhưng mình muốn sau khi nhập xong ấn enter nó sẽ nhảy sang ô bên cạnh (xuống dưới hoặc sang phải tùy theo thiết đặt trong option) để tiếp tục nhập liệu. Mọi người giúp thêm code giúp mình với
 

File đính kèm

Upvote 0
Chào cả nhà ạ, em có code như sau nhưng nó dài quá muốn nhờ các bạn rút gọn lại ạ.
Đây là code lấy vùng dữ liệu của 3 file excel nhập vào chung 1 sheet ở file excel khác em copy được ở trên mạng về chế biến thêm ạ ^^!

Mã: 
Option Explicit
Sub noibang1()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky1.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("A1:G767") = GetData(sFile, sSheet, sAddr)
End Sub

Sub noibang2()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky2.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("I1:O767") = GetData(sFile, sSheet, sAddr)
End Sub

Sub noibang3()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky3.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("Q1:W767") = GetData(sFile, sSheet, sAddr)
End Sub

Function GetData(sFile As String, sSheet As String, sAddr As String)
  Dim pLink As String, iR As Long, iC As Long, Arr
  If Len(Dir(sFile)) Then
    Arr = Range(sAddr)
    pLink = "'" & Replace(sFile, Dir(sFile), "[" & Dir(sFile) & "]") & sSheet & "'!"
    For iR = 1 To Range(sAddr).Rows.Count
      For iC = 1 To Range(sAddr).Columns.Count
        Arr(iR, iC) = ExecuteExcel4Macro(pLink & Range(sAddr).Cells(iR, iC).Address(, , 2))
      Next iC
    Next iR
    GetData = Arr
  End If
End Function
 
Upvote 0
nhatrang1986 đã viết:
Chào cả nhà ạ, em có code như sau nhưng nó dài quá muốn nhờ các bạn rút gọn lại ạ.
Đây là code lấy vùng dữ liệu của 3 file excel nhập vào chung 1 sheet ở file excel khác em copy được ở trên mạng về chế biến thêm ạ ^^!

Mã: 
Option Explicit
Sub noibang1()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky1.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("A1:G767") = GetData(sFile, sSheet, sAddr)
End Sub

Sub noibang2()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky2.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("I1:O767") = GetData(sFile, sSheet, sAddr)
End Sub

Sub noibang3()
  Dim sFile As String, sSheet As String, sAddr As String
  sFile = ThisWorkbook.Path & "\ky3.xlsx"
  sSheet = "G000141"
  sAddr = "C19:I785"
  Range("Q1:W767") = GetData(sFile, sSheet, sAddr)
End Sub

Function GetData(sFile As String, sSheet As String, sAddr As String)
  Dim pLink As String, iR As Long, iC As Long, Arr
  If Len(Dir(sFile)) Then
    Arr = Range(sAddr)
    pLink = "'" & Replace(sFile, Dir(sFile), "[" & Dir(sFile) & "]") & sSheet & "'!"
    For iR = 1 To Range(sAddr).Rows.Count
      For iC = 1 To Range(sAddr).Columns.Count
        Arr(iR, iC) = ExecuteExcel4Macro(pLink & Range(sAddr).Cells(iR, iC).Address(, , 2))
      Next iC
    Next iR
    GetData = Arr
  End If
End Function
Nhấp chuột vào đây để mở rộng...

Mã: 
Option Explicit

Sub noibang123(byVal soBang As Integer)
  Dim sFile As String, sAddr As String
  Select Case soBang
  Case 1
    sFile = ThisWorkbook.Path & "\ky1.xlsx"
    sAddr = "A1"
  Case 2
    sFile = ThisWorkbook.Path & "\ky2.xlsx"
    sAddr = "I1"
  Case 3
    sFile = ThisWorkbook.Path & "\ky3.xlsx"
    sAddr = "Q1"
  Case Else
    Exit Sub
  End Select
  Range(sAddr).Resize(767,7) = GetData(sFile,"G000141","C19:I785")
End Sub

Sub noibang1()
noibang123 1
End Sub

Sub noibang2()
noibang123 2
End Sub

Sub noibang3()
noibang123 3
End Sub

Function GetData(sFile As String, sSheet As String, sAddr As String)
' Khong cần sửa, vả lại ai biết bạn muốn làm gì mà sửa
End Function
 
Upvote 0
VetMini đã viết:
Mã: 
Option Explicit

Sub noibang123(byVal soBang As Integer)
  Dim sFile As String, sAddr As String
  Select Case soBang
  Case 1
    sFile = ThisWorkbook.Path & "\ky1.xlsx"
    sAddr = "A1"
  Case 2
    sFile = ThisWorkbook.Path & "\ky2.xlsx"
    sAddr = "I1"
  Case 3
    sFile = ThisWorkbook.Path & "\ky3.xlsx"
    sAddr = "Q1"
  Case Else
    Exit Sub
  End Select
  Range(sAddr).Resize(767,7) = GetData(sFile,"G000141","C19:I785")
End Sub

Sub noibang1()
noibang123 1
End Sub

Sub noibang2()
noibang123 2
End Sub

Sub noibang3()
noibang123 3
End Sub

Function GetData(sFile As String, sSheet As String, sAddr As String)
' Khong cần sửa, vả lại ai biết bạn muốn làm gì mà sửa
End Function
Nhấp chuột vào đây để mở rộng...
À mình muốn copy dữ liệu tự động từ 3 file ky1,2,3 (vùng dữ liệu giống nhau là C19:I785, tên sheet giống nhau là G000141) vào chung 1 sheet ở file thứ 4.

Bạn cho hỏi thêm là muốn copy vào sheet chỉ định ở file thứ 4 được không ạ (ví dụ sheeet Tonghop), trước khi copy thì xóa hết dữ liệu ở sheet Tonghop ạ.

Cảm ơn./.
 
Upvote 0
nhatrang1986 đã viết:
Bạn cho hỏi thêm là muốn copy vào sheet chỉ định ở file thứ 4 được không ạ (ví dụ sheeet Tonghop), trước khi copy thì xóa hết dữ liệu ở sheet Tonghop ạ.
Nhấp chuột vào đây để mở rộng...

Ai mà biết các sub noibang1,2,3 được gọi bằng cách nào?
Lúc sửa code, tôi cố tình sửa theo cách để không ảnh hưởng đến những cái bạn không đưa ra. Tức là những cái gì đó gọi sub noibang1,2,3 chúng không hề biết là các sub này đã thay đổi.
Muốn làm hơn nữa thì phải biết cái file của bạn nó ra ao.
 
Upvote 0
VetMini đã viết:
Ai mà biết các sub noibang1,2,3 được gọi bằng cách nào?
Lúc sửa code, tôi cố tình sửa theo cách để không ảnh hưởng đến những cái bạn không đưa ra. Tức là những cái gì đó gọi sub noibang1,2,3 chúng không hề biết là các sub này đã thay đổi.
Muốn làm hơn nữa thì phải biết cái file của bạn nó ra ao.
Nhấp chuột vào đây để mở rộng...
À vâng, mình gửi kèm file bạn xem giùm với ạ
 

File đính kèm

Upvote 0
Trong file mình có 2 Function, ý tưởng viết đều như nhau nhưng Function GPE2 lại báo lỗi Ref, mong các bạn trợ giúp
Mã: 
Function GPE2(Rng As Range, SP As String, Num As Long)
    Dim frng As Range
    Set frng = Rng.Resize(, 1).Find(SP, , xlValues, xlWhole, , , True)(, 2)
    GPE2 = IIf(frng > Num Or frng(, 2) < Num, Space(0), frng + Num - 1)
    Set frng = Nothing
End Function
 

File đính kèm

Upvote 0
minhtungph đã viết:
Trong file mình có 2 Function, ý tưởng viết đều như nhau nhưng Function GPE2 lại báo lỗi Ref, mong các bạn trợ giúp
Mã: 
Function GPE2(Rng As Range, SP As String, Num As Long)
    Dim frng As Range
    Set frng = Rng.Resize(, 1).Find(SP, , xlValues, xlWhole, , , True)(, 2)
    GPE2 = IIf(frng > Num Or frng(, 2) < Num, Space(0), frng + Num - 1)
    Set frng = Nothing
End Function
Nhấp chuột vào đây để mở rộng...
Hay!, GPE2 nó lại vô tình trùng với địa chỉ của ô GPE2. Sửa nó thành GPE_2 xem, mà cũng chả hiểu hàm của bạn nó làm cái gì nữa.
 
Upvote 0
Upvote 0
Status
Không mở trả lời sau này.
Web KT

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

phatnguyen7301
  • Question Question
Viết code không trùng dữ liệu
Trả lời
2
Đọc
50
SA_DQ
SA_DQ
V
  • Question Question
Đếm xếp loại của đơn hàng
Trả lời
6
Đọc
97
vanlinh_2904
V
Manhhung90
Thoát chế độ Read only file word. Nhờ mọi người giúp ạ
Trả lời
5
Đọc
73
Manhhung90
Manhhung90
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng theo điều kiện cho trước.
Trả lời
3
Đọc
87
hanhnguyen12022021
H
N
Không chạy được file VBA
Trả lời
2
Đọc
87
hoangtuan.net
hoangtuan.net
H
Quản Lý Công Văn đi Và đến
9 10 11
Trả lời
214
Đọc
159K
ptm0412
ptm0412
T
Em muốn xin chỉ giáo file excel theo dõi thu chi, lãi lỗ của từng xe để báo cáo ạ
Trả lời
3
Đọc
81
VetMini
V
S
RemoveDuplicates Adodb VBA
Trả lời
0
Đọc
69
sykika
S
G
  • Question Question
BẢO MẬT VBAPROJECT
Trả lời
0
Đọc
124
giaoluu1231
G
sangvanng92
  • Question Question
Phân quyền user truy cập
Trả lời
9
Đọc
176
Hoàng Tuấn 868
H
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm
Trả lời
7
Đọc
148
DinhManh1307
DinhManh1307
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
6
Đọc
304
tranhungdao12a3
T
GPE-Trợ Lý
[GPE] TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365 (1 người xem)
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
36 37 38
Trả lời
759
Đọc
49K
befaint
befaint
H
Quên mật khẩu khóa protect
Trả lời
18
Đọc
278
HeSanbi
HeSanbi
NguyenNgocThuHien
  • Question Question
Liệt kê tổ hợp chập k của nhóm n phần tử.
    • Thích
    • Yêu thích
2 3
Trả lời
54
Đọc
17K
phương Đức
P
T
  • Question Question
Tìm này không xuất hiện trong khoảng thời gian
Trả lời
7
Đọc
114
tuan16
T
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
5
Đọc
197
befaint
befaint
nghiahandsome1995
Xin mã code autofit
Trả lời
4
Đọc
151
yaaasoo01
Y
tuankieu28
Hỗ trợ sửa hàm tìm thông tin
Trả lời
1
Đọc
51
thuytrangbp28
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom