Đã tìm thấy 5024 kết quả

by truongphu
Thứ 7 01/05/2021 4:54 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: định dạng kiểu số trong textbox
Trả lời: 7
Xem: 2953

Re: định dạng kiểu số trong textbox

Tôi chưa gặp dạng format nào kiểu số như thế. Cho nên bạn phải xử ký kiểu text nha. Chẳng hạn như: Dim As String y = CLng(Rnd * 1000000) Text1 = String(10 - Len(y), "*") & y Đoạn code trên, y = CLng(Rnd * 1000000) là biến kiểu số long sang text. Chỉ có biến sang text, ta mới dùng hàm l...
by truongphu
Thứ 3 06/04/2021 12:03 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Trao đổi về Word VBA Mời vào đây!
Trả lời: 203
Xem: 152759

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

code để chuyển tên Bài 1, Bài 2, .. thành đánh số tự động trong Word Thật lâu ngày ghé vào thăm clbvb. Câu hỏi của bạn Lamnbk, tôi đoán là bạn thắc mắc làm sao Word tìm ra khi đối tượng tìm thay đổi như Bài 1, rồi Bài 2... 1- Bạn phải nắm kỹ code để Word.Selection.Find để tìm 2- Đương nhiên dùng .M...
by truongphu
Thứ 4 24/02/2021 5:35 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox
Trả lời: 2
Xem: 503

Re: Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox

Bạn dùng hàm split để tách. Dấu để tách tùy người dùng,trong trường hợp nầy là |
Vd
Dim ZZ$()
ZZ= Split(Text1.Text, "|")
sau đó kiếm trong mảng ZZ$() vị trí tương ứng, vd chuỗi 4e677579e1bb205468e1bb8b2056c3a26e là ZZ(1)
by truongphu
Thứ 5 18/02/2021 9:19 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: lỗi khi dùng hàm worksheetFuntion.vlookup
Trả lời: 1
Xem: 603

Re: lỗi khi dùng hàm worksheetFuntion.vlookup

''method 'Range' of object '_Worksheet' failed" Nghĩa là dùng Phương thức Range của đối tượng Worksheet không đúng! Dò Phương thức Range trên code của bạn: Range("A:A") = đúng Range("A1:C114") = đúng Vậy lỗi xảy ra ở Sheet9.Range("Lookup") Vị trí nầy là đối số tab...
by truongphu
Thứ 3 01/12/2020 7:11 pm
Chuyên mục: Dự án mã nguồn mở
Chủ đề: AutoCorrect Vietnamese. Hỏi Ngã Tiếng Việt (MS Word)
Trả lời: 1
Xem: 953

Re: AutoCorrect Vietnamese. Hỏi Ngã Tiếng Việt (MS Word)

Dự án sau gần nửa tháng đã cơ bản hoàn thành.
Mục từ hỏi ngã 6983 thành phần
-----
Gởi đến các bạn file MSO1033.alc mới nhất
kèm theo các file ngữ liệu: xls, word và txt đều chứa 6983 mục từ.
by truongphu
Thứ 2 30/11/2020 12:45 pm
Chuyên mục: [VB] Ứng dụng - Form và Control
Chủ đề: Chuyển Focus từ UserForm (vbModeless) về Document hay spreadsheet - VBA
Trả lời: 1
Xem: 1109

Chuyển Focus từ UserForm (vbModeless) về Document hay spreadsheet - VBA

Bạn đang hoạt động trên UserForm, muốn quay lại hoạt động trên bảng tính, ít nhất bạn phải nhấn vào Cell bất kỳ một cái. Đấy là Activate cho bảng tính. Tuy nhiên, để giảm bớt cú nhấn nầy, tất cả các hàm như Activate, Select... hay ngay cả AppActivate cũng không hoạt động! (hay báo lỗi) Một dòng code...
by truongphu
Chủ nhật 22/11/2020 2:56 pm
Chuyên mục: Dự án mã nguồn mở
Chủ đề: AutoCorrect Vietnamese. Hỏi Ngã Tiếng Việt (MS Word)
Trả lời: 1
Xem: 953

AutoCorrect Vietnamese. Hỏi Ngã Tiếng Việt (MS Word)

1- MS Word có cho người dùng nhập các từ sai/đúng ở địa chỉ trong file Word mở ra: Vào Word Options, nhấn nút Proofing, nút AutoCorrect Options… hiện ra phần trên. Nhấn nút nầy, bảng AutoCorrect hiện ra như ảnh trên. Gõ tiếng Việt (lỗi) vào ô trống dưới chữ Replace, gõ tiếng Việt (đúng) vào ô trống ...
by truongphu
Thứ 5 15/10/2020 5:17 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: listboxt Add text không trùng
Trả lời: 1
Xem: 490

Re: listboxt Add text không trùng

e nghĩ mãi chưa ra cách. mọi người giúp e quả này với Kiểm tra trùng trong Listbox thì bạn phải duyệt các item của Listbox. Để nhanh hơn, bạn cho 1 biến string, cứ mỗi lần Listbox AddItem thì bạn cũng nối thêm vào biến string. Và trước khi Listbox AddItem thì bạn phải kiểm tra biến string có chứa d...
by truongphu
Thứ 2 21/09/2020 8:27 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Lỗi subscript out of range
Trả lời: 1
Xem: 662

Re: Lỗi subscript out of range

Lỗi: Error 9 "subscript out of range" thường do gọi biến ngoài khai báo. Sau khi bạn tắt thông báo, con trỏ sẽ nháy ở đoạn code lỗi, bạn cứ tìm trên hàng code ấy sẽ thấy biến lỗi. Vd: Mở Excell, Book1 tạo ra default là 3 sheet. Dòng code của bạn ghi: Sheets(5).Select Chắc chắn sẽ báo "...
by truongphu
Thứ 2 14/09/2020 8:31 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Xin giúp đỡ về code VBA thay thế VLOOKUP
Trả lời: 2
Xem: 604

Re: Xin giúp đỡ về code VBA thay thế VLOOKUP

Câu trả lời trê là thuần VB6. Dưới đây là VBA, sử dụng khó hơn khi đưa các đối số của hàm VLOOKUP [vb]Sub Thay_Vlookup() For i = 1 To 10 Cells(i, 2).Value = Application.WorksheetFunction.VLookup(Cells(i, 1).Value, Sheet1.Range("A14:B17"), 2, True) Next End Sub[/vb] Bạn chèn 1 module, rồi d...
by truongphu
Chủ nhật 13/09/2020 10:27 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Xin giúp đỡ về code VBA thay thế VLOOKUP
Trả lời: 2
Xem: 604

Re: Xin giúp đỡ về code VBA thay thế VLOOKUP

A1 đến A10 là điểm B1 đến B10 là xếp hạng cần VLOOLUP Tham chiếu là A14:B17 (như hình). Untitled.jpg VBA như sau: Dán vào Visual Basic Sheet1 [vb]Sub XepHang() For i = 1 To 10 Select Case Cells(i, 1) Case Is >= Cells(17, 1).Value Cells(i, 2).Value = Cells(17, 2).Value Case Is >= Cells(16, 1).Value C...
by truongphu
Thứ 6 11/09/2020 9:08 pm
Chuyên mục: Giao lưu
Chủ đề: Chào mừng bạn đã quay lại...
Trả lời: 4
Xem: 902

Re: Chào mừng bạn đã quay lại...

Chào anh NoBi, người chưa thấy, ảnh thật. Và anh vẫn phong độ dù mái tóc nhiễm màu thời gian.
Trang của mình lại không có nút tình cảm nhỉ, thôi gởi ở đây nha :D :D
by truongphu
Thứ 6 11/09/2020 8:59 pm
Chuyên mục: [VB] Chuỗi và Thời gian
Chủ đề: Giải thuật (và code VB6) tên Can và Chi của ngày, tháng và năm âm lịch
Trả lời: 2
Xem: 1892

Re: Giải thuật (và code VB6) tên Can và Chi của ngày, tháng và năm âm lịch

Chào anh NoBi lâu ngày nha. Mong CLBVB sứ sống mãi. Tôi quen lập trình như thú vui, chơi cái VB6 xem như công cụ thích hợp. Còn Google Sheets có thấy nhưng không vào chi tiết. Có chiếc Honda cà tàng, chạy cũng êm thì nhìn Ya hay Su cũng thế... :) Chúc anh NoBi và gia quyến khỏe mạnh và nhiều niềm vu...
by truongphu
Chủ nhật 30/08/2020 5:09 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Xin hỏi đổ dữ liệu từ form vào file word merge mail
Trả lời: 3
Xem: 693

Re: Xin hỏi đổ dữ liệu từ form vào file word merge mail

Bạn chỉ việc Search (góc trên phải) là ra. Tôi nhớ có gởi nhiều bản rar về mailmerge, có cái dùng publisher, cái dùng word 2007 thuần. W2007 hình như có tên là Copy of Trôn Thu Mail Merge , bạn giải nén, mở file Doc1, vào môi trường VB, sửa lại đường dẫn file mdb là chạy êm, Đương nhiên phải có máy ...
by truongphu
Thứ 7 29/08/2020 2:53 pm
Chuyên mục: [VB] Chuỗi và Thời gian
Chủ đề: Giải thuật (và code VB6) tên Can và Chi của ngày, tháng và năm âm lịch
Trả lời: 2
Xem: 1892

Giải thuật (và code VB6) tên Can và Chi của ngày, tháng và năm âm lịch

1- Giới thiệu tên Can và Chi. Tên của ngày, tháng và năm âm lịch là tên kép, được ghép từ mỗi đơn vị trong 2 bộ là Can (Thiên Can) và Chi (Địa Chi). Can gồm 10 phần tử, hay đọc quen là: Giáp, Ất, Bính, Đinh, Mậu, Kỷ, Canh, Tân, Nhâm, Quý. Sở dĩ đọc quen vì với âm lịch, Giáp là khởi đầu và lần lượt ...
by truongphu
Thứ 7 22/08/2020 9:10 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Cần mọi người giúp đỡ về timer trong vb6
Trả lời: 2
Xem: 1226

Re: Cần mọi người giúp đỡ về timer trong vb6

Tool sẽ bật liên tục Bạn nên dịch ra file exe rồi gọi file nầy chạy trên windows liên tục suốt đêm! sẽ gọi 1 sự kiện sự kiện nầy phải có trong máy tính Code: [vb]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperatio...
by truongphu
Thứ 7 22/08/2020 8:30 pm
Chuyên mục: [VB] Mẹo vặt khác
Chủ đề: Cách dùng Function trả về nhiều trị
Trả lời: 2
Xem: 1423

Cách dùng Function trả về nhiều trị

Chúng ta đã quen với function trả về đơn trị như đã khai báo. Muốn Function trả về nhiều hơn 1 trị số, người ta quen khai báo toàn cục để định nghĩa một kiểu TYPE có nhiều biến. Sau đây là code mẫu để có thể function trả về nhiều biến: [vb]Private Function TraNhieuGiaTri(x%, y$, z$) As String() 'Dùn...
by truongphu
Thứ 6 21/08/2020 7:56 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Nhờ chỉ giùm mình cách viêt code cho các câu hỏi sau ạ
Trả lời: 6
Xem: 1809

Re: Nhờ chỉ giùm mình cách viêt code cho các câu hỏi sau ạ

...mặc định là YES nến phải giữ Enter. Nhờ mọi người chỉ cho mình làm sao k cần nhấn nút Enter mà nó mặc định chọ YES được với. Đó không phải yêu cầu chọn lựa Yes No, mà là thông báo buộc. Bạn có thể dùng Thông báo tự tắt có trong forum chúng ta: Private Sub Form_Load() Dim objShell As Object Set o...
by truongphu
Thứ 4 01/01/2020 9:22 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: VB của mình không có data environment
Trả lời: 1
Xem: 2381

Re: VB của mình không có data environment

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

Data Environment do thằng MSDE.DLL phụ trách. Bạn kiếm trên mạng rồi dán vào System32. Hy vọng giải quyết tốt.
(Một số dll cần đăng ký với Regsvr32, code trên Command Prompt như sau)
Regsvr32 msde.dll
by truongphu
Thứ 7 23/11/2019 6:44 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Trao đổi về Word VBA Mời vào đây!
Trả lời: 203
Xem: 152759

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

Selection trên MS Word là dấu nháy.
Bạn phải bôi đen đoạn văn, tối thiểu là 1 ký tự thì Selection.Copy mới hoạt động được chứ! OK?

Quay về tìm kiếm nâng cao