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

Status
Không mở trả lời sau này.

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
GPE giúp e đoạn code này với. Trước giờ chạy bình thường tự nhiên hôm nay báo lỗi.
Mã:
Sheets("INPUT").Select
   Selection.AutoFilter Field:=4
    Call timdulieu
    Sheets("INPUT").Select
   Selection.AutoFilter Field:=3
   Selection.AutoFilter Field:=4
   Call noiluc
   Call luccat
   Call lucxoan
   Sheets("INPUT").Select
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
 Sheets("NOILUC").Select
   ActiveSheet.Range(Cells(1, 1), Cells(5000, 14)).Select
   Selection.Copy
   Sheets("THUYET MINH").Select
    Range("K9").Select
    ActiveSheet.Paste
End Sub
báo lỗi ở dòng: Sheets("THUYET MINH").Select ạ
Anh thử xem lại xem sheet THUYET MINH đó có dấu cách hay không.
 
Upvote 0
GPE giúp e đoạn code này với. Trước giờ chạy bình thường tự nhiên hôm nay báo lỗi.
Mã:
Sheets("INPUT").Select
   Selection.AutoFilter Field:=4
..
End Sub
báo lỗi ở dòng: Sheets("THUYET MINH").Select ạ
Chẳng biết có đúng không nhưng rút gọn lại như dưới, nếu không nó sẽ giật giật như đèn nháy...
PHP:
    Sheets("INPUT").AutoFilter Field:=4
    Call timdulieu
    Sheets("INPUT").AutoFilter Field:=3
    Sheets("INPUT").AutoFilter Field:=4
    Call noiluc
    Call luccat
    Call lucxoan
    Sheets("INPUT").AutoFilter Field:=3
    Sheets("INPUT").AutoFilter Field:=4
    Sheets("NOILUC").Range(Cells(1, 1), Cells(5000, 14)).Copy Sheets("THUYET MINH").Range("K9").Paste
 
Upvote 0
@thangteo: ý a là dấu cách ở tên của sheets? Nếu là tên sheets thì nó có cách.
@befaint: Đúng là nó nháy như đèn thật bác ạ, mà sửa lại thì vẫn báo lỗi
 
Upvote 0
Chào các bác,
Em cần đưa ảnh ở trong cùng thư mục vào file excel theo từng dòng tương ứng với tên ảnh, trước đã hoạt động tốt nhưng nay mang ra chạy thì nó đứng yên. Các bác giúp em với. Xin cảm ơn:

Add: Các marco khác em chạy vô tư, khi chạy code dưới thì nó báo: Can't execute this code in break mode.


Mã:
Public Sub inputimages()

Dim curFile As String
Dim rHeight As Double

If ActiveSheet.Name <> "Sheet1" Then Exit Sub

If ActiveSheet.Cells(1, 1).Value = "" Then
    curFile = Dir(ActiveWorkbook.Path & "\", vbNormal)
    While curFile <> ""
        For i = 2 To 1000
            If ActiveSheet.Cells(i, 1).Value = curFile Then
                ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & curFile).Select
                With Selection
                    .Left = ActiveSheet.Cells(i, 2).Left
                    .Top = ActiveSheet.Cells(i, 2).Top
                    .Height = WorksheetFunction.Min(100, .Height)
                    rHeight = .Height
                End With
                ActiveSheet.Rows(i).Select
                Selection.rowHeight = rHeight
            End If
        Next
        curFile = Dir
    Wend
End If

End Sub
Bạn dùng cái này xem có được không
httpss://www.youtube.com/watch?v=tMAR57PjCdg
 
Upvote 0
Thầy và các bạn cho em hỏi. Em có vẽ một textbox trên worksheet bằng ActiveX Control.
Em muốn khi nhấn ESC thì sẽ xóa giá trị của textbox và con trỏ chuột cũng nằm trên textbox.
Code em viết vậy thì chỉ xóa được giá trị của textbox nhưng con trỏ chuột lại không nằm trên textbox nữa.
em thử setfocus rồi nhưng cũng không được.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
TextBox1.Value = ""
TextBox1.Activate
End If
End Sub

Xin cam on
 
Upvote 0
Thầy và các bạn cho em hỏi. Em có vẽ một textbox trên worksheet bằng ActiveX Control.
Em muốn khi nhấn ESC thì sẽ xóa giá trị của textbox và con trỏ chuột cũng nằm trên textbox.
Code em viết vậy thì chỉ xóa được giá trị của textbox nhưng con trỏ chuột lại không nằm trên textbox nữa.
em thử setfocus rồi nhưng cũng không được.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
TextBox1.Value = ""
TextBox1.Activate
End If
End Sub

Xin cam on
Làm gì có vụ TextBox1.Activate hả bạn? Có chăng là TextBox1.SetFocus thì được
 
Upvote 0
khi nhấn ESC thì sẽ xóa giá trị của textbox và con trỏ chuột cũng nằm trên textbox.
PHP:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
    KeyCode = 0
    TextBox1.Value = ""
    TextBox1.Activate
End If
End Sub
 
Upvote 0
Mình thấy trong VBA Bác Bill có Static Sub như sau nó có tác dụng Gì ???!!!

1/ Tại sao phải khai báo Static trước sub
2/ Sử dụng Nó trong trường hợp nào là phù hợp ??!!!
3/ Nó khác với sub bình thường cái gì hay chỉ đơn giản thêm từ Static
4/ Nếu không có ích gì thì tại sao Bác Bill lại cho nó như vậy
5/ Nó khác gì với khai báo biến kiểu Static
6/ Ai biết xin mách dùm ................. Tại sao nhỉ

PHP:
Public Static Sub Abcxyz()
MsgBox "OK"
End Sub
 
Upvote 0
Mình thấy trong VBA Bác Bill có Static Sub như sau nó có tác dụng Gì ???!!!

1/ Tại sao phải khai báo Static trước sub
2/ Sử dụng Nó trong trường hợp nào là phù hợp ??!!!
3/ Nó khác với sub bình thường cái gì hay chỉ đơn giản thêm từ Static
4/ Nếu không có ích gì thì tại sao Bác Bill lại cho nó như vậy
5/ Nó khác gì với khai báo biến kiểu Static
6/ Ai biết xin mách dùm ................. Tại sao nhỉ

PHP:
Public Static Sub Abcxyz()
MsgBox "OK"
End Sub
Cái ni chắc lại réo anh VetMini lên thôi :D

http://www.giaiphapexcel.com/dienda...te-public-static-function.108740/#post-679757
 
Upvote 0
Mình thấy trong VBA Bác Bill có Static Sub như sau nó có tác dụng Gì ???!!!

1/ Tại sao phải khai báo Static trước sub
2/ Sử dụng Nó trong trường hợp nào là phù hợp ??!!!
3/ Nó khác với sub bình thường cái gì hay chỉ đơn giản thêm từ Static
4/ Nếu không có ích gì thì tại sao Bác Bill lại cho nó như vậy
5/ Nó khác gì với khai báo biến kiểu Static
6/ Ai biết xin mách dùm ................. Tại sao nhỉ

PHP:
Public Static Sub Abcxyz()
MsgBox "OK"
End Sub
Quá đơn giản, nó cho biết rằng tất cả các biến cục bộ trong sub đều là static ( được giữ lại giá trị sau các lần gọi). nếu thủ tục cần có 10 biến static, nếu gõ 10 cái static cũng lâu, thay vào đó gõ một cái là được.
 
Upvote 0
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
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Quá đơn giản, nó cho biết rằng tất cả các biến cục bộ trong sub đều là static ( được giữ lại giá trị sau các lần gọi). nếu thủ tục cần có 10 biến static, nếu gõ 10 cái static cũng lâu, thay vào đó gõ một cái là được.
static thì mình biết ... Còn bạn giải thích nghe chưa thuyết phục lắm
1/ Căn cứ vào đâu ???
2/ Tài liệu nào trích dẫn ???
3/ Nếu câu 1 & 2 không có Thì: VD chứng minh Bạn giải thích là đúng !!! ???
 
Upvote 0
bị
static thì mình biết ... Còn bạn giải thích nghe chưa thuyết phục lắm
1/ Căn cứ vào đâu ???
2/ Tài liệu nào trích dẫn ???
3/ Nếu câu 1 & 2 không có Thì: VD chứng minh Bạn giải thích là đúng !!! ???
sư phụ em bảo thế. lúc nào rảnh viết code là hiểu liền
 
Upvote 0
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
 
Lần chỉnh sửa cuối:
Upvote 0
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
Mình mới Thử Run 1 cái nó ra như hình nè ...Run cái nữa nó + 1Capture.PNG
 
Upvote 0
Status
Không mở trả lời sau này.
Web KT

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

Back
Top Bottom