Xin hỏi Cách Dùng một calendar để nhập ngày tháng cho nhiều textbox (1 người xem)

[cartoon18]

Tình hình là em muốn tạo một form nhập ngày tháng Gồm
1 - một calendar , ba textbox1 , 2 , 3 (dùng để hiển thị ngày tháng sẽ nhập vào cell trong bảng) tương ứng là comandbutton 1,2,3 (dùng để show calendar), nhưng mà em chỉ dùng được một calendar cho một textbox bác nào biết cách sử dụng 1 calendar để nhập cho cả 3 textbox này thì giúp em với (ngày tháng cần nhập trong 3 textbox này là khác nhau nha), em cám ơn trước ah, dưới đây là file đính kèm

 

[ndu96081631]

Tình hình là em muốn tạo một form nhập ngày tháng Gồm
1 - một calendar , ba textbox1 , 2 , 3 (dùng để hiển thị ngày tháng sẽ nhập vào cell trong bảng) tương ứng là comandbutton 1,2,3 (dùng để show calendar), nhưng mà em chỉ dùng được một calendar cho một textbox bác nào biết cách sử dụng 1 calendar để nhập cho cả 3 textbox này thì giúp em với (ngày tháng cần nhập trong 3 textbox này là khác nhau nha), em cám ơn trước ah, dưới đây là file đính kèm

Sửa code thành vầy:

Private IDATE As Long[COLOR=#ff0000], Index As Long[/COLOR]
Private Sub CA_Click()
  IDATE = CA.Value
  [COLOR=#ff0000]Me.Controls("T" & Index).Text = Format(IDATE, "dd/mm/yyyy")[/COLOR]
  CA.Visible = False
End Sub
Private Sub UserForm_Initialize()
 CA.Visible = False
End Sub
Private Sub C1_Click()
[COLOR=#ff0000]  If CA.Visible = False Then
    CA.Visible = True
    Index = 1
  End If[/COLOR]
End Sub
Private Sub C2_Click()
[COLOR=#ff0000]  If CA.Visible = False Then
    CA.Visible = True
    Index = 2
  End If[/COLOR]
End Sub
Private Sub C3_Click()
[COLOR=#ff0000]  If CA.Visible = False Then
    CA.Visible = True
    Index = 3
  End If[/COLOR]
End Sub

Màu đỏ là chổ thêm vào hoặc sửa lại

 

[cartoon18]

Có Thầy Ndu tư vấn thật tốt quá, em cảm ơn Thầy nhìu, tiện đây cho em hỏi một chút nữa mong thầy giúp ~(^_^) ~ ( có cao nhân ghé nên phải tận dụng hỏi ) .
vd cũng là form như trên em làm thêm cái giới hạn ký tự nhập vào bằng keypress là "0 => 9" và dấu "/", vậy thì em có thể chỉ làm một key cho 3 textbox trên không hay là mỗi textbox em phải làm riêng 1 key như vậy ... nếu có cách gom lại thì mong thầy hướng dẫn em với, em mới tậu được cuốn lập trình VBA của Tác Giả Phan Tự Hướng có hơn 1 tháng nên chỉ mới đọc sơ sơ phần form thôi chưa rành lắm

 

[ndu96081631]

Có Thầy Ndu tư vấn thật tốt quá, em cảm ơn Thầy nhìu, tiện đây cho em hỏi một chút nữa mong thầy giúp ~(^_^) ~ ( có cao nhân ghé nên phải tận dụng hỏi ) .
vd cũng là form như trên em làm thêm cái giới hạn ký tự nhập vào bằng keypress là "0 => 9" và dấu "/", vậy thì em có thể chỉ làm một key cho 3 textbox trên không hay là mỗi textbox em phải làm riêng 1 key như vậy ... nếu có cách gom lại thì mong thầy hướng dẫn em với, em mới tậu được cuốn lập trình VBA của Tác Giả Phan Tự Hướng có hơn 1 tháng nên chỉ mới đọc sơ sơ phần form thôi chưa rành lắm

Muốn GOM thì dùng Class:
http://www.giaiphapexcel.com/forum/showthread.php?37075-Dùng-Class-Module-để-tạo-sự-kiện-người-dùng
Nhưng bạn nói bạn mới học nên e rằng kiến thức về class này khó lòng kham nỗi. Cố mà nghiên cứu vậy. Nếu không được thì làm theo cách thông thường: Mỗi control 1 code riêng

 

[cartoon18]

Em cũng có nghe nói muốn gom mấy cái này phải làm bằng class vì VBA không Có chức năng gộp nhóm như VB6, Cám ơn Thầy

 

[ndu96081631]

Em cũng có nghe nói muốn gom mấy cái này phải làm bằng class vì VBA không Có chức năng gộp nhóm như VB6, Cám ơn Thầy

Nếu bạn đã biết VB6 thì cái class này cũng chỉ là chuyện nhỏ thôi mà

 

[cartoon18]

Thật ngại quá thầy hiểu nhầm rồi, em biết về gộp nhóm VB6 vì hồi trước có đọc một tài liệu hướng dẫn tạo form bằng VB6 nhưng mà thật chẳng hiểu gì sất ...
hôm nay em đng đọc phần listtbox và gặp một số vấn đề mong được thầy và mọi người chỉ giúp.
- em muốn add 1 listbox có nhiều column sang listbox khác nhưng đoạn code của em chạy không ổn, lúc thì add dược nhiều cột lúc chỉ được có một cột.@_@
- tương tự vậy em dùng lệnh .RemoveItem (ListBox.ListIndex) cho nút xoá nó cũng chạy không ổn định .
còn một chuyện nữa không liên quan tới listbox đó là cách dùng công thức trong VBA
vd em muon tinh tổng của ô D218 thì công thức là Range("F4 ").FormulaR1C1 = "=SUM(RC[-2]:R[16]C[-2])" nhưng nếu D là 1 biến vd như tăng lên D30 chẳng hạn thì em phải xử lí thế nào, có thể dùng application.WorksheetFunction để giải quyết được không? nếu được xin chỉ em với ah.
Em xin cảm ơn trước !

 

[ndu96081631]

Thật ngại quá thầy hiểu nhầm rồi, em biết về gộp nhóm VB6 vì hồi trước có đọc một tài liệu hướng dẫn tạo form bằng VB6 nhưng mà thật chẳng hiểu gì sất ...
hôm nay em đng đọc phần listtbox và gặp một số vấn đề mong được thầy và mọi người chỉ giúp.
- em muốn add 1 listbox có nhiều column sang listbox khác nhưng đoạn code của em chạy không ổn, lúc thì add dược nhiều cột lúc chỉ được có một cột.@_@
- tương tự vậy em dùng lệnh .RemoveItem (ListBox.ListIndex) cho nút xoá nó cũng chạy không ổn định .
còn một chuyện nữa không liên quan tới listbox đó là cách dùng công thức trong VBA
vd em muon tinh tổng của ô D218 thì công thức là Range("F4 ").FormulaR1C1 = "=SUM(RC[-2]:R[16]C[-2])" nhưng nếu D là 1 biến vd như tăng lên D30 chẳng hạn thì em phải xử lí thế nào, có thể dùng application.WorksheetFunction để giải quyết được không? nếu được xin chỉ em với ah.
Em xin cảm ơn trước !

Câu hỏi về TextBox và Calendar đã giải quyết xong.
Giờ nếu bạn muốn hỏi vấn đề khác, vui lòng mở topic khác nhé
(vì ListBox và Công thức trong VBA chả liên quan gì đến chủ đề của topic này cả)
Gợi ý với bạn topic này:
http://www.giaiphapexcel.com/forum/...h-cho-các-thành-viên-mới-học-lập-trình)
Vào đó mà hỏi nhé