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

[ndu96081631]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[thanhnt1910]

Trên bảng mô tả công việc của bạn có mục nào ghi kiểu như "thực hiện các công việc trên excel bằng macro" không

Sếp em viết là: "Viết macro update mã và tên nhân viên vào template kế hoạch sản xuất của PX" anh ạ.

 

[thanhnt1910]

Tôi dị ứng với cái kiểu "Sếp bắt em làm" lắm

Tôi thích làm gì là việc của tôi. Tôi thấy hợp lý, thuận lợi cho tôi tôi làm. Thế thôi....

Chứ đừng ở đây nói là "Sếp bắt em làm như vậy". Dị ứng lắm.


Thế bạn trả lời sao???

Em thấy làm bằng macro cũng thuận tiện hơn mà anh. Sếp giao thì em làm thôi. Thôi để em tự nghiên cứu, em cảm ơn anh.

 

[VetMini]

thanhnt1910 said: ↑
Sếp em viết là: "Viết macro update mã và tên nhân viên vào template kế hoạch sản xuất của PX" anh ạ.

Thế bạn trả lời sao???

Trả lời là:
- Nếu tôi có khả năng làm như sếp muốn thì tôi cũng có khả năng kiếm được việc nhiều tiền hơn, và được cấp trên đối xử tốt hơn.

 

[huuthang_bd]

Em thấy làm bằng macro cũng thuận tiện hơn mà anh. Sếp giao thì em làm thôi. Thôi để em tự nghiên cứu, em cảm ơn anh.

Ghi trên bảng mô tả công việc (khi tuyển dụng) khác với giao việc nha bạn.
Những công việc trên bảng mô tả công việc là trách nhiệm của bạn, bạn phải làm những việc đó để hưởng mức lương đó.
Còn khi giao việc phải phù hợp với bảng mô tả công việc, giao những việc ngoài bảng mô tả công việc bạn có thể từ chối (nguyên tắc là vậy )

 

[VetMini]

Trên bảng mô tả công việc của bạn có mục nào ghi kiểu như "thực hiện các công việc trên excel bằng macro" không

Người thực sự có công việc như thế này sẽ không hỏi code từ a đến z như thế. Người ta sẽ tự viết gần hết, và chỉ hỏi 1 vài chỗ bí.

Ghi trên bảng mô tả công việc (khi tuyển dụng) khác với giao việc nha bạn.
Những công việc trên bảng mô tả công việc là trách nhiệm của bạn, bạn phải làm những việc đó để hưởng mức lương đó.
Còn khi giao việc phải phù hợp với bảng mô tả công việc, giao những việc ngoài bảng mô tả công việc bạn có thể từ chối (nguyên tắc là vậy )

Cũng có khi sếp bắt làm công việc ngoài bảng mô tả. Nhưng "ngoài" đến mức như thế này thì ngừoi hỏi nên đi kiếm việc khác là vừa. Bởi vì đáp ứng xong thì sếp sẽ tiếp tục được voi đòi tiên.

 

[thanhnt1910]

Trả lời là:
- Nếu tôi có khả năng làm như sếp muốn thì tôi cũng có khả năng kiếm được việc nhiều tiền hơn, và được cấp trên đối xử tốt hơn.

Sếp e rất là tốt anh nhé

 

[thanhnt1910]

Thôi dù sao em cũng cảm ơn các anh đã quan tâm đến vấn đề của em, @VetMini , @huuthang_bd , @hpkhuong . Để em tự tìm hiểu, dành câu hỏi cho các anh, chị khác ạ.

 

[VetMini]

Sếp e rất là tốt anh nhé

Vậy thì bảo sếp gởi đi học một khoá đào tạo.

 

[trinhvinhtai]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

Chào Thầy

em co code ben dưới hiện tại sử dụng tìm kiếm được 2 file giờ e muốn thêm 1 file nữa ví dụ tên file đó là "3.xls" thầy thêm code giùm với

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode.Value = 13 Then
With Sheet1
If Len(TextBox1.Text) = 0 Then
.Range("A2:K20").ClearContents
Exit Sub
End If
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0")
.Range("A2:K20").ClearContents
.Range("A2").CopyFromRecordset cn.Execute("select * from [EXCEL 8.0;Database=" & ThisWorkbook.Path & "\1.xls].[A1:K] where [SO]=" & Sheet1.TextBox1.Text & " Union all select * from [EXCEL 8.0;Database=" & ThisWorkbook.Path & "\2.xls].[A1:K] where [SO]=" & Sheet1.TextBox1.Text)
End With
End If

End Sub

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[nthuyt3]

Kính thưa các Thầy cô, anh chị trong diễn đàn.
Em là người đam mê tin học, đặc biệt là excel. Em đã học hỏi được rất rất nhiều từ diễn đàn. Hôm nay em có một câu hỏi đưa lên đây không biết có đúng chỗ không, rất mong Thầy cô, anh chị thông cảm.
Em có cóp một đoạn code trên diễn đàn về ứng dụng. Trong quá trình sử dụng em thấy khi bấm nút coppy thì nó dán tất cả kể cả định dạng. Nay nhờ Thầy cô, anh chi giúp em chỉnh lại để nó chỉ dán số liệu thôi (Paste ->PasteSpecial->Values). Cảm ơn Thầy cô, anh chị nhiều ạ.
code:
Sub copy_6()
On Error Resume Next
Dim basebook As String
Dim mybook As Workbook
Dim fname As String
Dim Mypath As String
Application.ScreenUpdating = False
Mypath = Application.ActiveWorkbook.Path
basebook = ActiveWorkbook.Name
ChDrive Mypath
ChDir Mypath
fname = Application.GetOpenFilename(filefilter:="Execel files (*.xls), *.xls", Title:="Chon file nguon", MultiSelect:=False)
Set mybook = Workbooks.Open(fname)
mybook.Worksheets(GKI).Activate
Range("a9:aa33").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(basebook).Activate
Sheet6.Select
Range("a7").Select
ActiveSheet.Paste
Range("aa41").Select
Application.CutCopyMode = False
mybook.Close False
Application.ScreenUpdating = True
End Sub

 

[win-sun]

Xin nhờ thầy xem giúp có cách nào tính THNXT nhanh hơn không, khi dữ liệu lên tới 60000 dòng, xin cảm ơn!

 

[thanhnt1910]

Dim cn As Object, Str, Path As String
    Path = PathFolderQuanLy & TenPX & "\" & TenFileBangQDThangTruoc
    Set cn = CreateObject("ADODB.Connection")
    Str = "Select * from [BangChamCong$B5:C] where f1 is not null"
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path & ";Extended Properties=""Excel 12.0;HDR=No"";"
    FileBangQD.Sheets("BangLuong").Range("B5").CopyFromRecordset cn.Execute(Str)
    cn.Close

Các anh cho em hỏi đoạn điều kiện "where f1 is not null" là gì ạ.

 

[Hoang2013]

Vậy bạn cho biết "f1" là gì đi!

 

[thanhnt1910]

Vậy bạn cho biết "f1" là gì đi!

à em hiểu rồi anh ạ. Em cảm ơn a

 

[thanhnt1910]

à em hiểu rồi anh ạ. Em cảm ơn a

À anh ơi, đoạn này "Extended Properties=""Excel 12.0;HDR=No"";"" nghĩa là gì ạ.

 

[Hoang2013]

Hỏi "2 Lúa Long An" í; Mình xa thứ này từ 1995 rồi!

 

[AutoReply]

À anh ơi, đoạn này "Extended Properties=""Excel 12.0;HDR=No"";"" nghĩa là gì ạ.

Nghe nói "Extended Properties" được google dịch ra là "Thuộc tính mở rộng" đó bạn.

 

[thanhnt1910]

Nghe nói "Extended Properties" được google dịch ra là "Thuộc tính mở rộng" đó bạn.

Thuộc tính mở rộng "Excel 12.0" là dùng cho excel 2007 trở lên đúng không ạ. Còn cái "HDR=No" hoặc "HDR=Yes" có gì khác nhau ạ.

 

[huonglien1901]

Thuộc tính mở rộng "Excel 12.0" là dùng cho excel 2007 trở lên đúng không ạ. Còn cái "HDR=No" hoặc "HDR=Yes" có gì khác nhau ạ.

Bạn xem thử!
Column headings: By default, it is assumed that the first row of your Excel data source contains columns headings that can be used as field names. If this is not the case, you must turn this setting off, or your first row of data "disappears" to be used as field names. This is done by adding the optional HDR= setting to the Extended Properties of the connection string. The default, which does not need to be specified, is HDR=Yes. If you do not have column headings, you need to specify HDR=No; the provider names your fields F1, F2, etc. Because the Extended Properties string now contains multiple values, it must be enclosed in double quotes itself, plus an additional pair of double quotes to tell Visual Basic to treat the first set of quotes as literal values, as in the following example (where extra spaces have been added for visual clarity).

 

[AutoReply]

Thuộc tính mở rộng "Excel 12.0" là dùng cho excel 2007 trở lên đúng không ạ. Còn cái "HDR=No" hoặc "HDR=Yes" có gì khác nhau ạ.

Hình như có bạn gì ở bài #1357 giải thích cho bạn kìa. Tôi học dốt, chữ nghĩa không nhiều nên cũng không biết bạn ấy viết gì. Hi vọng bạn sẽ hiểu hơn tôi.