/ / Властивості Interior.PatternTintAndShade - excel, vba, xlsx

Властивості Interior.PatternTintAndShade - excel, vba, xlsx

Я працюю над таблицями Excel з великою кількістюдані про клітинку на основі шару. Я намагаюся прочитати значення цих моделей комірок і зберігати цю інформацію в іншому аркуші. Але я не можу це зробити, оскільки в Excel немає жодної функції. Будь ласка, допоможіть.

Відповіді:

0 для відповіді № 1

Згідно з вашим заголовком, видається, що ви хочете VBA. Тепер незрозуміло, чи хочете ви копіювати Interior.Pattern, Interior.PatternTintAndShade, або, можливо, щось інше.

Код, який вам потрібен, є щось подібне

Dim wssrc as Worksheet, wstrg as Worksheet
Dim rngsrc as Range, clsrc as Range, cltrg as Range
Set rngsrc = <what you want>
For Each clsrc in rngsrc
Set cltrg = wstrg.Range(clsrc.Address)
cltrg.Interior.PatternTintAndShade = clsrc.Interior.PatternTintAndShade
Next clsrc

(PS: у мене в даний час немає системи з Excel, тому для цього коду можуть знадобитися невеликі коригування).

Інший варіант, який, можливо, працює для вас: перша копія, а потім використовуйте Range.PasteSpecial Метод, з першим аргументом xlPasteFormats. Це метод VBA для Редагувати -> Вставити спеціальне (див. коментар Джипа).