Trao đổi góp ý thay đổi diễn đàn. (phần 2) (8 người xem)

[be_09]

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.

 

[Hai Lúa Miền Tây]

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ỉ?

Bác xem hình bên dưới nhé Bác

 

[Kiều Mạnh]

Mới quậy link sau xong lên Facebook liền .... mới đó he ... good

Em mới cho bài anh @be09 lên Facebook đó he
https://www.giaiphapexcel.com/diendan/threads/tách-dữ-liệu-theo-điều-kiện-thành-nhiều-file.135049/#post-859662

 

[Hai Lúa Miền Tây]

Mới quậy link sau xong lên Facebook liền .... mới đó he ... good

Em mới cho bài anh @be09 lên Facebook đó he
https://www.giaiphapexcel.com/diendan/threads/tách-dữ-liệu-theo-điều-kiện-thành-nhiều-file.135049/#post-859662
View attachment 196421View attachment 196422

Mới thêm chức năng này tối hôm qua, chỉ mang tính chất thử nghiệm vì BQT chưa thông qua đâu anh.

 

[Kiều Mạnh]

Mới thêm chức năng này tối hôm qua, chỉ mang tính chất thử nghiệm vì BQT chưa thông qua đâu anh.

Mạnh nghĩ kết nối lên trang xã hội sẻ có nhiều điều hay đó

 

[be_09]

Mới quậy link sau xong lên Facebook liền .... mới đó he ... good

Em mới cho bài anh @be09 lên Facebook đó he
https://www.giaiphapexcel.com/diendan/threads/tách-dữ-liệu-theo-điều-kiện-thành-nhiều-file.135049/#post-859662

Anh mới làm xong, chờ kiểm tra lại dữ liệu xem có chính xác không? Chắc trong ngày nay là có File.

 

[Hai Lúa Miền Tây]

Mạnh nghĩ kết nối lên trang xã hội sẻ có nhiều điều hay đó

Nếu muốn đăng lên tường nhà thì chọn vào nút chọn, không muốn thì sẽ không hiển thị trên tường của người bình luận.

 

[Kiều Mạnh]

Nếu muốn đăng lên tường nhà thì chọn vào nút chọn, không muốn thì sẽ không hiển thị trên tường của người bình luận.

View attachment 196425

Oh nó báo lên Facebook nè ... mới mở lại Facebook thấy nổi dòng ID tạm khóa hết hồn nghĩ Facebook bị hack

 

[Hai Lúa Miền Tây]

Test đăng cái bảng vào bài viết

Số TT	Tên người tham dự	Điện thoại	Ghi chú
1	Nguyễn Văn A	123456789
2	Nguyễn Văn B	987654321
3	Trần Thị C	014785239

 

[ndu96081631]

Cũng

Test đăng cái bảng vào bài viết

Số TT	Tên người tham dự	Điện thoại	Ghi 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:

No	NAME	TEAM	ID
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

 

[phulien1902]

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:

No	NAME	TEAM	ID
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?

 

[ndu96081631]

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í

 

[Hai Lúa Miền Tây]

test 1

Bài đã được tự động gộp: 7/6/18

Test2

Bài đã được tự động gộp: 7/6/18

test3

Bài đã được tự động gộp: 7/6/18

test4

 

[HieuCD]

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/

 

[VetMini]

Ở 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.

 

[Hai Lúa Miền Tây]

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à

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.

 

[ndu96081631]

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:

Function DownloadJSON(ByVal sURL As String) As String
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sURL, False
    .send
    DownloadJSON = .responseText
  End With
End Function

 

[phulien1902]

Em thử:

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à.

 

[Hai Lúa Miền Tây]

Em thử:

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.

 

[phulien1902]

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.

Đây bạn xem 1 phút vừa qua: