|
× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
 |
|
Cell Format - 1
0ption Explicit )なら以下の書式を設定 Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop).Weight = xlMedium Borders(xlEdgeTop).Color=16711680 '青線 Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeBottom).Oolor 〓 16711680 .Borders(xlEdgeLeft)。Weight = xl∥ed i uln .Borders(x!EdgeLeft).Oolor = 16711680 .Borders(xlEdgeRight)Weight = xl∥edium .Borders(xlEdgeRight).Oolor = 16711680 End W:th lf x = -l Then myRng.Offset(y, x). lnterior.Oolor = 15849925 'ItttE Else Range(myRng.Offset(y, x), myRng.Offset(0, -1)). lnterlor.Oolor = 15849925 '「辱tL End lf End Sub なら以下の書式を設定 With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop).Weight = xl∥edium Borders(x:EdgeTop).Color = 16711680 '青線 .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeBottom).Oolor = 16711680 .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeLeft).Oolor = 16711680 .Borders(xlEdgeRight).Weight = xl∥edium .Borders(xlEdgeRight).Oolor 〓 16711680 End With lf x = -l Then myRng.Offset(y, x). lnterior.Color = 15849925 '5RtL Else Range(myRng.Offset(y, x), myRng.Offset(y, -1)). lnterior.Oolor = 15849925 '層辱(菫 End lf End Sub )なら以下の書式を設定 With Range(myRng.Offset(y, x), myRng) Borders(xlEdgeTop).Weight = xlThin .Borders(x:EdgeTop).Oolor = 0 '月晨t三 Borders(xlEdgeBottom).Weight = xlThin Borders(xlEdgeBottom).Color = 0 Borders(xlEdgeLeft).Weight = xlThin Borders(xlEdgeLeft).Color = 0 Borders(xlEdgeRight).Weight = xlThin .Borders(xlEdgeRight).Oolor = 0 End With With Range(myRng.Offset(y, -2), myRng.Offset(0, -1)) With . lnterior.Oolor 〓 14540253 '灰色 hd"♀鶴“ドは∥“ideV針u“D■mesty降=剤日neStJ ttme End Sub 状態により書式設定 if pCkbox.Value = True Then With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop)。Weight = xl∥edium .Borders(xlEdgeTop).Oolor = 16711680 End With End if End Sub 状態により書式設定 lf nCkbox.Value 〓 True Then Cell Format - 2 With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeBottom).Weight 〓 xlMedlum .3orders(xlEdgeBottom) Oolor = 16711680 End With End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 With myRng.Offset(y, x) .Borders(xlEdgeBottom).LineStyle 〓 xlLineStyleNone .8orders(xlEdgeLeft).LineStyle = xlLineStyleNone End With End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 With myRng.Offset(y, x) End il:||:|:|||:|:::::t,lllili:li首「呈X:キ:lili:li!|:i:ne End lf End Sub lf myCkbox.Value ≡ True Then 可変セル書式 E:se 定型セル書式 With myRng.Offset(y, x) .Borders(xlEdgeTop).LineStyle = End "::iders(XIEdgeLeft).LineStyle = End if End Sub xlLineStyleNone xlLineStyleNone lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 [lihivlil::∫:そll:a::::::`∥).[lhe:I;I:・2fil[11:stテ|をキ。ne End if End Sub PR |
|
|
|
|
|
