文書番号: 402409
最終更新日: 1998/02/03
Sub RangeSample() With GetPrivateRange() .Bold = True .Itaric = True End With End Sub Function GetPrivateRange() As Range Set GetPrivateRange = ThisWorkbook.Worksheets("Sheet1"). _ Range("A1") End Function
Sub RangeSample() Dim TempRange As Range Set TempRange = GetPrivateRange() With TempRange .Bold = True .Itaric = True End With End Sub
Keywords: KBBUG KB402409
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch