be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Hôm nay thì được rồi (không còn bị lỗi nữa).Hôm nay được chưa anh?
Cám ơn em.
Hôm nay thì được rồi (không còn bị lỗi nữa).Hôm nay được chưa anh?
Mà sao ...Các sao vàng không quay của các Bác tích lũy công sức mất tiêu hết rồi nhỉ .... Bỏ luôn hay chưa cập nhật ...!!!???![]()
Test code copy bài viết từ Excel sang table GPE của thầy Phạm Duy Long (Chỉnh lại chút cho phù hơp)
[table=head]STT|Nick|Tên|TK nhận|SoTien|Ngày nhận|Ghi chú
1|Admin @kyo|Duy||
300000||BTC
2|Smod @ndu96081631|Anh Tuấn||
300000||BTC
3|Mod @Cá ngừ F1|Tú||
300000||BTC
4|Mr @PhanTuHuong|||
300000||BTC
5|Mr Ngô Trọng Nghĩa - BTC|||
300000||BTC
6|Mrs Bích Ngọc - BTC|||
300000||BTC
7|Mrs Lê Hương - @lehuong1409|Lê Thị Hương|A Tú|
300000|
05/06/2017|
8|@bichthuy296|Ms Bích Thủy||||
9|@xuan.nguyen82|Mrs Xuân Nguyễn||||
10|Mr @Nguyễn Hồng Quang|Nguyên Hồng Quang|A Tú|
300000|
08/06/2017|
[/table]
Sub Table()
Dim MyDataObj As New DataObject
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, c As Long, r As Long
Dim col As String, header As String, dong As String
r1 = Selection.Row
r2 = Selection.Rows.Count + r1 - 1
c1 = Selection.Column
c2 = Selection.Columns.Count + c1 - 1
header = "[table=head]"
For r = r1 To r2
For c = c1 To c2
If r = r1 Then
dong = dong & "[b]" & Replace(Cells(r, c), Chr(10), " ") & IIf(c = c2, "[/b]", "[/b]|")
Else
If VarType(Cells(r, c)) > 2 And VarType(Cells(r, c)) < 8 Then
dong = dong & "[right]" & Replace(Cells(r, c), Chr(10), " ") & IIf(c = c2, "[/right]", "[/right]|")
Else
dong = dong & Replace(Cells(r, c), Chr(10), " ") & IIf(c = c2, "", "|")
End If
End If
Next
dong = dong & Chr(10)
Next
MyDataObj.SetText header & Left(dong, Len(dong) - 1) & Chr(10) & "[/table]"
MyDataObj.PutInClipboard
End Sub
Bạn dùng code của Thầy Phạm Duy Long ở bài http://www.giaiphapexcel.com/diendan/threads/một-số-ý-kiến-về-gpe-xenforo.124418/page-16#post-793501@Hai Lúa Miền Tây cho mình hỏi ngoài lề chút, bạn dùng addon gì mà có thể kẻ được bảng tính trong xenforo vậy?
Địa chỉ cũ lúc trước mỗi lần vào không cần đăng nhập lại. Nay địa chỉ mới mỗi lần vào phải đăng nhập.Quản trị diễn đàn đã làm động tác chuyển hướng trang web rồi bạn. Giờ bạn muốn vào địa chỉ cũ cũng khó...
Nếu trình duyệt web ở máy tính bạn chưa "nhớ" địa chỉ web thì bạn có thể nhập mới: giaiphapexcel rồi ctrl + enter.
Ây dza. Cái này là ở trình duyệt web, khi đăng nhập thì oánh dấu vào cái mục ghi nhớ mật khẩu ấy (và trong Options của trình web thì thiết lập check vào mục "Remember logins for sites").Địa chỉ cũ lúc trước mỗi lần vào không cần đăng nhập lại. Nay địa chỉ mới mỗi lần vào phải đăng nhập.
bạn xem có đúng file này không?Chào Anh Bình,
Mục Thư viện tra cứu hàm và các bài hướng dẫn của Kyo trước đây nay không còn trên Mục lục, đó là một "tổn thất" lớn cho anh em thành viên.
Hy vọng sẽ sớm có trở lại.
Chúc anh một ngày thiệt vui và năng động.
Cảm ơn bạn nhiều.bạn xem có đúng file này không?
http://www.mediafire.com/file/q4t016aktbntkmg/Excel_Function_and_Formulas.chm
gửi Anh Bình
em tải file lên mà hiện bảng giới hạn dung lượng file, vậy dung lượng tối đa là bao nhiêu anh
View attachment 178815
Bây giờ chưa thấy giới hạn về số "Đối thoại" nên không cần lo lắng phải xóa đi.Anh cho em hỏi cách xòa một bài trong "Đối thoại" (tin nhắn riêng)
Em ví dụ như em mở một đối thoại mới và có tất cả là 4 bài, em muốn xóa bài 3 thì vào dâu để xóa. Em có thấy bút "Sửa đối thoại" nhưng vào chả sửa hoặc xóa được.
Hồi trước ở cuối mỗi đối thoại có ô vuông để check vào và thực hiện được nhiều tác vụ.