Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Nebunatyka
 | Femeie
23 ani
Bucuresti
cauta Barbat
23 - 73 ani |
|
TonyTzu
Moderator
 Inregistrat: acum 12 ani
Postari: 252
|
|
Macro to make text in column G in Proper Case, no matter how you write text in there:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("G1:G1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Application.WorksheetFunction.Proper(Target)
Application.EnableEvents = True
End Sub |
Macro to make text in column G in UPPER CASE, no matter how you write text in there:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("G1:G1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub |
Macro to make text in column G in lower case, no matter how you write text in there:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("G1:G1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = LCase(Target)
Application.EnableEvents = True
End Sub |
|
|
| pus acum 6 ani |
|