全85件 (85件中 51-85件目)
▼急いで!急いで!急いで! マイクロソフトは11月2日にプランの変更を発表した。その内容は無償容量を15GBから5GBと削減、カメラロールの自動バックアップに対するボーナス容量も廃止とするなど、ユーザーにとっては残念なものであった。 しかし、12月14日に無償容量15GBとカメラロールのボーナスとして提供された15GBに関して、特設サイトから申し込めば容量削減を回避することができると発表した。 この特設サイトからの申込期限は、2016年1月31日となっているが、この日付けは世界中のどこの地域の標準時をさすのか、また締め切り時刻は特に明記されていないなど、不明瞭な部分がある。
2016/01/31
コメント(0)
再インストールしたり、常駐プログラムを無効にしたり、いろいろやってみたがダメだ! とりあえず寝よう(+o+)
2016/01/08
コメント(0)
おかみの命令でラインデビューした。これは便利で使いやすい。▼LINEの使い方 完全活用ガイド【最新版:iPhone/Android/PC対応】http://appllio.com/explanation/20130627-3773-how-to-use-line-perfect-guide
2015/12/21
コメント(0)
ホームページビルダーで作成したサイトの写真が何故か欠落する現象が起きていたがやっとわかった! ビルダーのアップロードの参照先がSkyDriveのままだった! いくつかは、OneDriveだったりでグダグダ まずは、SkyDriveをOneDriveに統合し、SkyDriveにあるデータを削除することから始めよう。 ホームページを直すのは相当かかりそうだ。体調が芳しくなく登山は当分出来そうもないので内業は丁度良い。
2015/11/13
コメント(0)
最近、iPhoneの調子が悪く、アプリが勝手にダウンしたり、設定でモバイルデータ通信をONにしても勝手にリセットされてOFFになったりひどい状態だった。 今朝、iPhoneの画面がiTunesに接続しろ的な画面でにっちもさっちも状態になってしまった。 PCと接続してiTunes で復元を試みたら、「iPhone [デバイス名] を復元できませんでした。不明なエラーが発生しました [14]」というメッセージが表示された。 何度、復元を試みてもエラー14が出てしまう。 更新する手もあるが、これは工場出荷時に戻されてしまい、バックアップしてないデータは無くなる。昨日のトラックデータも無くなる。これは痛い! 詳しくエラー14を調べてみると、リンクケーブルを交換したり、USBポートを変えたりすると上手く行くことがあるらしい。 ためしに、ポートを変えた見た。 なんと、上手くいって復旧した。 その他の調子が悪かったのも治った^^
2015/10/05
コメント(0)
9月12日からiOSで やまやまGPSのトラックデータがメール共有できない状態が続いていた。何度トライしても、送信画面でアプリが落ちてしまう。 しかたがないので、手書きでルートをヤマレコに書いていたが、もちろんしっくりこない。時間がかかる、不正確だし、通過ポイントの時系列が自動で書き込まれない。 今朝、ダメだろうと思いつつも試してみたら送信できた
2015/09/23
コメント(0)
Microsoft Edge(マイクロソフト エッジ)が、Windows 10のデフォルトブラウザになっていて、Internet Explorerを立ち上げるのに右往左往!早くEdgeに慣れるしかない('_')
2015/09/01
コメント(0)
おめでとうございます。Windows 10 のご予約が成立しました無償アップグレードは7 月 29 日からご利用いただけます。お客様は予約しておられるので、Windows 10 で素晴らしいことをするまで少しも待つ必要はありません。だって
2015/06/10
コメント(0)
パワポのスライド番号をデフォルトでふると、薄いグレーで、12Pの大きさになってしまう。これを別の設定にして一気にふれないか、機能をいろいろ試してみたが見つからない。なので、▼方法を考えてみた。http://doboku.shisyou.com/721-314.html楽天ブログ by (C)ミント専門官公開アルバム by (C)ミント専門官アメブロ by (C)ミント専門官
2015/04/03
コメント(0)
▼こんなの作って説明してみた。201502016_ posted by (C)ミント専門官まあまあ、面白い^^そのうち公開版を作るかもしれない(-。-)y-゜゜゜ 楽天ブログ by (C)ミント専門官公開アルバム by (C)ミント専門官アメブロ by (C)ミント専門官
2015/03/02
コメント(0)
エクセルのインダイレクト関数の汎用性は高い。 エクセルのデータは、作り込んでゆくと数式が複雑になり作成者のみが扱える或いは作った本人もわからないエラーだらけのエクセルブックになりがち。 実に単純な関数だが、仕組みがわかれば日常の作業に次々と応用できるだろう。楽天ブログ by (C)ミント専門官公開アルバム by (C)ミント専門官アメブロ by (C)ミント専門官
2015/01/13
コメント(0)
▼グーグルマップのURLをコピペし、お知らせすれば、それでこと足りる。http://doboku.shisyou.com/721-612.html これからは、名刺やメールに緯度経度の座標を入れるのは一般的なマナーになるかな
2014/11/17
コメント(0)
何だかテレビばかり見ていたので作業は進まなかった。 3巡目より先に2巡目が完成した▼出来上がった「北の道の駅スタンプラリー2巡目」[完走]http://doboku.shisyou.com/771-012.html 第3巡目の作成に取り掛かる!
2014/09/28
コメント(0)
遠出の出来ない当番の日は、もくもくと内業でホームページの整理 なぜか、夜中の2時に目が覚めた。道の駅のスタンプラリーのページのうち第4巡目の整理を開始した。 スタンプ帳と書き綴ったブログを照らし合わせつつ、ホームページを作成し始めたが... あまりにも、訪問順(X/114)がめちゃめちゃで直接ホームページを作成するのはかなり非効率と判明 一度、エクセルに表形式で取り纏め、ビルダーに読み込むことにした。やはり、VLOOKUP関数を使ったExcelはこの場合、格段にいい。 ▼出来上がった「北の道の駅スタンプラリー4巡目」 [挑戦中]http://doboku.shisyou.com/771-014.html 第3巡目の作成に取り掛かる!
2014/09/27
コメント(0)
昨日、HPを修正して登山・ウォーキングのページを追加。そのた、現在4巡目の道の駅スタンプラリーのページも作ってはあるものの中身は空っぽ 今週末は、当番なので山にも登れないからゆっくりHPを整理しようと心に決めた。
2014/09/25
コメント(0)
日経PCの7月号に、XPパソコン復活DVDが付録でついてきた。6年ぐらい前に購入したモバイルがXPでどうしようかと思っていたところだったのでこのOSを迷わずインストール!Ubuntu(ウブントゥ)とは、Linuxディストリビューションの一つとのこと。Ubuntuという響きは、アフリカの言語っぽいなーと思ったが、やはり予想通りアフリカの言葉で、「他者への思いやり」とか「皆があっての私」の意味をもつ。 使い勝手は、しばらくしてみないと何ともいえない(-_-)
2014/05/27
コメント(1)
昨年、アイホンに変更したとき、▼割引条件でauスマートパスに加入した。auスマートパス - au oneやっぱり、これは自分に必要ない@410-ももったいない。 多分、全国にはこのauスマートパスが必要の無いおじさんたちが加入していることも知らずに料金を払っていることだろう! ▼そこで、auスマートパスを解約してみた。auスマートパスを入会/退会(解約)した… au Q&Aプラス 自分の場合、それ以前に au ID、パスワードを忘れてしまっていたので、▼解約前に下準備が必要だった。au ID、パスワードを忘れてしまった。 au Q&Aプラス これで来月から、@410- 請求が安くなるはず\(^o^)/
2014/04/26
コメント(0)
いつもソースネクスト製品をご愛用いただき、誠にありがとうございます。昨日9日で、マイクロソフト社のWindows XPのサポートが終了しました。まだXPでご使用中のお客様は、危険回避のため、新しいOSのパソコンへの移行をお急ぎください。・・・・・・・・・・・・・・・INDEX■ 9日、Windows XPのサポートが終了しました■ スマホでログインするとマイルを進呈■ 今週の割引提供 8製品で実施中■ 消費税増税についてのお知らせ■ Windows XPのサポートが終了しました マイクロソフト社のWindows XPへのサポートが、昨日(9日)で終了しました。 まだXPパソコンをお使いの方は、被害に遭わないためにも、 すみやかに新しいOSのパソコンへ移行しましょう。 同社が配布中の「Windows XP/Office 2003をご利用のお客様へ サポート終了の重要なお知らせです」という資料によると、 Windows XP SP3は、Windows 8の21倍もウイルスに感染しやすい(Windows 8の感染率は、 Windows XP SP3と比較して21分の1)と書かれています。 弊社では、最新のWindows 8.1のパソコンに、迷わずに快適に移行できるように 下記の専用ページを公開しています。 「XPユーザーのための、Windows 8/8.1ラクラク乗換術」 http://www.sourcenext.com/contents/xp/home/?i=mail_mzs 主な内容 ・データや設定を簡単に移行するソフトの割引提供 ・Windows8/8.1をXPと同じ操作で使う方法 ・ソフト入れ換え作業の代行サービスの紹介 など また、これに伴い弊社製品のWindows XP向けの製品のサポートも終了しました。 お使いの製品が、Windows 8/8.1で使えるかどうかは、下記のページでご確認ください。 http://www.sourcenext.com/contents/win8/list/?i=mail_mzs
2014/04/10
コメント(0)
最近、スカイドライブへのリンクが壊れているのに気が付いた。6日前に"SkyDrive"は、OneDrive という名前に変更したのを知った。リンク切れは、名称変更に関係ないと思うが...なんで名前変えたのか不思議('◇')ゞ
2014/02/26
コメント(1)
▼改良前20140214_101932 posted by (C)ミント専門官 ▼改良後 視覚的にシンプルにした。20140214_102204 posted by (C)ミント専門官商品化したら売れんだろうか?テプラで100セット作ってもらった。 ◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2014/02/14
コメント(0)
skydriveに保存してあったwordやexcelが開けなくなった(;O;)ついでに、ホームページビルダーも開けるけどデータの保存が出来ない(゜o゜)エラー0x80040A41が表示されます。なんとかならんの? ▼こんなのがどこかにあった。 1) 新規ローカル アカウント作成PC 設定 > アカウント > その他のアカウント > ユーザーを追加する > Microsoft アカウントを使わずにサインインする > ローカル アカウント2) ローカル アカウントを管理者にするコントロール パネル > ユーザー アカウント > 別のアカウントの管理 > 1 で作ったアカウント選択 > アカウントの種類の変更 > 管理者にチェック3) 既存の Microsoft アカウントの削除いったんサインアウトし 1 で作ったアカウントでサインイン > コントロール パネル > ユーザー アカウント > 別のアカウントの管理 > 既存のアカウント選択し削除4) ローカル アカウントを Microsoft アカウントに変更PC 設定 > アカウント > お使いのアカウント > Microsoft アカウントに関連付ける▼これも必要。 Windows8.1でMicrosoftアカウント関連付けを解除する方法|パソコン
2014/02/11
コメント(0)
先日、建設コンサルタントと打合せをしたときのこと。 ノートPC(操作者用)と外部ディスプレイ(視聴者用)を接続して2画面をつかう訳だが... パワーポイントの「ノート機能」(わたしは「カンペ機能」と呼んでいる)を使用してした場合操作者用には、カンペが出る画面になる。つまり、台本が見えることになる。しかし、この画面と同じ画面が視聴者(お客さん)に見えてしまったら興ざめだろう。 その場合は、拡張画面に設定する必要がある。 そのあと、パワポに連続して補則説明用の動画を再生したら画面は真っ黒! 拡張画面を同期画面に設定変更しないとうつらないべさ! だけど、プレゼント途中で画面の設定変更なんてありえない。 ▼そこで、下記に対処方法をまとめた。 [PowerPoint] 発表者PCと公開用画面で異なった内容を表示する。 ~ノート機能(俗に言うカンペ機能)を使いたい~
2014/02/09
コメント(0)
身の回り(PC内)は 、PDFで溢れていることだろうし、ペーパーデータをPDF化して省スペース化するのは、今や節理! ペーパーデータをスキャニングしたものは、単なる画像でしかない。が、PDF作成後、テキスト認識させると文中の文字を検索できるし、容量も相当に軽くなる。▼手順はこちらhttp://doboku.shisyou.com/04-511.html ただし、オリジナルから直接PDF化したものは、もともとテキストが埋め込まれているから必要なし。
2013/12/18
コメント(0)
イランから”サイドパネル”って何よと質問があったが... ”サイドパネル”それが正解の呼び名らしい。 サイドバーとは 【 side bar 】 - 意味/解説/説明/定義 : IT用語辞典e-words.jp/w/E382B5E382A4E38389E38390E383BC.html類似ページ共有共有した投稿を表示サイドバーとは、ソフトウェアのウィンドウやWebページの左側や右側に縦長に配置される表示領域のこと。メイン領域の表示の変遷に関わらず常に同じ内容が表示されるよう設定されていることが多く、そのソフトウェアの使用やWebサイトの閲覧に際して頻繁...
2013/09/24
コメント(0)
ホームページが膨らんでくるとサイドパネルが全てのページで同じだと非常に違和感があるし、使いづらい、誘導しづらい。 しかし、 ホームページビルダーのCCSテンプレートは、サイトに一つしか使えないから普通に構築しては、ひと種類のサイドパネルにしかならない。なので、サイトのカテゴリーに合わせたサイドパネルに出来ない訳だ。 そこで、今回挑戦したのが、ホームページビルダーのサブ(ゲイ雑誌ではない)サイトの構築ちょっと面倒だが、カテゴリーごとにサイドパネルが使い分けられる。good! ▼ASPユーザ向けのサイドパネル:メインサイトhttp://urado.dousetsu.com/02_ASP.html▼CO2排出削減アピール用のサイドパネル:サブサイトhttp://urado.dousetsu.com/04-131-20130401.html
2013/09/22
コメント(1)
ホームページビルダーって凄いなーと想っていた。何故、プロのクリエータもこれ使わないのかなーと、疑問に想っていたが.... タブをプルダウンリストにしようとしたが、ビルダーのCSSテンプレートをそれにするのは、ほぼ無理だ! ビルダーの限界を知った(-_-)
2013/07/14
コメント(0)
ホームページビルダーを使わなくても共有部分を同期することが出来た!(^^)!ここを参考にした。 http://okodukai-cho.com/soft/biruda-douki.html だけど、最初からフルCSSテンプレートで作ったほうが遥かに楽であることを学んだ。
2013/07/01
コメント(0)
▼ホームページのサブコンテンツの表示。 最下段の「アメブロ」は”ameblo”と表示されているが 「フォト蔵」と「楽天ブログ」は、ひな形のままである。20130615_003941 posted by (C)ミント専門官かっこわりーと、思いつつもズーット直していなかった。何故なら、画像パーツを訳も分からずフラッシュ画像に変換してしまい”RECRUIT”の文字が変更できなくなっていたから('◇')ゞ▼色々と修正した。http://doboku.shisyou.com/ ◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2013/06/14
コメント(0)
キーボード部品アイコン (64x64px / 32X32px)を作った。いや、正確には、人からもらったのをリサイズしてpng形式にかえただけ( ;∀;) 手順書を作ったりするのに重宝しそうだ!(^^)! http://doboku.shisyou.com/07-03.html
2013/05/26
コメント(0)
これを買おうか買うまいか悩んでいるうちに午前3時になってしまった(T_T) だって、6万2千円もするのだから...
2013/02/18
コメント(0)
Windows 7 でウィンドウが画面外へ出てしまった場合は...タスクバーから画面外へ出てしまったアプリケーションをアクティブにする(サムネイルプレビューがある場合はどれかをクリックする)Alt + Space (もしくは Shift を押しながらタスクバーアイコンを右クリック)でウィンドウのメニューを出す移動 (M) で移動を選択するカーソルキーのどれかを1回押すマウスを動かす...という手順になります。
2013/01/21
コメント(0)
16G必要だったのはOSをアップグレードするため! ▼4年も使い続けた、”うんこVISTA”が”Windows8Pro”に大変身(^o^)20121202_164425 posted by (C)ミント専門官とにかく起動が速くて快適!スタートボタンが無いのに最初とまどったが、すぐに使いやすさが実感(^o^)◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/12/02
コメント(1)
苫小牧自宅PCのC領域に16Gの空き領域が必要になった。 C領域がパンパンなので、相当古いパテマジで領域変更しようと思ったが、VISTAには対応していなかった。(T_T)調べてみると、基本機能で出来るようだ。 スタート→コンピューター:右クリック→管理(G)→ディスクの管理→ボリュームの拡張(X)で行えるが....ただし、このボリュームの拡張は右隣としか合体できない!つまり、D領域の402Gのデータを何処かへ移設する必要がある。途方に暮れたorz ◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/12/01
コメント(0)
エクセルVBAの標準モジュールに置くと使える。 ' Textcalc は長いので、egに変更 2008.02.07 By Norio' ---内容---' 計算に関係無い文字を無視する' 2行にまたがる計算を行う' 数字、演算記号を含むメモ書きは、必ずカッコで閉じる' =eg(セル番号)で計算' =egs(セル番号,n)で四捨伍入計算を行う' =egw(セル番号1,セル番号2)で2行計算' =egws(セル番号1,セル番号2,n)で2行四捨伍入計算を行う' ---' 著作権はpeace氏に帰属します' Textcalc Version1.30 (C)1996-2000, peace'Option ExplicitPrivate Token As StringPrivate A1 As StringPrivate TokenType As Integer '1:DELIMITER 2:NUMBER 3:FUNCTIONPrivate S As StringPrivate SLen As IntegerPrivate K, K1, N1, N2, N3 As IntegerPrivate GP As IntegerPrivate KAKKO As IntegerConst MAE As String = ".0123456789)"Const USIRO As String = "±⇒〆∥ ̄_\|∃♂♀√.0123456789("Const DELIMITA As String = "+-*/()^"Const NUMBER As String = "0123456789"Const OKMOJI As String = "±⇒〆∥ ̄_\|∃♂♀√^()*/+-.0123456789"Const RAD As Double = 57.2957795130823' 関数のエントリポイントFunction eg(S2 As String) As Double 'textcalからegに変更S2 = StrConv(S2, vbNarrow)S2 = StrConv(S2, vbLowerCase)S2 = Application.Substitute(S2, " ", "")S2 = Application.Substitute(S2, "π", "3.14159265358979")S2 = Application.Substitute(S2, "pi", "3.14159265358979")S2 = Application.Substitute(S2, "rad", "57.2957795130823")S2 = Application.Substitute(S2, "{", "(")S2 = Application.Substitute(S2, "}", ")")S2 = Application.Substitute(S2, "[", "(")S2 = Application.Substitute(S2, "]", ")")S2 = Application.Substitute(S2, "〔", "(")S2 = Application.Substitute(S2, "〕", ")")S2 = Application.Substitute(S2, "【", "(")S2 = Application.Substitute(S2, "】", ")")S2 = Application.Substitute(S2, "×", "*")S2 = Application.Substitute(S2, "÷", "/")'''''No*,第*を削除する'''''S2 = Application.Substitute(S2, "J", "")S2 = Application.Substitute(S2, "no.", "J")S2 = Application.Substitute(S2, "no、", "J")S2 = Application.Substitute(S2, "no", "J")S2 = Application.Substitute(S2, "第", "J")S2 = Application.Substitute(S2, "※", "J")N2 = 0N3 = 0For K = 1 To Len(S2) 'Jの数を数えるIf Mid(S2, K, 1) = "J" Then N2 = N2 + 1NextDo While N2 > 0 '"J"と次の"J"又は")"の文字位置を求めるN1 = InStr(S2, "J")If InStr(N1 + 1, S2, "J") > 0 And InStr(N1 + 1, S2, "J") <= InStr(N1 + 1, S2, ")") _Then N3 = InStr(N1 + 1, S2, "J") Else N3 = InStr(N1 + 1, S2, ")")If InStr(N1 + 1, S2, "J") = 0 Then N3 = InStr(N1 + 1, S2, ")")A1 = ""For K = 1 To Len(S2) '"J"と次の"J"又は")"の間の文字を削除If K < N1 Or K >= N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1N2 = N2 - 1Loop'''''S2 = Application.Substitute(S2, "±", "") '下で使用する文字を削除しておくS2 = Application.Substitute(S2, "⇒", "")S2 = Application.Substitute(S2, "〆", "")S2 = Application.Substitute(S2, "∥", "")S2 = Application.Substitute(S2, " ̄", "")S2 = Application.Substitute(S2, "_", "")S2 = Application.Substitute(S2, "\", "")S2 = Application.Substitute(S2, "|", "")S2 = Application.Substitute(S2, "∃", "")S2 = Application.Substitute(S2, "♂", "")S2 = Application.Substitute(S2, "♀", "")S2 = Application.Substitute(S2, "asin", "±") '予約語を特殊文字に置き換えるS2 = Application.Substitute(S2, "acos", "⇒")S2 = Application.Substitute(S2, "atan", "〆")S2 = Application.Substitute(S2, "sin", "∥")S2 = Application.Substitute(S2, "cos", " ̄")S2 = Application.Substitute(S2, "tan", "_")S2 = Application.Substitute(S2, "abs", "\")S2 = Application.Substitute(S2, "int", "|")S2 = Application.Substitute(S2, "exp", "∃")S2 = Application.Substitute(S2, "log", "♂")S2 = Application.Substitute(S2, "ln", "♀")S2 = Application.Substitute(S2, "/m3", "") '/m3,/m2,/m,m2,m3,m4を削除S2 = Application.Substitute(S2, "/m2", "")S2 = Application.Substitute(S2, "/m", "")S2 = Application.Substitute(S2, "m2", "")S2 = Application.Substitute(S2, "m3", "")S2 = Application.Substitute(S2, "m4", "")'''''予約語、数字、演算記号以外を削除する'''''A1 = ""For K = 1 To Len(S2)For K1 = 1 To Len(OKMOJI)If Mid(S2, K, 1) = Mid(OKMOJI, K1, 1) Then A1 = A1 + Mid(S2, K, 1)Next K1Next KS2 = A1S2 = Application.Substitute(S2, "()", "")'''''memoの削除(memoが最初にある場合)'''''If Mid(S2, 1, 1) <> "(" Then GoTo line1N3 = 0For K = 1 To Len(S2)For K1 = 1 To Len(USIRO)If Mid(S2, K, 1) = ")" And Mid(S2, K + 1, 1) = Mid(USIRO, K1, 1) Then N3 = KNextNextA1 = ""For K = 1 To Len(S2) '''''memoの"("から")"までの文字を削除If K > N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1'''''memoの削除(memoが中間又は最後にある場合)'''''line1:A1 = ""N1 = 0N2 = 0For K = 2 To Len(S2) '''''memoの数を数えるFor K1 = 1 To Len(MAE)If Mid(S2, K, 1) = "(" And Mid(S2, K - 1, 1) = Mid(MAE, K1, 1) Then N2 = N2 + 1NextNextDo While N2 > 0For K = 2 To Len(S2)For K1 = 1 To Len(MAE)If Mid(S2, K, 1) = "(" And Mid(S2, K - 1, 1) = Mid(MAE, K1, 1) Then N1 = KN3 = InStr(N1 + 1, S2, ")")NextNextA1 = ""For K = 1 To Len(S2) '''''memoの"("から")"までの文字を削除If K < N1 Or K > N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1N2 = N2 - 1Loop'''''S2 = Application.Substitute(S2, "±", "asin") '予約語を元に戻すS2 = Application.Substitute(S2, "⇒", "acos")S2 = Application.Substitute(S2, "〆", "atan")S2 = Application.Substitute(S2, "∥", "sin")S2 = Application.Substitute(S2, " ̄", "cos")S2 = Application.Substitute(S2, "_", "tan")S2 = Application.Substitute(S2, "\", "abs")S2 = Application.Substitute(S2, "|", "int")S2 = Application.Substitute(S2, "∃", "exp")S2 = Application.Substitute(S2, "♂", "log")S2 = Application.Substitute(S2, "♀", "ln")S2 = Application.Substitute(S2, "√", "sqrt")KAKKO = 0GP = 1S = S2SLen = Len(S)GetTokeneg = sub1(0#)If (KAKKO <> 0) ThenMsgBox "括弧の指定に誤りがあります。" _, vbOKOnly + vbExclamation, "EG関数"eg = 1 / 0 'textcalcからegに変更End IfEnd Function' 加算・減算の処理Function sub1(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub2(Value)While Token = "+" Or Token = "-"Token2 = TokenGetTokenValue2 = sub2(Value2)Select Case Token2Case "+"Value = Value + Value2Case "-"Value = Value - Value2End SelectWendsub1 = ValueEnd Function' 乗算、除算の処理Function sub2(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub3(Value)While Token = "*" Or Token = "/"Token2 = TokenGetTokenValue2 = sub3(Value2)Select Case Token2Case "*"Value = Value * Value2Case "/"Value = Value / Value2End SelectWendsub2 = ValueEnd Function' べき乗の処理Function sub3(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub4(Value)While Token = "^"Token2 = TokenGetTokenValue2 = sub4(Value2)Select Case Token2Case "^"Value = Value ^ Value2End SelectWendsub3 = ValueEnd Function' 単項演算子の処理Function sub4(Value As Double) As DoubleDim Token2 As StringIf Token = "+" Or Token = "-" ThenToken2 = TokenGetTokenEnd IfValue = sub5(Value)If Token2 = "-" ThenValue = -ValueEnd Ifsub4 = ValueEnd Function' 括弧の処理Function sub5(Value As Double) As DoubleIf Token = "(" ThenGetTokenValue = sub1(Value)GetTokenElseValue = Atom()End Ifsub5 = ValueEnd Function' 数値の処理Function Atom() As DoubleDim temp As StringDim i As IntegerDim Value2 As DoubleIf TokenType = 3 ThenAtom = Func(Token)ElseIf TokenType = 2 ThenAtom = Val(Token)GetTokenEnd IfEnd Function'算術関数の処理Function Func(str As String) As DoubleDim Value2 As DoubleDim str2 As DoubleSelect Case strCase "sin"GetTokenValue2 = sub4(Value2)Func = Sin(Value2 / RAD)Case "cos"GetTokenValue2 = sub4(Value2)Func = Cos(Value2 / RAD)Case "tan"GetTokenValue2 = sub4(Value2)Func = Tan(Value2 / RAD)Case "asin"GetTokenValue2 = sub4(Value2)Func = WorksheetFunction.Asin(Value2) * RADCase "acos"GetTokenValue2 = sub4(Value2)Func = WorksheetFunction.Acos(Value2) * RADCase "atan"GetTokenValue2 = sub4(Value2)Func = Atn(Value2) * RADCase "abs"GetTokenValue2 = sub4(Value2)Func = Abs(Value2)Case "int"GetTokenValue2 = sub4(Value2)Func = Int(Value2)Case "exp"GetTokenValue2 = sub4(Value2)Func = Exp(Value2)Case "log"GetTokenValue2 = sub4(Value2)Func = Log(Value2) / Log(10#) '"/ Log(10#)"を追加Case "ln" '追加GetToken '追加Value2 = sub4(Value2) '追加Func = Log(Value2) '追加Case "sqrt"GetTokenValue2 = sub4(Value2)Func = Sqr(Value2)Case ElseMsgBox "関数 " + str + " は定義されていません。" _, vbOKOnly + vbExclamation, "EG関数"Func = 1 / 0End SelectEnd Function' トークンの切出しFunction GetToken()Dim i As IntegerIf GP > SLen ThenToken = ""Exit FunctionEnd IfIf InStr(DELIMITA, Mid(S, GP, 1)) <> 0 ThenToken = Mid(S, GP, 1)TokenType = 1GP = GP + 1If Token = "(" Then '括弧のチェックKAKKO = KAKKO + 1ElseIf Token = ")" ThenKAKKO = KAKKO - 1End IfElseIf InStr(NUMBER, Mid(S, GP, 1)) <> 0 ThenFor i = GP To SLenIf InStr(DELIMITA, Mid(S, i, 1)) <> 0 ThenExit ForEnd IfNextToken = Mid(S, GP, i - GP)TokenType = 2GP = iElseFor i = GP To SLenIf InStr(DELIMITA, Mid(S, i, 1)) <> 0 ThenExit ForEnd IfNextToken = Mid(S, GP, i - GP)TokenType = 3GP = iEnd IfEnd Function' 四捨五入計算Function egs(S2 As String, kurai As Integer) As Doubleegs = Application.Round(eg(S2), kurai)End Function' 2行の計算Function egw(G1 As String, G2 As String) As Doubleegw = eg(G1 + G2)End Function' 2行四捨五入計算Function egws(G1 As String, G2 As String, kurai As Integer) As Doubleegws = Application.Round(eg(G1 + G2), kurai)End Function
2012/07/11
コメント(0)
4月25日からオンラインストレイジとしてグーグルドライブというモノが出来た。アンドロイドからも同期をかけられるらしい これはもう使うしかないべさ▼詳しくはこちらhttp://www.gigafree.net/utility/backup/googledrive.html
2012/05/01
コメント(0)
全85件 (85件中 51-85件目)