今回は、3つ。
自慢は、三四郎&Excel69
でも、同じ発想の方居そうですね。(^_^)(^_^)/~
三角関数使用
三四郎50
=If((Atan2(6-Row(A1),6-Col(A1))+8) MOD 1.57<1,"*")
Excel56
=LEFT("*",((MOD(ATAN2(6-ROW(),6.1-COLUMN())+8,1.57)))<1
非三角関数
三四郎81
=If((Max((Row(A1)-6)/(Col(A1)-6.1),(Col(A1)-6)/(6.1-Row(A1)))*10+7) DIV 8=1,,"*")
Excel84
=IF(INT((MAX((ROW()-6)/(COLUMN()-6.1),(COLUMN()-6)/(6.1-ROW()))+0.8)/0.81)=1,"","*")
三四郎69
=If((Rows(A1:A$6)/Cols(A1:$F1))^Sign((Row(A1)-6)*(Col(A1)-6))>=1,"*")
Excel69
=LEFT("*",(ROWS(1:$6)/COLUMNS(A:$F))^SIGN((ROW()-6)*(COLUMN()-6))>=1)
三四郎とExcelが同じ文字数になるのも、珍しい。(^^)(^^)
コメント