Macro tạo phân số trong Word 2007

<b>(Tin học văn phòng) - Nếu bạn thường xuyên phải đánh các phân số trong Word, công việc này có thể làm tốn nhiều thời gian. Như bạn đã biết, ta có thể sử dụng các trường (Field) để gõ phân số, tuy nhiên thật khó khăn khi phải nhớ hết công thức của nó. Vì vậy bạn nên tạo một Macro giúp mình làm việc này.</b><br /><div class="separator" style="clear: both; text-align: center;"></div><br />Trước tiên bạn mở Word, ấn tổ hợp phím <b>Alt + F11</b>. Khi xuất hiện cửa sổ <b>Microsoft Visual Basic</b>, bạn vào Menu <b>Insert\Module</b> và nhập đoạn mã dưới đây.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4A7QXLPK9vCDZN01crSVda22_pv-ZkZvGLSybGYusNI1_bxitjY6o-xPjD5psit1qlGrcb11FVXWEbcyqsKX1ypd-11LlnkVbpFkoIqY6_JidnX2JpZTbA2GdP20PnYZ3L52NOKLY4XlQ/s1600/Marco-danh-phan-so.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4A7QXLPK9vCDZN01crSVda22_pv-ZkZvGLSybGYusNI1_bxitjY6o-xPjD5psit1qlGrcb11FVXWEbcyqsKX1ypd-11LlnkVbpFkoIqY6_JidnX2JpZTbA2GdP20PnYZ3L52NOKLY4XlQ/s1600/Marco-danh-phan-so.png" /></a></div><br />Sub InsertFraction()<br />  Dim Tuso As String<br />  Dim Mauso As String<br />  Tuso = InputBox("Ban hay nhap tu so:", "Tu so")<br />  If Tuso <> "" Then<br />  Mauso:<br />  Mauso = InputBox("Ban hay nhap mau so:", "Mau so")<br />  If Mauso = "0" Then<br />  MsgBox "Mau so khong the la gia tri 0 duoc.", , "Khong dung"<br />  GoTo Mauso<br />  Else<br />  If Mauso <> "" Then<br />      ActiveDocument.Fields.Add Range:=Selection.Range, _<br />Type:=wdFieldEmpty, Text:="EQ \f(" & Tuso & ", " & Mauso & " )", _<br />PreserveFormatting:=False<br />  End If<br />  End If<br />  End If<br />End Sub<br />Nhập xong Code, nhấn <b>Alt+Q</b> để trở về cửa sổ Word. Mỗi khi cần tạo phân số, bạn vào Tab <b>View\Macros</b>, chọn <b>InsertFraction</b> và nhấn nút <b>Run</b>.<br /><br /><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmf_AXFiZfdmxatMPxD1KTZQW5lzCvpEfXEHLp44iPFpyA9MuC1DpicPVipJDCIeaWqORa3oPhI5bnuU6OO5HEXdW_GdF27ICqzCIktwx2oIXM5mj5AXR0uHQGAiSQkEVt8DAOu8WcE0xb/s1600/Marco-danh-phan-so_F.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmf_AXFiZfdmxatMPxD1KTZQW5lzCvpEfXEHLp44iPFpyA9MuC1DpicPVipJDCIeaWqORa3oPhI5bnuU6OO5HEXdW_GdF27ICqzCIktwx2oIXM5mj5AXR0uHQGAiSQkEVt8DAOu8WcE0xb/s320/Marco-danh-phan-so_F.png" width="320" /></a></div><br />Công việc của bạn tiếp theo là nhập phân số mong muốn.<br /><br />Tin học văn phòng<br /><div class="separator" style="clear: both; text-align: center;"></div>

Macro tạo phân số trong Word 2007

(Tin học văn phòng) - Nếu bạn thường xuyên phải đánh các phân số trong Word, công việc này có thể làm tốn nhiều thời gian. Như bạn đã biết, ...

Đọc thêm »

Bảo vệ Header và Footer trong Word 2007

<div style="text-align: justify;"><b>(Tin học văn phòng) - Bạn đã mất khá nhiều công sức soạn thảo tài liệu và để khẳng định những tài liệu này do mình viết ra, bạn tạo Header ghi rõ tên tác giả. Tuy nhiên, với mục đích để mọi người có thể đọc và sửa nội dung nên bạn đã không đặt mật khẩu bảo vệ tài liệu, nhưng bạn rất muốn bảo vệ thông tin tác giả trên Header. Để làm được việc này, bạn hãy thực hiện theo các bước sau:</b></div><br />- <b>B1</b>: Mở văn bản cần bảo vệ<br />- <b>B2</b>: Tạo các thông tin <b>Header & Footer</b><br />- <b>B3</b>: Đặt con trỏ chuột tại dòng đầu tiên của văn bản<br />- <b>B4</b>: Chọn Tab <b>Page Layout\Breaks\Continuous</b><br /><b><br /></b><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1p_F3ThyphenhyphenKk8O_QUX_bVMNFmeF2hksYzBPsQO8tJvOKes3opiKljcpPoDgLL6LOowv5qYMcmk30PWfd6dg2iXwe3h_i4reJ0hd2YKpTnPi0Vm9r6LCnlUdsHOz_xg2UqU3m3X3P4lsl7TR/s1600/Bao-ve-Heade-Footer.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1p_F3ThyphenhyphenKk8O_QUX_bVMNFmeF2hksYzBPsQO8tJvOKes3opiKljcpPoDgLL6LOowv5qYMcmk30PWfd6dg2iXwe3h_i4reJ0hd2YKpTnPi0Vm9r6LCnlUdsHOz_xg2UqU3m3X3P4lsl7TR/s320/Bao-ve-Heade-Footer.png" width="196" /></a></div><b><br /></b>- <b>B5</b>: Vào Tab<b> Review\Protect Document\Restrict Formatting and Editing</b><br /><b><br /></b><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6SbbPDVGpO8ECO6YmFJOGPAmyA2-B6I4t0aHqziF2JK_nCYg8HKplygKNYmzLfDMQ5hVf3542HowC5EYJuO5WdlRkWHCQdVAhKlMYJATNNGKHUUkLvDGQf7q7lLdHsFQrj9401jnx_BYC/s1600/Bao-ve-Heade-Footer1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6SbbPDVGpO8ECO6YmFJOGPAmyA2-B6I4t0aHqziF2JK_nCYg8HKplygKNYmzLfDMQ5hVf3542HowC5EYJuO5WdlRkWHCQdVAhKlMYJATNNGKHUUkLvDGQf7q7lLdHsFQrj9401jnx_BYC/s1600/Bao-ve-Heade-Footer1.png" /></a></div><br />- <b>B6</b>: Tích chọn <b>Allow only this type of editing in the document</b> tại hộp thoại <b>Restrict Formatting and Editing</b> và lựa chọn <b>Filling in forms</b> tại hộp thả xuống.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiomHGZR_GstSq8XZxGhWANUT8GH5pbmUpSPYLqXTjyA1r4_NRDG4FdianCOzYMg6wI-2nmqffzfUm5uZ79sDDeAr2HIN0jfXBOF-cP1FP-YnUrzf4iByDmXW_GzxIxtzC03t8BOWv0MfZV/s1600/Bao-ve-Heade-Footer2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiomHGZR_GstSq8XZxGhWANUT8GH5pbmUpSPYLqXTjyA1r4_NRDG4FdianCOzYMg6wI-2nmqffzfUm5uZ79sDDeAr2HIN0jfXBOF-cP1FP-YnUrzf4iByDmXW_GzxIxtzC03t8BOWv0MfZV/s1600/Bao-ve-Heade-Footer2.png" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"></div><br />- <b>B7</b>: Kích nút <b>Select sections…</b> hộp thoại xuất hiện<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheftNYuYyrRYlS6sExoE-Zdwz96BlvSIsns_-13r5dPjgxpBKtzGQOjjaEoFDlY0uZt203ARsaMneUc5ZQ6Nlbg1gR9ajJuy5PFVHqRl8aBf8GTnh_SA_1qWjHOVvZPOJTdzzZR0T91VVA/s1600/Bao-ve-Heade-Footer3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheftNYuYyrRYlS6sExoE-Zdwz96BlvSIsns_-13r5dPjgxpBKtzGQOjjaEoFDlY0uZt203ARsaMneUc5ZQ6Nlbg1gR9ajJuy5PFVHqRl8aBf8GTnh_SA_1qWjHOVvZPOJTdzzZR0T91VVA/s1600/Bao-ve-Heade-Footer3.png" /></a></div><br />Bỏ chọn Section 2, chỉ chọn Section 1, nếu chọn cả Section 2 thì sẽ bảo vệ cả văn bản. Ở đây ta chỉ tạo 2 Section: Section 1 là phần Header And Footer và Section 2 là phần để soạn thảo văn bản.<br /><br />- <b>B8</b>: Kích nút <b>Yes, Start Enforcing Protection</b><br />- <b>B9</b>: Hộp thoại nhập Password xuất hiện. Nhập Password bảo vệ<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj9k1f5-2_vAaDnVL8JghBaj-lqRBvdolmMsOslBZq5QroFsTCuc2s3f1wouCQ_s4d4GHZ3rsiQnZtd1QIZZ28zzAeJ2icL8Ga6kzxCJySiMflYyRYN3D8eEOz2bCPepNegp5PZhieeqBZ/s1600/Bao-ve-Heade-Footer5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="224" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj9k1f5-2_vAaDnVL8JghBaj-lqRBvdolmMsOslBZq5QroFsTCuc2s3f1wouCQ_s4d4GHZ3rsiQnZtd1QIZZ28zzAeJ2icL8Ga6kzxCJySiMflYyRYN3D8eEOz2bCPepNegp5PZhieeqBZ/s320/Bao-ve-Heade-Footer5.png" width="320" /></a></div><br /><br />Hoàn thành các bước trên bạn có thể thử bằng cách đóng văn bản và mở lại, bây giờ người dùng sẽ không thể can thiệp để sửa Header And Footer nữa rồi. Để chỉnh sửa nội dung Header And Footer, vào Tab <b>Review\Protect Document\Restrict Formatting and Editing</b>, kích nút<b> Stop Protection</b><br /><b><br /></b><b></b><br />Tin học văn phòng

Bảo vệ Header và Footer trong Word 2007

(Tin học văn phòng) - Bạn đã mất khá nhiều công sức soạn thảo tài liệu và để khẳng định những tài liệu này do mình viết ra, bạn tạo Header g...

Đọc thêm »

Các phím tắt về định dạng trong Word 2007

<b style="text-align: justify;">(Tin học văn phòng) - </b><b>Việc trình bày, trang trí văn bản trong Microsoft Word, người sử dụng vẫn thường quen sử dụng con chuột để định dạng. Với việc sử dụng chuột vẫn có thể giúp người dùng đạt được kết quả như mong muốn, tuy nhiên với cách này sẽ mất nhiều thời gian khi người dùng phải luân phiên sử dụng bàn phím và con chuột.</b><br /><br />Hôm nay Tôi sẽ giới thiệu một số phím tắt (Shortcut Key) liên quan đến việc định dạng, việc sử dụng các tổ hợp phím nóng sẽ giúp bạn soạn thảo văn bản nhanh, tiết kiệm thời gian và hiệu quả hơn rất nhiều.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglU67mtDWvNOecG-L8ujndcC1c82v5j1LOGsvJ3iPvdkkLdkZ988ghkLhr1QYjQde-82g9AIND-_5C2B53zLHtdIDNpKKVSJT_LsRYolhaIAoEjaPG8LrySfaOvuL-t-dpuqtzUMaoUZ3Y/s1600/Phim-tat-dinh-dang.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglU67mtDWvNOecG-L8ujndcC1c82v5j1LOGsvJ3iPvdkkLdkZ988ghkLhr1QYjQde-82g9AIND-_5C2B53zLHtdIDNpKKVSJT_LsRYolhaIAoEjaPG8LrySfaOvuL-t-dpuqtzUMaoUZ3Y/s1600/Phim-tat-dinh-dang.png" /></a></div><br />Tin học văn phòng

Các phím tắt về định dạng trong Word 2007

(Tin học văn phòng) -  Việc trình bày, trang trí văn bản trong Microsoft Word, người sử dụng vẫn thường quen sử dụng con chuột để định dạng....

Đọc thêm »

Cách gõ phân số nhanh trong Word

<div class="MsoNormal" style="text-align: justify;"><b>(Tạo phân số nhanh trong Word) - </b><b><span lang="EN-US">Trong quá trình soạn thảo văn bản, có những lúc người sử dụng phải nhập phân số hoặc biểu thức toán học. Với công cụ </span>Microsoft Equation <span lang="EN-US">ta có thể dễ dàng thực hiện được công việc này, tuy nhiên với những phân số hoặc biểu thức đơn giản nếu sử dụng </span>Microsoft Equation<span lang="EN-US"> sẽ mất nhiều thời gian cho người sử dụng. </span></b></div><div class="MsoNormal" style="text-align: justify;"><br /></div><div class="MsoNormal" style="text-align: justify;">Bài viết này<span lang="EN-US"> Tôi</span> sẽ cung cấp cho <span lang="EN-US">các </span>bạn <span lang="EN-US">cách</span> gõ phân số hay dạng công thức toán học đơn giản <span lang="EN-US">nhanh chóng </span>mà không cần sử dụng đến Microsoft Equation<span lang="EN-US"> và cũng có thể không cần dùng đến chuột như vậy việc soạn thảo sẽ không bị gián đoạn.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="EN-US"><br /></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq_3knRD1C025xVAW19iHGIYsfy9ZVFp7Gs_eZy8AwXvMNqUzZDBJcXDqmvH8cfQQTbOthA2Y-9z5jAQrancUUShlFFytKcEyueOyF0GycY3pSbu1C15qA_eJhUqM3ORiOS6ziQuFI9hN7/s1600/Danh-cong-thuc.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq_3knRD1C025xVAW19iHGIYsfy9ZVFp7Gs_eZy8AwXvMNqUzZDBJcXDqmvH8cfQQTbOthA2Y-9z5jAQrancUUShlFFytKcEyueOyF0GycY3pSbu1C15qA_eJhUqM3ORiOS6ziQuFI9hN7/s1600/Danh-cong-thuc.png" /></a></div><div class="MsoNormal" style="text-align: justify;">Tin học văn phòng</div>

Cách gõ phân số nhanh trong Word

(Tạo phân số nhanh trong Word) -  Trong quá trình soạn thảo văn bản, có những lúc người sử dụng phải nhập phân số hoặc biểu thức toán học. V...

Đọc thêm »

Tạo các Header và Footer khác nhau trong Word 2007

<div class="MsoNormal" style="text-align: justify;"><b>(Tin học văn phòng) - </b><b>Theo mặc định khi tạo các Header hoặc Footer cho tài liệu, Header hay Footer sẽ mặc định giống nhau trên toàn bộ các trang của tài liệu. Tuy nhiên thực tế chúng ta nhìn thấy  nhiều trường hợp trong 1 tài liệu có những Header khác nhau, ví dụ như các báo cáo, đề tài, sách…</b><br /><b><br /></b></div><div style="text-align: center;"><a href="http://adf.ly/1Fb5Am" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsFu2zyQ06YvFq2tTYMQYSuoywqGrok86_4Q7bsRktZTMsngvxT-kGDD5XvMPuhrl_LSUooRibNi3AjKmbpOLCHot7AWfLj5UjXdV0a2_HMQ7rAUHtCH06j4VlQUfPdw9Qog8BarPhNw8J/w250-h57-no/Download.jpg" /></a></div><br /><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">Vậy ta có thể tạo các Header khác nhau không? Hôm nay Tôi sẽ hướng dẫn các thao tác để thực hiện việc này.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">Ví dụ ta có 60 trang, từ trang 1->20  Header là: Chương 1, từ trang 21->40 Header là: Chương 2, từ trang 41 ->60 Header là: Chương 3.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">Dưới đây là các bước thực hiện.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B1</b>: Đặt con trỏ tại dòng cuối cùng của trang 20<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">-<b> B2</b>: Chọn Tab Page <b>Layout\Breaks\Next Page</b><o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiTz2QdIVzJ7zr4M7WWik1tzDqb3PpTdlbMMr3NoJhCwSw1KlzkKHGclil2vpaZKUz596v2AJs54FsqMytzpFI5V7Ip0iAftfk0eHVxixuvCmd-jYnYTwckScFpO44vuXynLIr8_3qqppu/s1600/Trang-doc-ngang1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiTz2QdIVzJ7zr4M7WWik1tzDqb3PpTdlbMMr3NoJhCwSw1KlzkKHGclil2vpaZKUz596v2AJs54FsqMytzpFI5V7Ip0iAftfk0eHVxixuvCmd-jYnYTwckScFpO44vuXynLIr8_3qqppu/s1600/Trang-doc-ngang1.png" width="195" /></a></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 12.0pt; line-height: 115%;">- B3</span></b><span style="font-size: 12.0pt; line-height: 115%;">: Chọn Tab <b>Inser\Header\Edit Header<o:p></o:p></b></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj119qbTlxnaroClHFzmLIn-GuemRvd6CUI1O79LeEez9F56YSzHFZ2oKlvDZmGOLXdp6BEbb3k92_SsmFx9x3ev8T5jYTho8gODbDXhmwwVEEBQOmMLeh5MP6abwpS8hyoBQCaSRPCB0Jo/s1600/Tao-Header-khac-nhau.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj119qbTlxnaroClHFzmLIn-GuemRvd6CUI1O79LeEez9F56YSzHFZ2oKlvDZmGOLXdp6BEbb3k92_SsmFx9x3ev8T5jYTho8gODbDXhmwwVEEBQOmMLeh5MP6abwpS8hyoBQCaSRPCB0Jo/s1600/Tao-Header-khac-nhau.png" width="234" /></a></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B4</b>: Nhập tên Header cần tạo<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrwLvdXb23I2CHy_HQKv5vGbK9HHn1TBczI0sd0hRn9NFm4eOD9BDyxVZhnxKdvBCe6hNmvb4-JPF3HRV4FgzIFUByJ9RkKKXDlyEJxM_dgHl_EurcQXeQ-MivPxHe514OKIoi2LClsPK8/s1600/Tao-Header-khac-nhau1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="88" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrwLvdXb23I2CHy_HQKv5vGbK9HHn1TBczI0sd0hRn9NFm4eOD9BDyxVZhnxKdvBCe6hNmvb4-JPF3HRV4FgzIFUByJ9RkKKXDlyEJxM_dgHl_EurcQXeQ-MivPxHe514OKIoi2LClsPK8/s1600/Tao-Header-khac-nhau1.png" width="320" /></a></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B5</b>: Kích nút <b>Link to Previous</b><o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B6</b>: Kích nút <b>Previous Section</b> để trở về phần nhập Header 1<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B7</b>: Nhập nội dung cho Header<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRVcqF2znq08vD2bu8K_HJ8RPkqGVPOUNMxhV1R6kBUGwWCJt-5K-QUl_rHdxL8uTTsD3px-ZWiglLZHfP_zj7wtu156TzMzI7_1gVhKCMgzw_-tMFZfKP3IB9iYHhT0ZVXCkYUAUjPXmE/s1600/Tao-Header-khac-nhau2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="105" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRVcqF2znq08vD2bu8K_HJ8RPkqGVPOUNMxhV1R6kBUGwWCJt-5K-QUl_rHdxL8uTTsD3px-ZWiglLZHfP_zj7wtu156TzMzI7_1gVhKCMgzw_-tMFZfKP3IB9iYHhT0ZVXCkYUAUjPXmE/s1600/Tao-Header-khac-nhau2.png" width="320" /></a></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;"><br /></span></div><div class="MsoNormal" style="text-align: justify;"><br /></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">- <b>B8</b>: Kích nút <b>Close Header And Footer</b><o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-size: 12.0pt; line-height: 115%;">Cuối cùng ta sẽ được 1 tài liệu có những Header khác nhau theo mong muốn.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br /><div style="text-align: center;"><a href="http://adf.ly/1Fb5Am" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsFu2zyQ06YvFq2tTYMQYSuoywqGrok86_4Q7bsRktZTMsngvxT-kGDD5XvMPuhrl_LSUooRibNi3AjKmbpOLCHot7AWfLj5UjXdV0a2_HMQ7rAUHtCH06j4VlQUfPdw9Qog8BarPhNw8J/w250-h57-no/Download.jpg" /></a></div><br />Tin học văn phòng</div>

Tạo các Header và Footer khác nhau trong Word 2007

(Tin học văn phòng) -  Theo mặc định khi tạo các Header hoặc Footer cho tài liệu, Header hay Footer sẽ mặc định giống nhau trên toàn bộ các ...

Đọc thêm »

Tìm kiếm theo hai điều kiện trong Excel

<div class="MsoNormal" style="margin: 0in 0in 0pt; text-align: justify;">(<b>Tin học văn phòng</b>) - Như bạn biết, trong Excel để tìm kiếm một giá trị thoả mãn điều kiện nào đó, ta có thể dùng hàm Vlookup hay Hlookup. Tuy nhiên, hai hàm này chỉ cho phép tìm kiếm theo 1 điều kiện mà thôi. Ví dụ chúng ta có một bảng dữ liệu như hình 1, yêu cầu đặt ra là tìm điểm toán của một học sinh trong danh sách theo 2 điều kiện giới tính và tên. Vậy ta phải làm thế nào đây?<br /><br />Tôi sẽ giới thiệu với các bạn một hàm tự tạo để làm việc này.<br />Trước tiên, bạn vào menu Tools\Macro\Visual Basic Editor (Alt + F11). Tại cửa sổ Microsoft Visual Basic, vào menu Insert\Module và nhập đoạn mã sau vào module vừa tạo.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4A7QXLPK9vCDZN01crSVda22_pv-ZkZvGLSybGYusNI1_bxitjY6o-xPjD5psit1qlGrcb11FVXWEbcyqsKX1ypd-11LlnkVbpFkoIqY6_JidnX2JpZTbA2GdP20PnYZ3L52NOKLY4XlQ/s1600/Marco-danh-phan-so.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4A7QXLPK9vCDZN01crSVda22_pv-ZkZvGLSybGYusNI1_bxitjY6o-xPjD5psit1qlGrcb11FVXWEbcyqsKX1ypd-11LlnkVbpFkoIqY6_JidnX2JpZTbA2GdP20PnYZ3L52NOKLY4XlQ/s1600/Marco-danh-phan-so.png" /></a></div><br />Function FindTwoCondition(Table As Range, Val1 As Variant, _<br />Val1Occrnce As Integer, Val2 As Variant, Val2Col As Integer, ResultCol As Integer)<br />'Tabel la bang du lieu<br />'Val1 Dieu kien thu nhat<br />'Val1Occrnce gia tri thu n cua dieu kien trong cot<br />'Val2 dieu kien thu hai<br />'Val2Col cot thu n cua dieu kien thu 2<br />'ResultCol cot thu n can tim<br /><br />Dim i As Integer, iCount As Integer<br />Dim rCol As Range<br /><br />  For i = 1 To Table.Rows.Count<br />    If Table.Cells(i, 1) = Val1 And _<br />      Table.Cells(i, Val2Col) = Val2 Then<br />      iCount = iCount + 1<br />    End If<br />  <br />    If iCount = Val1Occrnce Then<br />      FindTwoCondition = Table.Cells(i, ResultCol)<br />      Exit For<br />    End If<br />  Next i<br />End Function<br /><br />Sau khi đã nhập xong đoạn mã trên, bạn quay trở lại màn hình làm việc Excel bằng cách ấn Alt+Q. Bây giờ ta có thể sử dụng hàm vừa tạo như những hàm mà Excel đã hỗ trợ. Ví dụ tôi cần tìm Điểm Toán của người có tên là "Sơn" và có giới tính là "Nữ".<br />Trước tiên tôi lập bảng điều kiện như hình 2, tại ô I6 tôi nhập công thức sau:<br />=FindTwoCondition($B$4:$F$13,I4,1,I5,3,4)<br /><br />Trong đó:<br /> -  $B$4:$F$13: Vùng dữ liệu<br /> -  I4: Tên cần tìm<br /> -   1: Tìm tên Sơn đầu tiên<br /> -  I5: Giới tính cần tìm<br /> -    3: Số thứ tự của cột Giới tính trong vùng dữ liệu<br /> -    4: Số thứ tự của cột Điểm Toán trong vùng dữ liệu<br /><br />Kết quả sẽ trả về là 7. Chú ý ở đây hàm không phân biệt chữ thường chữ hoa.<br /><br />Tin học văn phòng</div>

Tìm kiếm theo hai điều kiện trong Excel

( Tin học văn phòng ) - Như bạn biết, trong Excel để tìm kiếm một giá trị thoả mãn điều kiện nào đó, ta có thể dùng hàm Vlookup hay Hlookup....

Đọc thêm »

Tạo hàm cắt tên, họ, họ đệm trong VBA

<h1 style="text-align: justify;">(<b>Hàm cắt tên, cắt họ trong Excel</b>)</h1><div style="text-align: justify;">Khi làm việc trong Excel bạn thường phải thao tác với danh sách họ tên học viên, khách hàng. Do danh sách này bao gồm đầy đủ họ và tên, tuy nhiên bạn lại muốn tách riêng cột tên từ cột họ tên này. Bạn đã sử dụng các hàm có sẵn để làm việc này nhưng vẫn chưa đươc. Trong bài viết này tôi xin trình bày cách tách tên ra khỏi cột họ và tên bằng cách viết hàm VBA.</div><br /><div style="text-align: center;"><a href="http://adf.ly/1Fb9cQ" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsFu2zyQ06YvFq2tTYMQYSuoywqGrok86_4Q7bsRktZTMsngvxT-kGDD5XvMPuhrl_LSUooRibNi3AjKmbpOLCHot7AWfLj5UjXdV0a2_HMQ7rAUHtCH06j4VlQUfPdw9Qog8BarPhNw8J/w250-h57-no/Download.jpg" /></a> </div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 1</strong>: Mở chương trình <strong>Microsoft Excel</strong>.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 2</strong>: Vào Menu <strong>Tool\Macro\Visual Basic Editor</strong>. (Hoặc ấn tổ hợp phím <strong>Alt + F11</strong>). Xuất hiện cửa sổ <strong>Microsoft Visual Basic</strong>.</div><span style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">          </span><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgi2hUInmAq9bjQS8k_wncjhROlQDW9sB__7y-L7pMz2InuTz6ysF_D8CPUTZQ0VNBsaWKIAiKnCFhlFy3Zimd2l1ZL4ampc04sYdwSxNcP7uOY8huOGO40n4EDWd_Xm3fg3dikzO9_Eghp/s1600/Ham-cat-ho-ten1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="248" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgi2hUInmAq9bjQS8k_wncjhROlQDW9sB__7y-L7pMz2InuTz6ysF_D8CPUTZQ0VNBsaWKIAiKnCFhlFy3Zimd2l1ZL4ampc04sYdwSxNcP7uOY8huOGO40n4EDWd_Xm3fg3dikzO9_Eghp/s1600/Ham-cat-ho-ten1.png" width="320" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 3</strong>: Vào Menu <strong>Insert\Module</strong>. Xuất hiện cửa sổ <strong>Code</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinMOi022IPwzpQXd5m5hXez0ySmICCEwM9RFToICQJwuaDoC6jxq4Kq_ZPAtnVZjDBq7rmTFhTaF1Lpoe1jHn1fYy_osuOhQ0yfrFkgvz8fqGADjnGJlvXR6XV7OgdBBEzlOd6IZDFs9Ie/s1600/Ham-cat-ho-ten2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinMOi022IPwzpQXd5m5hXez0ySmICCEwM9RFToICQJwuaDoC6jxq4Kq_ZPAtnVZjDBq7rmTFhTaF1Lpoe1jHn1fYy_osuOhQ0yfrFkgvz8fqGADjnGJlvXR6XV7OgdBBEzlOd6IZDFs9Ie/s1600/Ham-cat-ho-ten2.png" width="320" /></a></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 4</strong>: Nhập đoạn Code phía dưới vào trong cửa sổ Code (<strong>Hình 2</strong>)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br />Bắt đầu đoạn Code<br /><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong>Function CatTen(str As String) As String</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim mlen As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim i As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    mlen = Len(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    For i = mlen To 1 Step -1</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        If Mid(str, i, 1) = " " Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">            Exit For</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Next</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    If i <> 0 Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatTen = Trim(Mid(str, i + 1, mlen - i))</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Else</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatTen = Trim(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong>End Function</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong>Function CatHo(str As String) As String</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim mlen As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim i As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    mlen = Len(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    For i = 1 To mlen</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        If Mid(str, i, 1) = " " Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">            Exit For</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Next</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    If i <> 0 Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatHo = Trim(Mid(str, 1, i - 1))</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Else</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatHo = Trim(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong>End Function</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong> Function CatHoDem(str As String) As String</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim mlen As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Dim i, j, k As Long</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    mlen = Len(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    k = 0</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    For i = mlen To 1 Step -1</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        If Mid(str, i, 1) = " " Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">            Exit For</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        k = k + 1</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Next</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    For j = 1 To mlen</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        If Mid(str, j, 1) = " " Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">            Exit For</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        k = k + 1</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Next</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    If i <> 0 Then</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatHoDem = Trim(Mid(str, j, mlen - k))</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    Else</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">        CatHoDem = Trim(str)</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">    End If</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><strong>End Function</strong><br /><strong><br /></strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 5:</strong> Quay trở lại màn hình làm việc chính của Excel bằng cách vào <strong>Menu File\Close And Return to Microsoft Excel</strong> (Hoặc ấn tổ hợp phím <strong>Alt + Q</strong>).</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+    <strong>Bước 6</strong>: Sử dụng những hàm chúng ta đã tạo</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW9McCh7Dqt25QEnKPAXsGH_SvbY_KEmvYuksOtdKOYlsUJMM5HLj42OYwrX9otBnwiAT6MIp3Ml5SjiwSHo_OEfYVKSGmBuxjRwEYrRz_NW_zCMOFBhUiVUjdrLA4k7gS5-uyZ97FEJ9b/s1600/Ham-cat-ho-ten3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW9McCh7Dqt25QEnKPAXsGH_SvbY_KEmvYuksOtdKOYlsUJMM5HLj42OYwrX9otBnwiAT6MIp3Ml5SjiwSHo_OEfYVKSGmBuxjRwEYrRz_NW_zCMOFBhUiVUjdrLA4k7gS5-uyZ97FEJ9b/s1600/Ham-cat-ho-ten3.png" width="320" /></a></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><span class="photo " style="padding: 0px;"></span></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">-   Tại ô B1 ta có Họ và tên 1 người như ở <strong>Hình 3</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">-    Bây giờ ta chỉ muốn cắt tên của người đó, ta sẽ làm như sau:</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">-    Đưa vệt sáng đến ô B2, nhập vào hàm <strong>=Catten(B1) </strong>và ấn <strong>Enter</strong> kết quả ô B2 có giá trị là <strong>Thảo</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">-    Nếu chúng ta muốn cắt Họ thì dùng hàm <strong>Catho, </strong>muốn cắt Họ đệm thì dùng hàm<strong>Cathodem</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><div style="text-align: center;"><a href="http://adf.ly/1Fb9cQ" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsFu2zyQ06YvFq2tTYMQYSuoywqGrok86_4Q7bsRktZTMsngvxT-kGDD5XvMPuhrl_LSUooRibNi3AjKmbpOLCHot7AWfLj5UjXdV0a2_HMQ7rAUHtCH06j4VlQUfPdw9Qog8BarPhNw8J/w250-h57-no/Download.jpg" /></a></div><br />Tin học văn phòng</div>

Tạo hàm cắt tên, họ, họ đệm trong VBA

( Hàm cắt tên, cắt họ trong Excel ) Khi làm việc trong Excel bạn thường phải thao tác với danh sách họ tên học viên, khách hàng. Do danh sác...

Đọc thêm »

Định dạng văn bản theo những chiều giấy khác nhau trong Word 2007

<div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><b style="color: black; font-family: 'Times New Roman'; font-size: medium; line-height: normal; text-align: justify;">(Tin học văn phòng) - </b>Bạn là 1 người thường xuyên phải đánh văn bản, bây giờ tôi có 1 yêu cầu các bạn sẽ phải làm thế nào.Tôi có 1 văn bản gồm có 20 trang, nhưng trong 20 trang này tôi muốn từ trang 1 đến trang 5 chiều giấy theo kiểu <strong>Portrait</strong> (kiểu thẳng đứng), từ trang 6 đến trang 8 chiều giấy theo kiểu <strong>Landscase</strong> (kiểu nằm ngang) các trang còn lại chiều giấy theo kiểu <strong>Portrait. </strong>Đối với tình huống này bạn sẽ phải làm như thế nào.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKw1b3F1KnkF4EAGZWOMsP6uRiIfMrRmimSGfctbSNHVuugc4KzAiuzbvqb3U7Ik80Jf4SeUjbPInc8NPQzaHig6AMDb3u7jjYGowr13EayGGKDlD4jFrAsI297xTth9mipcRRAJGAjWBC/s1600/Trang-doc-ngang3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="126" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKw1b3F1KnkF4EAGZWOMsP6uRiIfMrRmimSGfctbSNHVuugc4KzAiuzbvqb3U7Ik80Jf4SeUjbPInc8NPQzaHig6AMDb3u7jjYGowr13EayGGKDlD4jFrAsI297xTth9mipcRRAJGAjWBC/s1600/Trang-doc-ngang3.png" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"></div><br /><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">Bây giờ tôi sẽ giúp bạn giải quyết được bài toán này.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 1</strong>: Bạn để văn bản ở chế độ <strong>Portrait</strong>.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 2</strong>: Nhập văn bản từ trang 1 đến trang 5. Sau khi đánh văn bản hết trang 5, đặt con trỏ ở vị trí cuối cùng của trang.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 3</strong>: Chọn Tab <strong>Page Layout</strong>. Chọn <strong>Breaks\Next Pape.</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px; text-align: center;"><span class="photo " style="padding: 0px;"></span></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjf9479Hw6TIgChqigzcR-mRcs5hjRPxbmGpjdy_KvYqeQSDjHfPOXkOHMuQZFPmY-OEs7aGtrp9YGpmyaaRH8ywaNQchpS7NkNfjHQaact5dSdycfnMnT0h4tXqIZaT8EMeX_NmOQ3EE1s/s1600/Trang-doc-ngang1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjf9479Hw6TIgChqigzcR-mRcs5hjRPxbmGpjdy_KvYqeQSDjHfPOXkOHMuQZFPmY-OEs7aGtrp9YGpmyaaRH8ywaNQchpS7NkNfjHQaact5dSdycfnMnT0h4tXqIZaT8EMeX_NmOQ3EE1s/s1600/Trang-doc-ngang1.png" width="195" /></a></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 4</strong>: Chọn Tab <strong>Page Layout</strong>. Hộp thoại <strong>Orientation</strong> xuất hiện.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px; text-align: center;"><span class="photo " style="padding: 0px;"></span></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiv2Kyng5Ah8ILJOnJPy9jwzYd-_JecC0uO3ziWToYo8uKJbrzNKa9F51_-u2h_9eJuqs1DTVwGEGZY_TD4ikHDQq6GnkKNYV21uPrs7y3wtJbQdTftO5lWfbarvgRR1tPw3gp0PSwJfhOl/s1600/Trang-doc-ngang2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiv2Kyng5Ah8ILJOnJPy9jwzYd-_JecC0uO3ziWToYo8uKJbrzNKa9F51_-u2h_9eJuqs1DTVwGEGZY_TD4ikHDQq6GnkKNYV21uPrs7y3wtJbQdTftO5lWfbarvgRR1tPw3gp0PSwJfhOl/s1600/Trang-doc-ngang2.png" /></a></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+  Chọn<strong> Landscape</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 5</strong>: Tiếp tục nhập văn bản từ trang 6 đến Trang 8. Sau khi đánh văn bản đến hết trang 8, đặt con trỏ ở vị trí cuối cùng của trang.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 6</strong>: Chọn Tab <strong>Page Layout</strong>. Chọn <strong>Breaks\Next Pape.</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 7</strong>: Chọn Tab <strong>Page Layout</strong>. Hộp thoại <strong>Orientation</strong> xuất hiện.</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">+ Chọn <strong>Portrait</strong></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">- <strong>Bước 8: </strong>Nhập văn bản cho đến hết</div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;"><br /></div><div style="background-color: white; color: #333333; font-family: 'Helvetica Neue', Helvetica, Arial, 'lucida grande', tahoma, verdana, arial, sans-serif; font-size: 14px; line-height: 20px;">Tin học văn phòng</div>

Định dạng văn bản theo những chiều giấy khác nhau trong Word 2007

(Tin học văn phòng) -  Bạn là 1 người thường xuyên phải đánh văn bản, bây giờ tôi có 1 yêu cầu các bạn sẽ phải làm thế nào.Tôi có 1 văn bản ...

Đọc thêm »