三四郎マクロ「表計算一筆書き作成」

表計算一筆書きで、

三四郎を使用する場合の支援マクロを作成しました。

入力したい数式をA1または、F6に入力して、実行して下さい。

（数式が入力されていない場合はシートのフォーマットのみ行います）

!! 表計算一筆書き作成 - - -
!!                      for 三四郎2007
!!                      2007.11.06
!! 実行法：A1かF6に式を入力して実行する
!! 式が未入力の場合は、シートの体裁だけ整える。
    Range("A1:K1").EntireColumn.Select()
    Selections.Surface.ColumnWidth = 3
    Selections.Release()
    if Range("A1").Formula = nil then
        Range("F6").CopyTo(Range("A1"),,3)
    end if   
    Range("A1").CopyTo(Range("A1:K11"),,3) 
    Range("M2").Formula = "=GetCellString(A1)"
    Range("M3").Formula = "=Len(M2)"
end

Comments

[投稿情報: くまぷー]

たぶん、三四郎版を作るだろうと
予想、いや確信していました・・・(^^ゞ

[投稿情報: きっちー]

う～ん。Ｆ６をＡ１、Ａ１を・・・・。(?_?)

なんかひっかかりがあります・・・・。