Bạn xem lại file đính kèm nhé.
Bạn xem file coi đúng ý chưa nhé.
Yêu cầu và ví dụ không cụ thể nên kết quả không như ý, tự bạn rút kinh nghiệm đi.
1./ Không cần tạo nhiều sheet, ta chỉ cần tạo 1 sheet để chứa dữ liệu đã trích lọc là được.
Private Sub CommandButton6_Click()
Dim strName As String
Dim endR As Integer
strName = InputBox(Prompt:="Vui long go ma so can trich loc.", _
Title:="Go ma so trich loc", Default:="CK")
If strName = vbNullString Then
Exit Sub
Else
Sheets("TrichLoc").Range("A4:L65000").ClearContents
HS.AutoFilterMode = False
With HS.Range("A4").CurrentRegion
.AutoFilter Field:=4, Criteria1:=strName & "*"
.Copy Sheets("TrichLoc").Range("A4")
End With
With Sheets("TrichLoc")
endR = .Range("d65000").End(xlUp).Row + 1
.Range("A1") = "B" & ChrW(7842) & "NG T" & _
ChrW(7892) & "NG H" & ChrW(7906) & "P CP KCB BHYT " & strName
.Range("B" & endR) = "T" & ChrW(7893) & "ng C" & ChrW(7897) & "ng:"
For i = 6 To 12
.Cells(endR, i).FormulaR1C1 = "=SUM(R[-" & endR - 4 & "]C:R[-1]C)"
Next
.Range("J" & endR + 2) = "Ngày tháng n" & ChrW(259) & "m"
.Range("J" & endR + 5) = "Giám " & ChrW(272) & ChrW(7889) & "c"
.Range("F" & endR + 5) = "Kê Toán Tr" & ChrW(432) & ChrW(7903) & "ng"
.Range("B" & endR + 5) = "Ng" & ChrW(432) & ChrW(7901) & "i L" & ChrW(7853) & "p"
.Select
End With
HS.ShowAllData
End If
End SubPrivate Sub CommandButtonOK_Click()
'..........
With HS
.Cells(i, 2) = UCase(Me.TextName)
.Cells(i, 3) = Me.TextMSHS
.Cells(i, 4) = UCase(Me.txtText & Me.TextNamsinh)
.Cells(i, 5) = CDate(Me.TextSDT.Value)
.Cells(i, 6) = Me.TextDC.Value
.Cells(i, 7) = Me.TextTENCHA.Value
.Cells(i, 8) = Me.TextNGHECHA.Value
.Cells(i, 9) = Me.TextTENME.Value
.Cells(i, 10) = Me.TextNGHEME.Value
.Cells(i, 11) = Me.TextNoisinh[B][COLOR=#ff0000].Value[/COLOR][/B] [COLOR=#008000][B]'CHINH CHO NAY[/B][/COLOR]
.Cells(i, 12) = Me.TextBox1.Value
End With
If Me.dg > Me.Navi1.Max Then Me.Navi1.Max = Me.dg
setsott
xem
'ChuyenDL
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Centimeters to Inches"
.AddItem "Hectares to Acres"
.AddItem "Liters to Gallons"
End With
End SubSolverOk SetCell:="$P$14", MaxMinVal:=2, ValueOf:=0, ByChange:="$F$14,$K$14", _
[B][COLOR=#ff0000]Engine[/COLOR][/B]:=1, [B][COLOR=#ff0000]EngineDesc[/COLOR][/B]:="GRG Nonlinear"Function SolverOk(Optional SetCell As Variant, Optional MaxMinVal As Variant, Optional ValueOf As Variant, Optional ByChange As Variant) As Variant
Public Function VND(BaoNhieu)
If Val(BaoNhieu) = 0 Then
Ketqua = "Khoâng ñoàng"
Else
If Abs(BaoNhieu) > 1E+15 Then
Ketqua = "Soá quaù lôùn"
Else
If BaoNhieu < 0 Then Ketqua = "Tröø" & Space(1) Else Ketqua = Space(0)
SOTIEN = Format(Abs(BaoNhieu), "###############0.00") '18coät soá 2soá leû
SOTIEN = Right(Space(15) & SOTIEN, 18)
Hang = Array("None", "traêm", "möôi", "gì ñoù")
DONVI = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "xu")
Dem = Array("None", "moât", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
For N = 1 To 6
Nhom = Mid(SOTIEN, N * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If N = 5 Then
Chu = "ñoàng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00", ",00"
Chu = "chaün"
Case Else
S1 = Left(Nhom, 1): S2 = Mid(Nhom, 2, 1): S3 = Right(Nhom, 1)
Chu = Space(0): Hang(3) = DONVI(N)
For K = 1 To 3
Dich = Space(0): S = Val(Mid(Nhom, K, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(K) & Space(1)
Else
If K = 1 And N > 1 And N < 6 And Val(Mid(SOTIEN, (N - 1) * 3 - 2, 3)) > 0 Then
Dich = "khoâng" & Space(1) & Hang(K) & Space(1)
End If
End If
Select Case K
Case 2 And S = 1
Dich = "möôøi" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(K) & Space(1)
Case 3 And S = 5 And Val(S2) > 2
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If N > 1 And Val(Mid(SOTIEN, (N - 1) * 3 - 2, 3)) > 0 Or (Val(S1) > 0) Then
Dich = "leû" & Space(1)
End If
End Select
Chu = Chu & Dich
Next K
End Select
ViTri = InStr(1, Chu, "möôi moät")
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "möôi moát"
Ketqua = Ketqua & Chu
End If
Next N
End If
End If
VND = UCase(Left(Ketqua, 1)) & Trim(Mid(Ketqua, 2))
End Function
35").ClearContents
For Each Ten In Range([c16], [c65536].End(3))
If Ten > 0 And Ten.Font.ColorIndex <> 3 Then '
Doc = .Documents.Open(ThisWorkbook.Path & "\" & [d1] & ".doc")
.Selection.Find.Execute [c12], , , , , , , , , Ten, [COLOR=#ff0000]2[/COLOR]
Bác có thể hướng dẫn em cụ thể được không ạ ?
Tìm hiểu code này nè bạn.
Anh có thể cho xin đường link đến bài viết liên quan được không ạ?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
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 SubXin 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?
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
1./ Đầu câu chưa viết hoa; Cần tôn trọng ngữ fáp tiếng Việt ta hơn.
Chưa thể hiểu được mệnh đề này luôn!
Quá chi là dễ luôn: Bạn tạo 1 ComboBox trên form; Nguồn của nó là vùng 12 hàng (1 cột) chứa các số từ 1 đến 12;
Mình đã tạo ComboBox trên form và chọn được giá trị từ 1-12 rồi, nhưng ngoài các giá trị nhập lựa chọn 1-12 thì khi mình nhập trực tiếp VD: 13 14 thì nó vẫn nhận các giá trị này. Mình hỏi là có cách nào để ngoài những giá trị mình cho phép lựa chọn là từ 1-12 ra thì không nhập được giá trị khác. Như cái file mà mình đã tải lên ấy là ngoài giá trị lựa chọn thì khi mình nhập số khác nó vẫn nhận.
Private Sub CmdNhap_Click()
Dim Endr As Long
With Sheets("sheet1")
If ComboBox1.Text < "1" Or ComboBox1.Text > "9" Then '*'
MsgBox "Cút Ngay!", , "Xin Chào &" '*'
Else '*'
Endr = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & Endr + 1) = ComboBox1.Text
End If '*'
End With
End SubKhông chạy bạn ơi, nhập bao nhiêu nó cũng vẫn nhận bình thường. Ngoài ra mình hiểu code bạn viết là nếu nhỏ hơn 1 hoặc lớn hơn 9, vậy nếu dùng cho ký tự hoặc vùng lựa chọn trước (VD mình đặt name từ ô c1:c12 là "thang") thì code viết thế nào
Thanks bạn cách này hay, nhưng nếu vào trường hợp nhiều ký tự giống nhau và số lượng lớn thì hơi khó áp dụng vd như: list các tỉnh trong cả nước tìm được đúng đến tỉnh mình muốn thì cũng hơi mệt. Có câu lệnh nào để khống chế không đúng giá trị trong lits thì nó không cho nhập không.
Cách thì có, nhưng bạn cứ đổi yêu cầu hoài anh em chạy theo không kịp đâu. Ba hồi là chỉ có 12 tháng, ba hồi là tỉnh thành giúp xong bạn chuyển sang con người,... vậy bạn muốn gì up cái file đúng yêu cầu thực tế của bạn đi sẽ được anh em hưởng ứng giúp đỡ, lưu ý là sẽ không được giúp nếu đưa cái file không đúng thưc tế của bạn, vì giúp xong bạn tiếp tục đổi yêu cầu nửa thì mất công lắm, anh em trong diễn đàn cũng có nhiều người rảnh lắm nhưng lại có ít người kiên nhẫn.
Tại mình mới học về phần này nên cũng không biết có thể làm được những gì, với form nên muốn tìm hiểu thêm để áp dụng vào thực tế công việc. File mình gửi nên mình mới đang làm được một nửa. Mình muốn mã khách hàng và mặt hàng trong ô nhập liêu nếu không đúng như bên sheet!data thì sẽ không cho nhập. Ngoài ra khi nhập mã khách hàng thì tên khách hàng, địa chỉ tự động điền vào cột d và e, điền mặt hàng thì chủng loại, đơn giá cũng điền tương ứng (phần này nếu dùng hàm vlookup của excel thì khi dữ liệu gộp lại lên nhiều thì chạy chậm lắm). Tại nhiều thứ quá nên không dám hỏi một lèo vừa làm vừa tìm hiểu và hỏi trên mạng
Nếu bạn muốn làm phiếu bán hàng thì nên sử dụng SheetForm thì sẽ thuận tiện hơn UserForm nhiều, bạn có thể tham khảo cách làm trong File ở bài viết của Link sau:
Trước khi viết Code.. . , ta bạn sâu hơn về chức năng của Form. Có fải Form để:
Chào bác, em hnay đi làm, giờ mới về online được bác à. Mục đích của em là tìm kiếm dữ liệu trong List Box. Khi tìm thấy thì em kích đúp chuột sẽ lấy dữ liệu ra bảng khác bác ạ. Em chưa hiểu tại sao lại chỉ giới hạn 98 dòng dữ liệu, còn cột thì giới hạn bao nhiêu hả bác?
