Thứ Ba, 21 tháng 1, 2014

Ebook SEO Copywriting

Năm 2013 tôi có dự định: một là làm vài cái Blog để kiếm thêm, hai là viết một cuốn Ebook SEO Copywriting để trải nghiệm và chia sẻ với anh em.

Cuối năm nhìn lại: Blog cũng được vài em, chất lượng cũng khá, traffic tạm ổn, nhưng chẳng hiểu sao chỉ thích để ngắm, chẳng buồn đem ra kiếm lợi cho bằng chị bằng em. 

Còn Ebook thì cũng tạm cho là ổn. 

SEO nội dung: Ebook SEO Copywriting miễn phí của nguyenhoang
TẠM thôi vì: đáng lẽ ra định viết thêm vài chục trang để chia sẻ thêm với anh em một số dạng bài như: giới thiệu sản phẩm, dịch vụ; phân tích, bình luận... nhưng thấy trình của mình chưa đủ, cần trải nghiệm và học hỏi thêm mới đủ khả năng làm - viết - chia sẻ được. Thứ nữa là Ebook cũng hơn trăm trang rồi, viết nữa ai thèm đọc, có khi lại chê mình dài.

Trong Ebook chủ yếu là chia sẻ những suy nghĩ của cá nhân tôi về SEO Copywriting, cách tổ chức và viết nội dung trên môi trường trực tuyến (đặc biệt là cho web, blog), chia sẻ một số bài viết về chủ đề SEO, hoặc viết theo cảm xúc, không nhất định để SEO.

Có một số vấn đề muốn đưa vào như: Google có đọc được nội dung mới không, nội dung chất và có đầy đủ quyền tác giả + site index nhanh có phải luôn có thứ hạng ở trên không... nhưng thấy những vấn đề này nên để thảo luận trực tiếp thì hơn.

Một số bạn muốn nói thêm về forum seeding, thông tin trên môi trường trực tuyến... nhưng thực sự có những vấn đề có thể viết ra, có những thứ chỉ có thề "nói nhỏ", vì còn phải "nói có sách mách có chứng"...

Thôi, cũng chẳng dây cà ra rây muống, rào trước đón sau nhiều làm gì. Túm lại Ebook SEO copywriting này mình làm để thỏa mãn đam mê viết lách, giờ đem chia sẻ với các bạn. Tất nhiên Ebook là quan điểm, cách nhìn của một cá nhân, khó tránh khỏi "một chiều", các bạn cứ đọc tham khảo thôi. Nếu có gì cần thảo luận thì cứ comment hoặc liên hệ trực tiếp. Năm tới đây (nếu còn làm SEO), trên cơ sở tổng hợp ý kiến của các bạn và được trải nghiệm, kiến thức vững hơn mình sẽ "tái bản" để Ebook được đầy đủ và hoàn thiện hơn.

 Ebook SEO Copywriting được mình định dạng PRC, bạn nào chưa có Mobipocket Reader thì lên mạng down về đọc nhé.

Đây cũng như một món quà năm mới gửi tới anh em làm SEO.
Chúc các bạn sức khỏe, năm mới thành công mới !

Tải: Ebook SEO Copywriting
Link dự phòng mediafire
http://www.mediafire.com/download/6f5ua5v6b1odvh3/Ebook+SEO+Copywriting+1.0.rar

Chủ Nhật, 5 tháng 1, 2014

VBA: Hàm tách tên trong xâu họ và tên

Hàm tách tên trong xâu họ và tên.
(VD: Nếu biết họ tên là Nguyễn Minh Ngọc, hàm sẽ tách ra được tên là Ngọc)
Function GetTen(hoten As String) As String
Dim pos As Integer
pos = 1
If InStr(pos, Trim(hoten), " ") = 0 Then
GetTen = hoten
Exit Function
End If
While InStr(pos + 1, Trim(hoten), " ") > 0
pos = InStr(pos + 1, Trim(ten), " ")
Wend
GetTen = Mid(hoten, pos)
End Function

Tag: VBA, Access, Module, VB.Net, FoxPro

Thứ Tư, 1 tháng 1, 2014

VBA: Cấu trúc For Each … Next


Cú pháp:
For Each phần_tử  In nhóm 
     Lệnh 
     …… 
     [ Exit For ]  Lệnh 
Next [ phần_tử] 
Số lần vòng lặp For thực hiện các lệnh tùy thuộc vào số phần tử trong nhóm. Phần tử là biến đối tượng chứa trong một đối tượng khác, còn nhóm có thể là mảng hoặc biến đối tượng bao gồm nhiều đối tượng thành phần.
Ví dụ
Dim frm As Form 
Dim Ctl As Control 
Set frm = Forms!Nhan_vien 
For Each Ctl In frm.Controls 
        With Ctl 
             .FontName = “VNI-Times” 
             .FontSize = 12   
             .ForeColor = 128    
             .FontBold = True 
       End With 
Next 

Tag: Access, VBA, Module, VB.Net

VBA: Cấu trúc With … End With


Cú pháp:
With đối_tượng 
       Lệnh 
…… 
End With
Cấu trúc With cho phép thực hiện các lệnh đối với một biến đối tượng nào đó hoặc biến có kiểu do người sử dụng tự định nghĩa. Các lệnh trong cấu trúc With sẽ tham chiếu trực tiếp đến các tính chất của đối tượng, vì vậy cấu trúc này thường được dùng để thay đổi giá trị của các tính chất trong đối tượng. 
Ví dụ: 
Dim F_NV As Form, I As Integer 
Set F_NV = Forms!Nhan_vien 
For I = 0 To Frm.Count – 1 
         If TypeOf Frm(I) Is TextBox Then 
                 With Frm(I) 
                      .BackColor = 1 
                      .ForeColor = 128 
                      .BorderStyle = 1 
                      .Height = 200 
                 End With 
         End If 
Next 
Tag: Access, VBA, Module, VB.Net

VBA: Cấu trúc If TypeOf … Is … Then


Cú pháp:
If TypeOf biến_đối_tượng Is hằng_nội_tại Then 
         Lệnh_1 
[ ElseIf TypeOf biến_đối_tượng Is hằng_nội_tại Then 
         Lệnh_2 ] 
…… 
[ Else 
         Lệnh_n ] 
End If 
Cấu trúc này kiểm định đối tượng mà biến biểu thị thuộc loại nào với hằng nội tại là các hằng ký hiệu đã định nghĩa sẵn trong Access để qui định về loại đối tượng. Hằng nội tại biểu thị cho các đối tượng thuộc loại ô điều khiển trong mẫu biểu hoặc báo biểu gồm có:  CheckBox, CommandButton, ComboBox, ListBox, OptionGroup, OptionButton, ToggleButton, TextBox, Label, Image, ObjectFrame …
Ví dụ
Dim F_Name As String 
Dim Frm As Form 
Dim I As Integer 
F_Name = InputBox(“Tên mẫu biểu:”) 
DoCmd.OpenForm F_Name  
Set Frm = Forms(F_Name)  
For I = 0 To Frm.Count – 1   
         If TypeOf Frm(I) Is Label Then   
                      Frm(I).ForeColor = 255    
         ElseIf TypeOf Frm(I) Is TextBox Then   
                      Frm(I).ForeColor = 0 
         ElseIf TypeOf Frm(I) Is CommandButton Then 
                      Frm(I).ForeColor = 128 
         End If 
Next 
Tag: VBA, Module, Cấu trúc If TypeOf … Is … Then