TIỆN ÍCH - TRA CỨU

ĐỒNG HỒ TỰ CHẾ

ÂM LỊCH

NỘI DUNG CHÍNH DIỄN ĐÀN

HỖ TRỢ TRỰC TUYẾN

  • (Lê Kim Tường)

ĐIỀU TRA Ý KIẾN

Bạn thấy trang này như thế nào?
Rất đẹp
Đẹp
Bình thường
Ý kiến khác

LIÊN KẾT WEBSITES

THỐNG KÊ

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Ảnh ngẫu nhiên

    20289671.jpg 1242013SVTN1.jpg Cdsp1.gif Book11.jpg ONLINE.gif Vi_rut_pha_may_tinh_nhu_the_nao.swf LichsuVN.jpg Khonggicothethaytheem.mp3 Bay_giua_ngan_ha.swf Dong_song_que_anh_que_em.swf Flash_nen_181.swf Ok.flv Qua_tang_chuc_mung_nam_moi.swf MUNG_XUAN_TAN_MAO.swf Mot_khuc_tam1.swf Chuc_mung_nam_moi.swf Flas_mung_xuan_2011.swf Happy_new_yeardot_phao.swf CLICK_DE_THAY_DIEU_UOC_TRONG_NAM_MOI.swf

    Thành viên trực tuyến

    0 khách và 0 thành viên
    Gốc > Thủ thuật Excel >

    Nhập dữ liệu đồng thời vào nhiều sheet

     
     
    Thông thường người dùng Excel có những dữ liệu muốn nhập vào nhiều sheet khác nhau. Bạn có thể dùng công cụ Group các sheet lại để có thể nhập dữ liệu đồng thời. Nhưng cũng có 1 cách khác nhanh chóng và linh hoạt hơn nếu bạn dùng vài dòng lệnh VBA.
    sheet1_500
     

    Nhưng phải nói đến công cụ Group cái đã nhỉ? Công cụ Group dùng để nhập dữ liệu vào nhiều sheet 1 lúc chắc có nhiều người chưa dùng đến. Nó dùng để kết nối các sheets với nhau trong phạm vi work book.

    1. Group các sheet lại bằng tay:


    Để nhóm các sheet lại, các bạn chỉ việc click chọn sheet thứ nhất, nơi bạn sẽ nhập liệu từ bàn phím vào, rồi vừa nhấn Ctrl, vừa nhấn vào tên những sheet khác mà bạn muốn nhập liệu đồng thời. Khi bạn gõ bất kỳ cái gì vào sheet hiện hành, dữ liệu đó cũng sẽ tự động nhập vào các sheet còn lại trong nhóm. Điệp vụ hoàn tất nhanh chóng (nghe giống 007 nhỉ).

    Để thoát khỏi tình trạng group, bạn chỉ việc hoặc click chọn 1 sheet khác ngoài nhóm, hoặc click chuột phải lên tên 1 sheet trong nhómbất kỳ, chọn Ungroup Sheets. Hoặn nếu bạn chỉ muốn gỡ 1 trong số các sheet ra khỏi nhóm, hãy Ctrl click vào tên sheet đó.
    Khi 2 hay nhiều sheet Group với nhau, trên thanh tiêu đề của Windows sẽ có chữ [Group] (tronh ngoặc vuông). Nhìn vào đó bạn có thể biết bạn vẫn còn đang trong tình trạng group các sheets.



    Trừ khi bạn có cặp mắt sắc như chim ưng, hoặc bén như dao cạo, thường thì bạn không để ý đến dấu hiệu này, bạn sẽ quên và không ungroup khi công việc đã xong. Chính vì thế tôi khuyên bạn ngay khi thực hiện xong thao tác nhập liệu hàng loạt vào các sheet, phải ungroup chúng ngay.

    Dù phương pháp này là dễ nhất, nhưng có nghĩa là bạn phải nhớ và nhớ group và ungoup khi cần, nếu không bạn sẽ vô tình ghi đè lên dữ liệu ở những sheet mà bạn không nhìn thấy trên màn hình hiện thời. Thí dụ như bạn chỉ muốn ghi cùng lúc dữ liệu vào 1 vùng nào đó của các bảng tính, còn ngoài vùng đó thì dữ liệu các sheet phải khác nhau. Thế nhưng khi các sheet đã group rồi thì nó có thèm quan tâm bạn đang nhập liệu ở vùng nào đâu?

    2. Group các sheet lại 1 cách tự động:

    Bạn có thể giải quyết vấn đề trên bằng cách dùng 1 đoạn code VBA hết sức đơn giản. Để đoạn code làm việc được, nó phải được đặt trong các sự kiện của riêng sheet nào bạn muốn. Để vào trang soạn thảo code của sheet nào, thì click phải chuột vào tên sheet đó và chọn View Code.

    Bạn có thể chọn 1 trong các sự kiện của sheet, những sự kiện chỉ liên quan đến sheet đó như đổi ô chọn, thay đổi nội dung 1 ô, kích hoạt sheet, thoát khỏi sheet, … để thực thi đoạn code VBA của mình.

    Thường thì bạn được đưa thẳng đến trang soạn thảo code riêng của sheet nếu bạn chọn View Code như trên hướng dẫn. Bạn có thể kiểm tra lại quả thực nó thuộc về sheet bạn chọn hay không bằng cách nhìn vào cửa sổ VBA Project bên trái, nếu bạn thấy dạng thư mục This Workbook – Sheetname và 1 sheet đang chọn thì đúng. nếu không bạn phải tìm đúng sheet bạn cần và doubled click nó.

    Trước tiên bạn phải đặt name cho vùng ô bạn muốn nhập dữ liệu trùng trong các sheet, giả sử là “MyRange”.
    Sau đó gõ đoạn code này vào khung soạn thảo bên phải:

    PHP Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If 
    Not Intersect(Range("MyRange"), Target
    Is Nothing Then
    Sheets
    (Array("Sheet5""Sheet3""Sheet1")).
    Select
    Else
    Me.
    Select
    End 
    If
    End Sub 
    Trong đoạn code trên, sheet5 được ghi đầu tiên trong mảng Array, vì bạn muốn nó là sheet mà bạn sẽ gõ dữ liệu nhập vào. Bạn có thể chọn những sheet khác để group chúng lại bên dưới sheet5. Sau khi gõ code xong, hoặc nhấn nút View Object, hoặc nhấn nút View Microsoft Excel, hoặc nhấn Alt- Q, Alt-F11 hoặc đóng hẳn cửa sổ VBA trở về màn hình Excel. Lưu bảng tính lại.

    sheet2_500

    Cần nhắc lại rằng đoạn code trên phải nằm trong sheet được khai báo đầu tiên của Array, là sheet mà bạn sẽ nhập dữ liệu từ bàn phím.


    Khi bạn đã hoàn tất, mỗi khi bạn click chọn 1 ô nào đó trong sheet5, đoạn code sẽ kiểm tra xem ô bạn chọn có nằm trong vùng đã đặt tên “MyRange” không. Nếu đúng, code sẽ Group các sheet lại với nhau để bạn nhập dữ liệu hàng loạt sheets. Nếu không phải, nó ungroup chúng ra bằng cách đơn giản là kích hoạt sheet hiện hành. Dùng đoạn code trên sẽ tiện lợi ở chỗ nó giải phóng bạn khỏi cái việc phải nhớ Group khi bắt đầu và UnGroup khi kết thúc nhập liệu trong vùng chọn.

    Bây giờ nếu bạn muốn những dữ liệu như nhau được nhập vào các sheet chọn, nhưng ở những vị trí khác nhau, hãy dùng đoạn code khác:


    PHP Code:
    Private Sub worksheet_Change(ByVal Target As Range)
    If 
    Not Intersect(Range("MyRange"), Target
    Is Nothing Then
    With Range
    ("MyRange"
    )
    .
    Copy Destination:=Sheets("Sheet3").Range("A1"
    )
    .
    Copy Destination:=Sheets("Sheet1").Range("D10"
    )
    End With
    End 
    If
    End Sub 

    Đoạn code này cũng phải được đặt trong khung soạn thảo của riêng sheet5.

    sheet3_500

    Đoạn code này hoạt động khác với đoạn code trên. Khi bạn thay đổi nội dung của 1 ô nào đó, code sẽ xác định xem ô hiện hành có nằm trong vùng "MyRange" hay không, nếu phải thì copy nguyên vùng "MyRange" (của sheet5) và paste vào đồng thời ô A1 của sheet1 và D10 của sheet2. Ngược lại thì không làm gì cả.


    Nhắn tin cho tác giả
    Lê Kim Tường @ 14:42 23/08/2009
    Số lượt xem: 7010
    Số lượt thích: 0 người
    Avatar

    Chào ngày mới!

    Trang này rất ấn tượng.

    Mời ghé thăm TƯ LIỆU & CUỘC SỐNG.

    Avatar
    Chúc Thầy và Gia đình Trung Thu vui vẻ!
    Avatar
    Ý nghĩa ngày tết trung thu - Chúc gđ thầy Tường đón tết trung thu vui vẻ



    Sách xưa chép rằng, nhân một đêm rằm tháng tám, khi cùng các quan ngắm trăng, vua Ðường ao-ước được lên thăm cung trăng một lần cho biết. Pháp-sư Diệu Pháp Thiên (có sách chép là Lã Công Viên) tâu xin làm phép đưa vua lên cung trăng. Lên tới cung trăng, Minh Hoàng được chúa tiên tiếp rước, bày tiệc đãi đằng và cho hàng trăm tiên nữ xinh tươi mặc áo lụa mỏng nhiều màu sắc rực rỡ, tay cầm tấm lụa trắng tung múa trên sân, vừa múa vừa hát, gọi là khúc Nghê-Thường vũ y. Vua Ðường thích quá; nhờ có khiếu thẩm âm nên vừa trầm trồ khen ngợi vừa lẩm nhẩm học thuộc lòng bài hát và điệu múa mong đem về hoàng cung bày cho các cung nữ trình diễn. Cuối năm đó, quan Tiết Ðộ Sứ cai trị xứ Tây Lương mang về triều tiến dâng một đoàn vũ nữ với điệu múa Bà-la-môn. Vua thấy điệu múa có nhiều chỗ giống Nghê-Thường vũ y, liền chỉnh đốn hai bài hát và hai điệu làm thành Nghê-Thường vũ y khúc. Về sau các quan cũng bắt chước vua mang điệu múa hát về các phiên trấn xa xôi nơi họ cai trị rồi dần dần phổ biến khắp dân gian. Tục ngắm trăng, xem ca múa sau biến thành thú vui chơi đêm rằm Trung Thu.



    Tết Trung Thu lan rộng sang các nước láng giềng và thuộc địa của Trung Hoa. Sách sử Việt không nói rõ dân ta bắt đầu chơi Tết Trung Thu từ bao giờ, chỉ biết hàng mấy trăm năm trước, tổ tiên ta đã theo tục này. Ngay từ đầu tháng tám âm lịch, chợ búa bắt đầu có màu sắc Trung Thu. Lồng đèn, bánh nướng, bánh dẻo đã được bày bán la liệt trong các cửa hiệu rực rỡ ánh đèn. Người mua lẫn người đi xem đông chen như hội. Ngoài các loại đèn giấy, bánh kẹo còn có các con giống đầu lân, mặt ông địa bày bán đầy các chợ. Những nhà giàu còn bày cỗ Trung Thu để khoe tài nấu nướng của các cô con gái tới tuổi lấy chồng. Ðúng vào ngày rằm, các thành phố lớn như Sài Gòn, Huế, Hà Nội đều có múa sư tử, múa lân rất náo nhiệt.

    Trẽ em mỗi năm mong chờ đến ngày Tết Trung Thu để được cho lồng đèn và được ăn bánh trung thu. Lồng đèn có dủ kiễu, đủ cỡ và đủ màu sắc. Thứ hình ngôi sao 5 cánh, thứ hình sao sáu cánh, thứ hình con cá, con rồng, con bưóm và đa dạng.



    Đêm đến, đốt cây đèn cầy vào trong, ánh sáng lung linh, các em tụ lại nối duôi đi "dzung dzăng, dzung dzẽ" rướt lồng đèn đi dạo trong xóm, trong làng. Với đầu thế kỹ 22, chúng ta bắt đầu thấy lồng đèn "đốt" pile, nhìn có thễ thấy ít thơ mộng hơn nhưng lại tránh được cảnh cháy lồng đèn ...

    Mùa Trung Thu cũng là mùa bánh: bánh nướng, bánh dẻo. Bánh nướng màu vàng đậm hay lượt tùy theo độ nướng. Bánh dẻo mền hơn bánh nướng. Ở Âu Châu có loại bột massepain là có vẽ tương tự như võ bánh dẻo.

    Bánh dẻo có hai phần: Phần áo và phần nhân. Áo bánh phải chọn gạo nếp vàng. Gạo được rang rồi xay, hoặc giã nhỏ mịn, nhào với nước đường thắng, nhỏ vào vài giọt dầu hoa bưởi, ngan ngát mùi hương. Tất cả những công đoạn kể trên đều phải do một bàn tay thợ có "nghệ" đảm nhiệm. Người thợ không được sai sót một tý nào. Sai một ly đi một dặm. Lúc ra khuôn, cái bánh hiện rõ những hoa văn chìm nổi của một bông hoa nở 8 cánh hoặc 10 cánh. Khuôn mặt áo bánh dẻo mịn, bánh ngọt đậm, thơm dịu. Phần nhân bánh nhất thiết do thợ cả quán xuyến với những khâu quan trọng đầy bí quyết nhà nghề như: mứt bí , mứt sen, hạt dưa, hạnh nhân, ướp nhân, jambon, tạo hương cho nhân...

    Nhân của bánh dẻo chay tịnh, thoảng hương đồng gió nội. Mãi về sau này, người ta mới phá cách cho thêm lạp xưởng vào.

    Bánh nướng cũng có hai phần: phàn áo nướng và phần nhân. Nhân bánh nướng được cải tiến với nhiều sáng kiến. Mỗi hiệu bánh đều muốn có phần độc đáo của mình. Vả lại bánh nướng là "em" của bánh dẻo. Nó sinh sau đẻ muộn, mới xuất hiện từ năm 1930 nên lắm trò hơn. Ngoài mứt bí, hạt dưa, nhân bánh nướng còn có thêm lòng đỏ trứng ở giữa hoặc thịt lợn quay, gà quay, lạp sưởng... gọi là nhân thập cẩm... Bánh nướng cũng có loại nhân chay bằng đậu xanh mịn, dừa sợi, hạt sen...

    Bánh dẻo trắng trong, bánh nướng có màu vàng sẫm và vàng nhạt do chỗ nướng già, nướng non tạo ra, thường có đường kính chừng 7-8 cm, chiều dầy 2,5-3 cm. Cứ 4 cái bánh được xắp chồng lên nhau là một cân. Ngoài giấy bọc, có in nhãn hiệu với số nhà, tên phố. Càng hiệu lớn, càng in nhãn hiệu đẹp và nhiều màu sắc. Nhiều nhà còn đặt làm những chiếc bánh dẻo đặc biệt to bằng chiếc đĩa tây hoặc gần bằng cái mâm, trên có hình mặt trăng tròn, lưỡng long tranh châu, song phượng...

    Bánh dẻo, bánh nướng Trung thu nói lên cái tài hoa của người thợ. Hằng năm, cứ gần Tết Trung thu là các hiệu lại rộn rã cho người về các vùng lân cận, đón các phường thợ làm bánh nổi tiếng ra vào "múa". Các chủ hiệu ưu ái họ lắm, mỗi người được chủ hiệu phát một áo choàng trắng, mũ trắng và một đôi guốc mộc. Các cửa hàng lấy làm hãnh diện đã mời được ông Toán làng Bưởi, các ông Quế Xuân, Tảo Sở, ông Long, Ðồng Kỵ, hoặc ông Lý, Bắc Ninh...

    Tết Trung thu, nhà nào cũng phải có bánh dẻo. Người nghèo cũng cố mua cho con cái một vài cái bánh dẻo. Không có bánh dẻo tức là không có Tết. Người ta làm quà cho ân nhân, khách quý, bạn thân... bằng bánh Trung thu. Chiếc bánh dẻo tròn, gợi hình mặt trăng, sự tròn đầy.

    Bánh Trung thu mang mùi vị, thanh sắc Việt Nam, kèm theo cái nghệ thuật thưởng thức miếng ngon tinh tế, thanh nhã. Nó cũng là biểu tượng văn hóa của Việt Nam.

    Avatar
    Chúc thầy ngày chủ nhật vui vẻ!
    Avatar
    TVM xin chào chủ nhà. Chúc thầy có một tuần làm việc hiệu quả và gặp nhiều niềm vui!
    Avatar
    Chúc Thầy Tường sức khỏe và thành đạt!
    Avatar
    Lâu quá mới ghé thăm thầy.Chúc thầy Tường thật nhiều sức khỏe và thành đạt !
    Avatar
    Cảm ơn thầy Hành và thầy Bình ghé thăm, chúc các thầy mạnh khoẻ, hạnh phúc và thành đạt.
    Avatar
    Kính chào thầy Tường  tôi rất muốn thầy giúp đỡ về một sô kiến thức và thủ thuật tin học bởi vì trình độ của tôi còn gà mờ lắm.Lâu nay tôi đang làm công việc tổng hợp điểm thi, chất lượng học sinh, và một số công việc khác trên excel nhưng chỉ làm thủ công thôi. Tôi muốn thầy giúp tôi là khi tôi nhập số liệu vào Sheet1 thì kết quả tổng hợp chung sẽ có ở Sheet Tổng hợp và khi mở một file Excel ra thì chỉ cần nháy vào một dòng tiêu đề thì sẽ đi đến được sheet khác. Đaị loại là như vậy, nếu không cảm thấy bị quấy rầy thì thầy giúp tôi còn không thì mong thầy hết sức thông cảm.Chúc thầy và gia đình mạnh khoẻ, xin chào thầy.
    Avatar
    TV MỚI XIN CHÀO THẦY TƯỜNG ... XIN CHÚC THẦY CÙNG GIA ĐÌNH MẠNH KHỎE , HẠNH PHÚC . RẤT MONG ĐƯỢC CÙNG THẦY CHIA XẺ ... NGÔI NHÀ NHỎ CỦA THẦY ĐẸP VÀ ĐẦY ĐỦ QUÁ ...
     
    Gửi ý kiến