日記帳
本ページはプロモーションが含まれています
カテゴリー
Links
blog(ブログ)マスター
アンドロイドの巣
ゼロから始めるベランダ菜園
タイトル
ラジコン
2024年3月
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 31

使用中の表計算ソフトが「令和」に対応しているか 簡単に調べるには?

執筆:2019.05.03
編集:2019.05.03


使用中の表計算ソフトが「令和」に対応しているか

簡単に調べるには?

まとめ

セルに以下を入力する
=TEXT(TODAY(),"ggg")
対応していれば 令和
対応していなければ 平成
が表示されます

手順

  1. 表計算ソフトを起動します。
  2. 開いているシートのセルに以下を入力します
    =TEXT(TODAY(),"ggg")
  3. 表示結果
    セルの表示結果 コメント
    令和 令和に対応しています
    平成 令和に対応していません
    =TEXT(TODAY(),"ggg") 計算式として認識されていないので、入力しなおしてください。

 

この書式に「対応」の表計算ソフト

  • Excel
  • LibreOffice Calc

 

この書式に「未対応」の表計算ソフト

  • 三四郎 (※令和に未対応です)

 

令和に「未対応」の表計算ソフト

  • 三四郎
  • Excel 2000
  • Lotus 123
  • Kingsoft Spreadsheets

 

令和が表示されなかった場合にまずすること

  • 表計算ソフトのアップデータを適用する
  • 表計算ソフトを最新版にアップグレードする

 

乗り換えの予算がない場合にできること

  • 和暦表記を西暦表記に変更する
  • 和暦部分をマクロ関数で対応する

 

販売が終了した令和に「未対応」の表計算ソフトを乗り換えるには?

  • 互換性のある製品があれば乗り換える
  • 名前を指定して保存を選び、Excel形式に変換する
    データが欠落したり、見栄えが変わったりすることがあるので、変換結果の確認が必要です
    図形や、マクロを使っている場合は、移行の難易度が高くなります。
カテゴリー: Office
2019.05.03

base URLを開くには

LibreOfficeの「エディットボックスのURL」を「ボタン」で開く方法

固定URLを開く場合
 属性 プッシュボタン
  アクション「ドキュメントまたはHTMLを開く」
  URL 「開きたいURLを入力します」を指定

他のコントロールから値を取得して開きたい場合
 属性 プッシュボタン
  アクション「ドキュメントまたはHTMLを開く」
  イベント 「実行前」にマクロ割り当て[ OpenUrl1 ]

マクロ

Sub OpenUrl1(oEv as object)
   dim oForm, oTextBox
   dim oSender , targetName

   oSender = oEv.source.model
   if (oSender.name = "BtnOpenURL2") then
         targetName = "txtURL2"
   else
         targetName = "txtURL1"
   end if
   
   oForm=oEv.source.model.parent
   oTextBox=oForm.getbyname(targetName)
   if ( TRIM(oTextBox.text) <> "") then
      oEv.source.model.targeturl = TRIM(oTextBox.Text)
      openurl = true
    else
      openurl = false
   end if
End Sub

Sub OpenUrlDirect(sURL as string)
   dim paramText
      paramText = "url.dll,FileProtocolHandler " & "'" & sURL & "'"
      Shell("rundll32.exe" , 1, paramText)
      ' https://help.libreoffice.org/Basic/Shell_Function_Runtime/ja
End Sub
カテゴリー: Office
2015.11.06

EOleException (メッセージ 'WorksheetFunction クラスの Match メソッドが失敗しました。'

およよ~

エクセルに該当値がないとエラーが生成されました

例外をスルーして対処。

エラー値を返してくれたらいいのに。

try
// 失敗すると例外が発生するみたい
myResult := TargetSheet.Application.WorksheetFunction.Match(TargetID , myRange , 0);
except
end;
カテゴリー: Office
2013.09.21

Excelに特殊文字を貼り付けてみよう♪


procedure TForm1.Button1Click(Sender: TObject);
   var
   W : _Workbook;
   v : Variant;
   wStr : WideString;
begin
   ExcelApplication1.Connect;
   W := ExcelApplication1.Workbooks.Add(xlWBATWorksheet ,1);
   if w.Sheets.Count>0 then
   begin
      v := w.Sheets.Item[1];
      ShowMessage(v.name);
      wStr := WChar($329E);
      v.Cells[1,1] := wStr;
   end
end;

カテゴリー: Office
2005.02.04

さぁ アクセスをしもべにしよう 編{/hakushu/}

procedure TForm1.Button1Click(Sender: TObject);
var s: Variant;
accFormCount,accControlCount, i : integer;
// AccessTextBox : TAccessTextBox;
begin
AccessApplication1.Connect;
AccessApplication1.Visible := True;
AccessApplication1.OpenCurrentDatabase(
ExtractFilePath(ParamStr(0) )+ 'db1.mdb',false);
AccessApplication1.DoCmd.OpenForm('フォーム1'
,acNormal{0} ,'OutputAllFields','',acFormEdit{1},
acWindowNormal{0},'');
ListBox1.Clear; // フォームのリスト
ListBox2.Clear; // フォームに配置されたコントロール
s := false;
// 開いてからでないと取得できない。
for accFormCount := 0 to AccessApplication1.Forms.Count-1 do
begin
ListBox1.Items.Add(AccessApplication1.Forms.Item[accFormCount].Name);
if (AccessApplication1.Forms.Item[accFormCount].Name ='フォーム1') then
begin i := accFormCount; s := True; { break;} end;
end;
if s then
begin
s := AccessApplication1.Forms.Item[i].accFocus;
if (s.name='テキスト0') then s.text := 'わーい♪';
s := true;
end;
if s then
for accControlCount := 0 to AccessApplication1.Forms.Item[i].Controls.Count -1 do
begin
s := AccessApplication1.Forms.Item[i].Controls.Item[accControlCount];
ListBox2.Items.Add(s.name);
if s.name='ラベル1' then
s.Caption := '発見';// Form:フォーム1.テキスト0.Text
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AccessApplication1.CloseCurrentDatabase;
AccessApplication1.Disconnect;
end;

OLEから操作の説明リンク
http://www.dsdt.info/tipps/?id=607
カテゴリー: Office
2005.01.30



PR

[PR]