• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chỉ tìm thấy 5151 kết quả

gửi bởi truongphu
T.Sáu 21/03/2014 8:18 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Copy các Table từ file Word khác?
Trả lời: 4
Xem: 784

Re: Copy các Table từ file Word khác?

copy các table từ file word mẫu và đưa vào file word Các Tables trực thuộc Document, và được đánh số thứ tự. Bạn muốn copy Table nào, vd tables(3) thì viết: ActiveDocument.Tables(3).Range.Copy Trở về Document muốn paste, bạn di chuyển Selection đến vị trí chỉ định, rồi paste: Selection.Paste Đơn gi...
gửi bởi truongphu
T.Năm 20/03/2014 8:31 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Di chuyển toàn bộ các đối tượng là Text. Giúp em với
Trả lời: 3
Xem: 641

Re: Di chuyển toàn bộ các đối tượng là Text. Giúp em với

Em có bài tập muốn hỏi: Di chuyển toàn bộ các đối tượng là Text sang trái 1 khoảng là 10 Bạn đang hỏi trong box vba, và vì bạn hỏi chưa rõ, tôi ngầm định bạn hỏi về word/vba Giả sử toàn document là text * chọn toàn bộ: Selection.WholeStory * sang trái, nghĩa là lề trái dịch trái Selection.Paragraph...
gửi bởi truongphu
T.Bảy 08/03/2014 8:08 am
Chuyên mục: Cấu trúc dữ liệu và giải thuật
Chủ đề: Giải thuật đếm số ký tự trong chuỗi
Trả lời: 2
Xem: 2123

Re: Giải thuật đếm số ký tự trong chuỗi

xuanha đã viết:Private Function demxau(xau As String, tucantim As String) As Integer
Dim x() As String
x = Split(xau, tucantim)
demxau = UBound(x)
End Function


Là một giải thuật hay!
Dùng hàm Split có lẽ chạy nhanh hơn nhiều hàm Replace
gửi bởi truongphu
T.Sáu 07/03/2014 5:51 pm
Chuyên mục: Thông báo và hướng dẫn sử dụng
Chủ đề: Offline Kỷ niệm Sinh nhật lần 9 tại TP.HCM
Trả lời: 27
Xem: 11079

Re: Offline Kỷ niệm Sinh nhật lần 9 tại TP.HCM

Chúc Mừng CLBVB lên 9 tuổi
@};- @};- @};-

Xem như một kỷ niệm đẹp!
gửi bởi truongphu
T.Bảy 22/02/2014 8:06 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Thoát hoàn toàn Word!
Trả lời: 1
Xem: 513

Re: Thoát hoàn toàn Word!

Code của bạn, trong đa số trường hợp đủ để thoát hoàn toàn word. Đối tượng Document có hàm Close, đối tượng Application có hàm Quit. Với 2 hàm nầy cho phép thoát Word tiêu chuẩn. Phải đóng document trước và thoát application sau: Document.Close Application.Quit trong trường hợp của bạn là: ddd2.Clos...
gửi bởi truongphu
T.Hai 17/02/2014 8:54 am
Chuyên mục: [VB] Mẹo vặt khác
Chủ đề: Các bài viết VB ứng dụng MS Word
Trả lời: 39
Xem: 18566

Re: Các bài viết VB ứng dụng MS Word

code về vba/word, bạn tham khảo nhanh:
viewtopic.php?f=15&t=21600
gửi bởi truongphu
T.Hai 17/02/2014 8:49 am
Chuyên mục: [VB] Chuỗi và Thời gian
Chủ đề: Các Hàm đo thời gian
Trả lời: 3
Xem: 3180

Re: Các Hàm đo thời gian

Khai Nguyen đã viết:ịch có cả ngày dương và âm kèm theo


Code về âm - dương lịch có rất nhiều trong forum, của nhiều tác giả.
Bạn chỉ cần search và chọn lựa ưng ý
gửi bởi truongphu
T.Hai 17/02/2014 8:46 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Trao đổi về Word VBA Mời vào đây!
Trả lời: 189
Xem: 78498

Re: Trao đổi về Word VBA Mời vào đây!

vậy: vòng lặp sẽ kết thúc khi con trỏ ở cuối vùng được bôi đen thì viết như thế nào? Bạn dùng code bình thường ; tuy nhiên phải khai đối số của .Wrap là wdFindAsk .Wrap = wdFindAsk nếu viết .Wrap = wdFindContinue chúng sẽ thay hết văn bản Không cần dùng code như: Do Until Selection.Range.Bookmarks....
gửi bởi truongphu
T.Hai 17/02/2014 8:29 am
Chuyên mục: [VB] Mẹo vặt khác
Chủ đề: Các bài viết VB ứng dụng MS Word
Trả lời: 39
Xem: 18566

Re: Các bài viết VB ứng dụng MS Word

Khi bấm vào nút thì bị lỗi ở rtxtCanCuQD.Text - string too long. Tìm và thay hạn chế 255 ký tự. khắc phục: Tìm mà không thay Bạn không viết Selectapp.Find.Replacement.Text = rtxtCanCuQD.Text vì khi đó sẽ gây lỗi nếu quá 255 ký tự Bạn hãy copy vào bộ nhớ nội dung của rtxtCanCuQD.Text (code đưa vào b...
gửi bởi truongphu
CN 26/01/2014 9:53 am
Chuyên mục: [VB] Mẹo vặt khác
Chủ đề: Các bài viết VB ứng dụng MS Word
Trả lời: 39
Xem: 18566

Re: Các bài viết VB ứng dụng MS Word

Làm thế nào để add macro vào word từ vb6 ạ. Dim ddd As Object, fff As Object Private Sub Command1_Click() Set ddd = CreateObject("Word.application") ddd.Visible = True Set fff = ddd.documents.Open("E:\win\desktop\doc1.doc") ddd.VBE.ActiveVBProject.VBComponents.Import "E:\wi...
gửi bởi truongphu
CN 26/01/2014 9:18 am
Chuyên mục: Giao lưu
Chủ đề: Chúc Mừng Năm Mới
Trả lời: 2
Xem: 938

Chúc Mừng Năm Mới

Chúc các bạn thành viên CLBVB năm mới an khang, thịnh vượng!
@};- @};-
gửi bởi truongphu
CN 26/01/2014 9:14 am
Chuyên mục: Giao lưu
Chủ đề: VB6 hấp hối
Trả lời: 16
Xem: 3827

Re: VB6 hấp hối

còn cái vụ vba thì chắc vẫn chưa chết được. nếu app còn đụng tới office thì vẫn phải ngâm cứu nó. Ngôn ngữ mới áp dụng nhiều trên các nền tảng mới, hơn nữa ngôn ngữ mới lại là xu thế chung của thời đại mới. Nói như vậy không có nghĩa là các ngôn ngữ cũ vô dụng. VBA 2007 trở lại vẫn còn ích lợi với ...
gửi bởi truongphu
T.Bảy 18/01/2014 9:30 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Trao đổi về Word VBA Mời vào đây!
Trả lời: 189
Xem: 78498

Re: Trao đổi về Word VBA Mời vào đây!

Làm sao để nó không đọc giá trị trong bảng thế các bác Trong Paragraph, nếu thấy có Table thì bỏ qua, dùng lệnh GoTo For Each para In ActiveDocument.Paragraphs If para.Range.Tables.Count > 0 Then GoTo SkipTables If (InStr(para.Range.Text, MM)) Then para.Range.Font.Color = 255 End If SkipTables: Nex...
gửi bởi truongphu
T.Sáu 03/01/2014 4:29 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: help độ lớn của chuỗi
Trả lời: 3
Xem: 518

Re: help độ lớn của chuỗi

ví dụ 1.000.000 ký tự:

Mã: Chọn hết

Dim MM$: MM = String(1000000, "a")
gửi bởi truongphu
T.Sáu 03/01/2014 4:21 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Giúp em bài tập hiện dòng số hoặc dòng chữ sau 1 phút
Trả lời: 5
Xem: 889

Re: Giúp em bài tập hiện dòng số hoặc dòng chữ sau 1 phút

Cho phép em hỏi thêm ý kiến nữa là nếu em muốn nó vượt quá thời 1 2 phút được không em cài thử 30p báo lỗi rồi 20 rồi 10 rồi lần cuối là 2p vẫn k được nhưng cài 1p thì được Khi dùng các mốc thời gian giá trị lớn như giờ, phút; ta nên dùng giờ hệ thống. Ví dụ muốn có mốc 18 phút nữa tính từ bây giờ:...
gửi bởi truongphu
T.Tư 25/12/2013 8:06 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Lấy number of copies khi print lưới trong vb6
Trả lời: 6
Xem: 794

Re: Lấy number of copies khi print lưới trong vb6

nguyenyen đã viết:Mình cũng thử printer.copies rồi


À, cái nầy thì dễ. Tôi cứ ngỡ bạn muốn biết người khác in bao nhiêu tờ...

Mã: Chọn hết

    Dim a%: a = 5
    Do While a
        Printer.Print "Cafe Hoa Lan Kính Chào Quý Khách"
        Printer.EndDoc
        a = a - 1
    Loop
gửi bởi truongphu
T.Ba 24/12/2013 3:06 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Loại bỏ dấu trong câu lệnh SQL
Trả lời: 1
Xem: 461

Re: Loại bỏ dấu trong câu lệnh SQL

UFO đã viết:Mình muốn khi nhập vào ô textbox là a thì nó lọc ra được 3 dòng dữ liệu (á, â, à)


Bạn phải lập thêm 1 cột TenHangKhongdau
vì á, ả, ạ... là các ký tự độc lập với ký tự a
gửi bởi truongphu
T.Ba 24/12/2013 2:53 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Phần mềm nghe FM
Trả lời: 2
Xem: 604

Re: Phần mềm nghe FM

thanhvu06vl đã viết:Mình muốn giao diện phần mềm này sẽ nằm trong fom của mình lập trình


Bạn dùng FindWindow để tìm hWnd của phần mềm
dùng SetParent để Form của bạn là Form cha của phần mềm
nếu cần dùng thêm MoveWindow để đặt giao diện phần mềm lên Form ở vị trí thích hợp
gửi bởi truongphu
T.Ba 24/12/2013 2:46 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Lấy number of copies khi print lưới trong vb6
Trả lời: 6
Xem: 794

Re: Lấy number of copies khi print lưới trong vb6

nguyenyen đã viết:mình cần biết số tờ in mà user đánh vào cho mỗi lần in.


cái nầy thì khó! Làm sao mà biết user in bao nhiêu tờ nhỉ?

VB6 chỉ hổ trợ cho người dùng in số tờ:

Mã: Chọn hết

With Printer
    .Copies = 3
End With
gửi bởi truongphu
T.Hai 09/12/2013 2:49 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Không viết hoa kí tự đầu tiên trong mỗi từ được.
Trả lời: 4
Xem: 948

Re: Không viết hoa kí tự đầu tiên trong mỗi từ được.

E đọc qua code nghĩ là A truongphu đã tách mỗi từ ra làm 2 phần rồi ucase kí tự đầu và lcase phần còn lại ( không biết đúng không) Đúng rồi, nhưng bài tôi viết có 2 vấn đề; bạn đang nói vấn đề sau. Còn vấn đề đầu làm tôi loay hoay là space của bạn trước đó không phải có ASC = 32 mà là 160 do đó chú...

Chọn tìm kiếm nâng cao