使用中の表計算ソフトが「令和」に対応しているか 簡単に調べるには?
使用中の表計算ソフトが「令和」に対応しているか
簡単に調べるには?
対応していなければ 平成
が表示されます
執筆:2019.05.03
編集:2019.05.03
編集:2019.05.03
使用中の表計算ソフトが「令和」に対応しているか
簡単に調べるには?
まとめ
セルに以下を入力する=TEXT(TODAY(),"ggg")対応していれば 令和
対応していなければ 平成
が表示されます
手順
- 表計算ソフトを起動します。
- 開いているシートのセルに以下を入力します
=TEXT(TODAY(),"ggg")
- 表示結果
セルの表示結果 コメント 令和 令和に対応しています 平成 令和に対応していません =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 ]
マクロ
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;
およよ~
エクセルに該当値がないとエラーが生成されました
例外をスルーして対処。
エラー値を返してくれたらいいのに。
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/}
OLEから操作の説明リンク
http://www.dsdt.info/tipps/?id=607
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