#1
|
|||
|
|||
Reference Word Table Cell Using Offset?
I have a Word 2013 document with a number of tables. One table contains say 18 columns and 13 rows; each even numbered column contains an ActiveX CheckBox that references the cell to the left. When the CheckBox is selected, I want to simply format the cell to the left. I've used some basic coding, but with the number of rows and columns, I then have to change the value for each CheckBox. My code per CheckBox is as follows:
Code:
Application.ScreenUpdating = False If cbHazChem.Value = True Then ActiveDocument.Tables(24).Cell(3, 1).Select Selection.Shading.BackgroundPatternColor = wdColorYellow Else ActiveDocument.Tables(24).Cell(3, 1).Select Selection.Shading.BackgroundPatternColor = wdColorAutomatic End If Application.ScreenUpdating = False Any thoughts? Regards Corin. |
#2
|
||||
|
||||
Word has no offset function. Instead, in Word you could use code like:
Code:
Private Sub CheckBox1_Click() Call ShadeCell(CheckBox1.Value) End Sub Sub ShadeCell(bVal As Boolean) Application.ScreenUpdating = False With Selection.Cells(1).Previous.Shading .BackgroundPatternColor = wdColorAutomatic If bVal = True Then .BackgroundPatternColor = wdColorYellow Else .BackgroundPatternColor = wdColorAutomatic End If End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you so much Paul; Perfect!! Very much appreciated. I've got another conundrum that I might be asking about shortly; it involves taking the value from a UserForm and transferring it to a specific cell within a table. I'll see what I can do find before asking another question.
Thanks once again. Regards Corin. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to reference more than one table in a Word doc | scootermac315 | Word VBA | 5 | 06-22-2015 05:28 PM |
Offset Table and Pivot Table | ubns | Excel | 1 | 04-17-2015 12:28 AM |
Assign the value of a cell as a cell reference of another cell in Excel 2010 - How to? | bharathkumarst | Excel | 7 | 10-13-2014 10:25 AM |
Syntax to use OFFSET() in a cell formula? | dlowrey | Excel | 3 | 07-09-2013 09:15 AM |
How do I reference a merged cell in a multi column & row table in MS Word ('03')? | jihanemo | Word Tables | 0 | 03-18-2009 08:33 AM |