関数が動くセル、動かないセル

Question

たびたび申し訳ありません。

こちらで教えてもらった式をセルに設定すると
それがウマく動くときと動かないときがあります。
A1　1.3（1日と3時間）
A2　1.6（1日と6時間）
A3　2.9（2日と9時間）になるトコロを3.1（3日と1時間）
とさせるのに
=INT(A1+A2)+DEC2OCT(INT(MOD(A1+A2,1)*10))/10
あるいは
=INT(A1+A2)+INT(MOD(A1+A2,1)/0.8)+MOD(MOD(A1+A2,1),0.8)
を設定すればいいようなのですが、セルによって動くときと
動かないときがあって、原因がわからないでいます
（参照ＵＲＬ　http://okweb.jp/kotaeru.php3?q=1272124）。
申し訳ありませんが、ご教授ください。当方完全な文系です。
本当にご迷惑かけます（涙

BLUEPIXY · Accepted Answer

#10です。
DEC2OCT(8)→10
DEC2OCT(0.8*10)→7
になるので、うまくいかないようです。
そこで、次の様に変更してみて下さい
=INT(A1)+INT(B1)+DEC2OCT(ROUND((A1+B1-(INT(A1)+INT(B1)))*10,0))/10

matsu_jun · Answer

matsu_junです。
現在当初の質問の範囲を大きく逸脱してしまっているようです。

matsu_jun · Answer

matsu_junです。大変なこと、お察しいたします。

保存してしまったのですね。まず完全に元に戻しましょう。
1) アドインを外します。ツール(T)－アドイン(I)をクリックして、チェックをつけてしまった部分を外します。
2) ファイルも削除しましょう。画面左下のスタートメニューから検索(C)を選び、保存してしまったファイル名で検索し、見つかったら削除しましょう。

ここまでやってから、もう一度#9、#12、#13を参考に作業を再開しましょう。
まだエラーが出ますか？そうであれば、#9で言うところのどの操作をした状態で、どのようなエラーが発生するのかも書いてください。

subri · Answer

ツール→オプション→計算方法タブで
計算方法が手動になっていたら自動にしてみてください。

matsu_jun · Answer

matsu_junです。

一度Excelごと終了しましょう。今作業中のブックは保存しなくていいですよ。
もう一度Excelを立ち上げ直して、同じ操作をしましょう。
また、■を押したらすぐに大きい画面(MicroSoft Visual Basicのことかな？)は出ませんよ。
■を押しても見た目はそう変わらないはずです。その後、#9で説明した4)へ進みましたか？
ちゃんとAltキーを押しながらF8キーを押しましたか？
画面下のタスクバーに、「Microsoft Visual Basic」というバーが表示されていたら、それをクリックしてもでるかもしれません。

ダメだったら何度でもExcelごと終了させて、私が#9で説明したことを繰り返してみましょう。
一度できたことです。2回目だってちゃんとできますよ。


ちなみに前回・前前回といい忘れていましたが、このDADD関数、単品でも使えますよ。試しにセルA1に4.9と入れて、B1セルに「=DADD(A1)」と入力してみましょう。5.1になりますね。

matsu_jun · Answer

ごめんなさいね。#9のmatsu_junです。
以下のようにして下さい。1行だけ変更しました。


Private Function DADD(DL As Range) As Double
    Dim INTNUM As Long
    Dim PNTNUM As Double
    For Each CL In DL
        INTNUM = INTNUM + Application.WorksheetFunction.RoundDown(CL, 0)
        PNTNUM = PNTNUM + CDbl(CL) - Application.WorksheetFunction.RoundDown(CL, 0)
    Next CL
    INTNUM = INTNUM + Application.WorksheetFunction.RoundDown(PNTNUM / 0.8, 0)
    PNTNUM = ((PNTNUM * 10) Mod 8) / 10
    DADD = INTNUM + PNTNUM
End Function

macchan1 · Answer

単純にもとの数式が間違えているだけのように思います。
時間の整数部分は個別に足し算しないとダメですね。

少数点以下の数値も個別に足して、１日になるか調べ、小数点以下の部分は足し算して0.8で割った余りが時間になるので以下のような式で求めます。


=INT(A1)+INT(A2)+INT((MOD(A1,1)+MOD(A2,1))/0.8)+(MOD(MOD(A1,1)+MOD(A2,1),0.8))

BLUEPIXY · Answer

＃６です。
アドインで分析ツールを入れておられないのですね。
質問文でDEC2OCTを使っておられたので、入れられたものだと思っていました。
DEC2OCTを使えるようにするには、
[ツール] メニューの [アドイン] をクリックします。 
[アドイン] の一覧の [分析ツール] ボックスを選択し、[OK] をクリックします。

matsu_jun · Answer

もう面倒くさいので、新しい関数「DADD()」をマクロで作っちゃいましょう。
難しく構えないで下さい。ここで言われたとおりのことをしていただければ、
次回からは、SUM関数と全く同様の手順で動くようになりますよ。
マクロを編集するためのツールは、Excelを普通にインストールしたときに自動的に
インストールされていますから、問題ありません。

さて、まずは新規ブックを開いてください。そうしたら以下の操作を行います。
1) ツール(T)－マクロ(M)－新しいマクロの記録(R)を開く
2) 「マクロの記録」ウィンドウが表示されたら、何も変更せずにOKをクリック
3) 画面上に二つのボタンが表示されたツールバーが現れたら、左側の「■」をクリックして記録終了
4) Altキーを押しながらF8キーを押して、マクロウィンドウを開く
5) マクロウィンドウから、編集(E)ボタンをクリック
6) 現れた「Microsoft Visual Basic」の右側に
Sub Macro1()
'
'
'
End Sub
と書いてある部分を消去して、下の「ここから」から「ここまで」を貼り付ける。

'ここから-------------------------------------------------------
Private Function DADD(DL As Range) As Double
　　Dim INTNUM As Long
　　Dim PNTNUM As Double
　　For Each CL In DL
　　　　INTNUM = INTNUM + Application.WorksheetFunction.RoundDown(CL, 0)
　　　　PNTNUM = PNTNUM + CDbl(CL) - Application.WorksheetFunction.RoundDown(CL, 0)
　　Next CL
　　INTNUM = INTNUM + PNTNUM \ 0.8
　　PNTNUM = ((PNTNUM * 10) Mod 8) / 10
　　DADD = INTNUM + PNTNUM
End Function
'ここまで-------------------------------------------------------


できましたでしょうか？そうしたら実験をしてみましょう。
現在のブックの任意のシート状のセルA1に1.6、A2に0.3、A3に2.5と入力してみてください。
セルA4に =DADD(A1:A3) と入力してみましょう。 A4に「4.6」と表示されましたか？
その値は期待通りですか？、例えばこの状態でセルA1の値を書き換えたらA4の値も変わりますか？



でも毎度毎度新しいブックを作るたびに上のようなことを書いていては面倒ですね。
というわけで、どのブックでも上の関数が使えるように、登録してしまいましょう。
まずはシートに落書きした、さっきの実験結果を消去してください。
さて行きますよ。もう一歩です。

1) 出来上がったファイルを保存します。
その際、ファイルの種類を「Microsoft Excelアドイン (*.xla)」にします。ファイル名はなんでも結構です(後で分かりやすい名前にしておいた方がいいですが)。保存先が「AddIns」になっていたら変えないでください。
2) Excelの「ツール(T)－アドイン(I)」でアドインダイアログを開き、参照ボタンをクリックします。
3) 先ほど保存したファイルが登場するはずなのでこれを選択します。

はい、これで完成です。好きなブックを開いていただいて同じことを試してみてください。当然SUM関数と同様に、「=DADD(」とまで打ち込んでから、合計したいセルをドラッグしていってもOKですよ。

at121 · Answer

ＶＢＡ・・ソフトをダウンロード　の必要はない。
ツール　＞　マクロ  で　とりあえず何か記録して・・操作して・・記録終了
　ツール　＞　マクロ　で　VisualBasicエディタ　を開いてみる。

データシート　C1　に　ユーザー関数設定
A1B1
5.30.7

fx  　の　関数の分類の　ユーザー定義　で
　マクロ　ファンクション名「変な8H単位足し算」を指定

c1　セル　の式
=変な8H単位足し算(A1,B1)
 結果　6.2　表示　セルの　書式　標準

・・　普通は　残業時間と単価が違うのでこういう計算はしないと思います。　パートやアルバイトなら　単純な時間の累積で良さそうなので　何に使うのか・・

ユーザー関数設定

マクロ　VBエディタで　挿入　＞　標準モジュール
↓マクロ　VBエディタで　標準モジュールに以下コピー↓

Function 変な8H単位足し算(セル1 As Range, セル2 As Range)
数値1 = セル1.Value
数値2 = セル2.Value

整数部 = Int(数値1) + Int(数値2)

時間の繰上げ部 = Int((数値1 + 数値2 - 整数部) / 0.8)

時間の部 = (数値1 + 数値2 - 整数部) - 時間の繰上げ部 * 0.8

変な8H単位足し算 = 整数部 + 時間の繰上げ部 + 時間の部

End Function

関数が動くセル、動かないセル

#10です。

matsu_junです。

matsu_junです。

この回答への補足

ツール→オプション→計算方法タブで

この回答への補足

matsu_junです。

この回答への補足

ごめんなさいね。

この回答への補足

単純にもとの数式が間違えているだけのように思います。

この回答への補足

＃６です。

この回答への補足

もう面倒くさいので、新しい関数「DADD()」をマクロで作っちゃいましょう。

この回答への補足

ＶＢＡ・・ソフトをダウンロード の必要はない。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ＶＢＡ・・ソフトをダウンロード　の必要はない。