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

[ST-Lu!]

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

 

[rollover79]

View attachment 34588
Xin chào các cao thủ Excel, mình có một câu hỏi muốn nhờ tất cả mọi người giúp đỡ.
mình có 2 hàng dữ liệu (hàng 2 và hàng 3). Bây giờ mình muốn gộp 2 hàng dữ liệu này thành một hàng (như hàng 6) thì mình phải làm thế nào. Mong các bạn chỉ giúp. Mình xin cảm ơn trước.

Có thể dùng công thức như trong file này.

 

[ptm0412]

Google: 2 chiều thành 1 chiều

 

[zero_kiss]

Mình có 1 bài toán về thanh toán lương cho nhân viên, có 1 ô tên là tạm ứng, người ta chỉ cho phép nhập vào ô tạm ứng khi người dùng nhập con số nhỏ hơn số lương người ấy nhận trong 1 tháng.

Vd lương 1 tháng là 1tr.Vậy nếu nhập trong ô tạm ứng là 1tr100 thì ko cho phép, 900k thì cho phép, vậy mình muốn hỏi các bạn dùng cách nào để làm đc như vậy

 

[pomete]

Nhờ mọi người viết lệnh để chạy một chương trình trên máy tính. Ví dụ tôi cần mở một file như sau:
D:\My document\yahoo.bat
Dùng lệnh gì để chạy được chương trình theo đường dẫn trên.
Thanks!

 

[ndu96081631]

Nhờ mọi người viết lệnh để chạy một chương trình trên máy tính. Ví dụ tôi cần mở một file như sau:
D:\My document\yahoo.bat
Dùng lệnh gì để chạy được chương trình theo đường dẫn trên.
Thanks!

Bạn thí nghiệm với hảm Shell thử xem!
Shell("Đường dẩn đến file",1)
đại khái thế (bạn vào Help sẽ biết thêm chi tiết)

 

[pomete]

Shell ("D:\my document\yahoo.bat")
Không có tác dụng gì hết. File yahoo.bat chỉ là ví dụ, anh có thể thay bằng các chương trình khác để thử giúp em. Nghĩa là lệnh sẽ chạy một chương trình nào đó theo một đường dẫn có sẵn.

 

[Hai Lúa Miền Tây]

Nhờ mọi người viết lệnh để chạy một chương trình trên máy tính. Ví dụ tôi cần mở một file như sau:
D:\My document\yahoo.bat
Dùng lệnh gì để chạy được chương trình theo đường dẫn trên.
Thanks!

Thêm 1 vài ví dụ cho bạn ở file đính kèm nhé.
Nhớ giải nén rồi hãy mở file nha.

 

[ndu96081631]

Shell ("D:\my document\yahoo.bat")
Không có tác dụng gì hết. File yahoo.bat chỉ là ví dụ, anh có thể thay bằng các chương trình khác để thử giúp em. Nghĩa là lệnh sẽ chạy một chương trình nào đó theo một đường dẫn có sẵn.

Cú pháp đây:

Sub Test()
 Shell "D:\Test.bat", 1
End Sub

Tôi chạy thấy bình thường, có vấn đề gì đâu chứ

 

[pomete]

Hic, không hiểu. Mình chỉ cần lệnh mở file nào đó trên máy theo đường dẫn cố định có sẵn thôi.

 

[ndu96081631]

Hic, không hiểu. Mình chỉ cần lệnh mở file nào đó trên máy theo đường dẫn cố định có sẵn thôi.

Thêm 1 cách nữa cho bạn:

Sub Test()
  With CreateObject("Shell.Application")
    .Open ("Đường dẩn đến file bất kỳ")
  End With
End Sub

Code này tương đương với thao tác Double click vào file ---> Nghĩa là nó có thể mở bất kỳ file nào mà máy tính có thể hiểu được

 

[pomete]

Vẫn không chạy được. Em chỉ thử với file đơn giản là list.bat như ví dụ nhưng vẫn không được.

 

[ndu96081631]

Vẫn không chạy được. Em chỉ thử với file đơn giản là list.bat như ví dụ nhưng vẫn không được.

Có chạy đấy ---> Có điều file list.txt nó cứ chạy thẳng vào My Documents mà nằm, khác với phản ứng khi ta double click (điều này tôi không biết tại sao)
Muốn biết file list.txt có tồn tại hay không sau khi chạy code, bạn có thể search

 

[Hai Lúa Miền Tây]

Vẫn không chạy được. Em chỉ thử với file đơn giản là list.bat như ví dụ nhưng vẫn không được.

Mình thấy chạy bình thường mà bạn, bạn có enable macro chưa ? và có chắc là đường dẫn đến file của bạn có đúng chưa. Báo lỗi như thế nào bạn có thể ghi hình xem thử nhé.

 

[pomete]

Có chạy đấy ---> Có điều file list.txt nó cứ chạy thẳng vào My Documents mà nằm, khác với phản ứng khi ta double click (điều này tôi không biết tại sao)
Muốn biết file list.txt có tồn tại hay không sau khi chạy code, bạn có thể search

Đúng rùi, nó cứ chạy vào trong mục my documents thảo nào không thể tìm thấy trong thư mục hiện hành. Em sẽ thử với những chương trình khác xem sao. Cám ơn anh!

 

[ndu96081631]

Mình thấy chạy bình thường mà bạn, bạn có enable macro chưa ? và có chắc là đường dẫn đến file của bạn có đúng chưa. Báo lỗi như thế nào bạn có thể ghi hình xem thử nhé.

Là thế này nè:
- Double click vào file list.bat, nó sẽ cho ra kết quả là 1 file list.txt nằm cùng thư mục
- Vậy nếu dùng code để gọi file list.bat mà nó cho kết quả y chang như chạy bằng tay là xem như thành công (thực chất có khi không đúng)
---------------------

Đúng rùi, nó cứ chạy vào trong mục my documents thảo nào không thể tìm thấy trong thư mục hiện hành. Em sẽ thử với những chương trình khác xem sao. Cám ơn anh!

Đây chính là vấn đề tôi suy nghĩ nảy giờ... Code thì.. cả thế giới cũng chỉ xài quanh quẩn bao nhiêu đó thôi... Nhưng sao trong trường hợp file của bạn kết quả của code lại khác với kết quả chạy bằng tay nhỉ?
Khó hiểu thật

 

[nghiavan]

có bác nào chỉ cho mình cách thức sử dụng form trong menu toolbar với. mình thấy cai này rât hay nhưng không biết các dong lệnh để sử dụng. mong các bác giúp mình với nha

 

[nghiavan]

có bác nào chỉ cho mình cách thức sử dụng form trong menu toolbar với. mình thấy cai này rât hay nhưng không biết các dong lệnh để sử dụng. mong các bác giúp mình với nha

 

[pomete]

Tôi có một marco đơn giản như sau:

Sub Macro1()
Range("A1").Select
Selection.FormulaR1C1 = "=CELL(""filename"",RC)"
End Sub

Bây giờ viết thêm như thế nào để code này chạy trên tất cả các sheet. Các bác viết giùm nhé!

 

[SA_DQ]

Bạn thử với cái ni xem sao

Sub Macro1()
 Dim Sh As Worksheet
 For Each Sh In Worksheets
   Sh.Select:              Range("AM1").Select
   Selection.FormulaR1C1 = "=CELL(""filename"",RC)"
 Next Sh
End Sub

 

[ndu96081631]

Sub Macro1()
 Dim Sh As Worksheet
 For Each Sh In Worksheets
   Sh.Select:              Range("AM1").Select
   Selection.FormulaR1C1 = "=CELL(""filename"",RC)"
 Next Sh
End Sub

Em nghĩ chiêu này "ngầu" hơn:

Sub Test()
  Sheet1.Range("A1").Value = "=CELL(""filename"",RC)"
  Sheets.FillAcrossSheets Sheet1.Range("A1")
End Sub

Vì ta biết rằng nếu làm bằng tay ta cũng có thể nhập cùng lúc dử liệu vào 1 cell trên tất cả các sheet ---> Vậy dùng code ta cũng đâu cần vòng lập