doanhoanghai
Thành viên hoạt động
- Tham gia
- 20/12/07
- Bài viết
- 195
- Được thích
- 4
MÌnh CÓ MỘt VẤn ĐỀ ChƯa LÀm ĐƯỢc Mong MỌi NgƯỜi GiÚp ĐỠ ! VẤn ĐỀ LÀ In BÁo CÁo Theo Đk NgÀy ThÁng ! RẤt Mong MỌi NgƯỜi GiÚp MÌnh VỚi ! Thank
nhưng bạn ơi mình có hỏi thêm thế này mong bạn chỉ giáo !
mình có viết cái lịch ngày tháng đâu mình tìm thấy trên mạng đó ! hihi ...
Tuấn Kiệt viết dùm mình với mình kém lắm viết mãi không được này huuhuu giúp mình nhé
regsvr32 \windows\system32\MSCOMCT2.OCX
bạn ơi sao mình làm như bạn bảo là mỗi lần chạy là excel đơ luôn à ! không làm thế nào tắt đc cả mình toàn phải dùng ctrl+alt+delele thôi check lại dùm mình nhé còn file trên có tác dụng gì vậy bạn ?
bạn ơi mình làm rồi nhưng vẫn không đc bạn giúp mình với ! thank
Private Sub CommandButton3_Click()
"Bạn thiếu cái này:
Range("BegDate") = Me.Textbox1 "của mình là Me.BegDate
Range("EndDate") = Me.Textbox2 "của mình là Me.EndDate
Unload Me
Call MyPrint
End Sub
Sub MyPrint()
Dim TuNgay, DenNgay As String
TuNgay = Range("BegDate").Value
DenNgay = Range("EndDate").Value
Sheets("IN").Select
Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Select
On Error GoTo Kiet
Selection.AutoFilter Field:=8, Criteria1:=">=TextBox1" & Format(TuNgay, "mm/dd/yyyy"), Operator:=xlAnd _
, Criteria2:="<=TextBox2" & Format(DenNgay, "mm/dd/yyyy")
ActiveWindow.SelectedSheets.PrintPreview
Kiet:
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:=">=TextBox1" & Format(TuNgay, "mm/dd/yyyy"), Operator:=xlAnd _
, Criteria2:="<=TextBox2" & Format(DenNgay, "mm/dd/yyyy")
ActiveWindow.SelectedSheets.PrintPreview
Range("A4").Select
End Sub
Sub MyPrint()
Dim TuNgay, DenNgay As String
TuNgay = Range("BegDate").Value
DenNgay = Range("EndDate").Value
Sheets("IN").Select
Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Select
On Error GoTo Kiet
Selection.AutoFilter Field:=8, Criteria1:=">=" & Format(TuNgay, "mm/dd/yyyy"), Operator:=xlAnd _
, Criteria2:="<=" & Format(DenNgay, "mm/dd/yyyy")
ActiveWindow.SelectedSheets.PrintPreview
Kiet:
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:=">=" & Format(TuNgay, "mm/dd/yyyy"), Operator:=xlAnd _
, Criteria2:="<=" & Format(DenNgay, "mm/dd/yyyy")
'ActiveWindow.SelectedSheets.PrintPreview
Range("A4").Select
End Sub
bạn ơi sao mình làm như bạn mà nó vẫn không in ra hoặc báo lỗi gì là sao nhỉ ! mình phải làm sao bây giờ ! giúp mình với nhé !
Sub InBC(ND As Date, NC As Date)
Dim HC As Long, i As Long
If ND = 0 Or NC = o Then Exit Sub
With Sheet1
.Range("C1").Value = ND
.Range("C2").Value = NC
HC = .Range("A65000").End(xlUp).Row
'.Range("A1:A" & HC).EntireRow.Hidden = False
For i = 5 To .Range("A65000").End(xlUp).Row
With .Range("H" & i)
If .Value < ND Or .Value > NC Then .EntireRow.Hidden = True
End With
Next
.PrintPreview (False)
.Range("A1:A" & HC).EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub
Public Function SuaNgay(NgayBatKy, Optional Loai As String = "") As Date
Dim WS As Variant, WP As Variant, WDD As Variant, WMM As Variant, WYY As Variant
Dim KT As String
WS = NgayBatKy
If Not IsDate(WS) Then
'MsgBoxUni VNItoUNI("Ngaøy khoâng hôp leä "), vbInformation, VNItoUNI("Traàn Troïng Hieáu")
SuaNgay = Date
Else
If InStr(1, WS, "/") > 0 Then
KT = "/"
ElseIf InStr(1, WS, "-") > 0 Then
KT = "-"
End If
WP = InStr(1, WS, KT)
WDD = Left(WS, WP - 1)
WS = Mid(WS, WP + 1)
WP = InStr(1, WS, KT)
If WP = 0 Then
WMM = WS
WYY = Year(Date)
Else
WMM = Left(WS, WP - 1)
WYY = Mid(WS, WP + 1)
End If
SuaNgay = DateSerial(WYY, WMM, WDD)
'If Loai = "CN" Then
'If Weekday(SuaNgay, vbSunday) = 1 Then
'MsgBoxUni VNItoUNI("Ñaây laø Ngaøy Chuû Nhaät"), vbInformation, ThongTin("TacGia")
'End If
'End If
SuaNgay = Format(SuaNgay, "dd/mm/yyyy")
End If
End Function
bạn ơi ! mình làm mấy hôm mà không được theo ý mình à ! mình làm Vd nhỏ mà vẫn không được luôn ! mà đoạn này :
.Range("C1").Value = ND
.Range("C2").Value = NC
HC = .Range("A65000").End(xlUp).Row
mình không muốn cùng C1 , C2 mà dùng text 1 và text 2 được không bạn
bạn có thể hướng dẫn mình không ?
mình còn kém lắm lắm ! mong bạn giúp đỡ
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2