Hỏi code gán giá trị từ Texbox vào Cell

[feelingyes]

-Trong file (Sheet Tracking, Cột D-Items) khi ta nhấn F4 thì bảng Menu hiện ra
1.Trong Menu đó em có tạo 2 Text box (code viết giống nhau) nhưng chỉ có 01 một Text box hiện giá trị của ActiveCell tron ListMenu
...........> Viết code như nào để hiển thị giá trị của cột 5 (Group-Trong Form Menu) trên Text Box?
2. Viết code như nào để giá trị của Cột 5-Cột Group (trong Form Menu) sẽ được gán cho Cell ỏ cột C (cột T-Group) trong Sheet-Tracking?

Rất mong được anh chị đi trước chỉ giáo!
Tks

 

[ptm0412]

Xem ở đây, có 1 form khá giống, sử dụng listbox.column(n), n = 0 cho cột 1.
http://www.giaiphapexcel.com/forum/showthread.php?p=59122#post59122

Cái textbox thứ 2 chưa có code mà?
Thêm vào 1 dòng:

Private Sub ListMenu_Change()
TexboxSelect = ListMenu.Column(0)
[COLOR=red]Textbox8= ListMenu.Column(4)[/COLOR]
End Sub

CmdOK cũng thêm 1 dòng:

Private Sub cmdOK_Click()
ActiveCell.Value = ListMenu.Value
[COLOR=red]ActiveCell.Offset(0, -1).Value = ListMenu.Column(4)[/COLOR]
Unload Me
End Sub

 

[feelingyes]

Em quên mất code của Texbox8

Textbox8= ListMenu.Column(4)

Cám ơn anh nhiều

Còn "em" này thì sao ạ

2. Viết code như nào để giá trị của Cột 5-Cột Group (trong Form Menu) sẽ được gán cho Cell ỏ cột C (cột T-Group) trong Sheet-Tracking?

 

[minhlev]

Bạn sửa đoạn code sau trong FrmMenu

Private Sub cmdOK_Click()
ActiveCell.Value = ListMenu.Value
Unload Me
End Sub

thành

Private Sub cmdOK_Click()
ActiveCell = ListMenu.List(, 0)
ActiveCell.Offset(0, -1) = ListMenu.List(, 4)
Unload Me
End Sub

 

[cadafi]

Bạn sửa đoạn code sau trong FrmMenu

Private Sub cmdOK_Click()
ActiveCell.Value = ListMenu.Value
Unload Me
End Sub

thành

Private Sub cmdOK_Click()
ActiveCell = ListMenu.List(, 0)
ActiveCell.Offset(0, -1) = ListMenu.List(, 4)
Unload Me
End Sub

Thêm một cách nữa nè

Private Sub cmdOK_Click()
ActiveCell = ListMenu.List(, 0)
cells(ActiveCell.row,activecell.column-1) = ListMenu.List(, 4)
Unload Me
End Sub

[/quote]

 

[feelingyes]

Một câu hỏi nhở nữa

ActiveCell = ListMenu.List(, 0)

List(,0) hiểu như thế nào ạ? tại sao trước số 0 lại có dấu ","

Các Huynh giúp với


Hê hê
-Chỉ có vài ngày mấy câu hỏi và những mong muốn của em bấy lâu đã dần dần được gỡ bỏ
(em cũng mò mò được cách format các texbox, cmd trong userform rồi)

Hy vọng là 1 năm nữa bằng các anh

He he.......

 

[feelingyes]

Ah
Em hiểu rồi

ActiveCell = ListMenu.List(, 0) tương đương vơi
-------------------------------------------------
Activecell = ListMenu.Column(0)

List(,0) có nghĩa là hàng bất kỳ và cột 1 --------> anh nhỉ?

 

[cadafi]

Sorry, mình test lại là:

Private Sub ListMenu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBoxGroup = ListMenu.List(, 0)
a = MsgBox("gia tri la:" & TextBoxGroup, , "Tip")
End Sub

ListMenu.List(Row,Column)
Nếu bạn gõ là ListMenu.List(,Column) thì nó tự hiểu Row là Row của dòng hiện tại

 

[feelingyes]

Cám ơn Ca_dafi
Đoạn code này

Private Sub ListMenu_Doubleclick()
TexboxGroup = ListMenu.Column(4)
TextboxGroup=listMenu.list(,0)
a= msgbox("Gia tri la: " & TextboxGroup,,"Tip")

có phải khi ta mở cửa sổ VBA và vào form, thì những thay đổi trong lúc ta click vào
ListMenu sẽ được cập nhật?




End Sub

 

[cadafi]

Cám ơn Ca_dafi
Đoạn code này


có phải khi ta mở cửa sổ VBA và vào form, thì những thay đổi trong lúc ta click vào
ListMenu sẽ được cập nhật?




End Sub

Không phải đâu bạn, đoạn code này dùng để bẫy dữ liệu

Private Sub ListMenu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBoxGroup = ListMenu.List(, 0)
a = MsgBox("gia tri la:" & TextBoxGroup, , "Tip")
End Sub

Khi xử lý thủ tục người dùng double click vào ListBox ListMenu, sẽ gán giá trị của ô TextboxGroup = ListMenu.List(,0)
Sau đó sẽ cho hiện ra cửa sổ meassage thông báo giá trị vừa gán cho ô textboxGroup cho bạn biết.

 

[ptm0412]

Cái textboxgroup là cái nào? Rốt cuộc là dư mấy cái sub luôn. Xoá hết chừa lại 3 cái ListMenu_Change, CmdOK_Click, CmdCancel_click thôi.

Góp ý thêm:
5 cái textbox trên cùng và 2 cái textbox ở giữa nên thay bằng Label,
Nếu chỉ cần tiêu đề cột thì bỏ luôn 5 textbox đó, chỉnh property Column Head = true. Còn không thì nên loại bỏ dòng tiêu đề ra khỏi name DS, để thành ra 2 dòng tiêu đề kỳ lắm.