OOobbs3/107
質問
とりあえず、下記の様に作ったのですが、もっと簡単にできないでしょうか? function test1(ir as long, ic as long) as long test1=ThisComponent.CurrentController.Activesheet.getCellByPosition(ic-1,ir-1).CharColor 'test1=ThisComponent.CurrentController.Activesheet.getCellByPosition(ic-1,ir-1).CellBackColor end function 回答
感想,コメント,メモ
なお、 今回の質問のコードは、下記のように変えました。これだと引数が一つになるので。 シートの式 =TEST19(CELL("address",A1)) マクロ function test19(s as string) as long test19=ThisComponent.CurrentController.Activesheet.getCellRangeByName(s).CharColor end function |