Chỉ giúp em cách lập bảng này với???

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi Trnam, 1 Tháng tám 2005.

3,310 lượt xem

  1. Trnam

    Trnam Thành viên sơ cấp

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    danang
    Các bác chỉ hộ em cách để lập 1 bảng tính với nội dung như thế này nhé:
    - Lần thứ nhất, tại Sheet1!A1 em nhập chữ số 1, thì tại Sheet2!B1 sẽ có chữ số 1.
    - Sau đó tại Sheet1!A1 em nhập chữ số 2, thì tại Sheet2!B2 sẽ có chữ số 2 nhưng tại Sheet2!B1 vẫn tốn tại chữ số 1 đã nhập ở lần đầu thứ nhất.
    Các bác xem thử có nan y lắm không nhé, giúp hộ em với, xin ngàn lần đa tạ.
     
    Last edited: 1 Tháng tám 2005
    #1
  2. jameblack

    jameblack Thành viên hoạt động

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    Ho chi minh
    Bạn thử nói rõ hơn xem . Cứ như bạn nói thì chỉ cần cho vào ô sheet2!Bx=sheet1!Ax (x là số ) vậy thôi. ô B1 sheet2 vẫn còn đó mất đị đâu được!!!
     
    #2
  3. Trnam

    Trnam Thành viên sơ cấp

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    danang
    Sory em nhầm, ngắn gọn hơn là thế này nhé:
    - Lần thứ nhất: Sheet1!A1 nhập số 1, tại Sheet2!B1 sẽ có giá trị 1.
    - Lần thứ hai: Sheet1!A1 nhập số 2, tại Sheet2!B2 sẽ có giá trị 2 đồng thời tại Sheet2!B1 vẫn tồn tại giá trị 1 của lần nhập đầu tiên.
    Nhờ các bác chỉ hộ với nhé.
     
    #3
  4. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Cài này giống như sheet1 là 1 form nhập liệu, (thí dụ nhập phiếu thu-chi, nhập-xuất hay fax in-out) còn sheet 2 là bảng lưu giữ thông tin các phiếu chi.
    Có nhiều cách để làm nhưng đều dựa trên VBA cả, có một vài topic trong Excel Club nói đến vấn đề này, bạn tìm xem.
     
    #4
  5. notaso

    notaso Thành viên sơ cấp

    Bài viết:
    6
    Đã được thích:
    0
    Nơi ở:
    Hanoi
    - Bác noi ko cụ thể, thành thử tư vấn cho bác cũng khó quá. Nếu thật sự chỉ cần như vậy thì chắc bác chưa chỉ đúng địa chỉ mà Sheet!2 nhận từ Sheet!1 rồi.
    -Còn một cách nữa là gán Mã cho địa chỉ cần tìm của Sheet1 bên sheet2, dùng Vlookup cho tìm mã đã gán bên sheet1 là được đó. Bác nói cụ tỷ hơn sẽ mách bác được cách làm nhanh, và tốt ơn đấy.
     
    #5
  6. hoangvanngoc

    hoangvanngoc Thành viên sơ cấp

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    hanoi
    Chào các bạn!
    Các bạn ơi giúp mình nhé!
    Mình vừa mới ra trường và đang làm Thủ quỹ tại một Công ty nhưng mấy tháng vừa qua Kế toán Công ty Mình bận quá nên mình lại tự viết phiếu chi và ký người lập phiếu.Như vậy có lúc trên phiếu chi mình là người nhận tiền, là người lập phiếu và là Thủ Quỹ.Theo các bạn điều đó có phải vi phạm Luật Kế toán không ? ( Thủ Quỹ Không được làm Kế toán ).Mình sẽ phải giải quyết như thế nào ?
    Giúp mình với ( Gửi qua Mail giúp mình nhé ! Địa chỉ Mail của mình là: vanngoc202002@yahoo.com)
    Cảm ơncác bạn rất nhiều !
     
    #6
  7. Trnam

    Trnam Thành viên sơ cấp

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    danang
    Như thế này nhé:
    - Bước 1: nhập số 1 vào ô A1 tại Sheet1 (Sheet1!A1=1), tại Sheet2!A1 sẽ có giá trị là 1 (Sheet2!A1=Sheet1!A1). Ok cái này không có gì phải bàn.
    - Bước 2: nhập số 2 vào ô A1 tại Sheet1 (Sheet1!A1=2), tại Sheet2!A2 sẽ có giá trị là 2, nhưng đồng thời tại Sheet2!A1 vẫn tồn tại giá trị đã nhập lần trước là 1.
    Tại Sheet2 sẽ thể hiện như sau: Sheet2!A1=1, Sheet2!A2=2.
    Các bác nào có bí quyết nào dễ dễ chỉ em với, em không rành về món này lắm.
     
    #7
  8. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Hình như bạn post sai chỗ rồi thì phải. Chổ này là excel club mà. Như thế này nhé: vừa làm kế toán vừa làm thủ quĩ là không đúng nguyên tắc kế toán. Tuy nhiên, tùy vào số lượng tiền mặt mà xem xét. Nếu chỉ là petty cash thì vấn đề không nghiêm trọng lắm, nhưng vẫn phải có supervisor ký duyệt và kiểm quỹ định kỳ/đột xuất. Tuy nhiên nếu bạn chi một số tiền lớn đến hàng mấy trăm triệu thì tốt nhất là nên tách ra.
     
    #8
  9. Viet Huong

    Viet Huong TV Ban Quản Trị / Admin

    Bài viết:
    3,036
    Đã được thích:
    984
    Giới tính:
    Nữ
    Nơi ở:
    TP.HCM
    "Mình vừa mới ra trường và đang làm Thủ quỹ tại một Công ty nhưng mấy tháng vừa qua Kế toán Công ty Mình bận quá nên mình lại tự viết phiếu chi và ký người lập phiếu.Như vậy có lúc trên phiếu chi mình là người nhận tiền, là người lập phiếu và là Thủ Quỹ.Theo các bạn điều đó có phải vi phạm Luật Kế toán không ? ( Thủ Quỹ Không được làm Kế toán ).Mình sẽ phải giải quyết như thế nào ?"

    Nói chung là bạn đã phạm luật rồi đó. Nhưng nếu Cty của bạn không phải là DNNN thì cũng còn tạm chấp nhận được vì một cty có qui mô nhỏ thì không thể có đủ một bộ máy KT như các công ty khác để có đủ bằng đó chữ ký. Tóm lại, nếu các anh chị khác bận thì bạn có thể viết hộ nhưng người đó phải ký sau khi đã kiểm tra nội dung.
     
    #9
  10. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Tớ hiểu bạn muốn gì! Híc, món này không khó lắm nếu bạn rành Visual Basic, nếu không rành hay không biết gì về VB thì chịu. Ngay tớ mới học VB thôi cũng không dám hướng dẫn, vì kiến thức chỉ như giật gấu vá vai, làm cũng được nhưng coding chắc lòng thòng chẳng khác gì bùi nhùi, bạn có đọc cũng chẳng hiểu nổi.
    Bạn tìm đọc thêm trong EFC và thư viện, tớ cũng học VB từ đó cả.
     
    #10
  11. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Hi hi, bác Adam chính xác hoàn toàn đấy :dzo: . Yêu cầu của bạn phải làm bằng VBA thôi. Bạn vào chủ đề này tham khảo nhé.
    http://webketoan.com/forum/showthread.php?t=6864&highlight=ủy nhiệm
     
    #11
  12. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Chẳng phải là bí quyết gì, cứ tằng tằng bằnd VBA thế này:
    '===========================================
    'Thủ tục này là sự kiện trong Workbook nếu sai bạn phải chữa lại để đúng cấu trúc
    'Vi toi chưa Test

    Private Sub Workbook_Sheetchange(Byval SH as Object, Target as Range)
    'Thủ tục này là sự kiện trong Workbook nếu sai bạn phải chữa lại để đúng cấu trúc
    If Target.Address="$A$1" then
    Nhapdulieu Target
    Endif
    End Sub
    '===========================================
    Sub Nhapdulieu(Byval oCell as Range)
    Dim WS2 as Worksheet
    Dim TenSH2 as String
    TenSH2="Sheet2"
    Cot=1
    Set WS2=Worksheets(TenSH2)
    I=1
    Do While IsEmpty(WS2.Cells(I,Cot).Value) or WS2.Cells(I,1).Value=""
    I=I+1
    Loop
    WS2.Cells(I,1).Value=oCell.Value
    Set WS2=Nothing
    End Sub
    '===========================================
     
    #12
  13. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Tôi cũng chưa thử, nhưng có lẽ vòng lặp của bác có vấn đề đấy. Theo tôi hiểu thì phải là Not IsEmpty mới đúng. Với lại sự kiện hình như không phải là "Workbook_Sheetchange", mà là worksheet_change. Bác xem lại xem sao.
     
    #13
  14. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    432
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Bạn muốn đánh số tt hay nhập mới?

    Cách này cũng được, bạn dùng thử:
    Tạo mới 1 Macro có tên & phím nóng (Menu Tool=>Macro=>New)
    Ghi Thao tác nhập liệu vào sheet(1); chuyển sang sheet(2) & cứ nhập 01 số liệu vào ô A1 & Kết thúc Macro;
    Mở lại Macro để sửa lại:
    * Khai 01 biến Variant có tên SLieu để nhận số liệu bạn nhập ở A1(Sheet1) = dòng lệnh: SLieu=activecell.Value
    * Sang Sheet(2) Bạn phải tìm dòng cuối trống (Có viết ở đề mục khác trong diễn đàn rồi- bạn tìm nha: Giúp mình với các bạn ơi- TG NTB-802)
    * Nhập số liệu từ biến vào ô là xong, OK
     
    Last edited: 2 Tháng tám 2005
    #14
  15. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Sai vòng lặp [Do While ...Loop]

    Đúng rồi phaỉ là Not IsEmpty mới đúng, cảm ơn Workman nha, nhưng sự kiện "Workbook_Sheetchange" là đúng rồi.
    Xin chữa lại code như sau:

    '===========================================
    Private Sub Workbook_Sheetchange(Byval SH as Object, Target as Range)
    Dim TenSH1 as String
    TenSH1="Sheet1"
    If SH.Name=TenSH1 and Target.Address="$A$1" then
    Nhapdulieu Target
    Endif
    End Sub
    '===========================================
    Sub Nhapdulieu(Byval oCell as Range)
    Dim WS2 as Worksheet
    Dim TenSH2 as String
    TenSH2="Sheet2"
    Cot=1
    Set WS2=Worksheets(TenSH2)
    I=1
    Do While Not IsEmpty(WS2.Cells(I,Cot).Value) Or WS2.Cells(I,Cot).Value<>""
    I=I+1
    Loop
    WS2.Cells(I,1).Value=oCell.Value
    Set WS2=Nothing
    End Sub
    '===========================================
     
    #15
  16. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    432
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Vòng lặp chạy nhanh hơn đây:

    Vì có bạn đã chép lại:dzo:
     
    Last edited: 18 Tháng tám 2005
    #16
  17. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Đúng rồi phải tùy vào CSDL và các điều kiện lọc mà ta có thê thêm điều kiện cho nhanh.
     
    #17

Chia sẻ trang này