Hướng dẫn cách chép code vào bài

[quykh]

sao em thấy các AC chép code vào bài trả lời rất dễ coi, còn em chép vào nó cứ canh trái nhìn rất khó coi. Mong các AC chỉ cách với.

 

[Hoàng Trọng Nghĩa]

sao em thấy các AC chép code vào bài trả lời rất dễ coi, còn em chép vào nó cứ canh trái nhìn rất khó coi. Mong các AC chỉ cách với.

Bạn nhìn hình, bạn tự gõ tay (các chữ màu đỏ) hoặc dùng nút lệnh để có được các chữ đó, sau đó đặt code của bạn bên trong nó.

 

[levanduyet]

Chào bạn quykh,
Thường khi đưa các đoạn code vào bài viết của mình thông thường có 2 trường hợp.

1. Code đã có sẵn hoặc copy từ các nguồn khác
2. Nhập trực tiếp code vào

_ Đối với trường hợp 1, bạn nên copy code đưa vào NotePad để xóa đi các định dạng trước khi đưa code vào.



_ Khi nhập trực tiếp code vào bạn nhớ sắp xếp code cho dễ hiểu
a. Có thể sử dụng http://www.vbindent.com/?indent để chỉnh các đoạn code của bạn
b. Dùng Smart Indenter tại đây: http://www.oaltd.co.uk/Indenter/. Bạn tải về và cài đặt.
Xem thêm tại đây.

_ Để sử dụng hết các chức năng thì nên chuyển qua khung lớn, bằng cách nhấn nút Đổi sang khung lớn ở bên dưới.




Đưa con trỏ chuột vào vị trí bạn muốn post code, rồi nhấn nút GPE <> (như hình trên). Một hộp thoại sẽ hiện ra, bạn gõ vào loại code của bạn. Thông thường là vb. Xong nhấn nút OK.


Một cặp tag sẽ được đưa vào. Bạn chỉ việc nhập code bạn muốn post vào giữa.



Code của bạn sau khi post sẽ tương tự như sau:

[GPECODE=vb]
Public Declare Function QueryPerformanceFrequency _
Lib "kernel32" (lpFrequency As Currency) As Long
Public Declare Function QueryPerformanceCounter _
Lib "kernel32.dll" (lpPerformanceCount As Currency) As Long

Sub CalculateTime()
Dim Ar(1 To 20, 1 To 4) As Currency, WS As Worksheet
Dim n As Currency, str As Currency, fin As Currency
Dim y As Currency
Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = 1 To 4
For j = 1 To 20
Set WS = ThisWorkbook.Sheets.Add
WS.Range(“A1”).Value = 1
QueryPerformanceFrequency y
QueryPerformanceCounter str
Select Case i
Case 1: Macro1
Case 2: Macro1_Version2
Case 3: Macro1_Version3
Case 4: Macro1_Version4
End Select
QueryPerformanceCounter fin
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
n = (fin - str)
Ar(j, i) = CCur(Format(n, "##########.############") / y)
Next j
Next i
With Range(“A1”).Resize(1, 4)
.Value = Array("Macro1", "Macro2", "Macro3", "Macro4")
.Font.Bold = True
End With
Range("A2").Resize(20, 4).Value = Ar
With Range("A22").Resize(1, 4)
.FormulaR1C1 = "=AVERAGE(R2C:R21C)"
.Offset(1).FormulaR1C1 = "=RANK(R22C,R22C1:R22C4,1)"
.Resize(2).Font.Bold = True
End With
Application.ScreenUpdating = True
End Sub[/GPECODE]

Code của bạn sẽ rất dễ hiểu và dễ giải thích.

Nếu bạn đã quen, bạn chỉ việc nhập code vào giữa tag GPECODE


Lê Văn Duyệt