Xử lý tự động đánh số theo thứ tự ngày trong tiếng Anh (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
S

satthuvae

Thành viên thường trực
Tham gia
12/3/09
Bài viết
381
Được thích
52
Nhờ các cao thủ chỉ giáo làm thế nào có thể đánh số ngày tự động có mẫu st, th, rd trên cùng của ngày đó, mình đang cần lập báo cáo tài chính tự động. Rất mong các cao thủ chỉ giáo mình.
Xin cám ơn.
 

File đính kèm

Cám ơn bạn, mình đọc nhưng vẫn không làm cách nào được, vì cái này là mũ của ngày tháng. Bạn xem xử lý giúp mình. Mình rất cần.
 
satthuvae đã viết:
Cám ơn bạn, mình đọc nhưng vẫn không làm cách nào được, vì cái này là mũ của ngày tháng. Bạn xem xử lý giúp mình. Mình rất cần.
Nhấp chuột vào đây để mở rộng...
Thì tôi đã giúp bạn chỉ ra là công thức không làm được. Bạn chờ thành viên khác giúp đỡ bằng code xem sao.
 
Nhờ các cao thủ xem có code nào giúp mình với.
 
satthuvae đã viết:
Nhờ các cao thủ chỉ giáo làm thế nào có thể đánh số ngày tự động có mẫu st, th, rd trên cùng của ngày đó, mình đang cần lập báo cáo tài chính tự động. Rất mong các cao thủ chỉ giáo mình.
Xin cám ơn.
Nhấp chuột vào đây để mở rộng...
Mấy chữ th, st, ... kg có trong Alt code, nên bài này fải viết code thôi
 
Giống vầy phải không ta:
1ˢᵗ, 2ⁿᵈ, 3ʳᵈ, 4ᵗʰ
 
Nếu dùng vba thì
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s$, i&
    If Target.Count > 1 Or Target.Column <> 3 Or (Not IsNumeric(Target)) Then Exit Sub
    Application.EnableEvents = False
    For i = 1 To 31
        If Target = i Then
            Select Case i
                Case 1, 21, 31
                    s = "st"
                Case 2, 22
                    s = "nd"
                Case 3, 23
                    s = "rd"
                Case Else
                    s = "th"
            End Select
            Target = Target.Text & s
            Target.Characters(Len(Target.Text) - 1, 2).Font.Superscript = True
            Exit For
        End If
    Next
    Application.EnableEvents = True
 End Sub
 
Hau151978 đã viết:
Nếu dùng vba thì
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s$, i&
    If Target.Count > 1 Or Target.Column <> 3 Or (Not IsNumeric(Target)) Then Exit Sub
    Application.EnableEvents = False
    For i = 1 To 31
        If Target = i Then
            Select Case i
                Case 1, 21, 31
                    s = "st"
                Case 2, 22
                    s = "nd"
                Case 3, 23
                    s = "rd"
                Case Else
                    s = "th"
            End Select
            Target = Target.Text & s
            Target.Characters(Len(Target.Text) - 1, 2).Font.Superscript = True
            Exit For
        End If
    Next
    Application.EnableEvents = True
 End Sub
Nhấp chuột vào đây để mở rộng...
Sao lại dùng vòng lặp chi vậy anh? Bỏ vòng lặp được mà. Dùng Select Case Target được rồi.
Và nếu không xoá định dạng trước thì nhập lần thứ 2 có thể bị kỳ lắm đó
 
Lần chỉnh sửa cuối:
quanghai1969 đã viết:
Sao lại dùng vòng lặp chi vậy anh? Bỏ vòng lặp được mà. Dùng Select Case Target được rồi.
Và nếu không xoá định dạng trước thì nhập lần thứ 2 có thể bị kỳ lắm đó
Nhấp chuột vào đây để mở rộng...
Tại em lười kiểm tra target có phải số nguyên trong khoảng từ 1 đến 31 không (thay thế if target>=1 and target<= 31 and target=INT(target)), vòng lặp ngắn nên cũng không ảnh hưởng. Còn xóa superscript cho lần sau thì em chưa biết thế nào? Hay là chơi xấu bằng cách thêm ký tự trống ở cuối để xóa?
 
Lần chỉnh sửa cuối:
Hau151978 đã viết:
Tại em lười kiểm tra target có phải số nguyên trong khoảng từ 1 đến 31 không (thay thế if target>=1 and target<= 31 and target=INT(target)), vòng lặp ngắn nên cũng không ảnh hưởng. Còn xóa superscript cho lần sau thì em chưa biết thế nào? Hay là chơi xấu bằng cách thêm ký tự trống ở cuối để xóa?
Nhấp chuột vào đây để mở rộng...
Chèn thêm dòng xoá trước rồi mới định dạng lại
PHP: 
Target.Characters.Font.Superscript = False
 
Mình cám ơn các bạn rất nhiều, các bạn có thể viết lại code hướng dẫn sử dụng file này giúp mình với, minh loay hoay mãi mà không được.
 

File đính kèm

Bạn ơi, mình đã đưa code vào rùi mà, nhập cột c cũng ko được, bạn làm giúp mình với.
 
Mình làm giống như bạn nhưng vẫn không được, bạn có thể làm ví dụ giúp mình không, mình không giỏi cái này. Rất mong bạn chỉ giáo tận tình, xin cám ơn.
 
Cám ơn bạn mình làm được rùi, nhưng mình làm phiền bạn một chút nữa thôi, bạn chỉ giúm cho mình, khi mình muốn chuyển sang cột khác, hay ô khác trong bảng đó, mình sẽ chỉnh code đó như thế nào.
[TABLE="width: 64"]
[TR]
[TD]
Private Sub Worksheet_Change(ByVal Target As Range)
[/TD]
[/TR]
[TR]
[TD] Dim s$, i&[/TD]
[/TR]
[TR]
[TD] If Target.Count > 1 Or Target.Column <> 3 Or (Not IsNumeric(Target)) Then Exit Sub[/TD]
[/TR]
[TR]
[TD] Application.EnableEvents = False[/TD]
[/TR]
[TR]
[TD] For i = 1 To 31[/TD]
[/TR]
[TR]
[TD] If Target = i Then[/TD]
[/TR]
[TR]
[TD] Select Case i[/TD]
[/TR]
[TR]
[TD] Case 1, 21, 31[/TD]
[/TR]
[TR]
[TD] s = "st"[/TD]
[/TR]
[TR]
[TD] Case 2, 22[/TD]
[/TR]
[TR]
[TD] s = "nd"[/TD]
[/TR]
[TR]
[TD] Case 3, 23[/TD]
[/TR]
[TR]
[TD] s = "rd"[/TD]
[/TR]
[TR]
[TD] Case Else[/TD]
[/TR]
[TR]
[TD] s = "th"[/TD]
[/TR]
[TR]
[TD] End Select[/TD]
[/TR]
[TR]
[TD] Target = Target.Text & s[/TD]
[/TR]
[TR]
[TD] Target.Characters(Len(Target.Text) - 1, 2).Font.Superscript = True[/TD]
[/TR]
[TR]
[TD] Exit For[/TD]
[/TR]
[TR]
[TD] End If[/TD]
[/TR]
[TR]
[TD] Next[/TD]
[/TR]
[TR]
[TD] Application.EnableEvents = True[/TD]
[/TR]
[TR]
[TD] End Sub[/TD]
[/TR]
[/TABLE]
Cám ơn bạn!!!!!
 
satthuvae đã viết:
Cám ơn bạn mình làm được rùi, nhưng mình làm phiền bạn một chút nữa thôi, bạn chỉ giúm cho mình, khi mình muốn chuyển sang cột khác, hay ô khác trong bảng đó, mình sẽ chỉnh code đó như thế nào.
[TABLE="width: 64"]
[TR]
[TD]Private Sub Worksheet_Change(ByVal Target As Range)[/TD]
[/TR]
[TR]
[TD] Dim s$, i&[/TD]
[/TR]
[TR]
[TD] If Target.Count > 1 Or Target.Column <> 3 Or (Not IsNumeric(Target)) Then Exit Sub[/TD]
[/TR]
[TR]
[TD] Application.EnableEvents = False[/TD]
[/TR]
[TR]
[TD] For i = 1 To 31[/TD]
[/TR]
[TR]
[TD] If Target = i Then[/TD]
[/TR]
[TR]
[TD] Select Case i[/TD]
[/TR]
[TR]
[TD] Case 1, 21, 31[/TD]
[/TR]
[TR]
[TD] s = "st"[/TD]
[/TR]
[TR]
[TD] Case 2, 22[/TD]
[/TR]
[TR]
[TD] s = "nd"[/TD]
[/TR]
[TR]
[TD] Case 3, 23[/TD]
[/TR]
[TR]
[TD] s = "rd"[/TD]
[/TR]
[TR]
[TD] Case Else[/TD]
[/TR]
[TR]
[TD] s = "th"[/TD]
[/TR]
[TR]
[TD] End Select[/TD]
[/TR]
[TR]
[TD] Target = Target.Text & s[/TD]
[/TR]
[TR]
[TD] Target.Characters(Len(Target.Text) - 1, 2).Font.Superscript = True[/TD]
[/TR]
[TR]
[TD] Exit For[/TD]
[/TR]
[TR]
[TD] End If[/TD]
[/TR]
[TR]
[TD] Next[/TD]
[/TR]
[TR]
[TD] Application.EnableEvents = True[/TD]
[/TR]
[TR]
[TD] End Sub[/TD]
[/TR]
[/TABLE]
Cám ơn bạn!!!!!
Nhấp chuột vào đây để mở rộng...
Bạn sửa chỗ chữ màu đỏ (số 3) thành số tùy ý
Mã: 
If Target.Count > 1 Or Target.Column <> [COLOR=#ff0000][B]3 [/B][/COLOR]Or (Not IsNumeric(Target)) Then Exit Sub
 
Cám ơn sự chỉ bảo nhiệt tình của bạn.
 
Bạn ơi, vẫn cũng là vấn đề này, mình mong bạn chỉ giáo thực tế mình muốn vì dụ: Ha Noi 12th 2014 chẳng hạn. Nhưng khi mình thêm công thức như vậy nó không nhảy được tự động. Rất mong bạn chỉ giao giúp mình.
 

File đính kèm

satthuvae đã viết:
Bạn ơi, vẫn cũng là vấn đề này, mình mong bạn chỉ giáo thực tế mình muốn vì dụ: Ha Noi 12th 2014 chẳng hạn. Nhưng khi mình thêm công thức như vậy nó không nhảy được tự động. Rất mong bạn chỉ giao giúp mình.
Nhấp chuột vào đây để mở rộng...
Nếu muốn như ví dụ của bạn, thì
Mã: 
="Ha Noi, ngày "&C11&" tháng 10 "&" Năm 2014"
Tuy nhiên các chữ St,th... sẽ kg là chữ mũ vì các chữ st, th... được tạo từ code tạo Superscript chứ kg fải tạo từ Alt code (như tôi nói ở bài #7)
 
Vậy là không có cách nào có thể sử dụng code mà khi viết công thức cho ngày tháng bằng tiếng anh mà chỉ duy nhất ngày là có số mũ trên cùng.
 
Mình đang rất loay hoay mãi vụ mà tự động việt ngày tháng có mũ trên cùng, có bạn nào xem có cách nào xử lý giúp mình để file excel của mình nó tự động được không. Xin cám ơn các bạn đã đọc bài vì.
 
satthuvae đã viết:
Vậy là không có cách nào có thể sử dụng code mà khi viết công thức cho ngày tháng bằng tiếng anh mà chỉ duy nhất ngày là có số mũ trên cùng.
Nhấp chuột vào đây để mở rộng...
Cái này tôi kg rỏ
ở File tôi gởi lên, bạn thay số 1 ở cell C1 thành số 2 hay 3. Bạn sẽ thấy kết quả cell E1 thay đổi như thế nào !
 

File đính kèm

Các bạn xem giúp mình trường hợp này để đánh sổ ngày tháng có kèm theo tham số mà sử dụng marco được không. Xin cám ơn
 
satthuvae đã viết:
Bạn ơi, vẫn cũng là vấn đề này, mình mong bạn chỉ giáo thực tế mình muốn vì dụ: Ha Noi 12th 2014 chẳng hạn. Nhưng khi mình thêm công thức như vậy nó không nhảy được tự động. Rất mong bạn chỉ giao giúp mình.
Nhấp chuột vào đây để mở rộng...
Không bao giờ có ai định dạng ngày tháng tiếng Việt có cái "th" kỳ cục như vậy cả. Thậm chí cả tiếng Anh người ta cũng không cần.
 
Không bạn ah, bên mình làm báo cáo bằng tiếng anh, nhiều lúc Sếp bắt đổi th, st, rd lên đầu bạn ah
Ví dụ "Ha Noi 12th May 2014" Cái khó nhất chứ "th" không để số mũ được. Mình rất khó khăn khi lập báo cáo. Nhiều khi toàn phải sửa thủ công. Nhờ các bạn có marco nào mà xử lý được giúp mình.
Xin cám ơn.
 
satthuvae đã viết:
Không bạn ah, bên mình làm báo cáo bằng tiếng anh, nhiều lúc Sếp bắt đổi th, st, rd lên đầu bạn ah
Ví dụ "Ha Noi 12th May 2014" Cái khó nhất chứ "th" không để số mũ được. Mình rất khó khăn khi lập báo cáo. Nhiều khi toàn phải sửa thủ công. Nhờ các bạn có marco nào mà xử lý được giúp mình.
Xin cám ơn.
Nhấp chuột vào đây để mở rộng...
Bạn có thể đánh 12th bình thường sau đó dùng hàm Instr để dò tìm chuỗi 12th trong ô rồi dùng object characters để chuyển th thành superscript.
 
Bạn có thể làm ví dụ giúp mình không, xin cám ơn bạn
 
Các bạn có mã code nào có thể đánh số mũ ngày tháng không, xem giúp mình với, mình cần quá.
 
satthuvae đã viết:
Các bạn có mã code nào có thể đánh số mũ ngày tháng không, xem giúp mình với, mình cần quá.
Nhấp chuột vào đây để mở rộng...
Code có tác dụng trong cột D. Thử xem có xài được không
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D:D]) Is Nothing Then
   Application.EnableEvents = False
      If IsDate(Target) Then
         Dim tem As String
         Select Case Day(Target)
         Case 1, 21, 31: tem = Day(Target) & "st"
         Case 2, 22: tem = Day(Target) & "nd"
         Case 3, 23: tem = Day(Target) & "rd"
         Case Else: tem = Day(Target) & "th"
         End Select
         Target = "Ha Noi, " & tem & Space(1) & MonthName(Month(Target), 1) & Space(1) & Year(Target)
         Target.Characters(Len(Target) - 10, 2).Font.Superscript = True
      End If
   Application.EnableEvents = True
End If
End Sub
 
Cám ơn bạn Quang Hai nhiều lắm, bạn chỉ bảo nhiệt tình, mình thực tế không hiểu nhiều, mình có file đình kèm, mình chèn code của bạn vào rùi. Và dữ liệu có sẵnm bạn giúp mình xử lý vấn đề này với, mình thấy khó quá. Vẫn là vấn đề đánh số ký tự lên đầu ngày tháng
Cám ơn bạn nhiều.
 

File đính kèm

Với Code anh Hải thì bạn, phải làm như sau:

1/ Copy code trên vào cửa sổ Code sheet1 chứ ko phải vào module.
2/ Tại cột D bạn gõ ngày tháng năm vào.
 
Cám ơn bạn, mình đã làm như vậy, bạn xem giúp mình với. Mình đã gửi file đính kèm.
 
Anh Hải ơi, xem giùm em với.
 
satthuvae đã viết:
Cám ơn bạn, mình đã làm như vậy, bạn xem giúp mình với. Mình đã gửi file đính kèm.
Nhấp chuột vào đây để mở rộng...
Code này sẽ chuyển ngày tháng nhập vào cột B thành chuỗi "Ha Noi ...." ở cột D. Bạn sửa thủ tục này ở sheet1.
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range, s$, s1$
    Application.EnableEvents = False
    If Not Intersect(Target, Columns(2)) Is Nothing Then
        For Each cel In Intersect(Target, Columns(2))
            If IsDate(cel) Then
                Select Case Day(cel)
                    Case 1, 21, 31
                        s = "st"
                    Case 2, 22
                        s = "nd"
                    Case 3, 23
                        s = "rd"
                    Case Else
                        s = "th"
                End Select
                s1 = "Ha Noi " & Format(cel.Text, "dd mmmm yyyy")
                s1 = Left(s1, 9) & s & Right(s1, Len(s1) - 9)
                cel.Offset(, 2) = s1
                cel.Offset(, 2).Characters(10, 2).Font.Superscript = True
            End If
        Next
    End If
    Application.EnableEvents = True
End Sub
Xin lỗi, post bài xong mới biết nó giống code bác Quang Hải.
 
Lần chỉnh sửa cuối:
satthuvae đã viết:
Cám ơn bạn Quang Hai nhiều lắm, bạn chỉ bảo nhiệt tình, mình thực tế không hiểu nhiều, mình có file đình kèm, mình chèn code của bạn vào rùi. Và dữ liệu có sẵnm bạn giúp mình xử lý vấn đề này với, mình thấy khó quá. Vẫn là vấn đề đánh số ký tự lên đầu ngày tháng
Cám ơn bạn nhiều.
Nhấp chuột vào đây để mở rộng...
1/ Bạn thực hiện như bải #36
2/ Tại sheet 1, bất kỳ cell nào của cột D bạn nhập thử 24/12/2014 rồi Enter-> xem kết quả
 
Em làm được rùi ah, em cám ơn các anh các chị, tại vì em gà quá. Em cám ơn anh Hải, Hong Van.
Anh chị ơi, 2 vấn đề nhỏ nữa mong anh chị và các bạn chị giáo
1. Tháng khi nhập thực hiện tắt không ra hết tháng ví dụ tháng 9: Sep, em muốn ở đây ra September.
2. Hà Nội ở đây có thể thay bằng một tỉnh bất kỳ không, nó phụ thuộc vào ô ta muốn tham chiếu.
Em cám ơn ah.
 
satthuvae đã viết:
Em làm được rùi ah, em cám ơn các anh các chị, tại vì em gà quá. Em cám ơn anh Hải, Hong Van.
Anh chị ơi, 2 vấn đề nhỏ nữa mong anh chị và các bạn chị giáo
1. Tháng khi nhập thực hiện tắt không ra hết tháng ví dụ tháng 9: Sep, em muốn ở đây ra September.
2. Hà Nội ở đây có thể thay bằng một tỉnh bất kỳ không, nó phụ thuộc vào ô ta muốn tham chiếu.
Em cám ơn ah.
Nhấp chuột vào đây để mở rộng...
Trong code có 1 chỗ là [A1], bạn thay địa chỉ cho phù hợp nhu cầu.
Đã chỉnh cho ra dạng tháng đầy đủ.
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D:D]) Is Nothing Then
   Application.EnableEvents = False
      If IsDate(Target) Then
         Dim tem As String, Ngay, Tinh
         Tinh = [A1].Value
         Select Case Day(Target)
         Case 1, 21, 31: tem = Day(Target) & "st"
         Case 2, 22: tem = Day(Target) & "nd"
         Case 3, 23: tem = Day(Target) & "rd"
         Case Else: tem = Day(Target) & "th"
         End Select
         Ngay = Len(Day(Target))
         Target = Tinh & ", " & tem & Space(1) & MonthName(Month(Target), 0) & Space(1) & Year(Target)
         Target.Characters(Len(Tinh) + Ngay + 3, 2).Font.Superscript = True
      End If
   Application.EnableEvents = True
End If
End Sub
 
Em cám ơn bác Hải, bác thật Pro.
Anh cho em hỏi một chút, có thể tự động thì mà địa chỉ thay đổi, hay ngày tháng nó thay đổi thì cột ở D cũng thay đổi được không ah. Em thấy mặc dù làm được nhưng khi em thay đổi ngày tháng thì nó không nhảy tự động.
Anh xem giúp em có cách nào không ah.
 
satthuvae đã viết:
Em cám ơn bác Hải, bác thật Pro.
Anh cho em hỏi một chút, có thể tự động thì mà địa chỉ thay đổi, hay ngày tháng nó thay đổi thì cột ở D cũng thay đổi được không ah. Em thấy mặc dù làm được nhưng khi em thay đổi ngày tháng thì nó không nhảy tự động.
Anh xem giúp em có cách nào không ah.
Nhấp chuột vào đây để mở rộng...
Mình chỉ viết tới đây thôi, không viết nữa đâu. Bạn đợi thành viên khác hỗ trợ nhé.
 
Nhờ các anh chị xem giúp em, Anh Hải đã xử lý được vấn đề đánh số trên mũ ngày tháng trong tiếng anh, nhưng chưa thể tự động được. Mong các anh chị xem có cách nào tự động code đó được không. Em cám ơn ạ.
 
Anh Hải ơi, anh xem giúp em xử lý được nốt cái vấn đề tự động đi, ko thấy cao thủ nào trợ giúp. Xin cám ơn anh ah.
 
satthuvae đã viết:
Nhờ các anh chị xem giúp em, Anh Hải đã xử lý được vấn đề đánh số trên mũ ngày tháng trong tiếng anh, nhưng chưa thể tự động được. Mong các anh chị xem có cách nào tự động code đó được không. Em cám ơn ạ.
Nhấp chuột vào đây để mở rộng...
Kg hiểu bạn muốn tự động kiểu gì?
 
Anh Hải đã xử lý được việc đánh sổ rùi ah. Ví dụ khi ở ô A1 thay đổi tỉnh thành phố, hoặc thay đổi ngày tháng. Khi thay đổi thì tham chiếu cột D nó không tự động thay đổi. Xem giúp em có thể tự động được không ah.
 
satthuvae đã viết:
Anh Hải đã xử lý được việc đánh sổ rùi ah. Ví dụ khi ở ô A1 thay đổi tỉnh thành phố, hoặc thay đổi ngày tháng. Khi thay đổi thì tham chiếu cột D nó không tự động thay đổi. Xem giúp em có thể tự động được không ah.
Nhấp chuột vào đây để mở rộng...
Bạn chịu khó tự xử cho có lao động chút nhá.
1. Mở cửa sổ VBE lên, vào mục Insert chèn vào 1 Module, rồi copy code này vào
PHP: 
Function OrdSuf(ByVal Num As Long) As String
'Written by QuangHai
Dim Arr()
Arr = Array("st", "nd", "rd")
Select Case Num
Case 4 To 20, 24 To 30: OrdSuf = "th"
Case Else: OrdSuf = Arr(Num Mod 10 - 1)
End Select
End Function
2. Đang trong cửa sổ VBE, nhấp đôi chuột vào sheet cần tự động vào cho đám rừng này vào
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Union([A1], [B1])) Is Nothing Then
   If IsDate([B1]) Then
      Dim KT, Ngay, Tinh
      Tinh = [A1] & ", "
      Ngay = Day([B1])
      KT = Len(Ngay) + Len(Tinh) + 1
      [D1] = Tinh & Ngay & OrdSuf(Ngay) & Format([B1], " mmmm yyyy")
      [D1].Characters(KT, 2).Font.Superscript = True
   End If
End If
Application.EnableEvents = True
End Sub
3. Sử dụng
Tại A1 nhập vào tên tỉnh
Tại B1 nhập ngày tháng
Thì D1 sẽ xuất hiện định dạng tự động. Khi thay đổi tại A1 hoặc B1 thì D1 sẽ tự động thay đổi.
Nếu đã đúng yêu cầu thì có thể điều chỉnh các ô A1, B1 và D1 theo nhu cầu thực tế

Chúc may mắn!
 
Dạ em xin cám ơn bác Quang Hải nhiều ah Em đã làm được rùi ah. Bác chỉ bảo thật nhiệt tình. Hy vọng được bác chiếu cố.
Chúc bác mạnh khỏe.
 
Hi anh Hải, " Quá tam ba bận" em thấy rõ làm như vậy rất ổn nhưng có đúng là một điểm cuối cùng em thấy khó là có một cái sheet cố định để nhập ví dụ sheet 2 nhập tham số là tỉnh và ngày tháng sau đó link sang sheet 1 là A1 và B1, thi D1 nó vẫn không tự động nhảy ah. Nó chỉ nhảy khi ta nhập dữ liệu vào Sheet1, hoặc ấn F2 vào nó mới nhẩy tự động.
Có lẽ em đòi hỏi hơi quá đáng, mong bác chiếu cố lần nữa.
Xin cám ơn ạ.
 
satthuvae đã viết:
Hi anh Hải, " Quá tam ba bận" em thấy rõ làm như vậy rất ổn nhưng có đúng là một điểm cuối cùng em thấy khó là có một cái sheet cố định để nhập ví dụ sheet 2 nhập tham số là tỉnh và ngày tháng sau đó link sang sheet 1 là A1 và B1, thi D1 nó vẫn không tự động nhảy ah. Nó chỉ nhảy khi ta nhập dữ liệu vào Sheet1, hoặc ấn F2 vào nó mới nhẩy tự động. Có lẽ em đòi hỏi hơi quá đáng, mong bác chiếu cố lần nữa. Xin cám ơn ạ.
Nhấp chuột vào đây để mở rộng...
Ai cũng có quyền mưu cầu hạnh phúc riêng mà. Muốn thì cứ đòi, cho hay không là chuyện của người ta. Kệ đi, cứ đòi nếu còn nhu cầu.
 

File đính kèm

Lần chỉnh sửa cuối:
Em cám ơn anh "Quanghai1969" rất nhiều ah.
 
Hi anh Quang Hải, đúng là đòi hỏi quá đáng quá ah, nhưng đúng thật là em vẫn còn một điểm khó là do ô báo kết quả là ô D1 của Sheet1, nhưng em lại muốn thêm là sang ở F10 ở sheet 3 và G10 ở sheet 4 cũng hiện lên được như thế ah. Không biết có làm như thế nào ah. Mong anh ra tay giúp em thêm lần nữa ah. Em cám ơn Anh.
 
satthuvae đã viết:
Hi anh Quang Hải, đúng là đòi hỏi quá đáng quá ah, nhưng đúng thật là em vẫn còn một điểm khó là do ô báo kết quả là ô D1 của Sheet1, nhưng em lại muốn thêm là sang ở F10 ở sheet 3 và G10 ở sheet 4 cũng hiện lên được như thế ah. Không biết có làm như thế nào ah. Mong anh ra tay giúp em thêm lần nữa ah. Em cám ơn Anh.
Nhấp chuột vào đây để mở rộng...
Phương châm của mình "không có gì là khó, mà khó quá thì bỏ..." Yêu cầu của bạn chỉ cần thêm 1 dòng lệnh nữa thôi. Bạn tự ngâm cứu đi cho có lao động chút.
 
Em mù chữ về viết lệnh, có khó mới nhờ đến các cao thủ như Anh ah. Không phải là em thuộc dạng lười lao động ah. Cám ơn anh.
 
Em lúc đầu cũng định làm là tạo ra 3 moduel, và các sheet chính copy main vào, nhưng nó báo lỗi, vì em ko hiểu bản chất của câu lệnh. Có gì anh chỉnh sửa giúp em.
 
Anh Quang Hải ra tay giúp em với ạ.
 

File đính kèm

Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

B
Bỏ lọc và sort trong VBA
Trả lời
1
Đọc
48
Bảo_Anh_
B
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
5
Đọc
195
DeTong
D
T
Xin hỏi về bảng lương
Trả lời
1
Đọc
115
SA_DQ
SA_DQ
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ
Trả lời
3
Đọc
103
Thaik05
T
J
chiết khấu ở hóa đơn bán lẻ, lưu vào sheet tổng hợp
Trả lời
2
Đọc
73
le_vis
L
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
8
Đọc
708
Hoàng Tuấn 868
H
B
Sau 1 tháng Mã Lại reset về 1 trở lên
    • Chấp nhận
Trả lời
23
Đọc
359
SA_DQ
SA_DQ
H
Đánh số thứ thự phiếu thu chi
Trả lời
16
Đọc
325
HangktGTN
H
4
HỌC ĐẠI LÝ THUẾ
Trả lời
1
Đọc
51
Hoàng Tuấn 868
H
B
Chuyển số tiền thành chữ
Trả lời
3
Đọc
86
bongngongo
B
S
Tạo sheet mới từ dữ liệu 2 sheet khác ĐVT
Trả lời
1
Đọc
112
Hoàng Tuấn 868
H
H
  • Question Question
Xin giúp đỡ về tạo hàm excel với C# và excel-dna
Trả lời
0
Đọc
86
hdcv.excel
H
N
  • Question Question
Cho em hỏi về mail merge bằng vba
Trả lời
5
Đọc
175
Hoàng Tuấn 868
H
T
Khóa cột cập nhật dữ liệu
Trả lời
0
Đọc
77
tnkhanhvy
T
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp
Trả lời
1
Đọc
109
LOGANWover
L
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
171
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao
Trả lời
22
Đọc
780
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK)
Trả lời
5
Đọc
171
huhumalu
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom