Đố 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

ChanhTQ@ · 29/5/09

Nó làm việc như thế này, còn tại sao thì chắc phải hỏi ngài BG thôi!

Ỳ tôi muốn nói đến trường hợp dử liệu cần tìm nằm ngay cell đầu tiên ấy
Và trong trường này Find làm việc ra sao?

Mình lập vùng dữ liệu sau:

A | B TN=TN/1.000 |
TN <6|0
TN <34|(TN-6)*150
TN <80|(34-6)*150 + (TN-34)*300
TN <150|4.200 + (80-34)*300+ (TN - 80)*400
150<TN|18.000 + (150-80)* 400 + (TN-150)* 45

Và cho chạy macro sau:

PHP:

Option Explicit
Sub FindFirst()
Dim Srng As Range, Rng As Range
Dim MyAdd As String, StrC As String
 
Set Rng = Range("A1:A20")
 
Set Srng = Rng.Find("TN", , xlFormulas, xlPart)
If Not Srng Is Nothing Then
    MyAdd = Srng.Address
    Do
        StrC = StrC & Srng.Address & " "
7       Set Srng = Rng.FindNext(Srng)
    Loop While Not Srng Is Nothing And Srng.Address <> MyAdd
    MsgBox Srng.Address, , StrC
End If
End Sub

Kết quả trên nút chữ OK là hai dòng sau:
$A$2 $A$3 $A$4 $A$5 $A$6 $A$1
$A$2

Còn nếu thay dòng lệnh 7 thành

Mã:

Set Srng = Rng.FindPrevious(Srng)

thì kết quả như sau
$A$2 $A$1 $A$6 $A$5 $A$4 $A$3
$A$2

Kiểu này giống như: Sinh con rồi mới sinh cha, sinh cháu giữ nhà rồi mới sinh ông.

anhtuan1066 · 30/5/09

Minh Nguyen đã viết:
Cái này của bác là hàm Chr(charcode), nó sẽ trả về kí tự tương ứng theo bảng mã ASCII. Công thức của bác phức tạp quá nhưng em biết nó ra tập hợp là "Hello World!"

Bạn có thể thí nghiệm bằng công thức như sau:
- Từ cell A2 đến A7, gõ lần lượt các số từ 0 đến 5
- Tại B2, gõ công thức:

PHP:

=B1&CHAR(ROUND((A2 * (A2 * (A2 * (A2 * (-0.75 * A2 + 7.2917) - 22.5) + 16.708) + 28.25) + 72),0))

kéo fill xuống đến B7
- Tại cell C2, gõ công thức:

PHP:

=C1&CHAR(ROUND((A2 * (A2 * (A2 * (A2 * (A2 * (0.425 * A2 - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87),0))

Kéo fill xuống đến C7
- Tại cell D7, gõ công thức: =B7&C7 ===> Và đây là kết quả cuối cùng
Đây chỉ là trò đùa vui thôi! Hi.. hi..

anhtuan1066 · 8/7/09

Consolidate có tổng hợp được dử liệu bài này không?

Hãy xem dử liệu tôi đang có:

Vùng màu vàng tôi dùng SUMIF để tính tổng... Các bạn hãy thử xem nếu bài này tôi làm bằng Consolidate (Hoặc Find method) thì có ra kết quả hay không?

anhtuan1066 · 17/10/09

Tôi có 1 câu hỏi mời các bạn tham khảo!
Giả sử có đoạn code như sau:

PHP:

Sub Test()
  Dim i As Long
  With Range("A:A")
    For i = 1 To 10
      .Cells(i) = i
      MsgBox .SpecialCells(4).Areas(1)(1).Address
    Next i
  End With
End Sub

Vấn đề là: Các bạn chạy code này ngay trong file đính kém dưới đây của tôi thì không có vấn đề, nhưng nếu các bạn copy code cho vào 1 file mới thì code lại báo lổi
???
Tại sao lại thế? --=0

concogia · 17/10/09

anhtuan1066 đã viết:
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

Mình thuộc loại gà mờ VBA nhưng rất thích và đang học, theo mình biến K là biến thông thương nên phải khai báo K như sau: STATIC K AS INTEGER. Hổng biết đúng hông nữa

TranThanhPhong · 17/10/09

anhtuan1066 đã viết:
Tôi có 1 câu hỏi mời các bạn tham khảo!
Giả sử có đoạn code như sau:

PHP:

Sub Test() Dim i As Long With Range("A:A") For i = 1 To 10 .Cells(i) = i MsgBox .SpecialCells(4).Areas(1)(1).Address Next i End With End Sub

Vấn đề là: Các bạn chạy code này ngay trong file đính kém dưới đây của tôi thì không có vấn đề, nhưng nếu các bạn copy code cho vào 1 file mới thì code lại báo lổi
???
Tại sao lại thế?

Anh Tuấn nghĩ ra mấy cái này vui thật!

Vào PB xem sẽ thấy?

Thanh Phong

anhtuan1066 · 17/10/09

ttphong2007 đã viết:
Anh Tuấn nghỉ ra mấy cái này vui thật!

Vào PB xem sẽ thấy?

Thanh Phong

Phong ơi mình chưa hiểu lắm. PB là cái gì vậy?

TranThanhPhong · 17/10/09

anhtuan1066 đã viết:
Phong ơi mình chưa hiểu lắm. PB là cái gì vậy?

Vào Page Break sẽ thấy Area (1)(1). Ô 999 có 1 space.

TTP

anhtuan1066 · 17/10/09

ttphong2007 đã viết:
Vào Page Break sẽ thấy Area (1)(1). Ô 999 có 1 space.

TTP

Thế này nhé:
- Phong chọn toàn bộ bảng tính, vào menu Edit\Clear\All
- Thế là chẳng còn cell nào rổng
Giờ chạy lại code xem, nó cũng đâu báo lổi gì
??? Hi... hi...

TranThanhPhong · 17/10/09

anhtuan1066 đã viết:
Thế này nhé:
- Phong chọn toàn bộ bảng tính, vào menu Edit\Clear\All
- Thế là chẳng còn cell nào rổng
Giờ chạy lại code xem, nó cũng đâu báo lổi gì
??? Hi... hi...

Anh làm như anh nói save file lại rồi mở file ra và chạy lại xem thế nào

!

TTP

loveforht87 · 17/10/09

tedaynui đã viết:
Em cũng tham gia tí :
Anh muốn biến K tăng thì Anh cần khai báo biến Public. Ví dụ :

PHP:

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

hoặc anh dùng cách sau (có khác đôi chút)

PHP:

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

TDN
</span></span>

Sao mình làm cách 1 không được, báo lỗi, còn cách 2 thì được. Lạ nhỉ?

anhtuan1066 · 17/10/09

ttphong2007 đã viết:
Anh làm như anh nói save file lại rồi mở file ra và chạy lại xem thế nào !

TTP

Ah.. vâng! Chổ tôi cần hỏi là chổ này đây!
Tại sao nó.. lại thế mới là vấn đề chứ?
Vậy chúng ta hiểu SpecialCells(xlCellTypeBlanks) chính xác là như thế nào đây?

Po_Pikachu · 17/10/09

Em nghĩ rằng cái SpecialCells(xlCellTypeBlanks) là vùng trống (của file đang lưu trên RAM) tính từ lúc bác chỉnh sữa dữ liệu trên file (hay nói cách khác là từ lúc mở file đến trước lúc lưu mới [Save; Save As]) đến trước khi lưu file lại. Vậy có ổn không?
Thân.

solomon2211 · 17/10/09

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

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

loveforht87 đã viết:
Sao mình làm cách 1 không được, báo lỗi, còn cách 2 thì được. Lạ nhỉ?

Cách 1 báo lỗi vì ngay từ lúc đầu, K bằng bao nhiêu làm sao biết được, nên K+1 sẽ không có kết quả.

anhtuan1066 · 17/10/09

Po_Pikachu đã viết:
Em nghĩ rằng cái SpecialCells(xlCellTypeBlanks) là vùng trống (của file đang lưu trên RAM) tính từ lúc bác chỉnh sữa dữ liệu trên file (hay nói cách khác là từ lúc mở file đến trước lúc lưu mới [Save; Save As]) đến trước khi lưu file lại. Vậy có ổn không?
Thân.

Tôi không dám chắc việc này, nhưng các bạn hãy cùng tôi làm 1 thí nghiệm nhé
- Xóa rổng cột A rồi chọn toàn bộ cột A này, bấm Ctrl + G\Special\Blanks: Excel báo lổi
- Xóa rổng cột A, gõ gì đó vào A1 rồi chọn toàn bộ cột A, bấm Ctrl + G\Special\Blanks: Excel vẫn báo lổi
- - Xóa rổng cột A, gõ gì đó vào A2 rồi chọn toàn bộ cột A, bấm Ctrl + G\Special\Blanks: Hết lổi
------------------------
Lưu ý quan trọng: Kể từ khi Excel hết báo lổi thì dù ta có làm gì (chẳng hạn lập lại các thao tác trên) nó cũng vẫn không còn báo lổi nữa
Sao lại thế chứ?

ptlong04x1 · 17/10/09

solomon2211 đã viết:
Cách 1 báo lỗi vì ngay từ lúc đầu, K bằng bao nhiêu làm sao biết được, nên K+1 sẽ không có kết quả.

Không phải bạn ạ, biến Public K kiểu integer sau khi khai báo sẽ có giá trị mặc định là 0 chứ, mình thử code 1 hoàn toàn bình thường, bạn trên làm không được chắc là do nhập code sai chỗ nào rồi.

Po_Pikachu · 17/10/09

anhtuan1066 đã viết:
Tôi không dám chắc việc này, nhưng các bạn hãy cùng tôi làm 1 thí nghiệm nhé
{B1}- Xóa rổng cột A rồi chọn toàn bộ cột A này, bấm Ctrl + G\Special\Blanks: Excel báo lổi
{B2}- Xóa rổng cột A, gõ gì đó vào A1 rồi chọn toàn bộ cột A, bấm Ctrl + G\Special\Blanks: Excel vẫn báo lổi
{B3}- Xóa rổng cột A, gõ gì đó vào A2 rồi chọn toàn bộ cột A, bấm Ctrl + G\Special\Blanks: Hết lổi
------------------------
Lưu ý quan trọng: Kể từ khi Excel hết báo lổi thì dù ta có làm gì (chẳng hạn lập lại các thao tác trên) nó cũng vẫn không còn báo lổi nữa
Sao lại thế chứ?

Bác làm các thao tác này liên tục trên 1 bảng tính thì tất nhiên nó phải vậy rồi. Vì ở {B1} và {B2} nó làm gì có ô rỗng. Rồi vào {B3} thì xuất hiện ô rỗng A1. Vậy là xong rồi.
Bác thử làm 3 bước này ở 3 bảng tính hoàn toàn mới xem. Có thể bỏ qua việc "Xóa rổng cột A" đi, vì bảng tính mới thì làm gì có dữ liệu đâu mà xóa chứ.

Mã:

[U]TH1:[/U]
[I]Mở bảng tính mới, nhập dữ liệu A1, rồi bấm[/I] [B]Ctrl + G\Special\Blanks[/B]: [B][I][COLOR=#ff0000]Excel báo lổi[/COLOR][/I][/B]

Mã:

[COLOR=#ff0000][I][COLOR=black][U]TH2:[/U][/COLOR][/I]
[I][COLOR=black]Mở bảng tính mới, nhập dữ liệu A2, rồi bấm [B]Ctrl + G\Special\Blanks: [/B][/COLOR][B][COLOR=red][I]Excel báo ô A1[/I][/COLOR][/B][/I][/COLOR]

Mã:

[/COLOR]
[COLOR=#ff0000][I][COLOR=black][U]TH3:[/U][/COLOR][/I]
[I][COLOR=black]Mở bảng tính mới, nhập dữ liệu A2, rồi xóa nó đi, rồi bấm [B]Ctrl + G\Special\Blanks: [/B][/COLOR][B][COLOR=red][I]Excel báo ô A1 và A2[/I][/COLOR][/B][/I][/COLOR]

Thậm chí bác có xóa luôn cột A ở TH3 thì Excel vẫn báo [A1:A2] rổng à. Vậy bác nghĩ sao về điều này?
Thân.

huuthang_bd · 17/10/09

Thử với code này xem. Dù có thao tác thế nào. Khi xóa hết dữ liệu rồi chạy code này cũng sẽ báo lỗi.

PHP:

Sub Text()
ActiveSheet.UsedRange.Select
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Select
End Sub

Theo tôi, SpecialCells(xlCellTypeBlanks) là những cell rỗng trong vùng bảng tính từ cell A1 đến Cell cuối cùng đã sử dụng. Bạn đã nhập liệu vào một cell nào đó, cho dù bạn có xóa nó đi thì cell đó vẫn được tính là cell đã sử dụng rồi. Nhưng khi đóng file hoặc sử dụng thuộc tính UsedRange thì cell cuối cùng đã sử dụng sẽ được xác định lại. Chỉ những cell thực sự được sử dụng mới tính là cell đã sử dụng.

anhtuan1066 · 18/10/09

huuthang_bd đã viết:
Thử với code này xem. Dù có thao tác thế nào. Khi xóa hết dữ liệu rồi chạy code này cũng sẽ báo lỗi.

PHP:

Sub Text() ActiveSheet.UsedRange.Select ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Select End Sub

Theo tôi, SpecialCells(xlCellTypeBlanks) là những cell rỗng trong vùng bảng tính từ cell A1 đến Cell cuối cùng đã sử dụng. Bạn đã nhập liệu vào một cell nào đó, cho dù bạn có xóa nó đi thì cell đó vẫn được tính là cell đã sử dụng rồi. Nhưng khi đóng file hoặc sử dụng thuộc tính UsedRange thì cell cuối cùng đã sử dụng sẽ được xác định lại. Chỉ những cell thực sự được sử dụng mới tính là cell đã sử dụng.

Vâng! Chính xác là thế này:
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks)
tương đương với
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
và
Range("... gì gì đó... ").SpecialCells(xlCellTypeBlanks)
tương đương với
Intersect(ActiveSheet.UsedRange,Range("... gì gì đó... ")).SpecialCells(xlCellTypeBlanks)
Chỉ thế thôi
Và các bạn khi dùng SpecialCells(4) phải hết sức cẩn thận về điều này

TrungChinhs · 18/10/09

anhtuan1066 đã viết:
Vâng! Chính xác là thế này:
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks)
tương đương với
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
và
Range("... gì gì đó... ").SpecialCells(xlCellTypeBlanks)
tương đương với
Intersect(ActiveSheet.UsedRange,Range("... gì gì đó... ")).SpecialCells(xlCellTypeBlanks)
Chỉ thế thôi
Và các bạn khi dùng SpecialCells(4) phải hết sức cẩn thận về điều này

Cảm ơn anhtuan1066! Tôi hay sử dụng SpecialCells(4) nhưng hôm nay mới biết điều này. Những thông tin từ bạn thật là hữu ích.

Đố vui về VBA!

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

0901452không62

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

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

File đính kèm

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

File đính kèm

Gội rồi mới Cạo

Ngày mai trời lại sáng!

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

Ngày mai trời lại sáng!

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

Ngày mai trời lại sáng!

Thành viên mới

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

Po_pikachu@ymail.com

Thành viên tích cực

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

Thành viên tích cực

Po_pikachu@ymail.com

Chuyên gia GPE

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

Thành viên tích cực

Facebook

Group