Thủ thuật Excel

[handung107]

Hình như dạo này mọi người nói nhiều hơn nghỉ và làm thì phải. Chẳng thấy thủ thuật hay thuật toán nào mới, có chăng chỉ vài các macro nhát người. Chán....

Tôi thật không ngờ, ngày tôi biết EFC, tôi luôn dành cho quocnghia, thanhnhan những ý nghĩ tốt đẹp, tôi biết các bạn rất gioivả tôi luôn coi các bạn như những "bậc tiền bối", nhưng tôi không ngờ...Chán!!!

 

[levanduyet]

Hình như dạo này mọi người nói nhiều hơn nghỉ và làm thì phải. Chẳng thấy thủ thuật hay thuật toán nào mới, có chăng chỉ vài các macro nhát người. Chán....

Vâng, như Chị handung107 đã nói việc dành cho quocnghia hay thanhnhan gì đó những ý nghĩ tốt đẹp khi Chị mới tham gia vào EFC. Để rồi cuối cùng "chán" !!!
Như thế nào là Macro nhát người?!!!
Tôi miễn bàn ! Nhưng qua đây tôi biết được một điều là bạn quocnghia phát biểu mà không hề suy nghĩ !!! Chứng tỏ bạn này chẳng có trưởng thành "chút nào" trong sinh họat cộng đồng!!! Một người giỏi ?! Một người tài ?! Nhưng mất "hiền" thì coi như "bỏ"!!! Thật là tiếc!!!
Miễn bàn nữa !!!
Chúc mọi người luôn đồng hành với EFC, cùng chia sẻ với EFC và đừng có "ích kỹ" như quocnghia !!!
Lê Văn Duyệt

 

[DucThuan]

Tôi cũng không biết nhiều, nên gia nhập để mà học hỏi, nhất là các macro gì đó, nhưng thấy anh quocnghia nói "chán" như thế thì tôi cũng thấy hụt hẫng thật.

 

[levanduyet]

Excell là một bảng tính thông minh dành cho mọi người. Nhưng phải dung hòa giữa thuật toán và thuật tự động hóa. Có nhiều cách để đạt được kết quả, nhưng kết quả tối ưu là con đường đi ngắn nhất, dễ hiểu nhất, mọi người có thể áp dụng nhất....Tuy nhiên khi nhìn lại thì mình thấy mình đã biến mọi đồng nghiệp của mình thành 1 công cụ sử dụng rất máy móc và rất là macro. Mình chỉ có ý muốn trả lại cho Excel là một bảng tính thông minh chứ không muốn Excel là một bảng tính máy móc và đồng hóa với các Visual Fox, Visual Access, VB+SQL. Đơn giản vậy thôi.

Tôi thấy quocnghia dùng nhiều từ, nếu mà nói theo triết học là...!!! Tôi xin miễn bình luận!!!
Bạn có thấy bạn mâu thuẩn trong những gì bạn viết ra hay không?!
Tôi chỉ muốn nói bạn là khi bạn phát biểu bạn nên cẩn trọng! Vậy thôi!
Chúc bạn luôn mạnh khỏe!
Lê Văn Duyệt

 

[tranxuanthien]

Cho hỏi bác Levanduyet là bác nào mà nội công thâm hậu thiệt. Tui là lính mới của diễn đàn, chẳng mấy khi lên Web vì bận tối mũi. Hình như bác Duyệt có liên hệ với tui về file mẫu của bài "Trích ngang dữ liệu". Tui đã gửi rồi nghen! Là dân kế toán, nhờ mấy dòng VBA đỡ đần cho công việc. Mong bác Duyệt có gì chỉ giáo giúp!

 

[levanduyet]

Cho hỏi bác Levanduyet là bác nào mà nội công thâm hậu thiệt!

Xin chào Anh Trần Xuân Thiên (Chi cục Định Canh Định Cư và Vùng Kinh Tế Mới tỉnh Quảng Nam, txthien2004@yahoo.com)! Cám ơn Anh, nhưng tôi không dám nhận. Qua bài viết của Anh tôi nghĩ rằng nếu trong EFC này mà có Anh thì thật sự tôi không biết nói gì hơn...Bởi vì qua các bài viết của Anh cũng biết được trình độ của Anh như thế nào rồi !
http://www.pcworld.com.vn/pcworld/magazine.asp?t=mzdetail&atcl_id=5f5e5c565b5f5d
http://www.pcworld.com.vn/pcworld/magazine.asp?t=mzdetail&atcl_id=5f5e5c56595959
www.echip.com.vn/echiproot/html/softtubien.htm
http://www.quantrimang.com/inc_contents.asp?Cat_ID=20&Cat_Sub_ID=2&news_id=8249
http://www.ltduong.jigsnet.com/index.php?option=content&task=view&id=61&Itemid=
...vv...
Còn nhiều nữa!
Rất mong sự tham gia của Anh.
Kính chúc Anh luôn mạnh khỏe.
EFC trân trọng chào đón Anh.
Lê Văn Duyệt

 

[Bình_OverAC]

Xin chào Anh Trần Xuân Thiên (Chi cục Định Canh Định Cư và Vùng Kinh Tế Mới tỉnh Quảng Nam, txthien2004@yahoo.com)! Cám ơn Anh, nhưng tôi không dám nhận. Qua bài viết của Anh tôi nghĩ rằng nếu trong EFC này mà có Anh thì thật sự tôi không biết nói gì hơn...Bởi vì qua các bài viết của Anh cũng biết được trình độ của Anh như thế nào rồi !
http://www.pcworld.com.vn/pcworld/magazine.asp?t=mzdetail&atcl_id=5f5e5c565b5f5d
http://www.pcworld.com.vn/pcworld/magazine.asp?t=mzdetail&atcl_id=5f5e5c56595959
www.echip.com.vn/echiproot/html/softtubien.htm
http://www.quantrimang.com/inc_contents.asp?Cat_ID=20&Cat_Sub_ID=2&news_id=8249
http://www.ltduong.jigsnet.com/index.php?option=content&task=view&id=61&Itemid=
...vv...

Báo cáo!
Em đã xem qua. Mấy bài rồi! Đúng là nội công quá ư thâm hậu!
Hân hạnh chào đón anh đến với câu lạc bộ những người hâm mộ Excel - EFC WKT.

 

[handung107]

Rất vui mừng được đón tiếp anh. EFC nhất định sẽ ngày càng phát triển vững chắc và là chỗ học tập trao đổi tốt nhất cho những ai hâm mộ Excel

 

[katman]

Thu thuat exel

Em rất mong các bác cho em macro viết chuyển số ra chữ Việt (chắc là có lâu lắc rồi nhưng em không có). MC này sử dụng được cho cả 2 định dạng số Mỹ và Việt ấy ạ..
Em cám ơn các bác rất nhiều, làm ơn mail về drasfree@gmail.com a !!!

 

[Cayman]

Cho tôi hỏi một chút về Excel nhé, chẳng là tôi muốn in liên tục các sheet, trong mỗi sheet có nhiều trang với số trang (page number) là liên tục nhưng không tìm ra được cách nào. Có chuyên gia Excel nào biết không ?

 

[Nguyen Tu Anh]

Bạn hãy dùng tay giữ phím Ctrl và click chuột vào các sheet cần in.

Sau đó bạn vào : File - Page Setup - Header (Footer) để đặt trang.

Và bấm vào Biểu tượng máy in trên thanh công cụ

Cho tôi hỏi một chút về Excel nhé, chẳng là tôi muốn in liên tục các sheet, trong mỗi sheet có nhiều trang với số trang (page number) là liên tục nhưng không tìm ra được cách nào. Có chuyên gia Excel nào biết không ?

 

[putin]

Chào mọi người
Theo tôi thấy thì khi chúng ta lên đây để trao đổi kinh nghiệm và chỉ để giúp đỡ nhau trong công việc.
Nếu lên đây chỉ để khoe tài thì tôi thấy đó là một suy nghĩ sai lầm
Còn nếu ai đó muốn thực sự tìm hiểu và học hỏi thì hãy thể hiện kiến thức của mình qua việc trả lời các thắc mắc của thành viên để họ hiểu rõ.
Theo tôi như vậy mọi người thấy sao
Mong có phản hồi từ mọi người

 

[Nguyen Tu Anh]

Đương nhiên đây là diễn đàn cho mọi người cùng học hỏi và trao đổi kinh nghiệm rồi. Thế bạn nghĩ ai là người lên đây chỉ để khoe tài? Mình không biết là bạn đã gặp trường hợp nào như vậy chưa và có nói quá lên không?
Hơn nữa bạn đã post nhầm địa chỉ rồi. Đây là box liên quan đến Excel cơ mà?

Chào mọi người
Theo tôi thấy thì khi chúng ta lên đây để trao đổi kinh nghiệm và chỉ để giúp đỡ nhau trong công việc.
Nếu lên đây chỉ để khoe tài thì tôi thấy đó là một suy nghĩ sai lầm
Còn nếu ai đó muốn thực sự tìm hiểu và học hỏi thì hãy thể hiện kiến thức của mình qua việc trả lời các thắc mắc của thành viên để họ hiểu rõ.
Theo tôi như vậy mọi người thấy sao
Mong có phản hồi từ mọi người

 

[tranxuanthien]

Bác Duyệt đính chính lại giúp tui: hiện tui đang làm việc tại Phòng kế toán Công ty May Trường Giang. Không biết đời sẽ đẩy tui đi những đâu nữa nhưng cho dù đi đâu, tui cũng luôn là bạn với webketoan. Công ty của tui đang dùng hình thức kế toán "Chứng từ ghi sổ cải tiến". Nó dùng bảng kê ghi có để làm chứng từ vào sổ cái. Sổ cái thì lại giống như sổ cái của "Nhật ký chứng từ". Tui có một đoạn mã VBA để cập nhật số liệu từ bảng kê ghi có vào sổ cái định đưa lên webketoan để anh em xem và góp ý nhưng hiện đang ở dịch vụ Internet nên chưa sẵn. Hẹn vài bữa nữa nhe!

 

[Cayman]

Cám ơn Tu Anh nhé. Nhưng tôi quên nói là nếu tôi muốn trang đầu tiên bắt đầu từ số khác số 1, ví dụ như số 9, các trang tiếp theo ở cùng sheet sẽ liên tục lên 10, 11, 12 và trang ở sheet tiếp theo cứ thế tiếp tục là 13, 14,... thì sao? Vì mỗi khi tôi muốn thay đổi số trang ở trang đầu tiên (do thay đổi số trang thuyết minh cho phần đầu báo cáo của tôi ở trong Word) thì bắt buôc tôi phải đổi ở từng sheet ? Tôi thử nhiều cách rồi nhưng chưa được.

 

[tranxuanthien]

Như đã hứa, đây là đoạn mã chép số liệu từ bảng kê ghi có vào Sổ cái, gồm 4 vòng lặp lồng nhau. Tui đã gửi file số liệu mẫu cho bác LeVanDuyet. Bạn nào quan tâm thì xin mời tham khảo và liên hệ bác LeVanDuyet để tải về.
Sub DienSoLieuBangKeVaoSoCai()
Dim SoTien
Dim TKno, TKco, TKco2, TenTK As String
Dim Thang As Integer
'Day la Macro mang so lieu tu Bang ke ghi co vao So cai
'Khi chay, hay mo cung luc 2 file: BangKeGhiCo01 (02, 03...) va SoCai(Chinh)
'SoCai(Chinh) la file hoat dong. Dung phim tat: Ctrl+Shift+V de chay macro

ActiveWindow.ActivateNext
Sheets("Tgian").Select
Range("B2").Select
Thang = ActiveCell.Value
Range("A3").Select
TKco = ActiveCell.Value
ActiveCell.Offset(0, 2).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Do Until TKco = "Stop"
Do Until TKno = "" Or TKno = "0"
ActiveWindow.ActivateNext
Sheets("111").Select
TenTK = ActiveSheet.Name
Do Until TenTK = "PSinh"
If TenTK = TKno Then
Range("A7").Select
TKco2 = ActiveCell.Value
Do Until TKco2 = "" Or TKco2 = "0"
If TKco2 = TKco Then Exit Do
ActiveCell.Offset(1, 0).Range("A1").Select
TKco2 = ActiveCell.Value
Loop
ActiveCell.Value = TKco
ActiveCell.Offset(0, Thang).Range("A1").Select
ActiveCell.Value = SoTien
Exit Do
End If
ActiveSheet.Next.Select
TenTK = ActiveSheet.Name
Loop

ActiveWindow.ActivateNext
ActiveCell.Offset(0, 1).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(2, 0).Range("A1").Select
TKco = ActiveCell.Value
ActiveCell.Offset(0, 2).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
End Sub

 

[levanduyet]

Bác Duyệt đính chính lại giúp tui: hiện tui đang làm việc tại Phòng kế toán Công ty May Trường Giang. Không biết đời sẽ đẩy tui đi những đâu nữa nhưng cho dù đi đâu, tui cũng luôn là bạn với webketoan. Công ty của tui đang dùng hình thức kế toán "Chứng từ ghi sổ cải tiến". Nó dùng bảng kê ghi có để làm chứng từ vào sổ cái. Sổ cái thì lại giống như sổ cái của "Nhật ký chứng từ". Tui có một đoạn mã VBA để cập nhật số liệu từ bảng kê ghi có vào sổ cái định đưa lên webketoan để anh em xem và góp ý nhưng hiện đang ở dịch vụ Internet nên chưa sẵn. Hẹn vài bữa nữa nhe!

Xin lỗi Bác tranxuanthien,
Bác đã chuyển chỗ làm à? Rất mừng khi nghe Bác nói "luôn là bạn với webketoan", nhưng hơi buồn sao không là "EFC"!!! Hu hu hu.
Xin được vài hàng góp ý cùng Anh,
Trong thủ tục của Anh có đọan khai báo như sau:
Dim TKno, TKco, TKco2, TenTK As String
Trong VBA, các biến TKno, TKco, TKco2 sẽ được coi như là biến variant, chứ không phải là String.

Sub DienSoLieuBangKeVaoSoCai()
Dim SoTien
Dim TKno, TKco, TKco2, TenTK As String
Dim Thang As Integer
'Day la Macro mang so lieu tu Bang ke ghi co vao So cai
'Khi chay, hay mo cung luc 2 file: BangKeGhiCo01 (02, 03...) va SoCai(Chinh)
'SoCai(Chinh) la file hoat dong. Dung phim tat: Ctrl+Shift+V de chay macro

ActiveWindow.ActivateNext
Sheets("Tgian").Select
Range("B2").Select
Thang = ActiveCell.Value
Range("A3").Select
TKco = ActiveCell.Value
ActiveCell.Offset(0, 2).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Do Until TKco = "Stop"
Do Until TKno = "" Or TKno = "0"
ActiveWindow.ActivateNext
Sheets("111").Select
TenTK = ActiveSheet.Name
Do Until TenTK = "PSinh"
If TenTK = TKno Then
Range("A7").Select
TKco2 = ActiveCell.Value
Do Until TKco2 = "" Or TKco2 = "0"
If TKco2 = TKco Then Exit Do
ActiveCell.Offset(1, 0).Range("A1").Select
TKco2 = ActiveCell.Value
Loop
ActiveCell.Value = TKco
ActiveCell.Offset(0, Thang).Range("A1").Select
ActiveCell.Value = SoTien
Exit Do
End If
ActiveSheet.Next.Select
TenTK = ActiveSheet.Name
Loop

ActiveWindow.ActivateNext
ActiveCell.Offset(0, 1).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(2, 0).Range("A1").Select
TKco = ActiveCell.Value
ActiveCell.Offset(0, 2).Range("A1").Select
TKno = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
SoTien = ActiveCell.Value
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
End Sub

Trong chương trình của Anh sử dụng rất nhiều phương thức Select, điều này là không nên trong VBA.
Thông thường trong các thủ tục của VBA người ta thường dùng đọan mã sau để tăng nhanh tốc độ chương trình.
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.StatusBar = bStatusbar 'Nhằm báo chương trình đang vận hành
End With
Sau khi kết thúc thủ tục bạn sẽ dùng đọan code trên nhưng thay lại các hằng số như sau:
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.StatusBar = False
End With
Và còn một chú ý nữa là khi bạn khai báo biến dùng để cho các hàng (Row) thì nên khai báo biến là kiểu Long như bạn Tuanktcdcn đã từng đề cập.
Vài hàng nhận xét.
Chúc bạn thành công.
EFC luôn luôn chào đón bạn, và mong trò chuyện cùng bạn.
Lê Văn Duyệt

 

[ForestC]

Các phương pháp giấu số 0 trong Excel

Các phương pháp giấu số 0 trong Excel

Xin giới thiệu với các anh chị các bạn bài đăng trên PCworld tháng 03/2005

Khi tính toán trong Excel, bạn có thể thấy kết quả số 0 nằm ở nhiều nơi trong bảng tính. Điều này gây khó nhìn hoặc lúc in ra sẽ không thẩm mỹ. Bạn có thể tìm để xoá các số 0 nhưng rất mất thời gian và nếu chúng là ô có công thức thì bạn phải tạo lại sau này khi thay đổi tính toán. Trong bài viết này tôi muốn giới thiệu một số phương pháp “thủ tiêu” số 0 “đáng ghét” một cách nhanh chóng.

1- Giấu tất cả số 0 trong bảng tính:

Nhấn vào menu Tools>Options, chọn thẻ View. Xoá hộp kiểm Zero values.

2- Dùng dạng số để giấu các số 0 trong những ô được chọn:

- Chọn các ô có số 0 cần giấu. Nhấn menu Format>Cells (hoặc nhấn Ctrl+1), chọn thẻ Number.

- Trong hộp Category, chọn Custom. Trong hộp Type, gõ 0;-0;;@.

3- Dùng định dạng có điều kiện để giấu số 0 được trả về từ kết quả của công thức:

- Chọn ô có số 0 cần giấu.

- Nhấn menu Format>Conditional Formatting. Ở hộp bên trái chọn Cell Value Is, hộp thứ hai tiếp theo chọn equal to, hộp kế tiếp gõ số 0.

- Nhấn nút Format, chọn thẻ Font. Trong hộp Color, chọn màu trắng (hay trùng với màu nền của bảng tính). Bấm OK 2 lần.

4- Dùng công thức để giấu số 0 hoặc thay bằng dấu gạch nối (-):

Giả sử tại ô A1, A2 bạn có các số tương ứng là 5, 5. Khi lấy A1-A2 thì kết quả sẽ là 0. Bạn có thể dùng các công thức sau để giấu số 0 hoặc thay bằng dấu gạch nối (-):

=IF(A1-A2=0,””,A1-A2)

=IF(A1-A2=0,”-”,A1-A2)

5- Giấu số 0 trong PivotTable:

- Trên thanh công cụ PivotTable, nhấn PivotTable và chọn Table Options.

- Đánh dấu chọn For empty cells, show. Nếu muốn thay số 0 bằng ký tự khác thì gõ vào hộp kế bên; ngược lại muốn giấu số 0 thì để trống hộp.ÿ

Nguyễn Hữu Đức
dpfuturestar@yahoo.com
Uỷ Ban Kiểm Tra Tỉnh Ủy An Giang

 

[ForestC]

Marco Convert của OverAC cũng có chức năng đó đó, bạn thử dùng xem sao http://www.unifiedtech.net.au/webketoan/forum/showthread.php?t=6578

 

[putin]

Hình như dạo này mọi người nói nhiều hơn nghỉ và làm thì phải. Chẳng thấy thủ thuật hay thuật toán nào mới, có chăng chỉ vài các macro nhát người. Chán....

Gửi tới nguyễn tú anh:
tất nhiên đây là diễn đàn trao đổi thông tin về tin học rồi nhưng tôi muốn nói cho rõ là có thành viên lên đây và bình luận như bạn quốc nghĩa làm tôi thấy hơi buồn