vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 2415: Tabellen zeilenweise alternierend färben; VBA Word (2007) 
Autor: thuring
 Tipp anzeigenDatum: 12.09.15 10:00

Vom Tipp-Autor noch eine kleine "Spaß-Funktion":

Sub TableColoringRandom()
Randomize
colAnz = ActiveDocument.Tables(1).columns.Count
rowAnz = ActiveDocument.Tables(1).Rows.Count
zellAnz = colAnz * rowAnz
For i = 0 To rowAnz
' For j = 0 To colAnz
iCol = Int(colAnz * Rnd + 1)
iRow = Int(rowAnz * Rnd + 1)
' ActiveDocument.Tables(1).Cell(iRow, iCol).Shading.BackgroundPatternColor = ZufallsFarbe
ActiveDocument.Tables(1).Rows(iRow).Shading.BackgroundPatternColor = ZufallsFarbe
' ActiveDocument.Tables(1).Rows(iRow).Shading.Texture = wdTexture87Pt5Percent
' Next
Next
End Sub

Salzburger

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 2415: Tabellen zeilenweise alternierend färben; VBA Wor...2.962thuring12.09.15 10:00

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel