Các câu hỏi về Form trong Excel VBA

Tường_Vi · 14/12/11

Private Sub UserForm_Initialize()
.......................
.......................
.......................
End Sub

Em xin hỏi, sự kiện khí nào mình dùng sự kiện này Initialize

Cám ơn

huuphucth · 5/9/15

Minh có một File nhập dữ liệu để in hồ sơ xin việc nhưng không biết tạo các lệnh để sử dụng:
1. Thanh trượt: Scroll để chuyển qua lại giữa các hồ sơ với nhau.
2. Button Lùi để xem lại phần nhập liệu trước đó.
3. Button Tới để xem lại phần nhập liệu phía sau.
4. Button Sửa để sửa lại dữ liệu đã nhập trong Form sau khi thêm vào excel. (Button Sửa sẽ Ẩn sau khi Click vào và thay thế bằng Button Lưu)
5. Button Lưu để lưu lại các dữ liệu đã sửa sau khi nhấn Button sửa. (Button này ẩn chỉ hiện sau khi click vào Button Sửa - Sau khi lưu sẽ hiện lại Button Sửa) hi.
Mong các cao thủ giúp đỡ xin chân thành cảm ơn!!
Email của em là: huuphucth@gmail.com mong các huynh đài giúp đỡ gởi về email trên cho em tham khảo xin cám ơn nhiều!!

ngocrin1 · 26/12/15

Mình đang muốn làm một cái userform mà nội dụng drop down theo mục nội dung trước đó. Hiện tại file excel bình thường (đính kèm) thì mình làm được nhưng ko biết đưa lên userform thì làm thế nào. Các bạn giúp mình với. Tks.

12C7_CG · 26/2/16

Các bác cho em hỏi là em muốn lồng "useform1" vào macro "dieutiet".vậy làm sao để userform nhận biến của macro (trong vòng lặp for và câu lệnh if)

Minh15.01.1991 · 27/2/16

Khai báo biến toàn cục, rồi sử dụng biến đó trong form.

12C7_CG đã viết:
Các bác cho em hỏi là em muốn lồng "useform1" vào macro "dieutiet".vậy làm sao để userform nhận biến của macro (trong vòng lặp for và câu lệnh if)

Minh15.01.1991 · 27/2/16

Sử dụng name range rồi trong thuộc tính của combobox có cái Rowsource, ghi cái name range đó vào là xong.

ngocrin1 đã viết:
Mình đang muốn làm một cái userform mà nội dụng drop down theo mục nội dung trước đó. Hiện tại file excel bình thường (đính kèm) thì mình làm được nhưng ko biết đưa lên userform thì làm thế nào. Các bạn giúp mình với. Tks.
View attachment 153152 View attachment 153153

be_09 · 28/2/16

huuphucth đã viết:
Minh có một File nhập dữ liệu để in hồ sơ xin việc nhưng không biết tạo các lệnh để sử dụng:
1. Thanh trượt: Scroll để chuyển qua lại giữa các hồ sơ với nhau.
2. Button Lùi để xem lại phần nhập liệu trước đó.
3. Button Tới để xem lại phần nhập liệu phía sau.
4. Button Sửa để sửa lại dữ liệu đã nhập trong Form sau khi thêm vào excel. (Button Sửa sẽ Ẩn sau khi Click vào và thay thế bằng Button Lưu)
5. Button Lưu để lưu lại các dữ liệu đã sửa sau khi nhấn Button sửa. (Button này ẩn chỉ hiện sau khi click vào Button Sửa - Sau khi lưu sẽ hiện lại Button Sửa) hi.
Mong các cao thủ giúp đỡ xin chân thành cảm ơn!!
Email của em là: huuphucth@gmail.com mong các huynh đài giúp đỡ gởi về email trên cho em tham khảo xin cám ơn nhiều!!

Làm được tất tần tật, kể cả tìm kiếm, trích lọc, tổng hợp theo yêu cầu.

Nhưng không rảnh để giúp được.

12C7_CG · 28/2/16

Minh15.01.1991 đã viết:
Khai báo biến toàn cục, rồi sử dụng biến đó trong form.

Bác có thể hướng dẫn em cụ thể được không ạ ?
Sub dieutiet()
'dieu tiet lu'
Dim i As Integer
Dim k As Object
Dim a As Object
Dim m As Object
Set a = Cells(24, 29)
Set m = Cells(26, 11)
Set k = Cells(3, 11)
For i = 1 To a - 1
lap:
Cells(i + 26, 26).Value = Cells(i + 25, 26).Value + 0.5
Cells(i + 26, 27).GoalSeek Goal:=0, ChangingCell:=Cells(i + 26, 26)
If Cells(i + 26, 25) < Cells(3, 11) Then
Cells(i + 26, 10).Value = Cells(i + 25, 10).Value
'Cells(i + 26, 25).GoalSeek Goal:=k, ChangingCell:=Cells(i + 26, 10)'
UserForm1.Show
Cells(i + 26, 26).Value = Cells(3, 11).Value
Cells(i + 26, 10).Select
With Selection.Interior
.Color = 5287936
End With
End If
End sub

và userform như sau:
(Public i As Integer, k As Object, m As Object)
Private Sub CommandButton1_Click()
If OptionButton1 Then Cells(i + 26, 25).GoalSeek Goal:=k, ChangingCell:=Cells(i + 26, 10)
If OptionButton1 Then Cells(i + 26, 12).GoalSeek Goal:=m, ChangingCell:=Cells(i + 26, 10)
Unload UserForm1
End Sub

cú pháp Userform.show đâu thể chứa biến để excel có thể truyền giống như fuction

kdang · 3/5/16

Mình muốn tạo 1 userform như hình vẽ và khi bấm lưu thì excel sẽ lưu trữ các thông tin khi sử dụng addin trong các lần tiếp theo. Anh/chị nào giúp em trường hợp này được không ạ.

giaiphap · 3/5/16

kdang đã viết:
Mình muốn tạo 1 userform như hình vẽ và khi bấm lưu thì excel sẽ lưu trữ các thông tin khi sử dụng addin trong các lần tiếp theo. Anh/chị nào giúp em trường hợp này được không ạ.

Tìm hiểu code này nè bạn.
http://www.giaiphapexcel.com/forum/...hông-tin-trên-Form-Add-in&p=715783#post715783

rickypham · 4/7/16

phucbugis đã viết:
nếu "chịu khó" vào GPE thường xuyên + đọc các bài liên quan --> chắc chắn sẽ có ...

bạn tham khảo Pic sau xem sao nhé !

View attachment 125703

Anh có thể cho xin đường link đến bài viết liên quan được không ạ?

Tường_Vi · 4/8/16

Làm sao gọi form,có listbox dữ liệu từ file khác?

Chào anh chị

Ví dụ: em có
- file1, sheet1: danh sách khách hàng
- File2: gọi form xuất hiện cùng listbox, nhưng làm sao để gọi dữ liệu danh sách khách hàng xuất hiện trên Listbox?

Vậy em phải dụng code khai báo đặt tên mảng Tm1 như nào để listbox trong form.

Theo code của anh SEALAND, nếu mình đứng tại filé, sheet 1 thì dùng đoạn đoạn code sau. Nhưng nếu mình gọi form của file 2, thì mình sửa như nào ạ?

PHP:

Sub NapL()
Dim Tm, Tm1, Dk As String, Cot As Integer, Kieu As Integer
On Error GoTo thoat
If Me.ListBox1.ListCount > 0 Then Me.ListBox1.Clear
Dk = IIf(Me.TextBox1 = "", "*", Me.TextBox1)
Kieu = 11
Cot = 19
Tm1 = Sheet1.Range(Sheet1.[B3], Sheet1.[T65536].End(3).Resize(, 5))
Tm = Filter2D(Tm1, Dk, Cot, Kieu)
Me.ListBox1.List = Tm
thoat:
End Sub

tuanla1204 · 15/8/16

Mạn phép mình làm thế này

Sub dieutiet()
.......................
If Cells(i + 26, 25) < Cells(3, 11) Then
Cells(i + 26, 10).Value = Cells(i + 25, 10).Value
Cells(i + 26, 25).GoalSeek Goal:=k, ChangingCell:=Cells(i + 26, 10)

UserForm1.Show
If OptionButton1 Then Cells(i + 26, 25).GoalSeek Goal:=k, ChangingCell:=Cells(i + 26, 10)
If OptionButton1 Then Cells(i + 26, 12).GoalSeek Goal:=m, ChangingCell:=Cells(i + 26, 10)

Cells(i + 26, 26).Value = Cells(3, 11).Value
Cells(i + 26, 10).Select
With Selection.Interior
.Color = 5287936
End With
.........
end sub

Private Sub CommandButton1_Click()
''If OptionButton1 Then Cells(i + 26, 25).GoalSeek Goal:=k, ChangingCell:=Cells(i + 26, 10)
''''If OptionButton1 Then Cells(i + 26, 12).GoalSeek Goal:=m, ChangingCell:=Cells(i + 26, 10)
Unload UserForm1
End Sub

ThaiDieuAnh · 20/8/16

Em mới tập tọe VBA nên viết code sai tùm lum, không hiểu gán giá trị cho Spin button thế nào mà nó báo lỗi. Mong mọi người giúp đỡ

giaiphap · 20/8/16

ThaiDieuAnh đã viết:
Em mới tập tọe VBA nên viết code sai tùm lum, không hiểu gán giá trị cho Spin button thế nào mà nó báo lỗi. Mong mọi người giúp đỡ

Bạn xem đúng ý bạn chưa nhé.

ThaiDieuAnh · 20/8/16

giaiphap đã viết:
Bạn xem đúng ý bạn chưa nhé.

Xin lỗi vì câu hỏi em không rõ ràng lắm, bác sửa dùm em code ngược lại tý là khi ta nhập giá trị Min và Max ở Form thì ô A3 và A4 nhận giá trị đó (file của bác đang là nhập ở A3, A4) và khi cho Spin Button chạy thì cả TextBox và ô A3, A4 cùng chạy

giaiphap · 20/8/16

ThaiDieuAnh đã viết:
Xin lỗi vì câu hỏi em không rõ ràng lắm, bác sửa dùm em code ngược lại tý là khi ta nhập giá trị Min và Max ở Form thì ô A3 và A4 nhận giá trị đó (file của bác đang là nhập ở A3, A4) và khi cho Spin Button chạy thì cả TextBox và ô A3, A4 cùng chạy

Bạn cho mình hỏi cái này nhé! Bạn sử dụng SpinButton để chi vậy? Theo tôi thì nếu đã sử dụng SpinButton thì dùng textbox để nhập là dư thừa. Vì dụ khi nhập vào TextBox thì SpinButton có thay đổi theo không? nếu thay đổi thì textbox có thay đổi theo SpinButton không? Và SpinButton sẽ tác động vào textbox nào?

ThaiDieuAnh · 26/8/16

Em có Form trang in thế này, nhưng khi in nhiều bộ giống nhau nó không nhận chế độ Collate, mà vẫn bị chế độ in là 112233 chứ không phải 123123. Các bác chỉ giáo em với ạ:

Mã:

Private Sub CommandButton3_Click()Dim p1, p2, i&
p1 = TextBox1.Value
p2 = TextBox2.Value
p3 = TextBox3.Value
If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("So code phai la so.", , "Thông báo")
Exit Sub
End If


If p1 > p2 Then
tb = MsgBox("So code sau phai >= so code truoc.", , "Thông báo")
Exit Sub
End If


If p1 < 1 Or p2 < 1 Then
tb = MsgBox("So code phai >= 1.", , "Thông báo")
Exit Sub
End If


If p1 <= p2 Then
    For i = p1 To p2
    Sheet11.Range("AL2").Value = i
    Sheet11.Range("AO2").Value = "'" & Format(Sheet11.Range("AL2"), "00") & "-" & Sheet11.Range("AS2").Value
     UserForm2.Hide
    ActiveWindow.SelectedSheets.PrintOut From:=p1, To:=p2, Copies:=p3, Collate:=True
    Next
End If
End Sub

minhthangnb · 4/10/16

Chào mọi người!
Em mới học VB Excel có khó khăn nhờ mọi người giúp. Em tạo 1 Userform trong đó có 1 Multipage và 2 button. Trong Multipage có 1 page, trong đó có 1 Textbox. Khi em ấn nút Add thì sẽ tạo ra page mới (Page2) và copy page cũ (Page1) sang Page2 (Cái này e làm được rồi). Còn phần tại Page2 e muốn đánh số vào Textbox rồi nhấn OK thì giá trị đánh vào Textbox tại Page2 sẽ điền vào ô A1. Làm thế nào để tham chiếu đến cái Textbox trong Page2 mọi người giúp em với.

ChanhTQ@ · 4/10/16

minhthangnb đã viết:
Chào mọi người!
Em mới học VB Excel có khó khăn nhờ mọi người giúp. Em tạo 1 Userform trong đó có 1 Multipage và 2 button. Trong Multipage có 1 page, trong đó có 1 Textbox. Khi em ấn nút Add thì sẽ tạo ra page mới (Page2) và copy page cũ (Page1) sang Page2 (Cái này e làm được rồi). Còn phần tại Page2 e muốn đánh số vào Textbox rồi nhấn OK thì giá trị đánh vào Textbox tại Page2 sẽ điền vào ô A1. Làm thế nào để tham chiếu đến cái Textbox trong Page2 mọi người giúp em với.

Xem ở đây: http://www.giaiphapexcel.com/forum/showthread.php?119348-Tham-chiếu-đến-TextBox

minhthangnb · 4/10/16

Mọi người ai giúp em với a!

Các câu hỏi về Form trong Excel VBA

Thành viên tiêu biểu

Thành viên mới

File đính kèm

Thành viên chính thức

File đính kèm

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Biên Hòa, Đồng Nai

Thành viên mới

Thành viên mới

File đính kèm

==(^o^)==

Thành viên hoạt động

Thành viên tiêu biểu

Thành viên mới

Thành viên hoạt động

File đính kèm

==(^o^)==

File đính kèm

Thành viên hoạt động

==(^o^)==

Thành viên hoạt động

Thành viên mới

File đính kèm

0901452không62

Thành viên mới

Facebook

Group