chào các bạn!
Mình có một bảng tính mình muốn nhờ các bạn chỉ giúp mình
Một:cách tính giờ ví dụ trong một ô mình đánh là 7:30 - 8:30 thì nó tự tính giờ và hiện sang một ô mà mình cần điền là 60 phút.
Hai:mình muốn nhờ các bạn chỉ hộ mình cách làm sheet tự động ví dụ như sheet1 sửa thành ngay1_5 sheet2 sửa thành 2_5 mình muốn nó tự động thay đổi
vấn đề 1 bạn dùng công thức theo
#3 nhé,
vấn đề 2:
bạn tải file đính kèm, cho chạy
Macro.
thay đổi giá trị ngày và tháng tại
ô A2 ---> sẽ hiện 1 Msgbox hỏi bạn có muốn thay đổi tên sheet ko?
Có thể xảy ra 2 lỗi sau:
- nếu giá trị ô A2 ko có dạng:
Ngày／日…number… tháng／月…number
- hoặc tên sheet đó đã có
'----
code của sheet đó gồm:
[GPECODE=vb]
Function XuLyChuoi(Chuoi As String) As String
Dim wsFunc As WorksheetFunction
Dim Chuoi1 As String
Dim Chuoi2 As String
Set wsFunc = Application.WorksheetFunction
kytudacbiet = Evaluate(ThisWorkbook.Names("kytudacbiet").Value)
Chuoi1 = Left(Chuoi, wsFunc.Find(kytudacbiet, Chuoi, _
wsFunc.Find(kytudacbiet, Chuoi) + 1) - 1)
Chuoi2 = Right(Chuoi, Len(Chuoi) - wsFunc.Find(kytudacbiet, Chuoi, _
wsFunc.Find(kytudacbiet, Chuoi) + 1) - 1)
XuLyChuoi = "date" & ExtractNumber(Chuoi1) & "_" & ExtractNumber(Chuoi2)
End Function
[/GPECODE]
và
Function ExtractNumber (
http://www.ozgrid.com/VBA/ExtractNum.htm)
có thể tách số ở những dạng sau:
và
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SheetName As String, Answer
If Target.Address = "$A$2" Then
If Target <> "" Then
On Error GoTo Stop1
SheetName = XuLyChuoi(Target.Value)
If ActiveSheet.Name <> SheetName Then
mSg = mSg & "Thay doi? te^n sheet tha`nh" & vbNewLine & SheetName
Answer = MsgBox(mSg, vbYesNo + vbQuestion)
If Answer = vbNo Then Exit Sub
'If Answer = vbYes Then
On Error GoTo Stop2
ActiveSheet.Name = SheetName
End If
End If
End If
Exit Sub
Stop1:
MsgBox ("Chuoi~ phai? co dang.:") & vbNewLine & _
("Ngay/ ... number... thang/ ...number"), vbExclamation
Exit Sub
Stop2:
MsgBox ("Ten sheet nay` da~ co' ---> kiem tra lai."), vbExclamation
End Sub
[/GPECODE]
Link:
https://www.mediafire.com/?bddkvrx466l8p1n
