Trao đổi góp ý thay đổi diễn đàn. (phần 2)

Liên hệ QC
Hiện tại làm cách nào để tìm bài mình khởi xướng 1 cách nhanh nhất, nhỉ?
Anh thử làm cách này:
Đăng nhập xong, vào Tìm chủ đề > Tìm chủ đề của tôi, thì nó ra danh sách chủ đề của mình khởi xướng theo ngày gần đây ở trên cùng.

A_Hinh.JPG
 
Lần chỉnh sửa cuối:
Test đăng cái bảng vào bài viết
Số TTTên người tham dựĐiện thoạiGhi chú

1

Nguyễn Văn A

123456789



2

Nguyễn Văn B

987654321



3

Trần Thị C

014785239


 
Cũng
Test đăng cái bảng vào bài viết
Số TTTên người tham dựĐiện thoạiGhi chú

1

Nguyễn Văn A

123456789



2

Nguyễn Văn B

987654321



3

Trần Thị C

014785239








Phân tích cấu trúc GPE Table, tự làm 1 công cụ bằng code VBA copy từ Excel vào GPE
Thí nghiệm cái nha:
NoNAMETEAMID

1

Mai Văn Bảy

REPAIR 1

96093674

2

Nguyễn Huy Tập

REPAIR 1

50116558

3

Ngô Văn Trí

REPAIR 1

50116554

4

Nguyễn Văn Thạch

REPAIR 2

07050685

5

Nguyễn Hữu Hồng

REPAIR 2

07050686

6

Đàm Minh Tuấn

REPAIR 2

05070540

7

Huỳnh Công Vinh

REPAIR 3

08050612

8

Trần Đức Nam

REPAIR 3

08060462

9

Nguyễn Chí Thanh

REPAIR 3

50116553

10

Lương Nhật Thăng

ELECTRIC

95093690


Nhìn chung thì table khá đẹp.
Việc canh giữa, canh trái, canh phải không có vấn đề gì nhưng viết vào code cũng khá rắc rối nha
Còn làm cách nào để AutoFit column hoặc tùy chỉnh theo giá trị đưa vào thì.... không biết
 
Cũng






Phân tích cấu trúc GPE Table, tự làm 1 công cụ bằng code VBA copy từ Excel vào GPE
Thí nghiệm cái nha:
NoNAMETEAMID

1

Mai Văn Bảy

REPAIR 1

96093674

2

Nguyễn Huy Tập

REPAIR 1

50116558

3

Ngô Văn Trí

REPAIR 1

50116554

4

Nguyễn Văn Thạch

REPAIR 2

07050685

5

Nguyễn Hữu Hồng

REPAIR 2

07050686

6

Đàm Minh Tuấn

REPAIR 2

05070540

7

Huỳnh Công Vinh

REPAIR 3

08050612

8

Trần Đức Nam

REPAIR 3

08060462

9

Nguyễn Chí Thanh

REPAIR 3

50116553

10

Lương Nhật Thăng

ELECTRIC

95093690


Nhìn chung thì table khá đẹp.
Việc canh giữa, canh trái, canh phải không có vấn đề gì nhưng viết vào code cũng khá rắc rối nha
Còn làm cách nào để AutoFit column hoặc tùy chỉnh theo giá trị đưa vào thì.... không biết

Em nghĩ có lẽ phải dùng đến HTML Table?
 
Em nghĩ có lẽ phải dùng đến HTML Table?
Thật ra tôi chẳng biết HTML Table là gì đâu. Tôi phân tích cấu trúc Table mà @Hai Lúa Miền Tây đưa lên ở trên, thấy nó thế nào thì cứ bắt chước ý chang vậy thôi
Trước đây khi GPE còn dùng giao diện cũ, tôi cũng đã tự viết cho mình 1 công cụ (tự viết tự xài). Giờ thay đồi giao diện mới, cấu trúc table cũng khác ngày trước nên lấy code cũ ra sửa lại tí
 
test 1
Bài đã được tự động gộp:

Test2
Bài đã được tự động gộp:

test3
Bài đã được tự động gộp:

test4
 
Lần chỉnh sửa cuối:
Ở diễn đàn này, ai cũng biết tôi ăn nói trịch thượng và xấc xược. Nhưng đọc bài thì biết tôi chỉ làm như thế trong một số điều kiện.

Từ ngữ chung cho diễn đàn thì nên ăn nói nhẹ nhàng hơn.
Điển hình: "Post automatically merged". Đem dịch cái passive voice ra thành tiếng Việt nghiêm chỉnh là "được", chứ không phải "bị". Mấy thằng ciuyeen gia trên Google có thể rất giỏi tiếng Anh, và rất giỏi "Lập Trình Trí Tuệ Nhân Tạo", nhưng ngôn ngữ giao tế tiếng Việt của chúng là hạng bét.
 
Hôm nay gởi code lên diễn đàn, không biết bị gì mà 1 dòng lệnh bị cách 1 dòng trống khó nhìn quá
https://www.giaiphapexcel.com/diendan/threads/nhờ-các-bạn-viết-giúp-code-phép-tính.135280/
View attachment 196973

Diễn đàn không chỉnh về định dạng của thẻ code, mình test và thấy bình thường mà
Mã:
Sub GuiMail()
    Dim objOutlook, objOutlookMsg, cn, rst As Object
    Dim arr As Variant
    Dim str1, str2
    Dim i As Integer
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(0)
    Set cn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
    rst.Open ("select * from [DS_MAIL$]"), cn
    arr = rst.GetRows()
    rst.Close
    For i = 1 To UBound(arr)
        rst.Open ("select [STT],[Noi dung 1],[Noi dung 2],[Noi dung 3],[Noi dung 4],[Noi dung 5] from [Data 1$] where MaDv='" & arr(1, i) & "'"), cn
        str1 = rst.GetString(, , "</td><td>", "</tr><tr>")
        rst.Close
        rst.Open ("select [Noi dung 2_6] from [Data 2$] where MaDv='" & arr(1, i) & "'"), cn
        str2 = rst.GetString(, , "</td><td>", "</tr><tr>")
       
        Set objOutlookMsg = objOutlook.CreateItem(0)
        With objOutlookMsg
            .To = arr(2, i)
            .CC = arr(3, i)
            .Subject = Sheet4.[A1] & arr(1, i)
            .HTMLBody = "<strong>" & Sheet4.[A3] & "</strong><br>" & Sheet4.[A5] & " <br><table border='1'><th>STT</th><th>Noi dung 1</th><th>Noi dung 2</th><th>Noi dung 3</th><th>Noi dung 4</th><th>Noi dung 5</th>  <tr>" & str1 & "</tr></table><br><table border='1'><th>Noi Dung 6</th>" & str2 & "</table><br><strong>Hai Lúa Miên Tây</strong>"
            .Display
        End With
        rst.Close
    Next
 
End Sub


Ở diễn đàn này, ai cũng biết tôi ăn nói trịch thượng và xấc xược. Nhưng đọc bài thì biết tôi chỉ làm như thế trong một số điều kiện.

Từ ngữ chung cho diễn đàn thì nên ăn nói nhẹ nhàng hơn.
Điển hình: "Post automatically merged". Đem dịch cái passive voice ra thành tiếng Việt nghiêm chỉnh là "được", chứ không phải "bị". Mấy thằng ciuyeen gia trên Google có thể rất giỏi tiếng Anh, và rất giỏi "Lập Trình Trí Tuệ Nhân Tạo", nhưng ngôn ngữ giao tế tiếng Việt của chúng là hạng bét.

Người Việt dùng tiếng Việt còn có khi chưa đúng mà anh nói chi là ngôn ngữ khác. Thật ra thì em cố tình dịch như thế với lý do là nhắn gửi đến thành viên thôi anh, từ "bị" hơn là "được", nếu "bị" rồi thì mai mốt tránh cái "bị" đó. Cám ơn lời góp ý của anh, thôi thì theo nghĩa gốc của nó vậy.
 
Lần chỉnh sửa cuối:
Diễn đàn không chỉnh về định dạng của thẻ code, mình test và thấy bình thường mà

.
Tức là thế này:
- Copy code từ Excel paste vào diễn đàn: Bình thường
- Copy code từ diễn đàn paste ngược vào Excel: mỗi dòng bị cách ra thêm dòng nữa
Mấy hôm trước mình cũng bị lỗi này, định nói nhưng hôm nay mọi chuyện lại bình thường (copy qua lại từ diễn đàn và Excel không có hiện tượng "lạ" nào nữa)
Test lại cái xem sao:
Mã:
Function DownloadJSON(ByVal sURL As String) As String
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sURL, False
    .send
    DownloadJSON = .responseText
  End With
End Function
 
Em thử:
PHP:
Function DownloadJSON(ByVal sURL As String) As String
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sURL, False
    .send
    DownloadJSON = .responseText
  End With
End Function
Quái lạ, cách đây 30 phút em post Code, vẫn bị cách dòng trống mà.
 
Em thử:
PHP:
Function DownloadJSON(ByVal sURL As String) As String
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sURL, False
    .send
    DownloadJSON = .responseText
  End With
End Function
Quái lạ, cách đây 30 phút em post Code, vẫn bị cách dòng trống mà.

Có thể có cái gì đó "ngồ ngộ". Vì cái "ngồ ngộ" đó mà nó bị ảnh hưởng. Tuy nhiên hiện tại không còn bị nữa là được rồi.
 
Web KT
Back
Top Bottom