Cách chạy 1 đoạn code có sẵn??? (1 người xem)

[trinhnt1308]

Ví dụ như em tìm được 1 code viết cho excel(Tìm được trên mạng,....) em muốn sử dụng đoạn code thì làm như nào để chạy được??(Copy,paste vào đâu...)
câu hỏi hơi ngô nghê, các bác thông cảm!!

 

[Po_Pikachu]

Code thường thì ở dạng Macro kiểu (Sub gì đó()... End Sub) thì sẽ được lưu trong Module. Bạn làm như sau: Nhấn Alt + F11 -> Nhấn phải chuột lên các tên sheet -> Chọn Insert Module -> Rồi Paste vào trong Module đó. Để chạy thì có thể nhấn vào lệnh Run (Hình mũi tên xanh phía trên) hoặc vào lại trang bảng tính Excel nhấn Alt + F8 -> Chọn tên sub vừa rồi -> Run. Còn 1 số code khác có định dạng kiểu (Function gì đó(...) ... End Function) thì cũng nằm trong Module nhưng không chạy được bằng lệnh Run mà phải chạy chúng kiểu như dùng các hàm IF, SUM hay SUMPRODUCT vậy. Còn 1 dạng code cuối cùng là các code thường được bắt đầu bằng Private Sub Worksheet hoặc Private Sub Workbook thì đặt chúng trong các tên Sheet ở VBA hoặc nằm trong ThisWorkbook luôn. Vậy là bạn đã sơ lượt được các vị trí đặt code rồi đó. Chúc thành công! Thân.

 

[trinhnt1308]

Code thường thì ở dạng Macro kiểu (Sub gì đó()... End Sub) thì sẽ được lưu trong Module. Bạn làm như sau: Nhấn Alt + F11 -> Nhấn phải chuột lên các tên sheet -> Chọn Insert Module -> Rồi Paste vào trong Module đó. Để chạy thì có thể nhấn vào lệnh Run (Hình mũi tên xanh phía trên) hoặc vào lại trang bảng tính Excel nhấn Alt + F8 -> Chọn tên sub vừa rồi -> Run.

Còn 1 số code khác có định dạng kiểu (Function gì đó(...) ... End Function) thì cũng nằm trong Module nhưng không chạy được bằng lệnh Run mà phải chạy chúng kiểu như dùng các hàm IF, SUM hay SUMPRODUCT vậy.

Còn 1 dạng code cuối cùng là các code thường được bắt đầu bằng Private Sub Worksheet hoặc Private Sub Workbook thì đặt chúng trong các tên Sheet ở VBA hoặc nằm trong ThisWorkbook luôn.
Vậy là bạn đã sơ lượt được các vị trí đặt code rồi đó.
Chúc thành công!
Thân.

hix làm y như hướng dẫn của bạn nhưng vẫn không được,mình gửi kèm file xem hộ mình sai cái gì nữa mà vẫn không dùng được đoạn code này.Mình cảm ơn nhiều!!

 

[Po_Pikachu]

Code này theo ý nghĩa của nó thì mình thấy nên đặt code trong Sheet. Trong bảng tính Excel, bạn nhấn phải chuột vào tên sheet ở dưới -> Nhấn phải chuột chọn View Code rồi copy code này vào. Nhớ kỹ dòng đầu của code nha!

[COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000bb]Range[/COLOR][FONT=Courier New][COLOR=#007700][COLOR=red]) [/COLOR]    [/COLOR][COLOR=#0000bb]Dim CurrentRowHeight [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000bb]Single[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]MergedCellRgWidth [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Single     Dim CurrCell [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000bb]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]RangeWidth [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Single     Dim TargetWidth [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000bb]Single[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]PossNewRowHeight [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Single          [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000bb]Target[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]MergeCells Then         With Target[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]MergeArea                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]WrapText [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]True                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]HorizontalAlignment [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]xlGeneral                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]VerticalAlignment [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]xlCenter[/COLOR][/FONT] [FONT=Courier New][COLOR=#0000bb]                Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]False                 CurrentRowHeight [/COLOR][COLOR=#007700]= .[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]RowHeight                 TargetWidth [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Target[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]ColumnWidth                 RangeWidth [/COLOR][COLOR=#007700]= .[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Width[/COLOR][/FONT] [FONT=Courier New][COLOR=#0000bb]                [/COLOR][COLOR=#007700]For [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Each CurrCell In Selection                     MergedCellRgWidth [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]CurrCell[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]+ [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]MergedCellRgWidth                 Next                                   [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]MergeCells [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]False                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]MergedCellRgWidth                                   [/COLOR][COLOR=#007700]While .[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]Width [/COLOR][COLOR=#007700]< [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]RangeWidth                     [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]+ [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]0.5                 Wend                                   [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]- [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]0.5                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]EntireRow[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]AutoFit                 PossNewRowHeight [/COLOR][COLOR=#007700]= .[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]RowHeight                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]ColumnWidth [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]TargetWidth                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]MergeCells [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]True                 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]RowHeight [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]IIf([/COLOR][COLOR=#0000bb]CurrentRowHeight [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000bb]PossNewRowHeight[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]CurrentRowHeight[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]PossNewRowHeight[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])         [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]End With     End [/FONT][/COLOR][FONT=Courier New][COLOR=#007700]If [/COLOR][COLOR=#0000bb]End Sub[/COLOR][/FONT]

Thân.

 

[ndu96081631]

hix làm y như hướng dẫn của bạn nhưng vẫn không được,mình gửi kèm file xem hộ mình sai cái gì nữa mà vẫn không dùng được đoạn code này.Mình cảm ơn nhiều!!

Tôi sửa lại thế này thì được (không dám khẳng định code của bạn có sai hay không)
Xem file nha

 

[trinhnt1308]

Tôi sửa lại thế này thì được (không dám khẳng định code của bạn có sai hay không)
Xem file nha

Mình gởi file mình lên, nhờ mọi người sửa giúp. Yêu cầu mình ghi rõ trong sheet NTCV.
Cảm ơn mọi người trước!!

 

[trinhnt1308]

Xin phép các anh chị, em đưa topic lên nhờ các cao nhân giải quyết hộ!!!

 

[ngocdung1286]

moi nguoi giúp minh với