GPECODE - dùng cho các đoạn code

Liên hệ QC
Xin chú ý thêm một vài điều về gpecode,

[info2=Muốn copy đoạn code trong tag gpecode thì sao?]Bạn chỉ việc double click (nhấn đúp chuột) và vùng code, bạn sẽ chọn được tất cả các code. Sau đó bạn copy bằng cách nhấn tổ hợp phím Ctrl + C . Như vậy đoạn code trong tag gpecode đã được copy vào clipboard, để bạn có thể dán vào ứng dụng nào bạn muốn.
[/info2]

[info2=Sau khi tôi copy thì các đoạn code trong tag này không thể hiện màu nữa?]Đúng vậy. Các bạn chỉ cần nhấn chuột vào phía ngoài đoạn code đó, màu sắc của đoạn code sẽ trở về lại như cũ.
[/info2]

Lê Văn Duyệt
 
Lại có thành viên yêu cầu, khi người dùng post code, thì người post cũng muốn cho người đọc biết đây là code gì. Vậy làm sao hiện "code trên môi trường nào"...

Vậy hãy dùng gpecode1

[gpecode1=vb]
Sub Trich_ADO_Unique()
Dim lsSQL As String, cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
Dim Arr()
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Database.xls" & _
";Extended Properties=""Excel 8.0;HDR=Yes;"";"
.Open
End With
lsSQL = "SELECT DISTINCT [TP], [MATERIAL NAME], [SPEC 2], [COLOR NAME], [UNIT], [ORIGIN], [SUPPLIER] " & _
"FROM [tblData$] " & _
"ORDER BY [TP],[ORIGIN],[SUPPLIER],[MATERIAL NAME],[SPEC 2],[COLOR NAME],[UNIT]"
lrs.Open lsSQL, cnn, 3, 1
[a:g].Clear


For i = 1 To lrs.fields.Count
Cells(1, i).Value = lrs.fields(i - 1).Name
Next
Range("A2").CopyFromRecordset lrs
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
[/gpecode1]

Lê Văn Duyệt
 
Lần chỉnh sửa cuối:
[GPECODE=vb][/GPECODE]
thử làm
Sub dong_clich()
Unload Me
End Sub
 
Thử một tí

Mã:
thử xem thế nào
[gpecode=vb]sub cmdMa_clich
Unload Me
End sub[/gpecode]
 
Tôi xin phép Text một chút ạ
[GPECODE=vb]
Option Explicit
Sub Hieuso()
Dim t As Long
For t = 5 To 10
Range("E" & t) = "=R[" & t - t & "]C[-2]-R[" & t - t & "]C[-1]"
Next
End Sub
[/GPECODE]
 
Lần chỉnh sửa cuối:
Thử test Một cái
[gpecode1=vb]Option Explicit

Sub Test_CaiCoi()
MsgBox "OK"
End Sub

[/gpecode1]
 
Thử coi
[gpecode1=vb]Sub IN()
MsgBox "Khong in"
End Sub
[/gpecode1]
 
Lần chỉnh sửa cuối:
Thử xem sao

[Gpecode1=vb]
Sub abc()
Msgbox" TÔI YÊU GPE"
End Sub
[/Gpecode1]
 
Lần chỉnh sửa cuối:
[GPECODE=vb]
Sub GPE()
MsgBox "Try In Vain"
End Sub
[/GPECODE]
 
Hôm trước mình đã viết bài trong mục góp ý nhưng không thấy phê duyệt và ai trả lời nên góp ý lại ở đây. Admin cần đưa thêm từ khóa vào format như sau:
LongLong
LongPtr
SafePtr
 
Web KT
Back
Top Bottom