My Photo

  • ムツばあさん を 訪ねて
    細い山道を車で行って、たどり着いたところは、素敵な山里でした ・・・・

amazon検索

ポチッと

  • ポチッとよろしく!

ウェブページ

無料ブログはココログ

« ■ uBlock Origin を chrome に インストールしたところ、gmail に届いた TED TALK のメールの Watch now をクリックしても、TED の講演がブロックされてしまうようになった ・・・・ | トップページ | ■ #イジケ虫の好物は妄想ダケ 2018/6/25 今日は朝から暑い、昼間はどうなるのやら ・・・・ »

2018/01/14

■ Raspberry Pi で Libre Office Calc の function を設定してみましたよ

Open Officeのcalc用に作成したfunctionを、Raspberry Pi の、Libre Office Calcにも設定してみましたよ。
Libre Officeの方が、microsoft officeとの互換性が高いそうなので、もっと、シンプルに実現できるかもしれませんけどね。

このfunctionは、文字列の中から、数字を取り出すものです。

たとえば、$-123.456/ccから、-123.456だけを抜き出すものです。

Tools→Macros→Organize macros→Libre Basic

にて、下記functionを入力し、一旦ファイルをsaveして、再度立ち上げると、使えるようになりました。
使用は自己責任にてお願いしますね。バグがありましたら、教えていただけると助かります。

それから、raspberry Piで、システムをインストールした直後の設定では、ダブルクリックでファイルを開くように設定されていますが、シングルクリックでファイルを開くように設定するには、どうしたらいいだろう?

Function ccc(m)

dim a as string
dim ja as string

dim i as integer
dim j as integer
dim Length as integer
dim Lef as integer
dim Rig as integer
dim Idot as integer
dim Imn as integer

Length = Len(m)

Lef = Length+1
Rig = 0
Idot = 0
Imn = 0

for i = 1 to Length

a = Mid(m,i,1)

for j = 0 to 9
ja = j
if a = ja then
if Lef > i then
Lef = i

if Imn = 1 then
Lef = Lef -1
Imn = 2
endif

if Idot = 1 then
Lef = Lef -1
Idot = 2
endif

endif

if Rig < i then Rig = i

if Idot = 1 then Idot = 2

goto exit_1
endif
next j

if Idot = 1 and a <> "." then Idot = 0

if a = "." and Idot = 0 then
Idot = 1
goto exit_1
endif

if Imn = 1 then Imn = 0

if a = "-" and Rig = 0 then
Imn = 1
endif

if Rig > 0 then
goto exit_3
endif

if a = "." and Idot = 2 then
goto exit_3
endif

exit_1:

next i

exit_3:

if Lef > Rig then
ccc = ""
else
ccc = Mid(m,Lef,Rig - Lef + 1)
endif

End Function

« ■ uBlock Origin を chrome に インストールしたところ、gmail に届いた TED TALK のメールの Watch now をクリックしても、TED の講演がブロックされてしまうようになった ・・・・ | トップページ | ■ #イジケ虫の好物は妄想ダケ 2018/6/25 今日は朝から暑い、昼間はどうなるのやら ・・・・ »

「パソコン・インターネット」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/47543/66277158

この記事へのトラックバック一覧です: ■ Raspberry Pi で Libre Office Calc の function を設定してみましたよ:

« ■ uBlock Origin を chrome に インストールしたところ、gmail に届いた TED TALK のメールの Watch now をクリックしても、TED の講演がブロックされてしまうようになった ・・・・ | トップページ | ■ #イジケ虫の好物は妄想ダケ 2018/6/25 今日は朝から暑い、昼間はどうなるのやら ・・・・ »

2018年6月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

最近の記事

フォト

twitter