• 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 5146 kết quả

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: 17630

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: 3006

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: 188
Xem: 65238

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: 17630

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: 17630

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: 879

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: 3503

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: 188
Xem: 65238

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: 493

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: 810

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: 710

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: 448

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: 581

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: 710

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: 856

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ú...
gửi bởi truongphu
T.Hai 09/12/2013 2:28 pm
Chuyên mục: Giao lưu
Chủ đề: Mùa Hoa Tuyết
Trả lời: 9
Xem: 2656

Re: Mùa Hoa Tuyết

Hy vọng forum sẽ nhộn lên!



gửi bởi truongphu
T.Bảy 07/12/2013 7:38 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: 856

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

Bức ảnh Này Treo ở Trên Tường Đúng là 'cô' Lan Hồ Điệp "chơi" tôi mà... làm tôi hí hoáy cả tiếng, không hiểu sao dùng UCase lại không linh? Hóa ra, 'cô' em đưa đoạn text gì đâu! Sau đây đoạn text được cho màu đỏ; và được trị bởi code bên dưới... Bức ảnh Này Treo ở Trên Tường Code chuyên t...
gửi bởi truongphu
T.Bảy 07/12/2013 8:20 am
Chuyên mục: Giao lưu
Chủ đề: Mùa Hoa Tuyết
Trả lời: 9
Xem: 2656

Re: Mùa Hoa Tuyết

Giao diện hôm nay đã thấy tuyết rơi...

Chúc Mừng Giáng Sinh 2013!
gửi bởi truongphu
T.Bảy 07/12/2013 8:17 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Chữ không viết hoa được.
Trả lời: 1
Xem: 669

Re: Chữ không viết hoa được.

Trong Word vào Format, Change Case, Upper case thì văn bản sẽ được viết hoa nhưng vẫn có một số chữ không viết hoa được, như ả, ữ, ế... 1- nick lahodiep = Lan Hồ Điệp nghe "chất gái" quá! :D 2- Phần lớn các lệnh trên Menu thiết kế với font 1 byte nên không hỗ trợ unicode 3- Đã viết code, ...
gửi bởi truongphu
T.Bảy 30/11/2013 10:51 pm
Chuyên mục: [VB] Chuỗi và Thời gian
Chủ đề: Chuyển đổi qua lại giữa Unicode và CP-1258
Trả lời: 1
Xem: 3240

Re: Chuyển đổi qua lại giữa Unicode và CP-1258

Chuỗi CP1258 ở 2 function trên bị trang web nầy cắt! Bổ sung: [vb] CP1258$ = "AìAÌAÒAÞAòÃ@ÃìÃÌÃÒÃÞÃòÂ@ÂìÂÌÂÒÂÞÂòEìEÌEÒEÞEòÊ@ÊìÊÌÊÒÊÞÊòIìIÌIÒIÞIòOìOÌOÒOÞOòÔ@ÔìÔÌÔÒÔÞÔòÕ@ÕìÕÌÕÒÕÞÕòUìUÌUÒUÞUòÝ@ÝìÝÌÝÒÝÞÝòYìYÌYÒYÞYòÐ@" _ & "aìaÌaÒaÞaòã@ãìãÌãÒãÞãòâ@âìâÌâÒâÞâòeìeÌeÒeÞeòê@êìêÌêÒêÞêòiìiÌiÒ...

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