Làm sao tạo được công thức và định dạng trong text box

[hoangminhtien]

Em có 1 text box, em muốn thực hiện công thức trong text box này. Ví dụ em muốn đặt công thức trong text box bằng hàm TODAY() định dạng là dd/mmm/yyyy thì em phải làm thế nào? Các bác giúp em với

Em không tạo được để tài mới trong box Hỏi đáp về VBA - Macro , nên em tạo đề tài này ở đây, nếu sai nhờ mod chuyển bài giúp về đúng box với nhé

Cám ơn các bác

 

[Hai Lúa Miền Tây]

Em có 1 text box, em muốn thực hiện công thức trong text box này. Ví dụ em muốn đặt công thức trong text box bằng hàm TODAY() định dạng là dd/mmm/yyyy thì em phải làm thế nào? Các bác giúp em với

Em không tạo được để tài mới trong box Hỏi đáp về VBA - Macro , nên em tạo đề tài này ở đây, nếu sai nhờ mod chuyển bài giúp về đúng box với nhé

Cám ơn các bác

Bạn dùng code sau:

Private Sub UserForm_Initialize()
Me.texbox = Format(Now, "dd/mmm/yyyy")
End Sub

Thân

 

[hoangminhtien]

Bạn dùng code sau:

Private Sub UserForm_Initialize()
Me.texbox = Format(Now, "dd/mmm/yyyy")
End Sub

Thân

Em làm theo bác mà không được bác ạ, bác xem trong file rồi viết code em với nhé!

 

[sealand]

Bạn cứ việc gán =now()
Tại mục Format gõ dd/mm/yyyy là được (Nếu định dạng của bạn là dd/mmm/yyyy thì chọn dang chuẩn Medium Date hoặc gõ dd/mmm/yyyy), làm như Dom kết quả là text nên khó sử lý khi sử dụng giá trị Textbox

 

[Hai Lúa Miền Tây]

Em làm theo bác mà không được bác ạ, bác xem trong file rồi viết code em với nhé!

Bạn tham khảo trong file đính kèm xem coi có đúng ý chưa nhe

Private Sub Worksheet_Activate()
TextBox2 = Format(Now, "dd/mmm/yyyy")
End Sub

Thân

 

[hoangminhtien]

Cám ơn các bác đã hướng dẫn, bây giờ em muốn các công việc trên thực hiện trên text box vẽ từ thanh drawing, định dạng của text box là dd mmm yyyy(bỏ đi dấu "/") có được không? các bác giúp em nhé! cám ơn các bác

 

[sealand]

Bài trước mình nghĩ là bạn hỏi tren Access, giờ thì trong Exc nhé

 

[Hai Lúa Miền Tây]

Cám ơn các bác đã hướng dẫn, bây giờ em muốn các công việc trên thực hiện trên text box vẽ từ thanh drawing, định dạng của text box là dd mmm yyyy(bỏ đi dấu "/") có được không? các bác giúp em nhé! cám ơn các bác

Nếu bạn muốn bỏ đi dấu / thì cứ việc vào code bỏ thôi:

Private Sub Worksheet_Activate()
TextBox2 = Format(Now, "dd mmm yyyy")
End Sub

 

[ndu96081631]

Cám ơn các bác đã hướng dẫn, bây giờ em muốn các công việc trên thực hiện trên text box vẽ từ thanh drawing, định dạng của text box là dd mmm yyyy(bỏ đi dấu "/") có được không? các bác giúp em nhé! cám ơn các bác

Với TextBox được vẽ từ thanh Drawing thì cần gì code!
- Cứ gõ hàm TODAY() vào 1 cell nào đó (chẳng hạn là A1)
- Dùng Custom Format định dạng cell A1 này cho đúng ý (chẳng hạn là dd mmm yyyy)
- Chọn TextBox, gõ trực tiếp vào thanh Formula công thức =A1
Vậy là xong!

 

[anhtotbung35]

Với TextBox được vẽ từ thanh Drawing thì cần gì code!
- Cứ gõ hàm TODAY() vào 1 cell nào đó (chẳng hạn là A1)
- Dùng Custom Format định dạng cell A1 này cho đúng ý (chẳng hạn là dd mmm yyyy)
- Chọn TextBox, gõ trực tiếp vào thanh Formula công thức =A1
Vậy là xong!

Sẵn việc gán công thức vào texbox, cho mình hỏi. Mình muốn khi gõ vào textbox1 là "PT" hoặc "PC" thì ở textbox2 sẽ hiện lên là "PHIẾU THU" hoặc "PHIẾU CHI". Việc này hình hỏi là đang dùng trên Form.

 

[Hai Lúa Miền Tây]

Sẵn việc gán công thức vào texbox, cho mình hỏi. Mình muốn khi gõ vào textbox1 là "PT" hoặc "PC" thì ở textbox2 sẽ hiện lên là "PHIẾU THU" hoặc "PHIẾU CHI". Việc này hình hỏi là đang dùng trên Form.

Bạ dùng IF hoặc thay textbox thành Combo, xong lấy cột 1 sau khi cập nhật combo là được

 

[ndu96081631]

Sẵn việc gán công thức vào texbox, cho mình hỏi. Mình muốn khi gõ vào textbox1 là "PT" hoặc "PC" thì ở textbox2 sẽ hiện lên là "PHIẾU THU" hoặc "PHIẾU CHI". Việc này hình hỏi là đang dùng trên Form.

Tôi nghĩ phải dùng Select Case thôi

Private Sub TextBox1_Change()
  Select Case TextBox1.Value
    Case "PT": TextBox2 = "PHI" & ChrW(7870) & "U THU"
    Case "PC": TextBox2 = "PHI" & ChrW(7870) & "U CHI"
    Case Else: TextBox2 = ""
  End Select
End Sub

 

[anhtotbung35]

Tôi nghĩ phải dùng Select Case thôi

Private Sub TextBox1_Change()
Select Case TextBox1.Value
Case "PT": TextBox2 = "PHI" & ChrW(7870) & "U THU"
Case "PC": TextBox2 = "PHI" & ChrW(7870) & "U CHI"
Case Else: TextBox2 = ""
End Select
End Sub

Cản ơn Anh Ndu, từ đây mình có thể biết thể theo ý muốn của mình.