- Tham gia
- 18/3/08
- Bài viết
- 8,310
- Được thích
- 15,867
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Function DemTrung(CSDL As Range, DDm As String)
Dim Dict As Object, Arr()
Dim J As Long, W As Integer
Dim MyAdd As String
Set Dict = CreateObject("Scripting.Dictionary")
Arr() = CSDL.Value
For J = 1 To UBound(Arr())
If Arr(J, 3) = DDm Then
MyAdd = Arr(J, 3) & Arr(J, 2)
If MyAdd <> Space(0) And Not Dict.exists(MyAdd) Then
W = W + 1: Dict.Add MyAdd, W
End If
End If
Next J
DemTrung = W
End Function
Có lẽ không riêng gì chú, cháu vẫn bị tình trạng như vậy, vẫn phải xóa thủ công.Khi mình copy 1 sub hay Function từ Excel vô thẻ [ PHP]. . .[/ PHP] hay [ Code]. . . [/code]
thì các dòng lệnh được (bị) chèn thêm dòng trống; Rất khó nhìn (theo mình)
Ví dụ:
PHP:Function DemTrung(CSDL As Range, DDm As String) Dim Dict As Object, Arr() Dim J As Long, W As Integer Dim MyAdd As String Set Dict = CreateObject("Scripting.Dictionary") Arr() = CSDL.Value For J = 1 To UBound(Arr()) If Arr(J, 3) = DDm Then MyAdd = Arr(J, 3) & Arr(J, 2) If MyAdd <> Space(0) And Not Dict.exists(MyAdd) Then W = W + 1: Dict.Add MyAdd, W End If End If Next J DemTrung = W End Function
Có fải vậy không các bạn, mà sao mình cứ fải lần lượt xóa nhũng dòng trống này hoài?
Cám ơn bạn đã quan tâm. Đã điều chỉnh.View attachment 199951
.
Đề xuất thay đổi phần thẻ code:
- Nút Copy ngắn gọn: [Copy], sau khi ấn thì thành [Copied] (hoặc bôi chọn toàn bộ code để biết là đã sao chép vào bộ nhớ.
- Đổi lại font chữ dễ nhìn (mảnh), và để kiểu chữ thẳng đứng (hiện tại kiểu chữ đang xiên).
Ví dụ như hình dưới:
View attachment 199952
Khi mình copy 1 sub hay Function từ Excel vô thẻ [ PHP]. . .[/ PHP] hay [ Code]. . . [/code]
thì các dòng lệnh được (bị) chèn thêm dòng trống; Rất khó nhìn (theo mình)
Ví dụ:
PHP:Function DemTrung(CSDL As Range, DDm As String) Dim Dict As Object, Arr() Dim J As Long, W As Integer Dim MyAdd As String Set Dict = CreateObject("Scripting.Dictionary") Arr() = CSDL.Value For J = 1 To UBound(Arr()) If Arr(J, 3) = DDm Then MyAdd = Arr(J, 3) & Arr(J, 2) If MyAdd <> Space(0) And Not Dict.exists(MyAdd) Then W = W + 1: Dict.Add MyAdd, W End If End If Next J DemTrung = W End Function
Có fải vậy không các bạn, mà sao mình cứ fải lần lượt xóa nhũng dòng trống này hoài?
Có lẽ không riêng gì chú, cháu vẫn bị tình trạng như vậy, vẫn phải xóa thủ công.
Hiện tại chưa dịch được nội quy từ tiếng Việt sang tiếng Anh nên chưa có thể đồng bộ được. Nhờ các bạn giúp dịch sang tiếng Anh nhé.Sau cơ số lần "ý kiến ý cò" thì chiều nay giao diện diễn đàn đã có thêm mục "Nội quy diễn đàn".
Tuy nhiên, phiên bản tiếng Việt và phiên bản tiếng Anh có nội dung khác nhau thì phải?!
View attachment 202108
Thực tế diễn đàn không phải là song ngữ (Việt - Anh) mà anh. Chỉ có phần giao diện đặt thành 2 kiểu (Tiếng Việt - English), khi lựa chọn giữa hai giao diện đó thì tiêu đề các mục của giao diện thay đổi ngôn ngữ, chứ nội dung của bài viết vẫn giữ nguyên ngôn ngữ.Hiện tại chưa dịch được nội quy từ tiếng Việt sang tiếng Anh nên chưa có thể đồng bộ được. Nhờ các bạn giúp dịch sang tiếng Anh nhé.
Thực tế diễn đàn không phải là song ngữ (Việt - Anh) mà anh. Chỉ có phần giao diện đặt thành 2 kiểu (Tiếng Việt - English), khi lựa chọn giữa hai giao diện đó thì tiêu đề các mục của giao diện thay đổi ngôn ngữ, chứ nội dung của bài viết vẫn giữ nguyên ngôn ngữ.
Vậy theo ý kiến của em, chúng ta có thể để chung một nội dung, một hình thức (tiếng Việt) Nội quy ở cả hai kiểu giao diện cũng được.
Rảnh rảnh làm luôn cái này.Mong muốn nút View attachment 194655 hiện ngay ra thanh công cụ.
Quá nhiều bài (ví dụ) ném code ở ngay nội dung rất khó nhìn, nhắc thì kêu nói nhiều và được thanh minh đơn giản - không biết/ không rõ.
1. Không thể popup được. Sẽ tìm hiểu thêm nhé.Tuyệt đó anh.
Thêm cái này nữa được không anh? 1. Mình làm popup ở khung viết bài, 2. hoặc cố định luôn trên đầu chủ đề chẳng hạn.
View attachment 202199
Cái hình ở trên em chụp ở một diễn đàn khác. Nó có vai trò là một hướng dẫn nhỏ cho thành viên khi đăng bài, đảm bảo phần nội dung của bài viết được chia làm 2 phần rõ ràng (và chuyên nghiệp) - Phần code/ công thức và phần diễn giải/ thuyết minh...2. Chưa hiểu chỗ này lắm
Luật lệ nghiêm chỉnh thì phải có thêm một câu:Tuy nhiên, phiên bản tiếng Việt và phiên bản tiếng Anh có nội dung khác nhau thì phải?!
Chắc tại Anh bấm nhiều qúa nó bị mờ đi ấy thôi. Của em vẫn có mà
Tạm thời bạn vào trang hồ sơ sẽ thấy có nút report.