Hỏi: Chữ đầu dòng tự in Hoa sau dấu cách

[sosmg]

Mấy ace cho e hỏi muốn chữ đầu dòng tự động in hoa sau dấu cách như ở Word thì phải làm sao?. Ví dụ: đánh chữ "anh" khoảng cách nó sẽ trở thành chữ "Anh". e cám ơn nhiều

 

[tam888]

Mấy ace cho e hỏi muốn chữ đầu dòng tự động in hoa sau dấu cách như ở Word thì phải làm sao?. Ví dụ: đánh chữ "anh" khoảng cách nó sẽ trở thành chữ "Anh". e cám ơn nhiều

Giữ phím Shift là được
Còn chót nhập rồi (ví dụ tại A1) thì dùng công thức B1 để biến chữ hoa như sau

=PROPER(LEFT(A1))&MID(A1,2,999)

sau đó pastespecial value hay làm gì tiếp thì tùy

 

[HeSanbi]

Bài viết bên này sẽ giúp bạn đạt được mong muốn
Link: Sự kiện gõ phím vào Cells ***Cần đọc toàn bộ bài

Sửa lại:

  If GetActiveWindow = FindWindow("XLMAIN", Application.Caption) Then
    If (nCode = HC_ACTION) Then
      If wParam = WM_KEYUP Then
      End If
      If wParam = WM_KEYDOWN Then
        Select Case KeyCode
          Case vbKeyA To vbKeyZ
            If FirstSpace = False Then
              StrSendKeys$ = UCase$(ChrW$(KeyCode))
              FirstSpace = True
              Cell_OnKeyDown = -1
              Application.OnTime Now, "SendKeysTime", , True
              Exit Function
            End If
          Case Else
            Cell_OnKeyDown = 0
        End Select
      End If
    End If
  Else
      Application.OnTime Now, "Unhook_KeyBoard", , True : Exit Function
  End If

Sửa phần Document Module (Sheet Code):

'Dành cho một Worksheet duy nhất
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If HasUpperFirstString Then ActiveEvent Target
End Sub

Sửa phần ThisWorkbook Code:

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   Unhook_KeyBoard
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Unhook_KeyBoard
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Unhook_KeyBoard
End Sub
'Dành cho toàn bộ các Worksheet'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   Unhook_KeyBoard
   'If HasUpperFirstString Then ActiveEvent Target
End Sub

Thêm vào module của Code Sự kiện gõ phím vào Cells:

Private StrSendKeys$ 'Copy để nằm trên tất cả các Sub Function'
Public HasUpperFirstString As Boolean  'Copy để nằm trên tất cả các Sub Function'

'Muốn thực hiện thì phải gọi Sub này trước
Sub ChoPhepHoacKhongUpperFirstString()
    HasUpperFirstString = IIF(Not HasUpperFirstString, True, False)
    MsgBox "Hoat Dong = " & HasUpperFirstString
End Sub

Private Sub SendKeysTime()
  SendKeys StrSendKeys: StrSendKeys = ""
End Sub