Tạo một CSDL mới từ CSLD ban đầu như thế nào

[snoopy2004]

Tui có một file excel sau đây. Tôi muốn chuyển đổi thành CSDL khác sao cho: đôi ứng tài khoản là trên cùng một hàng.
Cám ơn nhiều, mình đang cần gấp sự giúp đỡ của các bạn.

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=145&stc=1&d=1157252402

 

[handung107]

Tôi đã xem qua File của bạn, nhưng trong File ấy, tài khoản đối ứng cùng nằm trên một hàng, đúng với yêu cầu của bạn mà, nên tôi không hiểu là bạn đang cần gì. Bạn có thể nói rõ hơn không ?

 

[snoopy2004]

À, xin lỗi nhé, mình post nhầm file. Mình post lại file khác. File này chưa có các bút toán kết chuyển. Đôi khi có những bút toán 1 Nợ nhiếu Có, nhiếu nợ 1 có, nhiếu Nợ nhiếu Có, đôi khi Có trước nợ sau, làm bằng tay thì thật là cực. Nên mình muốn hỏi các bạn một số phương pháp, và có thể sử dụng bằng VBA hay không?
File này chỉ có 1 tháng, nên cũng đơn giản, nhưng file gốc của mình bị mất rồi, các bạn cứ xem file này trước nhé.
file mới đây

 

[snoopy2004]

Kế tiếp, snoop muốn hỏi các điều sau:
- Thứ nhất, giải thích dùm mình đoạn mã sau:
Private Sub CommandButton1_Click()
Dim mSheet As WorkSheet
For Each mSheet in WorkSheets
If mSheet.ProtectContents = -1 then
mSheet.Unprotect Password:=TextBox1.Text
Else mSheet.Protect Password:= TextBox1.Text
End If
Next mSheet
Unload Me
End Sub

- Thứ 2, sự khác nhau giữa: 1 Module, 1 Public sub, 1 Private sub, 1 class module
Cám ơn nhiều.

 

[SA_DQ]

Bạn hỏi thử, mình trả lời thử, Không đúng thì cho qua!

Kế tiếp, snoop muốn hỏi các điều sau:
- Thứ nhất, giải thích dùm mình đoạn mã sau: . . .

Theo mình biết thì đoạn mã đó sẽ kiểm duyệt toàn bộ các Sheet trong workbook hiện hành; cái nào bị khóa = mật mã thì đưộc mở ra = mật khẩu là Text & ngược lại cái chưa khóa sẽ bị khóa bỡi mật khẩu Text
(nhưng dòng lệnh 6 thiếu 1 dấu ":")
Cuối cùng thì Unload

 

[snoopy2004]

À, mình cũng hơi hiểu một chút rồi, cám ơn bạn HYen.
- Dòng lệnh thứ 4 : If mSheet.ProtectContents = -1 then
=-1 là có ý nghĩa gì.
- For là vòng lặp. Còn Dim là lệnh gì vậy. Và Unload Me là gì.
- Còn câu hỏi thứ 2 nữa, bạn giải thích dùm nhé.
Mình đang trong giai đoạn bắt đầu tiếp cận VBA, nên đôi khi có nhiều câu hơi lạ, thông cảm nhe các bồ.
- Và nhờ giúp mình giải quyết box số 3 ở trên nha,
Thanks a lot.

 

[vivucanhdieuthaonguyen]

Bạn ơi làm ơn cho mình hỏi muốn viết mã lệnh đó thì viết ơ đâu. Đấy có phải là lập trình không? Mình thấy thú vị quá. Chỉ cho mình với nha Hyen và các bạn. Gửi cho mình hướng dẫn của bạn theo địa chỉ; vivucanhdieuthaonguyen@gmail.com. Cám ơn các bạn nhiều