Function thiết lập số tăng dần, và ngày tháng trong Excel

[Kiệt Dương]

Xin chào các bạn,

Xin các bạn chỉ giúp mình những vấn đề về Excel sau đây nhé:

1) Làm thế nào để thiết lập 1 function sao cho 1 cell trong Excel tự động tăng lên một số mỗi ngày. Thí dụ: Cell A1 ngày hôm nay 15 tháng 5 năm 2008 có số bắt đầu là 100, ngày hôm sau, 16 tháng 5 năm 2008, khi mở file này ra thì làm sau tự động cell A1 sẽ tăng lên số trở thành 101, và cứ tiếp tục như thế mỗi ngày sau đó, sẽ là 102, 103....

2) Làm thế nào để 1 cell trong Excel khi áp dụng function =TODAY() thì sẽ hiện ra ngày bằng tiếng Anh bằng dạng chữ HOA.
Thí dụ: SUNDAY, MAY 4, 2008

3) cách viết một function mới như thế nào để 1 cell trong Excel thay vì thể hiện ngày giờ bằng tiếng Anh thì sẽ thể hiện bằng tiếng việt.
Thí dụ: CHỦ NHẬT - 4 tháng 5, 2008

4) Và làm sao để 1 cell thể hiện ngày giờ Âm lịch có tính cả Can Chi.
Thí dụ: vào ngày 4 tháng 5, 2008, thì cell đó sẽ thể hiện ngày Âm Lịch là:
29 tháng Ba năm Mậu Tý

Rất mong được sự giúp đỡ của các bạn
Chân thành cám ơn

 

[QDuc]

Mình chỉ có thể thực hiện được 2 câu (1) & (3) 1 cách Chuối, như sau:

(1)

Option Explicit
Const Dat As Date = #5/15/2008#
Const NumS As Long = 100
Sub Autpen()
Sheets("S3").[A1] = Date - Dat + NumS
End Sub

(3) Tại trang tính bất kỳ, bạn vô menu Insert => Names=> Define Name
Trong cửa sổ Names in Workbook: bạn nhập tên 'NgayVN'
trong CS Refers to: bạn nhập dòng sau
=IF(WEEKDAY(TODAY())=0;"CHỦ NHẬT"; "THỨ " & CHOOSE(WEEKDAY(TODAY());"";"HAI";"BA";"TƯ";"NĂM";"SÁU";"BẢY")) & "-" & DAY(TODAY()) & " Tháng " & MONTH(TODAY()) & "," & YEAR(TODAY()) & bấm vô nút 'OK' để lưu
Kể từ bây giờ, chổ nào bạn muốn hiện câu thần chú về ngày VN thì nhập vô ô đó công thức =NgayVN
(3') Có thể viết hàm trong CS VBE, nhưng phức tạp hơn xíu (Sẽ viết nếu bạn iêu cầu!)

 

[atmt17]

Trừ câu 4 ra, với câu 1, câu 2 và câu 3 thì chẳng cần bất cứ UDF nào, hàm Excel có thể làm được điều này:
- Câu 1: Ví dụ hôm nay là ngày 27/9/2008 và bạn muốn cell A1 cho kết quả =100 (ngày mai = 101). Vậy dùng công thức:

=TODAY()-DATE(2008,6,19)

(vì ngày 19/6/2008 cách hôm này 100 ngày)
- Câu 2: dùng công thức:

=UPPER(TEXT(TODAY(),"ddd, MMM dd, yyyy"))

- Câu 3: gần tương tự câu 2, chỉ thêm CHOOSE và IF để tạo thứ bằng tiếng Việt như bạn QDuc vừa nói ở trên

 

[dohuuthuc]

cau 4 : bạn vào trang web echip .com.vn tỉm sẽ có chương trình dổi ngày DL sang AL và nguợc lại. còn thể hiện trong ô ễcl thì nhờ bạn nào giỏi về VBA sẽ viết dùm cho bạn , chắc chắn sẽ được .

 

[ádsqưe]

cho em hỏi em muốn chỉnh ngày tháng.= 1 công thức để nó tự động cộng hoặc tư động chuyển ngày tiếp theo chỉ cần kéo xuống
ví dụ hôm nay ngày 1/2/2017 và chỉ cần kéo xuống là tự động cộng thêm là 2/2/2017

 

[thinhvd]

cho em hỏi em muốn chỉnh ngày tháng.= 1 công thức để nó tự động cộng hoặc tư động chuyển ngày tiếp theo chỉ cần kéo xuống
ví dụ hôm nay ngày 1/2/2017 và chỉ cần kéo xuống là tự động cộng thêm là 2/2/2017

bạn kéo cái được luôn