tuananhya2
Thành viên mới
- Tham gia
- 18/8/12
- Bài viết
- 8
- Được thích
- 0
Co ai chỉ dùm cách tạo pass marco với
Hỏi nhanh - Đáp nhanh về macro (dành cho các thành viên mới học lập trình)
- Thread starter tuananhya2
- Ngày gửi
Thành viên mới
Đây chỉ có 40 mã nếu có nhiều hơn thì sao????
Tìm đọc tài liệu về lệnh SELECT CASE...
huuu
Không hiểu. Hỏi thì chịu khó viết cho rõ ràng. Nửa nạc nửa mỡ là thế nào?
thanks
Cái nào không có tiếng Việt thì hãy dùng ngoại lai. Tập tành thói quen lai căng thì có gì là hay.
Tổng quan: code có hằng trăm nơi dùng mã cứng (hardcode). Code này gặp bảng sửa môt tí là viết lại lộn tùng phèo hết trơn. Thảo nào nghe bà con than thở "khổ nhất là khi gặp người dùng chèn thêm cột"
Upvote
0
Add là "thêm vào". Ta thêm 1 key và 1 item tương ứng với nó. Tức thêm vào 1 cặp (key, item). Người ta không cần item (trong phần tiếp theo của code) nên người ta nhập item = "" (chuỗi rỗng). Người khác cần trong phần tiếp theo thì nhập item = k (số)
Nhiều khi bạn có một loạt tương quan "key - item" và khi có 1 key (từ khóa) nào đó bạn muốn đọc ra item tương ứng với nó. Lúc đó thì khi gọi Add bạn phải nhập key và item tương ứng với nó.
Giả sử bạn có dữ liệu từ điển ở dạng tập tin txt: có 10000 dòng, mỗi dòng có cấu trúc vd. [từ]TAB[nghĩa của từ]. Vd. loveTABtình yêu (TAB là ký tự có code = 9 - phím TAB)
Bây giờ code của bạn đọc vào: UserForm có 1 ListBox hiển thị các từ, và nếu chọn từ nào thì sẽ hiển thị nghĩa tiếng Việt của từ đó trong TextBox. Bạn làm thế nào. Giả sử bạn muốn dùng "đít thon". Thế thì khi Add bạn không chỉ chỉ ra "từ - key - từ khóa" mà phải chỉ ra cả "item - nghĩa của từ" nữa. Vậy thì bạn đọc tập tin txt --> tách mỗi dòng thành [từ] và [nghĩa] --> dic.Add [từ], [nghĩa] --> thêm từ vào ListBox.
Khi người ta chọn trong ListBox thì bạn đọc ra được [từ] --> bạn dùng dic.item("key") để đọc ra item là nghĩa để "nhồi" vào TextBox.
Ngoài việc làm từ điển thì bạn cũng có thể làm vd. "sách nấu ăn": key = tên món ăn", item = nguyên liệu, cách nấu. Sổ điện thoại: key = họ tên, item = địa chỉ, số dđ v...v
Chính vì để lưu trữ key (từ khóa) - item (giá trị), cấu trúc như từ điển mà "nó" có tên là Dictionary.
Upvote
0
Let'GâuGâu
Thành viên mới
- Tham gia
- 12/9/13
- Bài viết
- 3,131
- Được thích
- 2,731
cám ơn anh nhiều, để "tiêu hóa" được những điều anh giải thích, chắc là còn một quảng đường rất dài phía trước....
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Hãy tưởng tưởng 1 bảng tra cứu dùng cho hàm VLOOKUP gồm có 2 cột. Vậy cột đầu tiên đương nhiên là từ khóa để tra (Với dic thì nó là Key). Cột thứ 2 là giá trị cần tra cứu
Khi bạn dùng VLOOUP thì cái bảng tra ấy có sẵn, còn với Dictionary, hãy tưởng tượng rằng bảng tra ấy chưa có và ta đang xây dựng nó bằng cách nạp Dic vào 2 cột
Cú pháp nạp Dictionary là: Dic.Add Key, Item
Theo quy định của Dic thì Key không cho phép trùng, còn Item thì là cái giống gì cũng được.
Mỗi lần bạn nạp Dic thì Key là bắt buộc phải có còn Item là tùy ý. Nếu bạn không muốn dùng Item vào việc gì sau này thì cứ cho nó = ""
Sau khi đã náp xong Dic, xem như đã có bảng tra thì ta có thể truy xuất nó gần giống như hàm VLOOKUP: Dic.Item(Key) với Key là từ khóa để tra và kết quả tra về là Item tương ứng với Key (lúc trước ta đã nạp 1 cặp)
Vậy, nếu cần Item thì nạp vào, sau này có thể truy xuất ra để xài, không cần thì khỏi nạp (cho nó = ""), và khi ấy ta dùng Dic như 1 dạng bài toán lọc duy nhất mà thôi
Lần chỉnh sửa cuối:
Upvote
0
Các bác có cách nào giúp em: Viết 1 hàm Excel để nó làm các công việc sau: Copy rồi Paste-Special-Value và Save file theo 1 khoảng thời gian chọn trước.
Ví dụ cụ thể: Ở ô C1 ta có hàm Pastevalue(A$1,$B$1) là làm việc sau: Nếu điều kiện A$1 thoả mãn thì copy ô $B$1 rồi paste-special-value vào ô C1 rồi save file. A$1 là 1 điều kiện thời gian (như 15-23 giờ ngày 21/2/2014 chẳng hạn), nếu hiện tại trước thời điểm này thì giá trị ở C1 = 0, sau thời điểm này thì hiển thị giá trị đã có lúc hàm chạy khi điều kiện thời gia A$1 thoả mãn.
Qua ô C2 ta có hàm Pastevalue(A$2,$B$1) và chạy tương tự.
Lưu ý rằng: Giá trị của B1 là thay đổi theo từng ngày nên cái mình cần ở C1, C2,... là giá trị cố định của $B$1 tại 1 thời điểm xác định trước thể hiện ở A1, A2,...
Mỗi khi mở file thì hàm tự động chạy hoặc nếu file đang mở rồi thì đến thời gian chọn trước hàm tự động chạy 1 lần!
Em cần hàm này vì e lấy data bảng giá chứng khoán từ web về và muốn nó lưu lại 1 số mã từng ngày để xử lý.
(em chưa biết j về macro, VBA,.. nên muốn biến những cái này thành hàm để xử lý cho đơn giản)
Ví dụ cụ thể: Ở ô C1 ta có hàm Pastevalue(A$1,$B$1) là làm việc sau: Nếu điều kiện A$1 thoả mãn thì copy ô $B$1 rồi paste-special-value vào ô C1 rồi save file. A$1 là 1 điều kiện thời gian (như 15-23 giờ ngày 21/2/2014 chẳng hạn), nếu hiện tại trước thời điểm này thì giá trị ở C1 = 0, sau thời điểm này thì hiển thị giá trị đã có lúc hàm chạy khi điều kiện thời gia A$1 thoả mãn.
Qua ô C2 ta có hàm Pastevalue(A$2,$B$1) và chạy tương tự.
Lưu ý rằng: Giá trị của B1 là thay đổi theo từng ngày nên cái mình cần ở C1, C2,... là giá trị cố định của $B$1 tại 1 thời điểm xác định trước thể hiện ở A1, A2,...
Mỗi khi mở file thì hàm tự động chạy hoặc nếu file đang mở rồi thì đến thời gian chọn trước hàm tự động chạy 1 lần!
Em cần hàm này vì e lấy data bảng giá chứng khoán từ web về và muốn nó lưu lại 1 số mã từng ngày để xử lý.
(em chưa biết j về macro, VBA,.. nên muốn biến những cái này thành hàm để xử lý cho đơn giản)
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,326
- Được thích
- 22,370
- Nghề nghiệp
- Nuôi ba ba & trùn quế
Ừ hen! Giờ mới chú í chuyện này;
Trong cửa sổ trung gian thì được;
Còn trong VBA tạm thời có cách đi đường vòng:
Trong cửa sổ trung gian thì được;
Còn trong VBA tạm thời có cách đi đường vòng:
PHP:
Function Can3(Num As Double) As Double
If Num >= 0 Then
Can3 = Num ^ (1 / 3)
Else
Can3 = -Abs(Num) ^ (1 / 3)
End If
End Function
Upvote
0
Application.Power(-2, 1 / 3)
Upvote
0
VB: Math.Pow(...)
Upvote
0
myluck
Thành viên mới
- Tham gia
- 24/3/08
- Bài viết
- 26
- Được thích
- 1
Bảng excel mình có nhiều giá trị cần ấn f2 rùi enter mới hiện giá trị. mà làm thủ công mất thời gian quá. Mình muốn một đoạn VBA làm mới giá trị trong excell, như ấn f2 rùi ấn enter
Do mới học VBA nên chưa biết nhiều nhờ các bác chỉ giúp.
Do mới học VBA nên chưa biết nhiều nhờ các bác chỉ giúp.
Upvote
0
hungpecc1
Thành viên gắn bó
- Tham gia
- 24/8/12
- Bài viết
- 1,702
- Được thích
- 2,300
- Giới tính
- Nam
Mã:
Sub GPE()
Dim cmdButton As OLEObject, rng As Range
Set rng = Application.InputBox("Nhap dia chi Cell", , , , , , , 8)
Set cmdButton = ActiveSheet.OLEObjects _
([COLOR=#ff0000][B]" TEN CUA COMMAND BUTTON "[/B][/COLOR])
With cmdButton
.Left = rng.Left
.Top = rng.Top
rng.RowHeight = .Height
End With
End Sub
Upvote
0
blackboy020115
Thành viên mới
- Tham gia
- 17/4/14
- Bài viết
- 4
- Được thích
- 0
Cho em hỏi làm sao để biết tên của shape ạ? Em mò thử cũng chỉ thấy tên của Macro gán vào thôi.
Upvote
0
blackboy020115
Thành viên mới
- Tham gia
- 17/4/14
- Bài viết
- 4
- Được thích
- 0
Thưa anh, em đã tạo 1 button như hình vẽ, nhưng khi chạy thử thì bị lỗi "Unable to get the OLEObjects property of the worksheet class", tại sao lại như vậy ạ? Hay do em nhập tên button sai? Em nhập tên Button là cái tên hiện ra trên button khi mới tạo luôn .
File đính kèm
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Điều này có nghĩa là: Bạn phải đưa file + code lên đây thì người ta mới biết, đúng không nào?
Upvote
0
