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.
|
Nou pe simpatie:
ionela24 pe Simpatie.ro
 | Femeie
24 ani
Prahova
cauta Barbat
25 - 47 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
TRaPModerator
Postari: 960
|
|
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 |
|
|
| |
|
| #2 |
TRaPModerator
Postari: 960
|
|
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 |
|
|
| |
|
