Công thức trong TextBox (1 người xem)

[cymet108]

Chào các bạn. mình có 1 form có 2 textbox, mình muốn khi nhập ngày tháng dương lịch vào textbox1 thì ở textbox2 sẽ tự động đổi sang ngày âm lịch. Mong các bạn giúp đỡ

Bài đã được tự động gộp: 24/4/21

 

[Maika8008]

Chào các bạn. mình có 1 form có 2 textbox, mình muốn khi nhập ngày tháng dương lịch vào textbox1 thì ở textbox2 sẽ tự động đổi sang ngày âm lịch. Mong các bạn giúp đỡ

Trước tiên bạn phải cung cấp cái hàm đổi ngày dương sang âm đã chứ!

 

[cymet108]

Trước tiên bạn phải cung cấp cái hàm đổi ngày dương sang âm đã chứ!

=translu(DAY(TextBox1),MONTH(TextBox1),YEAR(TextBox1))

 

[Maika8008]

=translu(DAY(TextBox1),MONTH(TextBox1),YEAR(TextBox1))

Private Sub TextBox1_AfterUpdate()
Dim D As Date
D = TextBox1.Value
TextBox2.Value = TransLu(Day(D), Month(D), Year(D))
End Sub

 

[cymet108]

Private Sub TextBox1_AfterUpdate()
Dim D As Date
D = TextBox1.Value
TextBox2.Value = TransLu(Day(D), Month(D), Year(D))
End Sub

Rất cảm ơn anh đã giúp đỡ

 

[cymet108]

Rất cảm ơn anh đã giúp đỡ

ANH ƠI CÓ 1 VẤN ĐỀ MÔNG ANH GIÚP Ạ. KHI EM NHẬP NGÀY THÁNG BẰNG TAY THÌ OK, NHƯNG KHI EM DÙNG LỊCH ĐỂ CHỌ NGÀY THI KHÔNG ĐƯỢC Ạ

 

[Maika8008]

ANH ƠI CÓ 1 VẤN ĐỀ MÔNG ANH GIÚP Ạ. KHI EM NHẬP NGÀY THÁNG BẰNG TAY THÌ OK, NHƯNG KHI EM DÙNG LỊCH ĐỂ CHỌ NGÀY THI KHÔNG ĐƯỢC Ạ

Có 3 vấn đề:
1. MÔNG anh không giúp được mà chỉ ĐẦU anh giúp được thôi
2. Bạn không được viết HOA toàn bộ như vậy!
3. Vấn đề của bạn đã được giải quyết: xem file đính kèm.

 

[cymet108]

Có 3 vấn đề:
1. MÔNG anh không giúp được mà chỉ ĐẦU anh giúp được thôi
2. Bạn không được viết HOA toàn bộ như vậy!
3. Vấn đề của bạn đã được giải quyết: xem file đính kèm.

Cảm ơn anh ạ. em sẽ rút kinh nghiệm

 

[cymet108]

Cảm ơn anh ạ. em sẽ rút kinh nghiệm

Anh ơi giúp em cái này nữa được không ạ. Em có 1 form chọn, khi em chọn chủng loại thì dưới sheet vẫn đứng nguyên, ví dụ: em muốn chọn cam Thái nguyên nhưng dưới sheet vẫn đứng ở cam Nha Trang, hay là em chọn Xoài Ninh bình thì nó vẫn đứng ở Xoài Thanh Hoá, anh giúp em với ạ

Bài đã được tự động gộp: 5/5/21

Anh ơi giúp em cái này nữa được không ạ. Em có 1 form chọn, khi em chọn chủng loại thì dưới sheet vẫn đứng nguyên, ví dụ: em muốn chọn cam Thái nguyên nhưng dưới sheet vẫn đứng ở cam Nha Trang, hay là em chọn Xoài Ninh bình thì nó vẫn đứng ở Xoài Thanh Hoá, anh giúp em với ạ

em nghĩ là do code này nhưng em không hiểu lắm, anh phân tích dùm em với
Private Sub ListBox_Click()
Dim lastrow As Long
Sheets("Data").Activate
lastrow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
TextBox1.Value = ActiveCell
End Sub

 

[SA_DQ]

Anh ơi giúp em cái này nữa được không ạ. Em có 1 form chọn, (1) khi em chọn chủng loại thì dưới sheet vẫn đứng nguyên, ví dụ: em muốn chọn cam Thái nguyên nhưng dưới sheet vẫn đứng ở cam Nha Trang, hay là em chọn Xoài Ninh bình thì nó vẫn đứng ở Xoài Thanh Hoá, anh giúp em với ạ

Chũng loại có đâu trên Form mà bạn có thể chọn?
Ta có thể chọn chũng loại (như bạn nói) từ ComboBox hai ListBox; 1 cái bạn không có, 1 cái bạn chỉ có 01 cột (mà không phải cột chũng loại) vậy bạn chọn từ í tưởng ư?
(2) Bạn có thể mô tả lại mong muốn của mình biết đâu sẽ được giúp nhanh hơn!

Thân ái & vui vẻ nha!

 

[Maika8008]

Anh ơi giúp em cái này nữa được không ạ. Em có 1 form chọn, khi em chọn chủng loại thì dưới sheet vẫn đứng nguyên, ví dụ: em muốn chọn cam Thái nguyên nhưng dưới sheet vẫn đứng ở cam Nha Trang, hay là em chọn Xoài Ninh bình thì nó vẫn đứng ở Xoài Thanh Hoá, anh giúp em với ạ

Bài đã được tự động gộp: 5/5/21

em nghĩ là do code này nhưng em không hiểu lắm, anh phân tích dùm em với
Private Sub ListBox_Click()
Dim lastrow As Long
Sheets("Data").Activate
lastrow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
TextBox1.Value = ActiveCell
End Sub

Có nhiều dòng cam thì đương nhiên lệnh Find tìm cam trên cùng vì chuỗi tìm đâu có chứa Thái Nguyên hay Nha Trang!

Muốn tìm được thì khi Add chủng loại thì bạn cần thêm vào dòng tương ứng ở cột C một giá trị bằng cột A & " - " & cột B (VD: Cam - Thái Nguyên). Đồng thời lấy list của ListBox là ListBox.List = Sheets("Data").Range("C2:C" & sds2).Value . Cột C này có thể ẩn đi

Sửa lại dòng code trong ListBox_Click:
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
Thành:
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, -2).Activate

Tôi đã thử làm sẵn trong file.

 

[cymet108]

Có nhiều dòng cam thì đương nhiên lệnh Find tìm cam trên cùng vì chuỗi tìm đâu có chứa Thái Nguyên hay Nha Trang!

Muốn tìm được thì khi Add chủng loại thì bạn cần thêm vào dòng tương ứng ở cột C một giá trị bằng cột A & " - " & cột B (VD: Cam - Thái Nguyên). Đồng thời lấy list của ListBox là ListBox.List = Sheets("Data").Range("C2:C" & sds2).Value . Cột C này có thể ẩn đi

Sửa lại dòng code trong ListBox_Click:
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
Thành:
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox.Value, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, -2).Activate

Tôi đã thử làm sẵn trong file.

Em rất cảm ơn ạ

 

[Maika8008]

Còn trong file dưới đây thì tôi đã bỏ mấy dòng lệnh tạo index trong list để giữ nguyên thứ tự các dòng dữ liệu 2 cột của list. Việc tìm dữ liệu vẫn theo cột C nhưng giá trị tìm phải được tính toán 1 chút.