VB.NET을 사용하여 셀을 채우는 패턴 채우기

Question

셀을 채우는 패턴을 채우는 방법은 무엇입니까?

이 포럼의 일부 게시물을 바탕으로 다음과 같이 사용하려고했지만 지금까지 성공하지 못했습니다.

A)

oWB1.Worksheets(i).Cells(7, 3).Interior.PatternIndex = 5 

B)

Dim style As Microsoft.Office.Interop.Excel.Style 
style = oWB1.Styles.Add("Style1") 
style.Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid 
oWB1.Worksheets(i).Cells(7, 3).Style = "Style1" 

어떤 도움은 정말 이해할 수있을 것이다.

감사

Answer 1

이 (엑셀 VSTO) 코드가 작동합니다

Dim rng As Range = activeSheet.Range(1,1) 
rng.Style = "Calculation" 

"계산"이 스타일의 이름입니다.