Xin giáo trình VBA đầy đủ

[vdtam_08]

Mình chưa được học và làm quen với chương trình VBA, nhưng mình biết nó rất thiết thực, vậy mình có thể dowload giáo trình để tự nghiên cứu ở đâu, mọi người chỉ mình với, cảm ơn nhìu

 

[spacemanforever]

Mình chưa được học và làm quen với chương trình VBA, nhưng mình biết nó rất thiết thực, vậy mình có thể dowload giáo trình để tự nghiên cứu ở đâu, mọi người chỉ mình với, cảm ơn nhìu

Mình gởi bạn:
==giáo trình và bài tập excel-Smith.N Studio.
== Vba excel: (dung lượng file không up được - bạn thông cảm)
http://www.mediafire.com/?nd2ygqo3yki
Chúc bạn học tốt.
Thân chào

 

[tuutieusau]

rất cảm ơn, mình cũng đang tìm kiếm tài liệu về VBA để nghiên cứu làm một ứng dụng trong công việc

 

[hungtt7]

Mình cũng có 1 cuốn rất chi tiết về lập trình với Excel:
Excel 2007 Programming
http://up.4share.vn/f/7746404f47434...fice.Excel.2007.Programming.Sep.2007.pdf.file
Chia sẻ để các bạn cùng dùng.

 

[Dao Xuan Thanh]

spacemanforever : link MF die rồi , tập tin đính kèm thì ko phải VBA
hungtt7 : chơi toàn tiếng anh , toát mồ hôi

 

[hungpecc1]

spacemanforever : link MF die rồi , tập tin đính kèm thì ko phải VBA
hungtt7 : chơi toàn tiếng anh , toát mồ hôi

Ngày xưa mình đọc tài liệu của thầy Hướng thấy rất cơ bản và dễ hiểu bạn tham khảo xem thế nào

http://www.mediafire.com/?wy5q4i4xxi37goq

 

[LinDan]

Mình chưa được học và làm quen với chương trình VBA, nhưng mình biết nó rất thiết thực, vậy mình có thể dowload giáo trình để tự nghiên cứu ở đâu, mọi người chỉ mình với, cảm ơn nhìu

Bạn xem tạm giáo trình của anh Hướng (mình sưu tầm trên diễn đàn)

----
Tải cả 3 file về, sau đó chọn cả 3 file rồi dùng Winra giải nén nhé.

 

[PhanTuHuong]

Bạn xem tạm giáo trình của anh Hướng (mình sưu tầm trên diễn đàn)

----
Tải cả 3 file về, sau đó chọn cả 3 file rồi dùng Winra giải nén nhé.

Nội dung này mới chỉ là sơ khai về VBA và chỉ là bản nháp, hiện đã sửa đổi nhiều. Để có kiến thức thành thạo về VBA, bạn cần phải học thêm nhiều nữa...

 

[tnghiaba]

Nội dung này mới chỉ là sơ khai về VBA và chỉ là bản nháp, hiện đã sửa đổi nhiều. Để có kiến thức thành thạo về VBA, bạn cần phải học thêm nhiều nữa...

học ở cuốn sách nào nữa thầy ơi, )

 

[Hoang2013]

2uyển sách đồ sộ & thiết thực cũng như rọng rãi về VBA nhất là những bài đăng liên quan đến VBA trên "GPE.COM"

 

[ketxu]

2uyển sách đồ sộ & thiết thực cũng như rọng rãi về VBA nhất là những bài đăng liên quan đến VBA trên "GPE.COM"

Và help của MS nữa ^^

Nhớ ngày xưa mua được đĩa MSDN, sướng mất mấy tháng Cảm giác như lạc vào một biển kiến thức

 

[ngoclinh1990]

Nội dung này mới chỉ là sơ khai về VBA và chỉ là bản nháp, hiện đã sửa đổi nhiều. Để có kiến thức thành thạo về VBA, bạn cần phải học thêm nhiều nữa...

Ad giải thích giúp code này với ạ

Sub DoReplace()

Const Find1 = "CAR-060"
Const Replace1 = "CAR-034"

Const Find2 = " second find string "
Const Replace2 = " second replacement "

Dim FilePick As FileDialog
Dim FileSelected As FileDialogSelectedItems
Dim WordFile As Variant ' FileName placeholder in selected files loop
Dim FileJob As String ' Filename for processing

Dim WorkDoc As Object
Dim WholeDoc As Range
Dim FooterDoc As Range

' On Error GoTo CreateReports_Error

Set FilePick = Application.FileDialog(msoFileDialogFilePicker)

With FilePick
.Title = "Choose Report Template"
.Filters.Clear
.Filters.Add "Word Documents & Templates", "*.do*"
.Filters.Add "Word 2003 Document", "*.doc"
.Filters.Add "Word 2003 Template", "*.dot"
.Filters.Add "Word 2007 Document", "*.docx"
.Filters.Add "Word 2007 Template", "*.dotx"
.Show
End With

Set FileSelected = FilePick.SelectedItems

If FileSelected.Count <> 0 Then

For Each WordFile In FileSelected

FileJob = WordFile

Set WorkDoc = Application.Documents.Open(FileJob, , , , , , , , , , , False)

Set WholeDoc = WorkDoc.Content
Set FooterDoc = WorkDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

With FooterDoc
.Find.Execute Find1, True, True, , , , True, , , Replace1, wdReplaceAll
.Find.Execute Find2, True, True, , , , True, , , Replace2, wdReplaceAll
End With

With WholeDoc.Find
.Execute Find1, True, True, , , , True, , , Replace1, wdReplaceAll
End With

WorkDoc.Save
WorkDoc.Close

Next

End If

MsgBox "Completed"

DoReplace_Exit:

Set WholeDoc = Nothing
Set FilePick = Nothing

Set WorkDoc = Nothing
Set FooterDoc = Nothing

Exit Sub

DoReplace_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DoReplace of VBA Document ReplaceMulti"
Resume DoReplace_Exit

End Sub

Private Sub Document_New()

End Sub

 

[ronaldovt]

Và help của MS nữa ^^

Nhớ ngày xưa mua được đĩa MSDN, sướng mất mấy tháng Cảm giác như lạc vào một biển kiến thức

còn đĩa đó k bác? Bác up lên cho ae hoặc Cho xin tên chính xác đĩa để ae mua nhé