Đố vui về VBA!

anhtuan1066 · 30/12/07

Nhằm cũng cố kiến thức về VBA cho các bạn mới bắt đầu và cả những bạn đang ứng dụng mà chưa hiểu nhiều về nó, tôi mở topic này với mong mõi qua những câu hỏi vui, các bạn sẽ nhận định lại sự hiểu biết cũa mình... (Kễ cã chính tôi cũng đang tập tành nên có rất nhiều cái chưa biết)
Mong rằng topic sẽ mang đến cho các bạn những khám phá thú vị với những cái tưỡng chừng như đã biết
Mong nhận dc bài viết về câu đố cũa các cao thủ! Còn các bạn mới thì đừng ngại khi đưa ra ý kiến cũa mình.. Có sai có sữa sẽ hoàn thiện!
Tôi xin mỡ màn trước bằng 1 câu hỏi đơn giãn
ANH TUẤN

CÂU HỎI 1: Tại sao biến K ko hoạt động?
Tôi muốn khi nhấn vào 1 button thì cell A1 sẽ tăng lên 1 đơn vị... Tôi đã làm như sau:
-Tạo 1 Command Button (nút nhấn thuộc thanh Control Toolbox), click phải chuột lên nút nhấn, chọn View code, rồi gõ vào đoạn code sau:

PHP:

Private Sub CommandButton1_Click()
   K = K + 1
   Range("A1").Value = K
End Sub

Ban đầu K chưa có gì, xem như =0, nhấn nút lần thứ nhất thì K dc tăng thêm 1, vậy K hiện tại sẽ bằng 1, và gán K vào cell A1 thì đương nhiên A1 sẽ =1... Nhấn nút lần 2, K lại dc tăng thêm 1 nên hiện tại K sẽ =2 và cell A1 cũng sẽ =2... vân vân.. từ đó diễn tiến tiếp...
Hi.. hi.. Điều này nghe qua có vẽ rất hợp lý, ấy thế mà khi nhấn nút nó chỉ hoạt động dc duy nhất 1 lần (A1 = 1) rồi thôi ko nhút nhít nữa...
Các bạn có thể giãi thích tại sao lại như thế ko? Tại sao những lần nhấn nút sau đó K lại ko tăng thêm tí nào (vì thực tế A1 vẫn cứ = 1 hoài) ?
ANH TUẤN

leonguyenz · 2/5/19

huuthang_bd đã viết:
Thêm câu nữa: Chia 1 cột thành nhiều cột không dùng vòng lặp, không dùng công thức (Viết code để thực hiện giống như file đính kèm mà không dùng vòng lặp, không dùng công thức)

Đã vò đầu bứt tóc mấy giờ chưa tìm được thuật toán.
Hóng.

snow25 · 2/5/19

leonguyenz đã viết:
Đã vò đầu bứt tóc mấy giờ chưa tìm được thuật toán.
Hóng.

Chắc đợi lời giải thôi.Anh leonguyenz.

huuthang_bd · 3/5/19

snow25 đã viết:
Chắc đợi lời giải thôi.Anh leonguyenz.

Vô tình phát hiện và cũng không hiểu vì sao nó lại hoạt động như vậy luôn.
Nếu suy nghĩ một cách thông thường chắc không thể nào có đáp án cho câu đố này

leonguyenz · 3/5/19

huuthang_bd đã viết:
Vô tình phát hiện và cũng không hiểu vì sao nó lại hoạt động như vậy luôn.
Nếu suy nghĩ một cách thông thường chắc không thể nào có đáp án cho câu đố này

Hay thật, tại sao đổ dữ liệu mảng xuống Range không theo quy tắc kích thước như vậy nhỉ?
Do Redim Preserve?
Chưa hiểu được cái này: Range(C1,C1:S6).Value = Mang, ai giải thích giùm.

Kiều Mạnh · 3/5/19

huuthang_bd đã viết:
Vô tình phát hiện và cũng không hiểu vì sao nó lại hoạt động như vậy luôn.
Nếu suy nghĩ một cách thông thường chắc không thể nào có đáp án cho câu đố này

Mạnh thấy hay đó ... Ứng dụng viết cái Hàm Co và Giản phù hợp đấy !!!

huuthang_bd · 3/5/19

leonguyenz đã viết:
Hay thật, tại sao đổ dữ liệu mảng xuống Range không theo quy tắc kích thước như vậy nhỉ?
Do Redim Preserve?
Chưa hiểu được cái này: Range(C1,C1:S6).Value = Mang, ai giải thích giùm.

Theo mình thấy thì khi gán dữ liệu bằng cú pháp như vậy thì vùng thứ hai (C1:S6) sẽ có kết quả như vậy, vùng phía trước sẽ có kết quả bình thường, ô C1 trước dấu phẩy để vào để làm "chân gỗ" thôi.

namkpac · 4/12/19

anhtuan1066 đã viết:

Cũng đơn giản thôi! Thuật toán dựa vào hàm FILES của macro4, nó có khả năng lấy list file trong 1 thư mục mà không cần vòng lập:

PHP:

Sub ConsolMutiFiles(Folder As String, ShName As String, SrcRng As String, Target As Range)
  Dim Temp As String
  Temp = ShName & "'!" & Range(SrcRng).Address(, , 2)
  If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
  ActiveWorkbook.Names.Add "Arr", "=""'" & Folder & "[""&Files(""" & Folder & "*.*"")&""]" & Temp & """"
  Target.Consolidate Evaluate("Arr"), 9, 0, 1
  ActiveWorkbook.Names("Arr").Delete
End Sub

PHP:

Sub Test()
  Dim Folder As String, ShName As String, SrcRng As String
  Range("A2:B1000").ClearContents
  With CreateObject("Shell.Application")
    On Error Resume Next
    Folder = .BrowseForFolder(0, "", 1).Self.Path
  End With
  ShName = "Sheet1": SrcRng = "A2:B30"
  ConsolMutiFiles Folder, ShName, SrcRng, Range("A2")
End Sub

Vụ bẩy lỗi gì đó các bạn tự làm nha!

Cho em hỏi trường hợp ví dụ của em thì code thế nào anh? vì chạy ghi macro thì có nhưng để tối ưu hóa thành code thì chưa được, các anh, chị giúp em xem bài với!

vanaccex · 4/12/19

leonguyenz đã viết:
Đã vò đầu bứt tóc mấy giờ chưa tìm được thuật toán.75
Hóng.
76i[B]i[/B][/5]

o0phantom0o · 17/2/20

tigertiger đã viết:
Gợi ý một chút, vậy những lúc nào thì K=0? hay là lun lun K=0? hay giá trị nó thế nào???

Cho K=0 khi mình dùng nút xóa để ô A1 về trạng thái ban đầu =0
Sub clear()

K = 0
Range("a1").clear

End Sub

huuthang_bd · 22/5/21

Được bữa thứ 7 không có gì làm, thôi thư giãn tí.
--
Thông báo trong code bên dưới có thể xuất hiện không? Cho ví dụ.

Mã:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Not Sh Is ActiveSheet Then MsgBox "!@#$%"
End Sub

Ngô Hải Đăng · 22/5/21

huuthang_bd đã viết:
Được bữa thứ 7 không có gì làm, thôi thư giãn tí.
--
Thông báo trong code bên dưới có thể xuất hiện không? Cho ví dụ.

Mã:

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Not Sh Is ActiveSheet Then MsgBox "!@#$%" End Sub

Xuất hiện nếu như tại 1 sheet bất kỳ trong Workbook đó ta thêm code này, rồi chọn sheet đó.

Mã:

Private Sub Worksheet_Activate()
  Me.Visible = xlSheetHidden
End Sub

huuthang_bd · 22/5/21

Ngô Hải Đăng đã viết:
Xuất hiện nếu như tại 1 sheet bất kỳ trong Workbook đó ta thêm code này, rồi chọn sheet đó.

Mã:

Private Sub Worksheet_Activate() Me.Visible = xlSheetHidden End Sub

Cũng coi như là 1 đáp án. Nhưng sử dụng cùng 1 sự kiện như vậy cũng giống như viết thêm code vào (như code bên dưới) thì chưa "vui" lắm

Mã:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Then Sh.Visible = xlSheetHidden
    If Not Sh Is ActiveSheet Then MsgBox "!@#$%"
End Sub

Hoàng Trọng Nghĩa · 19/1/23

Cũng đã lâu rồi, topic này không thấy hoạt động, giờ mình khởi động lại cho vui xuân nhé.
Câu đố này có lẽ đơn giản với một số người, nhưng cũng sẽ khó khăn cho đa số người nè.

Tôi có một TextBox trên UserForm, bằng thuật toán nào, thủ tục nào, sự kiện nào để khi tôi gõ phím nó chỉ ra đúng 1 ký tự dù có nhấn lâu phím đó.

Lưu ý, không phải gõ một ký tự mà gõ bao nhiêu cũng được, nhưng mỗi lần gõ dù có bị kẹt phím (nhấn lâu) nó vẫn chỉ ra 1 ký tự mà thôi.

Xin mời.

Thóc Sama · 19/1/23

Hoàng Trọng Nghĩa đã viết:
Cũng đã lâu rồi, topic này không thấy hoạt động, giờ mình khởi động lại cho vui xuân nhé.
Câu đố này có lẽ đơn giản với một số người, nhưng cũng sẽ khó khăn cho đa số người nè.

Tôi có một TextBox trên UserForm, bằng thuật toán nào, thủ tục nào, sự kiện nào để khi tôi gõ phím nó chỉ ra đúng 1 ký tự dù có nhấn lâu phím đó.

Xin mời.

Em mò thế này

Mã:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.Text = Left(TextBox1.Text, 0)
End Sub

Hoàng Trọng Nghĩa · 19/1/23

THÓC SAMA đã viết:
Em mò thế này

Mã:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox1.Text = Left(TextBox1.Text, 0) End Sub

Rất OK, nhưng rất tiếc nó chỉ gõ được đúng 1 ký tự, các ký tự sau không gõ tiếp được! Ý mình là mỗi lần gõ dù có bị kẹt phím vẫn chỉ cho ra 1 ký tự thôi.

Thóc Sama · 19/1/23

Hoàng Trọng Nghĩa đã viết:
Rất OK, nhưng rất tiếc nó chỉ gõ được đúng 1 ký tự, các ký tự sau không gõ tiếp được! Ý mình là mỗi lần gõ dù có bị kẹt phím vẫn chỉ cho ra 1 ký tự thôi.

Em lại thêm 1 cách "tà đạo" này nữa
"Sự kiện Click CommandButton1"

Mã:

Private Sub CommandButton1_Click()
    Dim i&, txt$
    txt = Left(TextBox1.Text, 1)
    For i = 1 To Len(TextBox1.Text)
        If Mid(TextBox1.Text, i + 1, 1) <> Mid(TextBox1.Text, i, 1) Then
            txt = txt & Mid(TextBox1.Text, i + 1, 1)
        End If
    Next i
    TextBox1.Text = txt
End Sub

Hoàng Trọng Nghĩa · 19/1/23

THÓC SAMA đã viết:
Em lại thêm 1 cách "tà đạo" này nữa
"Sự kiện Click CommandButton1"

Mã:

Private Sub CommandButton1_Click() Dim i&, txt$ txt = Left(TextBox1.Text, 1) For i = 1 To Len(TextBox1.Text) If Mid(TextBox1.Text, i + 1, 1) <> Mid(TextBox1.Text, i, 1) Then txt = txt & Mid(TextBox1.Text, i + 1, 1) End If Next i TextBox1.Text = txt End Sub

Kakaka, đúng là "đông tà" thiệt, nhưng mình chỉ dùng 1 TextBox thôi, không có click mà chỉ gõ phím.

Thóc Sama · 19/1/23

Hoàng Trọng Nghĩa đã viết:
Kakaka, đúng là "đông tà" thiệt, nhưng mình chỉ dùng 1 TextBox thôi, không có click mà chỉ gõ phím.

Xời, em mò mãi vẫn chưa trúng, bác cho cái gợi ý coi.

Hoàng Trọng Nghĩa · 19/1/23

THÓC SAMA đã viết:
Xời, em mò mãi vẫn chưa trúng, bác cho cái gợi ý coi.

Vậy câu đố cũng không tồi hen. Giờ có mình bạn tham gia nên chưa có vui, để vài người tham gia cho nó xôm tụ. Gợi ý thời điểm này còn quá sớm.

ptm0412 · 19/1/23

THÓC SAMA đã viết:
Xời, em mò mãi vẫn chưa trúng, bác cho cái gợi ý coi.

Pờ ro pơ ty thì phải. Không cần thuật toán, sự kiện hay thủ tục nào luôn.

Đố vui về VBA!

Thành viên gạo cội

Thành viên gạo cội

Thành viên gạo cội

Chuyên gia GPE

File đính kèm

Thành viên gạo cội

I don't program, I beat code into submission!!!

Chuyên gia GPE

Thành viên thường trực

File đính kèm

Thành viên tiêu biểu

Thành viên mới

Chuyên gia GPE

Thành viên hoạt động

Chuyên gia GPE

Chuyên gia GPE

＿/＿/＿/＿/＿/＿/＿/

Chuyên gia GPE

＿/＿/＿/＿/＿/＿/＿/

Chuyên gia GPE

＿/＿/＿/＿/＿/＿/＿/

Chuyên gia GPE

Bad Excel Member

Facebook

Group