Vui lòng hướng dẫn thiết kế biểu báo cáo quỹ/tiền gởi

[Thuyan.acc]

Nhờ anh chị hướng dẫn em

Em không biết cách thiết lập 1 bảng tính về báo cáo quỹ tiền đồng VN và tiền gởi ngân hàng bằng ngoại tệ. Nay kính nhờ anh chị chỉ giúp hoặc có cách thiết kế nào linh hoạt hơn xin hướng dẫn cho em.

1.- Cách lập công thức cho 1 worksheet (file báo cáo quỹ - đính kèm) để khi em có xoá dòng hoặc chèn thêm 1 dòng hoặc nhiều dòng mà công thức không bị ảnh hưởng.
Em đã thiết lập công thức thử nhưng khi xoá dòng nó cứ báo sai.
a.- =I7+G8-H8
b.- =$I7+G8-H8

2.- Ở dòng cuối của file em muốn khi in ra lấy ngày hệ thống của máy tính điền vào dòng Ngày ….tháng …năm thì em phải sử dụng như thế nào. Em tìm hiểu hàm date( ) nhưng không thực hiện được.

3.- Anh chị nào có đường link trong trang web mình hoặc file dịch số ra chữ chỉ cho em download về và cách cài đặt vào trong excel
+ File dịch số ra chữ Việt Nam đồng và USD (ngoại tệ)
Mục đích : Để điền vào dòng cuối file báo cáo quỹ có số tiền được ghi bằng chữ

Chân thành cảm ơn

 

[salam]

Bạn xem thử file đính kèm nhé, còn hàm đổi số sang chữ bạn tìm trên diễn đàn nhé.
Thân!

 

[ThuNghi]

1/ Khi chèn hay xóa dòng thì phải copy từ dòng đầu tránh Ref
2/ Bạn FormatCells chọn custom, number và nhập
"Ngaøy " dd " thaùng " mm " naêm " yyyy
Tại ô bạn cần điền chỉ cần today()
3/ Kiếm 1 cái AddIns trong phần AddIns, học cách cài xla và máy, còn không thì chép vào module (Alt F11, insert module)
File tôi làm cho bạn rồi. Bạn xem nhé.
Salam làm rồi thôi xóa cũng phí.

 

[Thuyan.acc]

Cháu chân thành cám ơn chú Salam và Thunghi đã dành thời gian hướng dẫn cho cháu.
1.-Nhưng cháu có thể xin hỏi thêm ở bài của chú Salam khi cài công thức
=INDIRECT("I"&ROW()-1)+G8-H8.
Kính nhờ chú có thể giải thích rõ thêm về hàm indirect cho cháu cùng các thành viên còn non yếu như cháu được tỏ thêm.
2.-Cháu đã format cells chọn custom (về chỗ in ngày hệ thống) theo hai chú hướng dẫn cháu đã thực hiện tốt.

3.-

3/ Kiếm 1 cái AddIns trong phần AddIns, học cách cài xla và máy, còn không thì chép vào module (Alt F11, insert module)
File tôi làm cho bạn rồi. Bạn xem nhé.
Salam làm rồi thôi xóa cũng phí.

Mục thứ 3 này chú ThuNghi có thể dành chút thời gian quý báu của chú chỉ cho cháu thực hiện cho tốt hơn.
Vì cháu đã làm cũng nhấn Alt+F11 rồi tới đây bí luôn.
Có thể cháu hơi chậm kính xin các chú đừng trách cháu nhe.

4. Cháu dự kiến cách làm trong 1 file báo cáo quỹ cháu chia ra từng sheet nhỏ, cụ thể mỗi sheet đó tượng trưng cho 1 ngày báo cáo và các sheet đó được đánh số từ 1-> 31 (tượng trưng cho 30,31 ngày trong tháng)
Có cách nào tạo ra các sheet liền kề mà mình không cần làm thao tác copy sheet đó sang 1 sheet khác vì sao mỗi thao tác mình copy sheet(01) thì sheet liền kề có tên 01(2) rồi lần lượt phải sửa tên 01(2) thành ra 02.
Hơn nữa số dư đầu ngày của sheet liền kề cháu cài công thức như vậy không biết có được không ?
Nhờ các chú và anh chị hướng dẫn cho cháu thêm.

Chân thành cám ơn.

Thùy An

 

[salam]

[FONT=&quot]Về hàm Indirect bạn thao khảo link:
http://www.giaiphapexcel.com/forum/showthread.php?t=5183[/FONT]

 

[LEHOANGANHTUAN]

. Cháu dự kiến cách làm trong 1 file báo cáo quỹ cháu chia ra từng sheet nhỏ, cụ thể mỗi sheet đó tượng trưng cho 1 ngày báo cáo và các sheet đó được đánh số từ 1-> 31 (tượng trưng cho 30,31 ngày trong tháng)
Có cách nào tạo ra các sheet liền kề mà mình không cần làm thao tác copy sheet đó sang 1 sheet khác vì sao mỗi thao tác mình copy sheet(01) thì sheet liền kề có tên 01(2) rồi lần lượt phải sửa tên 01(2) thành ra 02.
Hơn nữa số dư đầu ngày của sheet liền kề cháu cài công thức như vậy không biết có được không ?
Nhờ các chú và anh chị hướng dẫn cho cháu thêm.

Ban thuy an thử code nay xem
"Bắt đầu từ file bao cao quy nhe.
xóa het cac sheet khac chua lai sheet tiền mặt thui
Ô I7 gõ ct =IF(J1=0,0,INDIRECT(J1&"!I28"))
Ô I28 gõ ct =I26
lưu lại
Bấm ALT + F11
copy và dán code nay vao
----------------------------------------
Sub copyshet()
Dim i As Long
Dim sodudk, songay As String
songay = InputBox("nhap vao so ngay trong thang", "", 31)
For i = 1 To songay
Sheets("Tien mat").Copy After:=Sheets(1)
Sheets("Tien mat (2)").Name = songay - i + 1
Range("J1").Select
ActiveCell.FormulaR1C1 = songay - i

Next
sodudk = InputBox("Nhap vao so du dau ki", "", 0)
Sheets("1").Select
Range("I7").Select
ActiveCell.FormulaR1C1 = sodudk
End Sub
------------------------------
sau đó bam F5 de chay macro nay (Chu y nho tat chuong trinh diet vi rút khi chay macro nhe)

 

[anhtuan1066]

Phải dùng phương pháp định vị cell thì mới dc...
Bạn đặt con trỏ tại I8 rồi vào Define name đặt 3 name sau đây:
1> Định vị cell trên: TREN =INDIRECT(ADDRESS(ROW()-1,COLUMN()))
Địa chỉ cell trên chính là địa chỉ có chỉ số dòng bằng chỉ số dòng cũa cell đang đứng trừ cho 1, có chỉ số cột bằng cột của cell đang đúng... Mình đang ở I8, vậy theo suy luận thì TREN sẽ là giá trị cell I7
2> Định vị cell bên trái 1 cell: TRAI1 =INDIRECT(ADDRESS(ROW(),COLUMN()-1)) ---> Cách suy luận tương tự như trên
3> Định vị cell bên trái 2 cell: TRAI2 =INDIRECT(ADDRESS(ROW(),COLUMN()-2))
Khi xong 3 name này thì tại I8 gõ công thức

=TREN + TRAI2 - TRAI1

Kéo fill công thức xuống rồi thử Insert row xem thế nào
Ngoài cách trên còn có thể dùng OFFSET... chẳng hạn như:

TREN =OFFSET(I8,-1,0)
TRAI1 =OFFSET(I8,0,-1)
TRAI2 =OFFSET(I8,0,-2)

Chú ý khi đặt name vẫn phải đễ con trỏ chuột tại I8 nhé, do đây là định vị tương đối, nó sẽ phụ thuộc vào vị trí cell ta đang đứng
Mến
ANH TUẤN

 

[ngatc203]

bà con ơi chỉ mình cách làm báo cáo quỹ với