[TABLE="width: 500"]
[TR]
[TD]1[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]6[/TD]
[/TR]
[/TABLE]
Sao em chèn bảng vào bài viết toàn bị tình trạng thế này nhỉ? Làm sao thể khắc phục ạh?
Chức năng chèn Table không hoạt động đâu bạn à (khỏi thử)
Có chăng là ta tự viết code (trên Excel) để dùng
Ví dụ tôi tự viết code (copy 1 vùng trên Excel rồi chèn vào diễn đàn)
Đánh nội dung trên cell, trang trí cho nó thành 1 table đàng hoàng. Xong, hổng phải COPY đơn giản vậy mà phải dùng code VBA
(vì nếu copy/paste bình thường thì nó cũng chỉ ra cái tào lào gì đâu không thôi)
Đánh nội dung trên cell, trang trí cho nó thành 1 table đàng hoàng. Xong, hổng phải COPY đơn giản vậy mà phải dùng code VBA
(vì nếu copy/paste bình thường thì nó cũng chỉ ra cái tào lào gì đâu không thôi)
E hơi chậm hiểu chỗ này ạh? vì e trang trí table xong, view code thấy trắng tinh ạh?
Giả sử có code rồi thì paste thẳng vào bài viết ạh hay phải dùng biểu tượng Wrap code trên thanh công cụ?
Đánh nội dung trên cell, trang trí cho nó thành 1 table đàng hoàng. Xong, hổng phải COPY đơn giản vậy mà phải dùng code VBA
(vì nếu copy/paste bình thường thì nó cũng chỉ ra cái tào lào gì đâu không thôi)
Em nghĩ việc chèn bảng tính vào bài viết không phải đã có nhiều người biết. Vì thế thầy có thể chỉ giúp Cá ngừ F1 và em, cũng như những người khác biết không ạ.
Em xin cảm ơn thầy.
Nếu muốn chơi cái vụ Table này, tôi hướng dẫn bạn 1 code đơn giản:
PHP:
Sub TableToClipboart(ByVal Table As Range)
Dim tmp As String, clb As Object
Set clb = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Table.Copy
clb.GetFromClipboard
tmp = clb.GetText
tmp = Replace(tmp, vbTab, "|")
tmp = Replace(tmp, vbLf, vbCrLf)
tmp = "[TABLE]" & tmp & "[/TABLE]"
Set clb = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
clb.SetText tmp
clb.PutInClipboard
Set clb = Nothing
End Sub
Sub CreatGPE_Table()
On Error Resume Next
TableToClipboart Selection
End Sub
Sub Auto_Open()
On Error Resume Next
With Application.CommandBars("Cell").Controls.Add(1, , , 1)
.Caption = "Create GPE Table"
.OnAction = "CreatGPE_Table"
End With
End Sub
Sub Auto_Close()
On Error Resume Next
Application.CommandBars("Cell").Reset
End Sub
- Copy nguyên đoạn code trên cho vào 1 Module (trong file Excel của bạn)
- Ra ngoài bảng tính, bấm Alt + F8, chọn Autpen rồi bấm Run
- Bây giờ, hãy quét chọn Table (mà bạn đã trang trí sẵn), click chuột phải, sẽ thấy mục "Create GPE Table". Chọn vào mục này 1 phát (code sẽ chạy gì gì đó thây kệ nó)
- Vào diễn đàn, bấm Ctrl + V rồi gửi bài sẽ thấy kết quả
Dám cá với sư phụ code của thầy Long sẽ không ngắn bằng của em... Em xử lý trực tiếp trong clipboard, chẳng tốn vòng lập nào (xin lỗi hương hồn thầy Long hen...)
Ẹc... Ẹc...
-----------------
Lại vụ gì nữa đây trời?
Đừng nói từ hồi đó đến giờ bạn chưa từng Save As và chưa từng xài 1 AddIn nào nha
Save thành AddIn nghĩa là Save thành định dạng xla hoặc xlam đấy trời
Lại vụ gì nữa đây trời?
Đừng nói từ hồi đó đến giờ bạn chưa từng Save As và chưa từng xài 1 AddIn nào nha
Save thành AddIn nghĩa là Save thành định dạng xla hoặc xlam đấy trời
Em thấy mấy cái lựa chọn ấy hoàn toàn KHÔNG CẦN THIẾT (nên em cũng cóc thèm viết)
Nhanh, gọn, dễ xài
Ẹc... Ẹc... (mà chắc tại tính em hơi lạ: Em chưa từng xài bất cứ 1 AddIn nào do người khác viết, kể cả Analysis ToolPak... Cái nào cần, em tự viết... Nếu không tự viết nỗi thì... nghỉ xài, chờ đến khi nào trình độ mình đủ sức thì viết )
Bạn nói gì vậy trời? View code thấy trắng tinh là đúng rồi (nếu thấy CÓ là.. có MA)... Vì bạn đã viết gì vào trong đó đâu mà THẤY CÓ
Nếu muốn chơi cái vụ Table này, tôi hướng dẫn bạn 1 code đơn giản:
PHP:
Sub TableToClipboart(ByVal Table As Range)
Dim tmp As String, clb As Object
Set clb = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Table.Copy
clb.GetFromClipboard
tmp = clb.GetText
tmp = Replace(tmp, vbTab, "|")
tmp = Replace(tmp, vbLf, vbCrLf)
tmp = "[TABLE]" & tmp & "[/TABLE]"
Set clb = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
clb.SetText tmp
clb.PutInClipboard
Set clb = Nothing
End Sub
Sub CreatGPE_Table()
On Error Resume Next
TableToClipboart Selection
End Sub
Sub Auto_Open()
On Error Resume Next
With Application.CommandBars("Cell").Controls.Add(1, , , 1)
.Caption = "Create GPE Table"
.OnAction = "CreatGPE_Table"
End With
End Sub
Sub Auto_Close()
On Error Resume Next
Application.CommandBars("Cell").Reset
End Sub
- Copy nguyên đoạn code trên cho vào 1 Module (trong file Excel của bạn)
- Ra ngoài bảng tính, bấm Alt + F8, chọn Autpen rồi bấm Run
- Bây giờ, hãy quét chọn Table (mà bạn đã trang trí sẵn), click chuột phải, sẽ thấy mục "Create GPE Table". Chọn vào mục này 1 phát (code sẽ chạy gì gì đó thây kệ nó)
- Vào diễn đàn, bấm Ctrl + V rồi gửi bài sẽ thấy kết quả
pen rồi bấm Run
)
