Hỏi nhanh - đáp nhanh về công thức (phần 1)

Status
Không mở trả lời sau này.

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,632
Được thích
17,609
Điểm
1,860
Đề bài: Tại các ô E1:I1 là giá trị tăng dần các ngày đầu của tháng (hiện hành)
Dùng VBA để tại các ô E3:I3 có các công thức tương ứng như ô H3 sau đây:
Mã:
[b]
=IF(WEEKDAY(H1)=1,"CN","T" & WEEKDAY(H1)) [/b]
Phần thưởng:
< 48 giờ: Bình đầy 'Bầu đá"
< 72 giờ: Nữa bình nêu trên
< Tuần : Vỏ bình nói trên
(Cái ni sẽ không gởi chuyển fát nhanh được!)
 

OverAC

Đỗ Nguyên Bình
Thành viên BQT
Administrator
Tham gia ngày
30 Tháng năm 2006
Bài viết
2,623
Được thích
14,273
Điểm
1,910
Nơi ở
Ho Chi Minh City, Vietnam
Bác ơi, bác có giới hạn phạm vi không vậy?
Một kiểu như thể lệ tham dự vậy đó mà. :)
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,632
Được thích
17,609
Điểm
1,860
Phạm vi ư? Giới hạn bỡi 2:

* Cần: Ham thích VBA;
* Đủ: Thích 'Bầu đá'!
||||| --=0 !$@!!
 

vungoc

Thành viên tiêu biểu
Tham gia ngày
2 Tháng tám 2006
Bài viết
633
Được thích
2,605
Điểm
860
Nơi ở
TPHCM
Em không thích "Bầu Đá" mà thích "Gò Đen" có được không bác SA.
 

anhphuong

Thân Thương
Tham gia ngày
12 Tháng ba 2007
Bài viết
515
Được thích
2,592
Điểm
860
Dùng CommandButon

SA_DQ đã viết:
* Cần: Ham thích VBA;
* Đủ: Thích 'Bầu đá'!
||||| --=0 !$@!!
Bác Sa ơi, gấp qúa, em chưa nghĩ ra cách gì ngoài dùng CommandButon. Bác xem giùm em nha

C1 :
Private Sub CommandButton1_Click()
Range("D3").Select
For i = 1 To 5
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = _
"=IF(WEEKDAY(R[-2]C)=1,""CN"",""T"" & WEEKDAY(R[-2]C))"
Next i
End Sub



C2 :
Private Sub CommandButton1_Click()
Range("E1").Select
For i = 1 To 5
If ActiveCell.Value <> 0 Then
ActiveCell.Offset(2, 0).FormulaR1C1 = _
"=IF(WEEKDAY(R[-2]C)=1,""CN"",""T"" & WEEKDAY(R[-2]C))"
ActiveCell.Offset(0, 1).Select
End If
Next i
End Sub



Còn nữa để em nghĩ tiếp rồi hầu bác sau. Chúc bác luôn "sống mãi với thời gian" hầu giúp nhiều người hơn nữa
 

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên danh dự
Tham gia ngày
16 Tháng tám 2006
Bài viết
3,814
Được thích
4,458
Điểm
860
Nhờ Anh chỉ giúp, em đang học VBA, nếu anh chỉ em sẽ mời ngược lại anh Bầu Đá + 2 đĩa mồi + Tráng miệng
Sub Gan_Thu()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

For i = 1 To 5
Cells(1, 4+i).Formula = "=DATE(YEAR(TODAY()),MONTH(TODAY())," & i & ")"
Cells(3, 4+ i).Formula = "=IF(WEEKDAY(R[-2]C)=1,""CN"",""Thu "" & WEEKDAY(R[-2]C))"
Next i

With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
 
Lần chỉnh sửa cuối:

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,632
Được thích
17,609
Điểm
1,860
Được rồi, quá hay!

(/ậy là đã giúp mình giải được rồi, hay quá!
/)/hưng đến 2 người có đáp án đúng; chắc phải chia giải ra làm hai mất: Người cái bình & người nhận rượu thôi;

Nếu bạn nào có thêm cách nữa, sẽ có thể chỉ nhận được sự cảm ơn & thông cảm!!!!--=0
 

vungoc

Thành viên tiêu biểu
Tham gia ngày
2 Tháng tám 2006
Bài viết
633
Được thích
2,605
Điểm
860
Nơi ở
TPHCM
Trời, tòan là cao thủ !!!
 

Mr Okebab

Ngon Ngất Ngây
Thành viên đã mất
Tham gia ngày
6 Tháng tám 2006
Bài viết
3,262
Được thích
3,766
Điểm
0
Tuổi
43
SA_DQ đã viết:
(/ậy là đã giúp mình giải được rồi, hay quá!
/)/hưng đến 2 người có đáp án đúng; chắc phải chia giải ra làm hai mất: Người cái bình & người nhận rượu thôi;

Nếu bạn nào có thêm cách nữa, sẽ có thể chỉ nhận được sự cảm ơn & thông cảm!!!!--=0
Vậy là em chậm chân rồi à ?? Tiếc thật.
 

anhphuong

Thân Thương
Tham gia ngày
12 Tháng ba 2007
Bài viết
515
Được thích
2,592
Điểm
860
Cho em gửi lại nha

SA_DQ đã viết:
(/ậy là đã giúp mình giải được rồi, hay quá!
/)/hưng đến 2 người có đáp án đúng; chắc phải chia giải ra làm hai mất: Người cái bình & người nhận rượu thôi;

Nếu bạn nào có thêm cách nữa, sẽ có thể chỉ nhận được sự cảm ơn & thông cảm!!!!--=0
Em ở xa quá không nhận được "quà" của bác, tiếc quá .Bác cho em gửi lại chỗ bác đến ngày 01/7 này đem ra chia vui nhé
 

Mr Okebab

Ngon Ngất Ngây
Thành viên đã mất
Tham gia ngày
6 Tháng tám 2006
Bài viết
3,262
Được thích
3,766
Điểm
0
Tuổi
43
SA_DQ đã viết:
Đề bài: Tại các ô E1:I1 là giá trị tăng dần các ngày đầu của tháng (hiện hành)
Dùng VBA để tại các ô E3:I3 có các công thức tương ứng như ô H3 sau đây:
Mã:
[B]
=IF(WEEKDAY(H1)=1,"CN","T" & WEEKDAY(H1)) [/B]
Phần thưởng:
< 48 giờ: Bình đầy 'Bầu đá"
< 72 giờ: Nữa bình nêu trên
< Tuần : Vỏ bình nói trên
(Cái ni sẽ không gởi chuyển fát nhanh được!)
Bác xem qua nhé :

PHP:
Sub RuouBauDa()
    Application.ScreenUpdating = False
    Dim i As Range
        For Each i In S01.Range("E3:I3")
            RBD = Application.WorksheetFunction.Weekday(i.Offset(-2, 0).Value)
            If RBD = 1 Then
                i.Value = "CN"
            Else
                i.Value = "T" & RBD
            End If
        Next
    Set i = Nothing
    Application.ScreenUpdating = True
End Sub
Chúc bác vui !!

Không có Bàu Đá thì tiếc nhỉ ??

[FONT=&quot]Đời chỉ đẹp khi tay cầm cốc rượu
Khắc tên em lên cổ cánh chân gà


hu hu hu
[/FONT]
 

OverAC

Đỗ Nguyên Bình
Thành viên BQT
Administrator
Tham gia ngày
30 Tháng năm 2006
Bài viết
2,623
Được thích
14,273
Điểm
1,910
Nơi ở
Ho Chi Minh City, Vietnam
Hỏi nhanh - đáp nhanh về công thức.

Trước nhu cầu về việc hỏi đáp các công thức, tôi lập ra topic này nhằm:
1. Đáp ứng nhu cầu hỏi nhanh một số công thức, các anh chị trong ban điều hành cố gắng giúp trả lời nhanh trong box này nhé.
2. Để nhận các bài post sai vị trí về đây (các bài post sai vị trí thường có thói quen xen giữa các bài đang thảo luận do vậy các bài đó nên nằm ở đây)

Một số vấn đề cần lưu ý với topic cho người hỏi và người trả lời.
1. Không chứa những vấn đề quá phức tạp. Nếu ai có nhu cầu phức tạp nên tạo topic riêng.
2. Thứ tự của các bài viết có thể bị đảo lộn. Người post câu hỏi phải tự cố tìm câu trả lời.
3. Người trả lời nên cảnh báo người hỏi nếu vấn đề không phải đơn giản.


Một vài ý kiến như vậy có thể sẽ bổ xung trong quá trình thực hiện.
 
Lần chỉnh sửa cuối:

kelangthang2005

Thành viên mới
Tham gia ngày
27 Tháng một 2007
Bài viết
7
Được thích
33
Điểm
0
Tuổi
41
Tìm hàm đếm các giá trị khác nhau trong 1 cột??

Cho mình hỏi : nếu muốn đếm có bao nhiêu giá trị khác nhau trong một cột thì phải làm thế nào..
ACE có cao kiến nào xin chỉ giáo.
Thanks all>>
 

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên danh dự
Tham gia ngày
16 Tháng tám 2006
Bài viết
3,814
Được thích
4,458
Điểm
860
Xin góp vui
=sum(1/countif(vùngđếm, vùngđếm))
Hàm này cũng có thể dùng như sau:
=sumproduct((1/countif(vùngđếm, vùngđếm))*1)
Lưu ý vùng đếm không có dữ liệu rỗng.
 

NBNguyen

Thành viên mới
Tham gia ngày
13 Tháng tám 2007
Bài viết
8
Được thích
2
Điểm
0
Hãy cho mình biết có công thức nào cho bộ số ngẫu nhiên mà không có số hoặc chữ số nào lặp lại không? (Mình dùng Rand() thì có chữ số lặp lại. Dùng Randbetween(1,9) cho 9 ô thì chưa tới 9 ô đã có số bị lặp lại
 

Mr Okebab

Ngon Ngất Ngây
Thành viên đã mất
Tham gia ngày
6 Tháng tám 2006
Bài viết
3,262
Được thích
3,766
Điểm
0
Tuổi
43
NBNguyen đã viết:
Hãy cho mình biết có công thức nào cho bộ số ngẫu nhiên mà không có số hoặc chữ số nào lặp lại không? (Mình dùng Rand() thì có chữ số lặp lại. Dùng Randbetween(1,9) cho 9 ô thì chưa tới 9 ô đã có số bị lặp lại
A1 = Rand()
A2 = if(countif($A$1:A1;Rand())>1;Rand()+1;Rand())

Từ A2 cứ thế kéo xuống

Thân!
 

nguyenthanhdanh

Thành viên mới
Tham gia ngày
10 Tháng năm 2007
Bài viết
11
Được thích
5
Điểm
0
Tuổi
54
Xin chào các bạn. Tôi là người mới tham gia diễn đàn. nên còn yếu kinh nghiệm. nay có vấn đề muốn các bạn chỉ giáo!
Một File Excel có 02 Sheet. Sheet 1 là bảng nhập số liệu để tìm mã khách hàng. VD: mã khách hàng là PE05000078628, được lấy 5 số đuôi làm mã truy tìm. Ở Sheet 2 là 02 bảng mã PE1 và PE2. Trong đó mỗi bảng có 5 cột; mã số, mã PE, tên địa chỉ, số sổ.
Tôi dùng công thức =IF(OR($D4=0," ",VLOOKUP(D4,PE1,2,0)),VLOOKUP(D4,PE2,2,0)) để tìm chung cho 02 bảng mã PE1 và PE2 nhưng bị báo lỗi #Value!. Mong các bạn chỉ giúp. Xin chân thành cảm ơn rất nhiều!
 

TranThanhPhong

Thời gian !!!
Thành viên danh dự
Tham gia ngày
16 Tháng ba 2007
Bài viết
2,104
Được thích
18,945
Điểm
0
Nơi ở
TP. HCM
Bạn kiểm tra công thức lại xem, mình thấy thiếu và dư dấu ngoặc:

=IF(OR($D4=0," "?,VLOOKUP(D4,PE1,2,0)),VLOOKUP(D4,PE2,2,0))

Sửa lại thành:
=IF(OR($D4=0," "),VLOOKUP(D4,PE1,2,0),VLOOKUP(D4,PE2,2,0))

TP.
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,632
Được thích
17,609
Điểm
1,860
kittytemp đã viết:
toi muon tinh tham nien lam viec cua nhan vien. toi da co ngay vao lam cua moi nguoi..vay toi phai cai cong thuc nao? rat cam on anh chi
Thâm niên làm việc từ [NgBD] đến [NgCuoi]: ([NgCuoi]-[NgBD])/365.25
Thâm niên làm việc từ [NgBD] đến nay: (TODAY()-[NgBD])/365.25

(/ì tiếng 'Tàu' Niên là năm!!!, nha(?):-=
 
Lần chỉnh sửa cuối:
Status
Không mở trả lời sau này.
Top Bottom