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

Táo quân 2014: Tự Long thế Chí Trung làm Táo Giao thông

(Gặp nhau cuối năm - Táo quân)

- Về kịch bản Táo quân 2014, có nghi ngờ Tự Long sẽ thay Chí Trung đóng Táo Giao thông.

Phải biết tự làm mới mình

10 năm tham gia Táo quân, kể cả 2014 là 11 năm, nhưng từng chia sẻ trong một bài phỏng vấn, lần đầu tiên hay bây giờ, với Tự Long, cảm giác không khác nhau lắm, bởi mỗi lần ra diễn vẫn cứ hồi hộp như lần đầu tiên.

'Nói như vậy, nhiều người sẽ bảo nói điêu, nói không đúng. Tuy nhiên, cảm giác khi chúng tôi làm Táo, thì ở dưới kia là bố mình, mẹ mình và tất cả những người thân của mình đang chờ đợi món quà mình dành cho.

Ngoài việc dành cho những người thân của mình, chúng tôi còn có trọng trách rất lớn nhưng không bao giờ cố định. Kịch bản có thể thay đổi, lúc đầu nhận một kịch bản khác, tới lúc ra ghi hình lại là một kịch bản khác.


Bởi vậy, mọi người cứ phải gồng mình lên để nhớ, gồng mình lên để biểu diễn, thành ra lúc nào cũng căng thẳng và kèm theo sự hồi hộp', Tự Long chia sẻ.

Khẳng định bộ ba Xuân Bắc - Tự Long - Vân Dung sẽ đều tham gia Táo quân 2014, trong cuộc giao lưu trực tuyến do báo Vietnamnet tổ chức hôm 27/12 vừa qua, Tự Long nói thêm về áp lực khi diễn chương trình Gặp nhau cuối năm năm nay:

'Năm nào làm Táo cuối năm chẳng có áp lực từ rất nhiều phía, thời gian, kịch bản, nhất là công việc cuối năm mọi thứ đều dồn lại. Mọi người hay nói với nhau rằng, cuối năm thân mình phải xẻ ra làm 6 thì mới đủ.

Tập Táo cơ bản là tập vào đêm đến sáng nên mọi người đều mệt'.

Trả lời câu hỏi, việc chung lẫn việc riêng nhiều như vậy làm sao các anh có thể cân bằng được thời gian để dành cho gia đình. Có khi nào bị phàn nàn hay kêu ca, có áp lực gì không, nghệ sỹ Tự Long cho biết:


'Đương nhiên là nó phải ảnh hưởng rồi. Phàn nàn kêu ca là chuyện đương nhiên. Áp lực thì làm sao có thể tránh khỏi còn cân bằng thời gian thì không việc gì phải cân bằng cả. Vì mình phải đối diện với nó và hiệu chỉnh theo hai cách.

Một là, mình phải theo nó. Hai là, nó phải theo mình. Thật ra, trong cuộc sống thì không ai có thể làm tốt nhiều việc cùng một lúc cả. Bởi vậy, mình phải chấp nhận một sự thật, cái này tốt thì cái kia đỡ tốt đi'.

Vân Dung lúc nào cũng mong đến cuối năm tập Táo

Về kịch bản Táo quân 2014, có độc giả nghi ngờ Tự Long sẽ thay Chí Trung làm Táo Giao thông và hỏi thẳng Tự Long: 'Anh đã sẵn sàng đóng Táo Giao thông chưa? Anh có sợ khi nhận vai này không?', tuy nhiên, Tự Long khéo léo từ chối: 'Sao anh biết tôi làm Táo Giao thông? Vì đến giờ phút này tôi cũng chưa biết tôi sẽ làm Táo gì'.

Tự Long cũng bật mí về chuyện áp lực, chuyện hậu trường của nghệ sỹ Vân Dung sau 11 năm đóng Táo: 'Nghệ sỹ Vân Dung huyết áp tăng đột ngột, các Táo nam đều phải hô hấp nhân tạo.

Nhưng thật kỳ lạ cứ năm nào tập Táo mệt mỏi thì nghệ sỹ Vân Dung lại tăng cân lên một ít, cho nên Vân Dung lúc nào cũng mong đến cuối năm để được tập Táo.


Sau 11 năm làm Táo, Vân Dung từ 49kg nay đã lên 61kg rồi và các chỉ số phụ không còn như xưa nữa. Muốn biết số đo của Vân Dung 3 vòng như thế nào liên hệ trực tiếp với tôi sẽ có câu trả lời'.

Được một độc giả đánh giá rằng, là một trong số những diễn viên nam 'xmen' nên nếu Tự Long đóng vai Nam Tào hoặc 'cô Đẩu' ỏn ẻn thì có làm được không, nghệ sỹ Tự Long cho biết:

'Tôi rất sung sướng nếu như đạo diễn sẽ giao cho tôi những vai vừa kể trên. Vì tôi rất thích được thử sức ở những vai diễn khác nhau. Đó cũng là điều cần thiết vì nghệ sĩ muốn sống lâu trong lòng khán giả phải biết tự làm mới mình'.

Một diễn viên đẳng cấp là chấp những diễn viên đẳng cấp khác

Nhìn nhận lại năm 2013, một năm được đánh giá là thành công của Tự Long, khi ngoài những công việc chính, anh mới đảm nhận thêm vai trò MC của một Gameshow mới trên Đài Truyền hình Hà Nội, Tự Long đánh giá: 'Năm 2013 là một năm rất thành công, rất bận rộn, rất vất vả, rất mệt mỏi và cũng rất hài lòng với tôi.

Tôi trở thành MC trong chương trình Ai trúng số độc đắc của Đài Truyền hình Hà Nội hoàn toàn do ngẫu nhiên, xuất phát từ việc được mời là người chơi trong chương trình.

Sau lần đó thì BBT có đặt vấn đề muốn tôi cộng tác làm MC cho chương trình. Và đó là một việc làm bình thường, BBT hỏi tôi có đảm nhận được không và tôi nói là có và đã thử sức.


Còn với Lương Mạnh Hải, tôi thấy cậu ấy làm rất tốt. Tuy nhiên, việc thay đổi là do Đài Truyền hình Hà Nội và BBT. Tôi không phải nỗ lực đánh bại ai cả vì đây cũng là một gameshow bình thường thôi, không có gì đặc biệt lắm. Nhiều người có thể làm MC được mà'.

Về câu hỏi của một độc giả: 'Như thế nào là một diễn viên đẳng cấp', nghệ sỹ Tự Long hóm hỉnh: 'Một diễn viên đẳng cấp là một diễn viên 'chấp' tất cả những diễn viên có đẳng cấp khác'.

Theo GDVN

Táo quân 2014 của VTC: Danh hài Chiến Thắng làm Nam Tào

(Gặp nhau cuối năm - Táo quân)

- Theo những thông tin bị rò rỉ, Táo quân 2014 của VTC sẽ có 6 Táo ông và 1 Táo bà. Ngoài ra, về mặt kịch bản, chương trình cũng có nhiều điểm mới.

Theo những thông tin được tiết lộ, năm nay, Táo quân của VTC sẽ bao gồm 6 Táo ông và 1 Táo bà. Trong đó, diễn viên Hiệp Vịt sẽ đóng vai Táo kinh tế, diễn viên Thu Huyền sẽ đóng vai Táo Y tế, các Táo còn lại vẫn đang là bí mật.



Sân chầu của Táo quân VTC 2014 vẫn được thiết kế khá "mộc" với 1 khung cảnh không đổi: Phồng nền xanh có trang trí bằng họa tiết mây, cột đình, ngai vàng...

Đặc biệt, năm nay diễn viên hài Chiến Thắng sẽ đảm nhiệm vai diễn Nam Tào, và đóng cặp với anh, diễn viên Tùng Dương sẽ vào vai Bắc Đẩu.



Táo quân 2014 của VTC đã được khởi quay từ ngày 18/12/2013. Dự kiến, chương trình sẽ phát đúng vào dịp 23 tháng Chạp như năm ngoái và phát lại vào dịp Giao thừa. Năm nay, Táo quân của VTC sẽ có thêm nhiều đổi mới.


Nam Tào Chiến Thắng chụp ảnh lưu niệm cùng Táo Kinh tế Hiệp Vịt


Vai diễn của NSƯT Quốc Anh vẫn chưa được hé lộ

Ngoài những nhân vật mới sẽ có mặt trong ê-kip, kịch bản của chương trình cũng có sự đổi mới. Theo đó, nếu năm trước, Táo quân của VTC bị chê là thiếu chất hài, nặng về thông tin thì năm nay, chất hài hước sẽ được đưa vào nhiều hơn để giảm bớt sự nặng nề về thông tin.

Thêm đó, các thông tin được đưa vào bản báo cáo sẽ có sự chọn lọc kỹ càng hơn, tránh cồng kềnh.




Thêm 1 điểm nhấn khác, thay vì để từng Táo vào báo cáo như năm ngoái, Táo quân 2014 của VTC sẽ xuất hiện những màn "đá xoáy", "xỏ ngọt" giữa các Táo và cũng sẽ xuất hiện những "vở kịch" ngắn vui nhộn để diễn lại những tiêu cực của từng ngành.


Về cơ bản, Táo quân của VTC đang có một sự thay đổi khá mạnh cả về nội dung lẫn hình thức thể hiện. Tuy nhiên, với 1 kịch bản, sân khấu, phục trang... đều chưa được chăm chút kỹ càng, cộng thêm việc còn quá ít những tên tuổi "ăn khách", Táo quân của VTC không tránh khỏi việc bị đem ra so sánh với Táo quân "đàn anh" của VTV.

Theo Trí thức trẻ

VTV thêm đối thủ cạnh tranh Táo quân 2014

(Gặp nhau cuối năm - Táo quân)

- Chương trình Táo quân (gặp nhau cuối năm) đã trở thành món ăn tinh thần quen thuộc được nhiều khán giả VTV mong đợi vào mỗi dịp Tết đến xuân về. Năm nay, VTV không còn độc quyền phát sóng nữa mà sẽ có thêm đối thủ cạnh tranh là VTC.


Sẽ có nhiều vai diễn mới

Cũng như mọi năm, năm nay, hài Táo quân sẽ vẫn xoáy sâu vào những mảng tối của xã hội, những cái nhìn sâu sắc nhất, được thiên biến vạn hóa qua những lời thoại dí dỏm, vừa mang lại tiếng cười cho khán giả, vừa vẽ lên một bức tranh tổng quan của toàn xã hội trong suốt năm 2013. Cũng giống nhiều năm trước, kịch bản Táo quân luôn luôn được ê-kíp giữ bí mật tới phút chót. Ít nhất, là cho tới khi chương trình chính thức được tổng duyệt ở Cung hữu nghị Việt Xô vào ngày 25-1-2014.

Những thông tin đoán định về chương trình Táo quân 2014 trên mạng cũng được ê- kip làm chương trình khẳng định không phải là những thông tin chính thức. Nhưng điều có thể khẳng định chắc chắn là sẽ có sự đổi mới về diễn xuất của Nam Tào, Bắc Đẩu và sự góp mặt của nhiều nhân tố mới mang lại nhiều tiếng cười cho khán giả. Đạo diễn Đỗ Thanh Hải cho biết, ngày mai (26-12), mới có bảng phân vai cụ thể cho các Táo, nhưng trước đó việc nghệ sĩ Chí Trung lên tiếng từ chối vai diễn Táo Giao thông cũng ít nhiều khiến khán giả băn khoăn. Nếu vai Táo Giao thông vẫn tiếp tục được thể hiện ở Táo quân 2014 - thì ai sẽ là người đảm nhiệm vai này? Nghệ sĩ nào sẽ "dấn thân” để sáng tạo, đào phá chất liệu, xây dựng nhân vật để vai Táo Giao thông?

Khán giả đã có thêm lựa chọn

Đồng hành cùng khán giả 10 năm, nhưng từ Tết 2013, VTV không còn độc quyền chương trình hài Táo quân nữa. Năm trước, Đài Truyền hình Kỹ thuật số (VTC) cũng dàn dựng chương trình Táo quân và phát sóng sớm hơn Táo quân của VTV 1 tuần (vào khoảng 23 tháng Chạp và phát lại vào đêm Giao thừa). Tuy nhiên, theo nhận xét khách quan từ khán giả, dàn diễn viên không mấy nổi cộng với sự "chập chững” của chương trình và độ phủ sóng hạn chế, nên Táo quân phiên bản VTC mùa đầu tiên đã chưa tạo được hiệu ứng cho khán giả, chưa cạnh tranh được với "phiên bản gốc” Táo quân VTV. Và xét một cách công bằng chất lượng Táo quân của VTC chưa bằng VTV. Nhưng dù sao khán giả cũng có thêm một sự lựa chọn.

Người thiết kế chương trình Táo quân VTC, không ai khác chính là người đã khai sinh ra chương trình Táo quân VTV- Đạo diễn, NSND Nguyễn Khải Hưng. Chính vì vậy, hai chương trình có khá nhiều điểm giống nhau và có sự cạnh tranh nhau quyết liệt để thu hút khán giả.

Tuy nhiên, xét về mặt hiệu ứng, chương trình Táo quân của VTV vẫn được "ưu tiên” và chờ đợi số 1 trong lòng khán giả mỗi đêm Giao thừa. Điều này rất dễ hiểu, bởi chương trình đã đều đặn lên sóng tròn 10 năm, cộng với dàn diễn viên quen thuộc đến mức khó có thể thay thế. Nhưng nhìn lại chương trình Táo quân VTV hai năm gần đây, người ta đã bắt đầu thấy có sự nhàn nhạt…và nhiều tình tiết hơi quá đà. Thậm chí năm 2013, chương trình Táo quân VTV đã bị Cục Nghệ thuật biểu diễn (Bộ VH,TT&DL) tuýt còi vì có nhiều lời thoại thô thiển, tục tĩu…

Hi vọng, sự cạnh tranh về món ăn tinh thần ngày Tết sẽ đem lại những sản phẩm chuyên nghiệp và chất lượng hơn. Chắc chắn sự song hành của Táo quân VTC 2014 sẽ là động lực để Táo quân VTV làm mới mình.

Theo báo Đại đoàn kết

Bà Tưng, Quân Kun, Dương Chí Dũng sẽ "xuất hiện" trong Táo quân 2014

(Gặp nhau cuối năm - Táo quân)

- Là một chương trình “hot” và được đầu tư công phu có thể nói là hàng đầu trên sóng VTV. Chương trình “Gặp nhau cuối năm” (Táo quân) luôn nhận được sự đón nhận nồng nhiệt, thậm chí mỗi thay đổi trong nó đều thu hút sự quan tâm của dư luận.

Về nội dung, điểm thay đổi lớn nhất của năm nay là Táo Giao thông vai diễn do NSƯT Chí Trung đảm nhiệm sẽ không xuất hiện. Chia sẻ với báo chí, nghệ sĩ Chí Trung trần tình: “Việc tôi dừng vai diễn Táo Giao thông đã được tôi suy nghĩ rất kỹ. Tôi thấy rằng thà chia tay trong đớn đau, còn hơn là tồn tại trong chê trách. Như đã nói ở trên, tôi biết chất liệu Táo Giao thông đã hết, tôi tự biết mình là ai, khi tuổi đã xế chiều không thể nhảy múa, hát ca như các nghệ sĩ khác được, thì tôi phải xin rút lui thôi.”.

Những vai diễn khác vẫn do các nghệ sĩ quen thuộc đảm nhận: Vân Dung, Quốc Khánh, Công Lý, Xuân Bắc, Tự Long. Cho tới thời điểm hiện nay kịch bản của Táo quân 2014 và sự phân chia vai diễn vẫn nằm trong vòng bí mật.


Chia sẻ với báo chí, Công ty Cổ phần bia rượu Sài Gòn Sabeco, một trong những nhà tài trợ của chương trình, cho rằng: “Những vấn đề bức xúc của xã hội trong năm qua sẽ là mảnh đất “màu mỡ” để các nghệ sĩ khai thác. Sự bí mật tới phút chót cũng chính là điểm hấp dẫn mà chương trình này mang lại cho khán giả vào buổi tối Tất niên của năm. Chúng tôi luôn mong muốn đồng hành cùng chương trình “Táo quân”. Chúng tôi tôn trọng quyết định của nhà đài”. Chương trình Táo quân 2014 đang được các nghệ sĩ tập luyện với tinh thần rất cao và hứa hẹn sẽ mang lại nhiều điều thú vị cho khán giả của VTV.

Cũng như mọi năm, năm nay 2014, Táo quân sẽ vẫn xoáy sâu vào những mảng tối của xã hội, những cái nhìn sâu sắc nhất, được thiên biến vạn hóa qua những lời văn dí dỏm, vừa mang lại tiếng cười cho khán giả, và mang cả một cái nhìn tổng quan của toàn xã hội, những vẫn đề nổi cộm, nhức nhối trong năm vừa qua.

“Bà Tưng” là một hiện tượng vô cùng nổi, và làm náo loạn cộng đồng mạng, cũng như giới showbiz trong một thời gian, với chiêu trò câu like rẻ tiền, hay Quân Kun, nhưng cái gọi là PR bằng hình thức gây shock trên mạng, sẽ được Táo quân 2014 đề cập để cho chúng ta cái nhìn sâu sắc nhất, về vấn đề này.

Các vấn đề nổi cộm của kinh tế xã hội sẽ được đề cập qua sự hài hước, qua lời thoại dí dỏm của kịch bản, và diễn xuất trào lộng các nghệ sĩ hài sẽ mang đến những phút giây thư giãn nhưng mang đầy ý nghĩa trong Táo quân 2014.

Theo tin tức Gia đình

Thứ Hai, 13 tháng 1, 2014

Tự động chuẩn hóa chuỗi khi Enter trong Excel

(Thủ thuật VBA trong Excel)

- Trong bài viết “Hàm chuẩn hóa chuỗi trong Excel”, Kênh phần mềm việt đã giới thiệu với mọi người cách viết hàm để chuẩn hóa chuỗi trong Excel. Hàm này sẽ rất có ích đối với người dùng khi Copy dữ liệu từ một nguồn khác và dữ liệu này chưa được chuẩn hóa theo mong muốn của người sử dụng. Đó là trường hợp Copy dữ liệu từ một nguồn khác, còn việc tự động chuẩn hóa ký tự nhập vào mỗi khi ấn Enter hoặc chuyển ô?. Việc tự động chuẩn hóa này sẽ giúp người sử dụng  giúp ngắn được thời gian nhập liệu khi phải làm việc với các danh sách học sinh, học viên, nhân sự, khách hàng….  khi không còn phải quan tâm đến việc đánh ký tự chữ hoa ở đầu mỗi từ hoặc bị thừa các khoảng trắng.

Hôm nay Kênh phần mềm việt sẽ giới thiệu với các bạn cách sử dụng hàm chuẩn hóa chuỗi để tự động hóa trong quá trình nhập liệu. Hàm này sẽ thực hiện các công việc: xóa bỏ các ký tự trống ở đầu và cuối, Xóa bỏ từ 2 ký tự trống liên tiếp ở giữa các từ, Viết hoa chữ cái đầu tiên tại mỗi từ mỗi khi người sử dụng ấn Enter hoặc chuyển ô. Nếu muốn kiểm soát việc tự động này theo những vùng hoặc những cột mong muốn, bạn hoàn toàn có thể thực hiện được.

1. Khởi động Microsoft Excel.
2. Nhấn ALT + F11 để bắt đầu Visual Basic Editor.
Vào Menu Inser\Module

3. Nhập toàn bộ đoạn mã sau vào

Function Chuanhoachuoi(str As String) As String
    Dim sChuoi As String
    Dim mlen As Long
    Dim i As Long
    'Neu chuoi =0 thi khong xu ly
    If Len(str) = 0 Then Exit Function
    'Xoa bo cac ky tu trang o dau va cuoi
    str = Trim(str)
    'Dem so ky tu chuoi
    mlen = Len(str)
 
    'Loai bo hai ki tu trong lien tiep
    For i = 1 To mlen
        If Mid(str, i, 1) = " " And Mid(str, i + 1, 1) = " " Then
            str = Replace(str, "  ", " ")
            i = i - 1
        End If
    Next

     For i = 1 To mlen
        ' Chuyen cac ky tu dau tien mot tu sang chu hoa
        If Mid(str, i, 1) = " " Then
            sChuoi = sChuoi & " " & UCase(Mid(str, i + 1, 1))
            i = i + 1
        Else
            'Chuyen chu cai dau tien cua cau sang chu hoa
            If i = 1 Then
                sChuoi = UCase(Mid(str, 1, 1))
            Else
                sChuoi = sChuoi & LCase(Mid(str, i, 1))
            End If
        End If
     Next
    Chuanhoachuoi = sChuoi
End Function

Kích nút Save để lưu lại, bạn có thể xem thêm bài viết cách lưu file Excel khi chứa Macro hoặc hàm.

4. Kích đúp vào tên Sheet mà bạn muốn thực hiện công việc tự động chuẩn hóa


- Tại mục (General) chọn WorkSheet
- Tại mục (Declarations) chọn Change

Nhập đoạn Code phía dưới vào màn hình soạn thảo

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim str As String
     If Not (Intersect(Target, Range("$F:$F")) Is Nothing) Then
str = Chuanhoachuoi(Target.Value)
Target = str
     End If
End Sub

Trong đó:
- Range("$F:$F"): Chỉ cho phép tự động chuẩn hóa tại cột F
- Range("$F:$G"): Cho phép tự động chuẩn hóa từ cột F đến cột G
- Range("$F:$F,$I:$J"): Cho phép tự động chuẩn hóa cột F và cột J
- Range("E8:E9,E11:E14"): Cho phép tự động chuẩn hóa từ ô E8 đến E9 và từ ô E11 đến ô E14

Bây giờ mỗi khi người sử dụng nhập các chuỗi ký tự ở những vùng cho phép tại Sheet vừa nhập đoạn Code trên, Excel sẽ tự động chuẩn hóa chuỗi ký tự đã nhập vào.

Kênh phần mềm việt

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

Tùy chỉnh các liên kết chuyển trang trong Blogger

(Thủ thuật Blogger)

- Khi người sử dụng xem chi tiết một bài viết hoặc vào xem danh sách các bài viết một chuyên mục nào đó, ở cuối Blog là các liên kết đến trang trước / sau của bài viết. Khi người truy cập kích chuột vào các liên kết, Blog sẽ tự động chuyển tới danh sách các bài viết trước đây của bạn hoặc bài tiếp theo hoặc trang chủ. Tuy nhiên mặc định các liên kết này chỉ là các liên kết thường, trông rất đơn điệu.Vậy có cách nào để thay thế những liên kết này bằng những hình ảnh trông đẹp và sinh động và chuyên nghiệp hơn không?

Trước khi chỉnh sửa

Sau khi chỉnh sửa

Hôm nay Kênh phần mềm việt sẽ hướng dẫn cách để thay đổi các liên kết đến trang trước, trang sau, trang chủ bằng những hình ảnh  tùy ý.

- B1: Đăng nhập vào Blogger
- B2: Chọn Menu Mẫu (Template)\Chỉnh sửa HTML (Edit HTML)
- B3: Ấn tổ hợp phím Ctrl + F và tìm thẻ <b:includable id='nextprev'>

<b:includable id='nextprev'>
  <div class='blog-pager' id='blog-pager'>
    <b:if cond='data:newerPageUrl'>
        <span id='blog-pager-newer-link'>
          <a class='blog-pager-newer-link' expr:href='data:newerPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-newer-link&quot;' expr:title='data:newerPageTitle'>
            <data:newerPageTitle/>
          </a>
        </span>
    </b:if>
    <b:if cond='data:olderPageUrl'>
        <span id='blog-pager-older-link'>
          <a class='blog-pager-older-link' expr:href='data:olderPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-older-link&quot;' expr:title='data:olderPageTitle'>
            <data:olderPageTitle/>
          </a>
        </span>
    </b:if>
    <a class='home-link' expr:href='data:blog.homepageUrl'>
        <data:homeMsg/>
    </a>
  </div>
  <div class='clear'/>
</b:includable>

Bây giờ chúng ta sẽ thay thế các dòng chữ màu đỏ bằng các nội dung hoặc hình ảnh mong muốn.

1. Để thêm hình ảnh bên cạnh văn bản liên kết
Để đặt hình ảnh bên cạnh các liên kết văn bản, thêm thẻ <img src="Đường dẫn Ảnh"/> trước hoặc sau các thẻ <data:olderPageTitle/>, <data:newerPageTitle/>, <data:homeMsg/>

<b:includable id='nextprev'>
    <div class='blog-pager' id='blog-pager'>
      <b:if cond='data:newerPageUrl'>
        <span id='blog-pager-newer-link'>
          <a class='blog-pager-newer-link' expr:href='data:newerPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-newer-link&quot;' expr:title='data:newerPageTitle'>
            <img src="Đường dẫn Ảnh" /><br />
            Trang trước
          </a>
        </span>
      </b:if>
      <b:if cond='data:olderPageUrl'>
        <span id='blog-pager-older-link'>
          <a class='blog-pager-older-link' expr:href='data:olderPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-older-link&quot;' expr:title='data:olderPageTitle'>
            <img src="Đường dẫn Ảnh" /><br />
            Trang sau
          </a>
        </span>
      </b:if>
      <a class='home-link' expr:href='data:blog.homepageUrl'>
        <img src="Đường dẫn Ảnh" /><br />
        Trang chủ
      </a>
    </div>
    <div class='clear'/>
</b:includable>

Sau khi chỉnh sửa ta sẽ có kết quả như hình ảnh dưới


2. Thay thế các liên kết bằng hình ảnh
Nếu bạn không muốn liên kết văn bản xuất hiện mà chỉ muốn sử dụng hình ảnh, ta thay thế các thẻ <data:olderPageTitle/> , <data:newerPageTitle/> và <data:homeMsg/> bằng các thẻ <img src="Đường dẫn Ảnh"/>

<b:includable id='nextprev'>
    <div class='blog-pager' id='blog-pager'>
      <b:if cond='data:newerPageUrl'>
        <span id='blog-pager-newer-link'>
          <a class='blog-pager-newer-link' expr:href='data:newerPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-newer-link&quot;' expr:title='data:newerPageTitle'>
            <img src="Đường dẫn Ảnh"/>
          </a>
        </span>
      </b:if>
      <b:if cond='data:olderPageUrl'>
        <span id='blog-pager-older-link'>
          <a class='blog-pager-older-link' expr:href='data:olderPageUrl' expr:id='data:widget.instanceId + &quot;_blog-pager-older-link&quot;' expr:title='data:olderPageTitle'>
            <img src="Đường dẫn Ảnh"/>
          </a>
        </span>
      </b:if>
      <a class='home-link' expr:href='data:blog.homepageUrl'>
        <img src="Đường dẫn Ảnh"/>
      </a>
    </div>
    <div class='clear'/>
</b:includable>

Sau khi chỉnh sửa ta sẽ có kết quả như hình ảnh dưới


Kênh phần mềm việt

Thứ Sáu, 10 tháng 1, 2014

Tạo mục lục danh sách các Sheet trong Excel

(Thủ thuật VBA Excel)

- Trong Excel khi làm việc với một vài Sheet thì việc di chuyển khá dễ dàng, người sử dụng không phải mất quá nhiều thời gian để lựa chọn Sheet cần thao tác. Tuy nhiên khi Workbook có nhiều Sheet thì việc chọn Sheet để làm việc thì quả thực rất khó và mất thời gian. Có 1 cách để di chuyển qua lại giữa các Sheet bằng sử dụng phím tắt đó là: Ctrl-Page Up: Tiến lên 1 sheet (Sheet 1 sang Sheet 2), Ctrl-Page Down: Lùi về 1 sheet (Sheet 3 về Sheet 2). 

Hoặc cũng có nhiều người sử dụng 1 Sheet chính, trong Sheet này sẽ tạo danh mục các Sheet dạng mục lục và liên kết đến đây khi kích vào. Với cách làm này người sử dụng có thể dễ dàng trong việc làm việc và di chuyển giữa các Sheet và quay về Sheet chính.  Hiện mọi người vẫn sử dụng phương pháp thủ công để làm công việc này, hôm nay Kênh phần mềm việt sẽ giới thiệu với mọi người 1 phương pháp để làm nhanh công việc này bằng cách sử dụng VBA.


Hàm này sẽ có chức năng như sau:
- Kiểm tra xem đã có Sheet mục lục chưa, nếu chưa có thì sẽ tạo mới và chèn vào vị trí đầu tiên
- Thiết lập độ rộng cột
- Định dạng các vùng dữ liệu
- Đánh số thứ tự và chèn tên Sheet vào các ô
- Chèn liên kết đến các Sheet tương ứng với từng Sheet
- Chèn một liên kết để quay về Sheet Mucluc

Dưới đây là các bước để tạo Macro này.
1. Khởi động Microsoft Excel.
2. Nhấn ALT + F11 để bắt đầu Visual Basic Editor.
Vào Menu Inser\Module


3. Nhập toàn bộ đoạn mã sau vào
Private Sub CreateTableOfContents()
    Dim wsSheet As Worksheet
    Dim ws As Worksheet
    Dim Counter As Long
 
    On Error Resume Next
    Set wsSheet = Sheets("Mucluc")
    'Kiem tra su ton tai cua Sheet
    On Error GoTo 0
    If wsSheet Is Nothing Then
        'Neu chua co thi them vao vi tri dau tien cua Workbook
        Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))
        wsSheet.Name = "Mucluc"
    End If

    With wsSheet
        .Cells(2, 1) = "DANH SACH CAC SHEET"
        .Cells(2, 1).Name = "Index"
        .Cells(4, 1).Value = "STT"
        .Cells(4, 2).Value = "Ten Sheet"
    End With
 
    'Merge Cell
    With Range("A2:B2")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With
 
    'Set ColumnWidth
    With Columns("A:A")
        .ColumnWidth = 8
        .HorizontalAlignment = xlCenter
    End With
 
     With Range("A4")
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With
 
    Columns("B:B").ColumnWidth = 30
    With Range("B4")
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With
 
    Counter = 1
    For Each ws In Worksheets
        If ws.Name <> wsSheet.Name Then
            'Gan gia tri cot thu tu
            wsSheet.Cells(Counter + 4, 1).Value = Counter
            'Tao lien ket
            wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _
                                            Address:="", _
                                            SubAddress:=ws.Name & "!A1", _
                                            ScreenTip:=ws.Name, _
                                            TextToDisplay:=ws.Name
            'Them nut Quay ve Sheet Muc luc tai moi Sheet
            With ws
                .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve"
            End With
            Counter = Counter + 1
        End If
    Next ws
   Set xlSheet = Nothing
End Sub

4. Chạy Marco vừa tạo, bạn sẽ có 1 danh sách toàn bộ các Sheet có trên Workbook hiện tại được đưa vào trong Sheet Mucluc, và từ đây bạn dễ dàng đến bất kỳ một Sheet nào khi cần.

Kênh phần mềm việt
Các con vật cho bé học, video dạy bé học nói, các con vật thân quen,các con vật giúp bé học nói