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:
angel_jo la Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 72 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 739
|
|
Once you create a Table (CTRL+T), the table style is automatically set to alternate blue / bluish style. In case you want to revert back to normal - no style with 1 click, add this in a module and put a button linking it in your QAT:
Sub TableStyleNone()
ActiveSheet.ListObjects(ActiveSheet.ListObjects(1).Name).TableStyle = ""
End Sub |
|
|
| pus acum 4 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 739
|
|
The above is the case when you only have 1 table in the sheet.
For this to work in any table:
Sub TableStyleNone()
Application.ScreenUpdating = False
If Not ActiveCell.ListObject Is Nothing Then
ActiveSheet.ListObjects(ActiveCell.ListObject.Name).TableStyle = ""
End If
Application.ScreenUpdating = True
End Sub |
|
|
| pus acum 2 luni |
|