GPECODE - dùng cho các đoạn code (2 người xem)

[Nguyễn Duy Tuân]

Đã thêm vào.

Lê Văn Duyệt

Thử While...Wend

[GPECODE=vb]
While True
Wend[/GPECODE]

 

[levanduyet]

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

 

[levanduyet]

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

 

[buithanhlong]

[GPECODE=vb][/GPECODE]
thử làm
Sub dong_clich()
Unload Me
End Sub

 

[buithanhlong]

Thử một tí

thử xem thế nào

[gpecode=vb]sub cmdMa_clich
Unload Me
End sub[/gpecode]

 

[hung2412]

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]

 

[Kiều Mạnh]

Thử test Một cái
[gpecode1=vb]Option Explicit

Sub Test_CaiCoi()
MsgBox "OK"
End Sub

[/gpecode1]

 

[KhanhChi29]

Thử coi
[gpecode1=vb]Sub IN()
MsgBox "Khong in"
End Sub
[/gpecode1]

 

[phulien1902]

Thử xem sao

[Gpecode1=vb]
Sub abc()
Msgbox" TÔI YÊU GPE"
End Sub
[/Gpecode1]

 

[Quang_Hải]

[GPECODE=vb]
Sub GPE()
MsgBox "Try In Vain"
End Sub
[/GPECODE]

 

[Nguyễn Duy Tuân]

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

 

[hung2412]

Thử test Một cái
[gpecode1=vb]Option Explicit

Sub Test_CaiCoi()
MsgBox "OK"
End Sub

[/gpecode1]

Bạn làm thế nào mà có cái khung đẹp vậy?

 

[Cá ngừ F1]

Bạn làm thế nào mà có cái khung đẹp vậy?

Bạn để ý khi bạn Trả lời với trích dân, nó sẽ ra cặp
[Gpecode1=vb]
....
[/gpecode1]

 

[hung2412]

Bạn để ý khi bạn Trả lời với trích dân, nó sẽ ra cặp
[Gpecode1=vb]
....
[/Gpecode1]

Cảm ơn bạn, tôi text thử nha:
[GPECODE1=vb]Cộng hòa xã hội chủ nghĩa Việt Nam[/GPECODE1]