Tặng công cụ nghe nhạc MP3 với VBA. (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT
Moderator
Tham gia
17/8/08
Bài viết
8,662
Được thích
16,725
Giới tính
Nam
Qua nay rảnh rỗi sinh nông nổi, ngồi viết cả đêm không ngủ để có đồ chơi này. Xin đừng so sánh với các công cụ nghe nhạc có sẳn như Media Player hoặc nhúng nó vào Excel, mọi sự so sánh đều khập khiểng. Ở đây mô phỏng cái na ná như thế để tặng mọi người giải trí khi trà dư tửu hậu. Có thể viết code còn rườm rà, nhưng đã cố gắng hết sức rồi.

Với các dạng nhạc, để cho chúng chạy hết một cái list tôi nghĩ là cả một vấn đề, nhưng sau khi xem file này các bạn sẽ cảm thấy dễ dàng thực hiện điều đó.


attachment.php


Khi tải file về, mở file thì nó ló cái mặt nó ra như trong hình đấy (nhưng chưa có đường dẫn, chưa có list nhạc đâu nha).

Bấm vào nút Tìm Thư Mục và chọn một thư mục nào đó có chứa nhạc với đuôi *mp3.

Bấm nút Tải Tên Bài Hát, lúc này list nhạc nó mới hiện lên xanh lè như cái hình.

(Sau khi đã có list nhạc, đường dẫn, lần mở sau, đảm bảo nó hiện lên như vậy luôn, khỏi bấm biếc gì hết, trừ khi muốn tìm thư mục nhạc khác).

Nếu muốn chơi chỉ 1 bài, check vào nút Chơi một bài, sau đó bấm Chơi Nhạc, nó chạy hết bản nhạc là nó dừng, còn không thì đừng check, nó sẽ chơi hết list nhạc.

Khi nó chơi đến bản nhạc nào thì ListBox nó sẽ hiển thị select tại bài đó.

Nếu muốn Volume lớn nhỏ? Thanh scrollbar nằm ngang sẽ giải quyết được vấn đề.

Đang nghe nhạc có điện thoại? Mute đó mà check vô!

Dĩ nhiên cũng như các Player chuyên nghiệp, cái tên này nó cũng có nút Tạm Ngưng sau khi ta bấm Chơi Nhạc, muốn chạy tiếp chỉ việc bấm lại nút đó.

Và khi muốn nghe bản nhạc nào trong list, chỉ cần double click vào nó là xong!

Thôi, quảng cáo nhiều quá, xem file đi các bạn ơi.

P/s: Trong file có mượn một hàm tự tạo của Thầy ndu96081631: FilesFoldersList, xin cám ơn Thầy.

''===========================================================

VBA Password là HoangTrongNghia.

Update file mới nhất: VBA_Player_V.5.xla

attachment.php


Cập nhật các mục:

- Tạo file AddIn để chạy nhạc, không tự động show form, tạo ToolBar trên Menu hoặc Ribbon, muốn chơi thì click.

attachment.php


- ComboBox list các thư mục chứa nhạc, tự động xóa những thư mục không chứa nhạc *mp3

- Bài đang hát - Tên ca sĩ

- Thanh trạng thái vị trí bản nhạc, kéo phải kéo trái nhạc sẽ chạy ở vị trí đó.

- Bit rate.
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Tiêu chí của anh Nghĩa là: mở file lên và đi ngủ hoặc làm việc khác, không chơi với Excel nữa --=--
 
Upvote 0
em đề xuất gọi sub cmdLoadSongs_Click luôn ngay khi bấm nút OK ở dialog folder để đỡ phải tốn thêm 1 lần ấn nút Load Song hi hi
 
Upvote 0
Em đề xuất thêm OptionButton Random Play, chịu khó mất ngủ thêm đêm nữa đi anh --=0
 
Upvote 0
leonguyenz đã viết:
Em đề xuất thêm OptionButton Random Play, chịu khó mất ngủ thêm đêm nữa đi anh --=0
Nhấp chuột vào đây để mở rộng...
Cái này dễ, không khó tí nào, nhưng từ từ ta làm hen! Giờ giải quyết cái bài này trước nè!

doveandrose đã viết:
em đề xuất gọi sub cmdLoadSongs_Click luôn ngay khi bấm nút OK ở dialog folder để đỡ phải tốn thêm 1 lần ấn nút Load Song hi hi
Nhấp chuột vào đây để mở rộng...

Thể theo yêu cầu, một nút lệnh duy nhất! Thêm một bổ sung nhỏ xíu, nhưng không nhỏ, đó là khi show form với thuộc tính showmodal là False để thao tác với các file Excel khác mà không bị chặn.

attachment.php
 

File đính kèm

Upvote 0
Càng tìm hiểu về excel càng thấy hoảng. Không biết bao giờ ms lên được bờ.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Hahahaha, lúc đó ta mở nhạc êm dịu và du dương! --=0}}}}}
Nhấp chuột vào đây để mở rộng...

Hay lắm. Excel quả thực không hề khô khan ! @$@!^%@$@!^%

Trước hết xin cảm ơn anh Trọng Nghĩa đã tặng mọi người 1 tiện ích rất thú vị để thư giãn và giải trí và chúc anh có thật nhiều

sức khỏe để tiếp tục có những đóng góp bổ ích cho diễn đàn. Sau là em muôn hỏi khi mở File của anh lên làm thế nào để xem được

bên trong anh đã viết những gì ạ ( ý em là xem code hay gì gì đó bên trong ấy ạ) vì khi em mở File lên thì cái cửa sổ chơi nhạc này cứ

tự nhiên bung ra thôi ạ.




Capture.jpg
 
Upvote 0
khuongvietphong đã viết:
Hay lắm. Excel quả thực không hề khô khan ! @$@!^%@$@!^%

Trước hết xin cảm ơn anh Trọng Nghĩa đã tặng mọi người 1 tiện ích rất thú vị để thư giãn và giải trí và chúc anh có thật nhiều

sức khỏe để tiếp tục có những đóng góp bổ ích cho diễn đàn. Sau là em muôn hỏi khi mở File của anh lên làm thế nào để xem được

bên trong anh đã viết những gì ạ ( ý em là xem code hay gì gì đó bên trong ấy ạ) vì khi em mở File lên thì cái cửa sổ chơi nhạc này cứ

tự nhiên bung ra thôi ạ.




View attachment 146826
Nhấp chuột vào đây để mở rộng...
đổi tên File thành file khác ... xong mở lại đừng bấm vào cái màu vàng...Enble Contents..
Thử gõ Chữ HoangTrongNghia Coi Nha(VBA)..............hahahaha--=0--=0
 
Lần chỉnh sửa cuối:
Upvote 0
kieu manh đã viết:
đổi tên File thành file khác ... xong mở lại đừng bấm vào cái màu vàng...Enble Contents..
Thử gõ Chữ HoangTrongNghia Coi Nha(VBA)..............hahahaha--=0--=0
Nhấp chuột vào đây để mở rộng...
Hầu như các file anh HTN gửi lên đều dùng pass đó (nếu có), ai để ý sẽ biết, mà đâu cần đổi tên file phải không anh Mạnh?
 
Upvote 0
kieu manh đã viết:
đổi tên File thành file khác ... xong mở lại đừng bấm vào cái màu vàng...Enble Contents..
Thử gõ Chữ HoangTrongNghia Coi Nha(VBA)..............hahahaha--=0--=0
Nhấp chuột vào đây để mở rộng...
Trùi ui, sao mà nhọc nhằn thế!

Mở 1 file Excel bấm Alt+F11 (mở VBA), bấm Ctrl+G (Immediate), gõ vào đó câu này:

Application.EnableEvents=False

Rồi Enter.

Sau đó mở file đó lên bình thường!


OK, luôn luôn VBA Password là HoangTrongNghia.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Trùi ui, sao mà nhọc nhằn thế!

Mở 1 file Excel bấm Alt+F11 (mở VBA), bấm Ctrl+G (Immediate), gõ vào đó câu này:

Application.EnableEvents=False

Rồi Enter.

Sau đó mở file đó lên bình thường!


OK, luôn luôn VBA Password là HoangTrongNghia.
Nhấp chuột vào đây để mở rộng...

Chắc phải đổi tên File lại mới được bởi lần đầu mở lên em chót bấm vào dòng màu vàng Enable.... thế nên giờ tắt đi và mở lại File lên

là cái của sổ màu đen cứ hiện lên luôn. Em đổi tên File và không Enable nữa và bấm Alt+F11 thì vào xem được rồi. Tuy nhiên khi vào

đến cửa sổ VBA em thấy có 2 mục như thế này:

g.PNG

Trong đó thư mục bên dưới em dùng Pass anh cho thì mở được nhưng đến thư mục bên trên thì báo lỗi Invalid Password. Không biết tại

sao hả anh ?
 
Upvote 0
khuongvietphong đã viết:
Chắc phải đổi tên File lại mới được bởi lần đầu mở lên em chót bấm vào dòng màu vàng Enable.... thế nên giờ tắt đi và mở lại File lên

là cái của sổ màu đen cứ hiện lên luôn. Em đổi tên File và không Enable nữa và bấm Alt+F11 thì vào xem được rồi. Tuy nhiên khi vào

đến cửa sổ VBA em thấy có 2 mục như thế này:

View attachment 146827

Trong đó thư mục bên dưới em dùng Pass anh cho thì mở được nhưng đến thư mục bên trên thì báo lỗi Invalid Password. Không biết tại

sao hả anh ?
Nhấp chuột vào đây để mở rộng...
Trùi ui, có liên quan gì đến Solver? Tại máy bạn đang mở nó đó chứ!
 
Upvote 0
leonguyenz đã viết:
Em đề xuất thêm OptionButton Random Play, chịu khó mất ngủ thêm đêm nữa đi anh --=0
Nhấp chuột vào đây để mở rộng...
Ngẫu nhiên thì có một phiên bản ngẫu nhiên đây:

Mã: 
Private Sub RandomPlay()
    On Error Resume Next
    Dim i As Long, iRnd As Long
    With objPlayer
        If cmdPlay.Caption = priPlay Then
            cmdPlay.Caption = priPause
            If .Playstate = 2 Then
                GoTo ResumePlaying
            End If
        Else
            cmdPlay.Caption = priPlay
            .Controls.Pause
            Exit Sub
        End If
Continue:
        If priNgauNhien Then
            .URL = priArrList(lstSongList.ListIndex)
            For i = 0 To cbxRandom.ListCount - 1
                If cbxRandom.List(i) = lstSongList.ListIndex Then
                    cbxRandom.RemoveItem i
                    Exit For
                End If
            Next
            priNgauNhien = False
            GoTo ResumePlaying
        Else
            Randomize
            iRnd = Int((cbxRandom.ListCount - 1) * Rnd())
        End If
        If cbxRandom.ListCount = 0 Then
            Call cmdStop_Click
            Dim ArrTmp() As Long
            Dim n As Long, r As Long
            For r = 0 To UBound(priArrList)
                ReDim Preserve ArrTmp(0 To n)
                ArrTmp(n) = n
                n = n + 1
            Next
            cbxRandom.List = ArrTmp
            Exit Sub
        End If
        lstSongList.ListIndex = cbxRandom.List(iRnd)
        .URL = priArrList(lstSongList.ListIndex)
ResumePlaying:
        .Controls.Play
        Do
            DoEvents
            If priStopMusic Then
                cmdPlay.Caption = priPlay
                Exit Sub
            End If
            If ckbPlayOne Then
                Do
                    DoEvents
                Loop Until .Playstate = 1 Or objPlayer Is Nothing
                Call cmdStop_Click
                Exit Sub
            End If
        Loop Until .Playstate = 1 Or objPlayer Is Nothing
        cbxRandom.RemoveItem iRnd
        GoTo Continue
    End With
End Sub

Tải file VBA_Player_V.3 tại bài số 1 của topic này!
 

File đính kèm

  • Picture1.jpg
    Picture1.jpg
    34.2 KB · Đọc: 57
Upvote 0
Bổ sung một tí hoa hòe hoa sói: Thời lượng, Vị trí của một bản nhạc.

Tải file VBA_Player_V.4 tại bài số 1 của topic này!
 

File đính kèm

  • Picture1.jpg
    Picture1.jpg
    50.6 KB · Đọc: 57
Upvote 0
leonguyenz đã viết:
Hầu như các file anh HTN gửi lên đều dùng pass đó (nếu có), ai để ý sẽ biết, mà đâu cần đổi tên file phải không anh Mạnh?
Nhấp chuột vào đây để mở rộng...
Nếu File mình đã chạy Macros lần đầu tiên rồi thì lần sau mở lên là nó tự đông chạy ....đổi tên file để cho nó ko hiện form lên mà hiên File Excel lên xong Bấm Alt+F11 mà coi code thôi....hay làm theo cách khác...
 
Upvote 0
kieu manh đã viết:
Nếu File mình đã chạy Macros lần đầu tiên rồi thì lần sau mở lên là nó tự đông chạy ....đổi tên file để cho nó ko hiện form lên mà hiên File Excel lên xong Bấm Alt+F11 mà coi code thôi....hay làm theo cách khác...
Nhấp chuột vào đây để mở rộng...

Vào macro setting, trong 4 mục chọn mục đầu tiên đó! Không cho thông báo, không chạy macro...
 
Upvote 0
kieu manh đã viết:
Cạn nhưng Bùm lầy mấy mét thì cũng tèo thui.........--=0
Phải nói là mới nghe nhạc bằng file của Nghĩa mình sít ngủ gật....
Nhấp chuột vào đây để mở rộng...

Định là thêm 1 cái ComboBox thay cho cái TextBox địa chỉ file, cứ mỗi thư mục chứa nhạc gán lên thì nó add vào đó, chừng nào sử dụng thì chỉ việc chọn trong list thôi.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Định là thêm 1 cái ComboBox thay cho cái TextBox địa chỉ file, cứ mỗi thư mục chứa nhạc gán lên thì nó add vào đó, chừng nào sử dụng thì chỉ việc chọn trong list thôi.
Nhấp chuột vào đây để mở rộng...
Thêm vậy hay đó... nó lưu lại Folder nhạc mình từng nghe... Buồn Buồn ngồi nghe lại .... mình hay thích nghe nhạc trịnh vào lúc buồn thấy ngủ ngon ghê...
 
Upvote 0
kieu manh đã viết:
Thêm vậy hay đó... nó lưu lại Folder nhạc mình từng nghe... Buồn Buồn ngồi nghe lại .... mình hay thích nghe nhạc trịnh vào lúc buồn thấy ngủ ngon ghê...
Nhấp chuột vào đây để mở rộng...
Có vẻ ham ngủ ghê ta! --=----=----=--. Mới làm vài ve, tí nữa quỡn sẽ viết thêm vài chi tiết nữa là xong ngay chứ gì!
 
Upvote 0
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Bổ sung một tí hoa hòe hoa sói: Thời lượng, Vị trí của một bản nhạc.Tải file VBA_Player_V.4 tại bài số 1 của topic này!
Nhấp chuột vào đây để mở rộng...
Có thể bổ sung thêm cái bitrate không. Biết đâu mỗi người một góp ý. Htn lại hoàn thành tốt ứng dụng. Có khi mai mốt đem đi thi với những soft chơi nhạc chuyên nghiệp lại đạt giải nhất thì sao. Khà khà
 
Upvote 0
Lê Duy Thương đã viết:
Có thể bổ sung thêm cái bitrate không. Biết đâu mỗi người một góp ý. Htn lại hoàn thành tốt ứng dụng. Có khi mai mốt đem đi thi với những soft chơi nhạc chuyên nghiệp lại đạt giải nhất thì sao. Khà khà
Nhấp chuột vào đây để mở rộng...

Cái "bitrate" là cái gì hả bạn hiền?
 
Upvote 0
Upvote 0
Upvote 0
Lê Duy Thương đã viết:
Có thể bổ sung thêm cái bitrate không. Biết đâu mỗi người một góp ý. Htn lại hoàn thành tốt ứng dụng. Có khi mai mốt đem đi thi với những soft chơi nhạc chuyên nghiệp lại đạt giải nhất thì sao. Khà khà
Nhấp chuột vào đây để mở rộng...
Không biết cái BITRATE nó giúp gì được cho Lê Duy Thương, tuy nhiên nếu muốn ta có thể thêm cái đó.

Mã: 
Bitrate = objPlayer.CurrentMedia.GetItemInfo("bitrate")
Bitrate = Round(Val(Bitrate) / 1024, 2)

Với cấu trúc trên thì Bitrate = 125 khi chơi nhạc MP3. Ta sẽ làm gì với nó đây?
 
Upvote 0
Bitrate là chất lượng âm thanh đó
Có cái đó khi chơi nhạc khỏi cần kiểm tra thông tin bài hát.
Ví dụ âm thanh mp3 thông thường hiện nay là 128kbs có loại mp3 la 320kbs
 
Upvote 0
Update file mới nhất: VBA_Player_V.5.xla

attachment.php


Cập nhật các mục:

- Tạo file AddIn để chạy nhạc, không tự động show form, tạo ToolBar trên Menu hoặc Ribbon, muốn chơi thì click.

attachment.php


- ComboBox list các thư mục chứa nhạc, tự động xóa những thư mục không chứa nhạc *mp3

- Bài đang hát - Tên ca sĩ

- Thanh trạng thái vị trí bản nhạc, kéo phải kéo trái nhạc sẽ chạy ở vị trí đó.

- Bit rate.

Xem bản mới nhật tại bài #1 của topic này!​
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Update file mới nhất: VBA_Player_V.5.xla

attachment.php


Cập nhật các mục:

- Tạo file AddIn để chạy nhạc, không tự động show form, tạo ToolBar trên Menu hoặc Ribbon, muốn chơi thì click.

attachment.php


- ComboBox list các thư mục chứa nhạc, tự động xóa những thư mục không chứa nhạc *mp3

- Bài đang hát - Tên ca sĩ

- Thanh trạng thái vị trí bản nhạc, kéo phải kéo trái nhạc sẽ chạy ở vị trí đó.

- Bit rate.

Xem bản mới nhật tại bài #1 của topic này!​
Nhấp chuột vào đây để mở rộng...
Hay Ghê .--=----=----=--... hôm nào dạo chơi qua bình dương làm vài chai .... xong chỉ cho Mạnh vài khúc nha.....--=--
Vừa Bán Hàng vừa nghe nhạc hay quá lỡ ngủ quên mấy tay đạo chích vào thì Tèo-=.,,
 

File đính kèm

  • Capture.jpg
    Capture.jpg
    33.9 KB · Đọc: 35
Lần chỉnh sửa cuối:
Upvote 0
Bác Hoàng Trọng Nghĩa thay cái Scrool bar thành cái gì đó cho đẹp chứ nhìn cái đó xấu quá
 
Upvote 0
quyenpv đã viết:
Bác Hoàng Trọng Nghĩa thay cái Scrool bar thành cái gì đó cho đẹp chứ nhìn cái đó xấu quá
Nhấp chuột vào đây để mở rộng...
Thay cũng không khó, nhưng để tạo sự kiện cho nó mới khó! Ta cứ có gì chơi cái đó, màu mè quá nó không còn "thuần" VBA của Excel.
 
Upvote 0

File đính kèm

  • Stop.jpg
    Stop.jpg
    140 KB · Đọc: 22
  • Play.jpg
    Play.jpg
    141.1 KB · Đọc: 22
Upvote 0
quyenpv đã viết:
Quá ác! Trưng ra cho thiên hạ ngó .... mà không cho xơi sao
Nhấp chuột vào đây để mở rộng...
Nếu trưng ra thì giao diện sẽ như thế này đây |||||||||||||||:

Trạng thái chưa chơi nhạc:

attachment.php


Trạng thái đang chơi nhạc:

attachment.php


Đó, thanh trượt muốn kéo đi đâu thì nhạc theo đó, click bất cứ vị trí nào trên thanh đó thì "hạt đậu đỏ" nó chạy tới đó và chơi nhạc ở đó.
 

File đính kèm

  • Play2.jpg
    Play2.jpg
    99.7 KB · Đọc: 37
  • Stop2.jpg
    Stop2.jpg
    104.9 KB · Đọc: 36
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Nếu trưng ra thì giao diện sẽ như thế này đây |||||||||||||||:

Trạng thái chưa chơi nhạc:

attachment.php


Trạng thái đang chơi nhạc:

attachment.php


Đó, thanh trượt muốn kéo đi đâu thì nhạc theo đó, click bất cứ vị trí nào trên thanh đó thì "hạt đậu đỏ" nó chạy tới đó và chơi nhạc ở đó.
Nhấp chuột vào đây để mở rộng...
Kết giao diện này rồi đó a, Public đi anh ơi
 
Upvote 0
Bác Hoàng Trọng Nghĩa lại trốn nữa rồi
--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0--=0
 
Upvote 0
quyenpv đã viết:
Bác Hoàng Trọng Nghĩa lại trốn nữa rồi
Nhấp chuột vào đây để mở rộng...
Trốn gì, đang thiết kế chơi tùy chọn. Sau khi chọn lựa trên List thì chỉ chơi những bài hát đó thôi.

Apple nó muốn ra một phiên bản mới nó cũng hé hé một thời gian huống hồ chi là Nghĩa đẹp trai!--=0|||||
 

File đính kèm

  • PlayOpt.jpg
    PlayOpt.jpg
    117.6 KB · Đọc: 31
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Trốn gì, đang thiết kế chơi tùy chọn. Sau khi chọn lựa trên List thì chỉ chơi những bài hát đó thôi.

Apple nó muốn ra một phiên bản mới nó cũng hé hé một thời gian huống hồ chi là Nghĩa đẹp trai!--=0|||||
Nhấp chuột vào đây để mở rộng...

Muốn đẹp mình nghĩ nên dùng DialogSheet chứ UserForm và mấy Controls của nó thì dù làm kiểu gì vẫn cứ.. xấu hoắc
Với DialogSheet, ta có thể dùng đối tượng Shape tha hồ mà vẽ vời, tô màu, hiệu ứng 3D... vân vân.. (theo kiểu giao diện bóng bẩy của Windows 7 cũng được nữa là...)
 
Upvote 0
ndu96081631 đã viết:
Muốn đẹp mình nghĩ nên dùng DialogSheet chứ UserForm và mấy Controls của nó thì dù làm kiểu gì vẫn cứ.. xấu hoắc
Với DialogSheet, ta có thể dùng đối tượng Shape tha hồ mà vẽ vời, tô màu, hiệu ứng 3D... vân vân.. (theo kiểu giao diện bóng bẩy của Windows 7 cũng được nữa là...)
Nhấp chuột vào đây để mở rộng...
Nhưng em chưa thiết kế trên DialogSheet bao giờ, và nếu sử dụng nó có làm Addins được không Thầy? Thầy thử làm một ví dụ trên DialogSheet có ListBox, có CheckBox và những câu lệnh như thế nào, em sẽ theo đó thiết kế một form hoàn chỉnh ạ.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Nhưng em chưa thiết kế trên DialogSheet bao giờ, và nếu sử dụng nó có làm Addins được không Thầy?
Nhấp chuột vào đây để mở rộng...
Sao không được! Lúc gọi thì nó show lên như UserForm thôi
Hoàng Trọng Nghĩa đã viết:
Thầy thử làm một ví dụ trên DialogSheet có ListBox, có CheckBox và những câu lệnh như thế nào, em sẽ theo đó thiết kế một form hoàn chỉnh ạ.
Nhấp chuột vào đây để mở rộng...
Thử file DialogSheet_CreateControls.xls đính kèm dưới đây. File này nó dùng code vẽ các Controls luôn
Lưu ý code trong file có đoạn:
Mã: 
.....................
With dlgDate
    .Name = DateDialog
    [COLOR=#ff0000].Visible = xlSheetHidden[/COLOR]
  ............................
      MsgBox "No date was selected.", 64, "You clicked Cancel."
    End If
    Application.DisplayAlerts = False
    [COLOR=#ff0000].Delete[/COLOR]
    Application.DisplayAlerts = True
    
  End With 
End Sub
Muốn xem form nó hình dáng thế nào thì bỏ đoạn màu đỏ, chạy code xong sẽ thấy
--------------------
Ngoài ra cũng có 1 số file do tôi tự thiết kế, gửi luôn cho Nghĩa tham khảo (thấy cũng dễ ẹc)
---------------
Tham khảo chỗ này để biết cách thiết lập thuộc tính cho các Controls:
http://www.giaiphapexcel.com/forum/showthread.php?31515-Tạo-Form-bằng-DialogSheet
 

File đính kèm

Upvote 0
ndu96081631 đã viết:
Sao không được! Lúc gọi thì nó show lên như UserForm thôi

Thử file DialogSheet_CreateControls.xls đính kèm dưới đây. File này nó dùng code vẽ các Controls luôn
Lưu ý code trong file có đoạn:
Mã: 
.....................
With dlgDate
    .Name = DateDialog
    [COLOR=#ff0000].Visible = xlSheetHidden[/COLOR]
  ............................
      MsgBox "No date was selected.", 64, "You clicked Cancel."
    End If
    Application.DisplayAlerts = False
    [COLOR=#ff0000].Delete[/COLOR]
    Application.DisplayAlerts = True
    
  End With 
End Sub
Muốn xem form nó hình dáng thế nào thì bỏ đoạn màu đỏ, chạy code xong sẽ thấy
--------------------
Ngoài ra cũng có 1 số file do tôi tự thiết kế, gửi luôn cho Nghĩa tham khảo (thấy cũng dễ ẹc)
---------------
Tham khảo chỗ này để biết cách thiết lập thuộc tính cho các Controls:
http://www.giaiphapexcel.com/forum/showthread.php?31515-Tạo-Form-bằng-DialogSheet
Nhấp chuột vào đây để mở rộng...
Đẹp thì có đẹp, nhưng tùy chỉnh quá khó.

Không cho Insert Shape trực tiếp lên sheet, phải tạo ở sheet khác rồi copy qua. Không cho insert hay paste hình ảnh vào.

ListBox chỉ có 1 cột được hiển thị.

Rối rắm quá, không chơi với trò này đâu Thầy ơi.
 

File đính kèm

  • DialogSheet.jpg
    DialogSheet.jpg
    39.2 KB · Đọc: 34
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Đẹp thì có đẹp, nhưng tùy chỉnh quá khó.

Không cho Insert Shape trực tiếp lên sheet, phải tạo ở sheet khác rồi copy qua. Không cho insert hay paste hình ảnh vào.

ListBox chỉ có 1 cột được hiển thị.

Rối rắm quá, không chơi với trò này đâu Thầy ơi.
Nhấp chuột vào đây để mở rộng...

Thì cái ListBox mà Nghĩa đang dùng cũng có 1 cột chứ mấy (vì thấy dùng 1 cột nên tôi mới gợi ý DialogSheet đó chứ)
 
Upvote 0
ndu96081631 đã viết:
Thì cái ListBox mà Nghĩa đang dùng cũng có 1 cột chứ mấy (vì thấy dùng 1 cột nên tôi mới gợi ý DialogSheet đó chứ)
Nhấp chuột vào đây để mở rộng...
Nhưng còn nhiều thứ để làm đẹp lắm, như phông chữ, màu chữ hay những thứ hoa hòe hoa sói khác làm không tiện chút nào cả Thầy ơi. Chắc em không nghiên cứu em này đâu hihihihi.
 
Upvote 0
Cập nhật Version mới đi anh Nghĩa ơi!
 
Upvote 0
quyenpv đã viết:
Cập nhật Version mới đi anh Nghĩa ơi!
Nhấp chuột vào đây để mở rộng...
Không được viết tiếp bài nào thuộc dạng này nữa nha bạn!
Tôi đã xóa 5, 6 bài thuộc dạng hối thúc của bạn rồi
Người ta có tiếp tục viết hay không là chuyện của người ta (tùy hứng) và không có bất cứ ràng buộc nào cho việc phải viết để bạn xài cả
 
Upvote 0
Tại e cũng đang tìm và vọc cái này thì gắp đúng anh Nghĩa up thấy hay quá anh! Ngồi vọc mà mãi không được ạ em up file đang nghịch lên
 

File đính kèm

Upvote 0
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (1 người xem)
Trả lời
9
Đọc
425
Gà Con yêu VBA
Gà Con yêu VBA
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
46
Đọc
7K
thuytrangbp28
T
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
15
Đọc
2K
anhdepjai
A
T
[Giúp đỡ] Sửa lỗi runtime error 1004 application defined or object defined (1 người xem)
Trả lời
2
Đọc
92
tmhung0805
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
280
Đọc
35K
hoangtuan.net
hoangtuan.net
M
  • Question Question
[Hỏi cách tạo VBA] - Xin các cao nhân chỉ giúp cách tạo VBA cho công việc thuận tiện hơn
Trả lời
5
Đọc
218
SA_DQ
SA_DQ
dongbhhg
Hàm đếm số lượng trong khoảng thời gian cho trước (1 người xem)
Trả lời
6
Đọc
155
thanthanhan
thanthanhan
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (7 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
399
Đọc
47K
BlueSphere
B
N
Tạo file lưu trữ dữ liệu tự động trên excel.
Trả lời
12
Đọc
282
DeTong
D
D
  • Đã khóa
lọc các ô trong một cột chứa một nhóm dữ liệu? mong các cao thủ giải đáp giúp mình (1 người xem)
Trả lời
6
Đọc
167
ptm0412
ptm0412
S
cần xử lý dữ liệu trùng nhau bằng VBA (1 người xem)
    • Cười
Trả lời
9
Đọc
255
HUONGHCKT
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (1 người xem)
Trả lời
27
Đọc
25K
Anh2207
A
P
In file excel có cột bị gộp
Trả lời
0
Đọc
57
ple28
P
N
  • Question Question
Tạo file lưu trữ dự liệu tự động
Trả lời
8
Đọc
247
le_vis
L
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (1 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
565
ongke0711
ongke0711
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn
Trả lời
3
Đọc
171
HieuCD
H
D
in ra bị thiếu chữ
Trả lời
4
Đọc
141
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng
Trả lời
1
Đọc
116
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN
Trả lời
2
Đọc
104
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom